Net-IDN-Encode-2.300000755000765000024 012552251475 14114 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.300/Build.PL000444000765000024 176012552251473 15547 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/Net/IDN/UTS46/_Mapping.pm', ], 'lib/Unicode/UTS46/GenTests.PL' => [ 't/uts46_to_ascii.t', 't/uts46_to_ascii-trans.t', 't/uts46_to_unicode.t', ], }, 'no_index' => { 'directory' => ['eg', 'data'] }, 'resources' => { 'homepage' => 'http://search.cpan.org/dist/Net-IDN-Encode', 'repository' => 'http://github.com/cfaerber/Net-IDN-Encode', }, ); $b->create_build_script; Net-IDN-Encode-2.300/Changes000444000765000024 1306412552251473 15566 0ustar00cfaerberstaff000000000000Revision history for Perl extension Net::IDN::Encode 2.300 (2015-06-17) - update to Unicode 8.0.0 2.202 (2015-04-18) - use updated IdnaTest.txt from Unicode 7.0.0 database FIXES: #96749: Fails with bleadperl - documentation updates, point to perl Unicode tutorials - tests for domain xn--zcaa.de; REJECTED: #103205 for Net-IDN-Encode: conversion of domain name 2.201 (2014-08-30) - correct handling of uppercase a-labels in domain_to_{ascii,unicode} - FIXES: #98354: Capitalized ACE prefix does not work (reported by victor@*****.ru) 2.200 (2014-06-21) - Net::IDN::UTS46: update to Unicode® 7.0.0 and UTS #46 r13 - typo and metadata fixes from dstreinbrunner 2.100 (2013-12-30) - Net::IDN::Encode: preserve case in pure-ASCII labels (bypass en-/decoding) FIXES: #91059: case not preserved (reported by DMUEY) - Net::IDN::Encode: simplify scalar-via-blob syntax (pull req. by DMUEY) - Net::IDN::Encode: add SMALL COMMERCIAL AT to list of possible @ signs (pull req. by DMUEY) - Net::IDN::UTS46: update to Unicode® 6.3.0 and UTS #46 r11: * new UTS #46 test vectors in data/IdnaTest.txt * built on perl-blead (5.19.7) for support of Unicode® 6.3.0 in tests generated from data/IdnaTest.txt * tweaks and fixes regarding edge cases not clearly described in UTS #46 - Net::IDN::UTS46: test vectors supposed to fail due to Unassigned characters are no longer skipped. - Net::IDN::Punycode: use utf8_to_uvchr_buf instead of deprecated utf8_to_uvuni (perl 5.15.9 and higher; utf8_to_uvuni_buf is deprecated from perl 5.19.5) 2.005 (2013-11-03) - better documentation for unassigned characters, FIXES: #89750: Can't create IDN for a special domain (reported by felix.*****@*****.de) - FIXES: #89270: [PATCH] fix spelling errors in the docs (reported by cstamas@*****.hu) 2.004 (2013-08-12) - FIXES: #85552 3 uts46 tests FAIL under perl-5.18.0 (reported by d.thomas@*****.au) 2.003 (2012-01-22) - FIXES required version of Unicode::Normalize in UTS46.pm (reported by CPAN testers) 2.002 (2012-01-18) - FIXES dependencies/required perl version - FIXES: #74021 Makefile.PL bad value for version-requirement 2.001 (2012-01-12) - FIXES XS_VERSION mismatch - FIXES depencency on Unicode::Normalize (was 1.000 or higher, but this is not needed). 2.000 (2012-01-08) - switch to Unicode Technical Standard #46 (previously, IDNA2003 has been used, which is now available as Net::IDN::IDNA2003): - add Net::IDN::UTS46 + test vectors from UTS #46 - remove Net::IDN::Nameprep (only required for IDNA2003) - add documentation about IDNA Standards and IDNA module Overview/Roadmad - allow NON-LDH labels (e.g. for SRV records), even if UseSTD3Rules=true (parameter now only applies to U-labels and A-labels, i.e. labels that are converted by IDNA). - FIXES potential portability problems in Net::IDN::Punycode XS 1.999_20120108 - FIXES 'wide character' warning with tests if tests fail/if TB2 is used on modern perl installations. - FIXES decoding bug in Net::IDN::Punycode::PP (discovered through UTS #46 test vectors) 1.101 (2011-12-08) - FIXES: #72615 faulty data in Build.PL causes a lack of meta files, which breaks carton. 1.100 (2010-06-08, patch by Loïc Etienne) - new parameters AllowUnassigned/UseSTD3ASCIIRules for to_ascii, to_unicode (RFC 3490) domain_to_ascii, domain_to_unicode - case insensitive ACE prefix (RFC 3490) - new length 255 check in domain_to_ascii (RFC 1034) - length 63 check moved to to_ascii - dots replacement only in domain_to_ascii (domain_to_unicode does not require it) - o-modifier in regexs - _domain replaced by domain_to_unicode and domain_to_ascii - _nameprep replaced by Net::IDN::Nameprep 1.000 (2010-01-13) - clean-up - release 0.999_20090112 (2010-01-10) - add XS for decode_punycode 0.999_20090110 (2010-01-10) - add XS for encode_punycode - include Net::IDN::Nameprep into Net::IDN::Encode *sigh* - drop IDNA::Punycode 0.99_20091231 - depend on perl 5.8.3 - optimise Net::IDN::Punycode 0.99_20091226 Sat Dec 26 00:00:00 2009 - some clean-ups 0.99_20091216 Wed Dec 16 00:00:00 2009 - switch to Module::Build - switch to Github, remove svn:keywords, add .gitignore - use ASCII in POD, fixes FAILs with perl 5.6.x - add examples in eg/ 0.99_20080913 Sun Sep 13 12:00:00 2008 - fixed perl 5.6.x (no warnings 'utf8') 0.99_20080913 Sat Sep 13 12:00:00 2008 - require perl version 5.6.0 instead of 5.6.6 - skip more tests in lower perl versions - removed Encode::Punycode; Encode is only available from perl 5.7.3 - renamed back to Net::IDN::Encode; without Encode::Punycode, the new name does not make sense. 0.99_20071012 Fri Oct 12 12:00:00 2007 - renamed Net-IDN-Encode distribution to Net-IDN-tools - includes Net::IDN::Punycode (from IDNA::Punycode v0.02) - includes Net::IDN::Nameprep (complete rewrite, uses Unicode::Stringprep) - includes IDNA::Punycode (deprecated, new version based on Net::IDN::Punycode/::Encode) - includes Encode::Punycode (new version based on Net::IDN::Punycode) - uses Unicode::Stringprep - more tests, including test vectors from Internet Draft draft-josefsson-idn-test-vectors-00. - FIXES: #16150: Net::IDN::Encode depends on non-modulelist module IDNA::Punycode - FIXES: #16145: IDNA::Punycode 0.03 - FIXES: #28123: Undeclared dependency on Unicode::Stringprep (reported by ANDK) - FIXES WARNING: v-string in use/require non-portable (Net::IDN::Nameprep[::*]) 0.02 Sun Jun 20 00:00:00 2004 - fixed handling of incomplete/empty email addresses 0.01 Sun May 30 00:00:00 2004 - first release Net-IDN-Encode-2.300/LICENSE000444000765000024 4375112552251473 15306 0ustar00cfaerberstaff000000000000This software is copyright (c) 2015 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) 2015 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, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The license agreements of most software companies try to keep users at the mercy of those companies. By contrast, our General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. The General Public License applies to the Free Software Foundation's software and to any other program whose authors commit to using it. You can use it for your programs, too. When we speak of free software, we are referring to freedom, not price. Specifically, the General Public License is designed to make sure that you have the freedom to give away or sell copies of free software, that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of a such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must tell them their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any work containing the Program or a portion of it, either verbatim or with modifications. Each licensee is addressed as "you". 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this General Public License and to the absence of any warranty; and give any other recipients of the Program a copy of this General Public License along with the Program. You may charge a fee for the physical act of transferring a copy. 2. You may modify your copy or copies of the Program or any portion of it, and copy and distribute such modifications under the terms of Paragraph 1 above, provided that you also do the following: a) cause the modified files to carry prominent notices stating that you changed the files and the date of any change; and b) cause the whole of any work that you distribute or publish, that in whole or in part contains the Program or any part thereof, either with or without modifications, to be licensed at no charge to all third parties under the terms of this General Public License (except that you may choose to grant warranty protection to some or all third parties, at your option). c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the simplest and most usual way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this General Public License. d) You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. Mere aggregation of another independent work with the Program (or its derivative) on a volume of a storage or distribution medium does not bring the other work under the scope of these terms. 3. You may copy and distribute the Program (or a portion or derivative of it, under Paragraph 2) in object code or executable form under the terms of Paragraphs 1 and 2 above provided that you also do one of the following: a) accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Paragraphs 1 and 2 above; or, b) accompany it with a written offer, valid for at least three years, to give any third party free (except for a nominal charge for the cost of distribution) a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Paragraphs 1 and 2 above; or, c) accompany it with the information you received as to where the corresponding source code may be obtained. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form alone.) Source code for a work means the preferred form of the work for making modifications to it. For an executable file, complete source code means all the source code for all modules it contains; but, as a special exception, it need not include source code for modules which are standard libraries that accompany the operating system on which the executable file runs, or for standard header files or definitions files that accompany that operating system. 4. You may not copy, modify, sublicense, distribute or transfer the Program except as expressly provided under this General Public License. Any attempt otherwise to copy, modify, sublicense, distribute or transfer the Program is void, and will automatically terminate your rights to use the Program under this License. However, parties who have received copies, or rights to use copies, from you under this General Public License will not have their licenses terminated so long as such parties remain in full compliance. 5. By copying, distributing or modifying the Program (or any work based on the Program) you indicate your acceptance of this license to do so, and all its terms and conditions. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. 7. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of the license which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of the license, you may choose any version ever published by the Free Software Foundation. 8. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to humanity, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19xx name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (a program to direct compilers to make passes at assemblers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice That's all there is to it! --- The Artistic License 1.0 --- This software is Copyright (c) 2015 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.300/Makefile.PL000444000765000024 76012552251473 16204 0ustar00cfaerberstaff000000000000# Note: this file was auto-generated by Module::Build::Compat version 0.4210 require 5.008005; use ExtUtils::MakeMaker; WriteMakefile ( 'VERSION_FROM' => 'lib/Net/IDN/Encode.pm', 'EXE_FILES' => [], 'INSTALLDIRS' => 'site', 'NAME' => 'Net::IDN::Encode', 'PL_FILES' => {}, 'PREREQ_PM' => { 'Unicode::Normalize' => 0, 'ExtUtils::CBuilder' => 0, 'Test::NoWarnings' => 0, 'Test::More' => 0 } ) ; Net-IDN-Encode-2.300/MANIFEST000444000765000024 120212552251473 15373 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.300/META.json000444000765000024 205412552251473 15671 0ustar00cfaerberstaff000000000000{ "abstract" : "Internationalizing Domain Names in Applications (UTS #46)", "author" : [ "Claus Färber " ], "dynamic_config" : 1, "generated_by" : "Module::Build version 0.421", "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.300" } Net-IDN-Encode-2.300/META.yml000444000765000024 120612552251473 15517 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.421, CPAN::Meta::Converter version 2.142690' 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.300' Net-IDN-Encode-2.300/README000444000765000024 116412552251473 15131 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.300/SIGNATURE000644000765000024 612412552251475 15542 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 349441099c4ef03e28711e0a940feffb35943473 Build.PL SHA1 6cae2917f5639728887df85b4dc2b5b43c11a64a Changes SHA1 1309c5bc950d6d1df18220502647c8e5ca3afd94 LICENSE SHA1 b947efa2ea37142ead6dfab2e1bc3ef6ccf2666b MANIFEST SHA1 9857255adf6deedc89b429bf704b0f0f274082fd META.json SHA1 5a056c213b152f7ba876657ba92cdc1121ff9095 META.yml SHA1 979bbff0d98f6fd1d75c373ed48f083be6a925f3 Makefile.PL SHA1 3807b576f4488318a73d35db802b2609e2560070 README SHA1 c7825316b854216c50a88b5750c3a08a91e56695 eg/hello_idn.pl SHA1 da626e4a67218dc2ed50b4a5b45b258078db0681 eg/hello_idn_email.pl SHA1 c74a66c98b16ef991c80e7734c1dfbe62fd408ab lib/Net/IDN/Encode.pm SHA1 fb662d59c0fdfceccacd336c99568225914b88ea lib/Net/IDN/Overview.pod SHA1 f7769ca906c97bb643257062fe0242309cfde344 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 a9ebfe157d29851b63eb04d5dd667ac5a842b142 lib/Net/IDN/UTS46.pm SHA1 d60aacdae73bdfb87b29e7e957eaeade37d23aaf lib/Net/IDN/UTS46/_Mapping.pm SHA1 aee3164d2582e59a5cacc389f455a54d5a3e42e5 t/00use.t SHA1 4bf2ce7aa9320362cccabd1e8a1b623192584890 t/10pod.t SHA1 7b363ec736008d60ede786cd9e62ae8db99e7628 t/11pod_cover.t SHA1 67367aeaed29db4eb2c54d532a54834d18bef4b7 t/domain_to_ascii.t SHA1 aadd66ec160d136e940c4cfb7764c1b18089a7b4 t/domain_to_unicode.t SHA1 659313cde51535a32053b02c07991da57725c214 t/encode_bytes.t SHA1 9cc5d106c594c43370fc135adf44d2f61372cfa7 t/encode_utf8.t SHA1 11738a334df75b930f65a8b771e8dd10f99c2e5a t/punycode_vec-pp.t SHA1 3c025aafc4c0fef62d65a133605a9cc1d4234ee9 t/punycode_vec-xs.t SHA1 30a64f88f0f7391d4adeefd13580d6542b799fcb t/uts46_api_call.t SHA1 c49ae1e907113abe82c0081a7842b1f2c66d94ab t/uts46_encode_bytes.t SHA1 832f448cbe5b33956124c91a1e6b93d3e7e690ef t/uts46_encode_utf8.t SHA1 026ede39fac42838b2a63a7b6aed25d110ce0111 t/uts46_to_ascii-trans.t SHA1 cb6b3663a9ccc27e21781dbf0b33dab2de78f81a t/uts46_to_ascii.t SHA1 6f52cc0d2b4c1eb3252b089c43db7e174881fa85 t/uts46_to_unicode.t SHA1 245b13d82d5ab98b510dc4b0221cab1ffd347237 t/xtra_pp.t -----BEGIN PGP SIGNATURE----- iQEcBAEBCAAGBQJVqVM7AAoJEIS+srvgrWBm/N0H/3KPgd8gV5HAC6l2GmG3ra3M a2Oo0DhqyLQIUV8pYzG3+LE8sPMWij6BeKI+fEdqhm/1x5ZMEbIVapQSde9Yeq9R ewlWePiyezQoy7JJBcrTGKU/fITMPNi6Vongn3rmYW439QHsa6Tv+Pi4eKqrUAr6 ZqJ7+WQQEDsUpTLiMf0UrfJYfPadOoHnO/ywzDThMaEBViWkhxxJqQUw2AZU66RL KUTY+rBP6eJ1PjGtNNNcbOw5SWtzbo8jRpSQIJArtRtF18x9hJhwUINRN2PAlFJB 6w5gJEz2FOpVX2VSpCd8s1Q9X9S8WFADktJ5i7Uk9ttkqXlHsYeiLv4cN4PD6TU= =sbUJ -----END PGP SIGNATURE----- Net-IDN-Encode-2.300/eg000755000765000024 012552251473 14505 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.300/eg/hello_idn.pl000444000765000024 42012552251473 17110 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.300/eg/hello_idn_email.pl000444000765000024 43612552251473 20266 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.300/lib000755000765000024 012552251473 14660 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.300/lib/Net000755000765000024 012552251473 15406 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.300/lib/Net/IDN000755000765000024 012552251473 16020 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.300/lib/Net/IDN/Encode.pm000555000765000024 2443712552251473 17745 0ustar00cfaerberstaff000000000000package Net::IDN::Encode; require 5.006; use strict; use utf8; use warnings; our $VERSION = "2.300"; $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}|^(?:(?i)$IDNA_PREFIX)/o) { $label = Net::IDN::UTS46::to_unicode(@_); } return $label; } sub _domain { my ($domain,$to_function,$ascii,%param) = @_; $param{'UseSTD3ASCIIRules'} = 1 unless exists $param{'UseSTD3ASCIIRules'}; my $even_odd = 1; return join '', map { $even_odd++ % 2 ? $to_function->($_, %param) : $ascii ? '.' : $_ } split /(\p{IsIDNADot})/o, $domain; } sub _email { my ($email,$to_function,$ascii,%param) = @_; return $email if !defined($email) || $email eq ''; $email =~ m/^( (?(?!\p{IsIDNAAtsign}|").|(?!))+ | "(?:(?:[^"]|\\.)*[^\\])?" ) (?: (\p{IsIDNAAtsign}) (?:([^\[\]]*)|(\[.*\]))? )?$/xo || croak "Invalid email address"; my($local_part,$at,$domain,$domain_literal) = ($1,$2,$3); $local_part =~ m/\P{ASCII}/ && croak "Non-ASCII characters in local-part"; $domain_literal =~ m/\P{ASCII}/ && croak "Non-ASCII characters in domain-literal" if $domain_literal; $domain = $to_function->($domain,%param) if $domain; $at = '@' if $ascii; return ($domain || $domain_literal) ? ($local_part.$at.($domain || $domain_literal)) : ($local_part); } sub domain_to_ascii { _domain(shift, \&to_ascii, 1, @_) } sub domain_to_unicode { _domain(shift, \&to_unicode, 0, @_) } sub email_to_ascii { _email(shift, \&domain_to_ascii, 1, @_) } sub email_to_unicode { _email(shift, \&domain_to_unicode, 0, @_) } 1; __END__ =encoding utf8 =head1 NAME Net::IDN::Encode - Internationalizing Domain Names in Applications (IDNA) =head1 SYNOPSIS use Net::IDN::Encode ':all'; my $a = domain_to_ascii("müller.example.org"); my $e = email_to_ascii("POSTMASTER@例。テスト"); my $u = domain_to_unicode('EXAMPLE.XN--11B5BS3A9AJ6G'); =head1 DESCRIPTION This module provides an easy-to-use interface for encoding and decoding Internationalized Domain Names (IDNs). IDNs use characters drawn from a large repertoire (Unicode), but IDNA allows the non-ASCII characters to be represented using only the ASCII characters already allowed in so-called host names today (letter-digit-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. You should be familiar with Unicode support in perl, as this module expects correctly encoded input. See L, L and L for details. =head1 UNICODE VERSION To convert labels correctly between Unicode and ASCII, each character in the label must be present in the Unicode version supported by your perl. Consequently, this module will refuse to convert labels with new Unicode characters on older perl versions (see below). =head1 FUNCTIONS By default, this module does not export any subroutines. You may use the C<:all> tag to import everything. You can also use regular expressions such as C or C to select some of the functions, see L for details. The following functions are available: =over =item to_ascii( $label, %param ) Converts a single label C<$label> to ASCII. Will throw an exception on invalid input. If C<$label> is already a valid ASCII domain label (including most NON-LDH labels such as those used for SRV records and fake A-labels), this function will never fail but return C<$label> as-is if conversion would fail. This function takes the following optional parameters (C<%param>): =over =item AllowUnassigned (boolean) If set to a true value, code points that are unassigned in the Unicode version supported by your perl are allowed. This is an extension over UTS #46. While this increases the number of labels that can be converted successfully (especially on older perls) and may thus maximizes the compatibility with domain names created under future versions of Unicode, it also introduces the risk of incorrect conversions. Characters added in later versions of Unicode might have properties that affect the conversion; if these properties are not known on your version of perl, you might therefore end up with an incorrect conversion. The default is false. =item UseSTD3ASCIIRules (boolean) If set to a true value, checks the label for compliance with S (S) syntax for host name parts. The exact checks done depend on the IDNA standard used. Usually, you will want to set this to true. Please note that UseSTD3ASCIIRules only affects the conversion between ASCII labels (A-labels) and Unicode labels (U-labels). Labels that are in ASCII may still be passed-through as-is. For historical reasons, the default is false (unlike C). =item TransitionalProcessing (boolean) If set to true, the conversion will be compatible with IDNA2003. This only affects four characters: C<'ß'> (U+00DF), 'ς' (U+03C2), ZWJ (U+200D) and ZWNJ (U+200C). Usually, you will want to set this to false. The default is false. =back This function does not handle strings that consist of multiple labels (such as domain names). Use C instead. =item to_unicode( $label, %param ) Converts a single label C<$label> to Unicode. Will throw an exception on invalid input. If C<$label> is an ASCII label (including most NON-LDH labels such as those used for SRV records), this function will not fail but return C<$label> as-is if conversion would fail. This function takes the same optional parameters as C, with the same defaults. If C<$label> is already in ASCII, this function will never fail but return C<$label> as is as a last resort (i.e. pass-through). This function takes the following optional parameters (C<%param>): =over =item AllowUnassigned =item UseSTD3ASCIIRules See C above. Please note that there is no need for C for C. =back This function does not handle strings that consist of multiple labels (such as domain names). Use C instead. =item domain_to_ascii( $label, %param ) Converts all labels of the hostname C<$domain> (with labels separated by dots) to ASCII (using C). Will throw an exception on invalid input. This function takes the following optional parameters (C<%param>): =over =item AllowUnassigned =item TransitionalProcessing See C above. =item UseSTD3ASCIIRules (boolean) If set to a true value, checks the label for compliance with S (S) syntax for host name parts. The default is true (unlike C). =back This function will convert all dots to ASCII, i.e. to U+002E (full stop). The following characters are recognized as dots: U+002E (full stop), U+3002 (ideographic full stop), U+FF0E (fullwidth full stop), U+FF61 (halfwidth ideographic full stop). =item domain_to_unicode( $domain, %param ) Converts all labels of the hostname C<$domain> (with labels separated by dots) to Unicode. Will throw an exception on invalid input. This function takes the same optional parameters as C, with the same defaults. This function takes the following optional parameters (C<%param>): =over =item AllowUnassigned =item UseSTD3ASCIIRules See C above. Please note that there is no C for C. =back This function will preserve the original version of dots. The following characters are recognized as dots: U+002E (full stop), U+3002 (ideographic full stop), U+FF0E (fullwidth full stop), U+FF61 (halfwidth ideographic full stop). =item email_to_ascii( $email, %param ) Converts the domain part (right hand side, separated by an at sign) of an S/2822 email address to ASCII, using C. May throw an exception on invalid input. It takes the same parameters as C. This function currently does not handle internationalization of the local-part (left hand side). Future versions of this module might implement an ASCII conversion for the local-part, should one be standardized. This function will convert the at sign to ASCII, i.e. to U+0040 (commercial at), as well as label separators. The 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-2014 Claus FErber. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L, L, L, L, S (L), S (L). =cut Net-IDN-Encode-2.300/lib/Net/IDN/Overview.pod000444000765000024 777612552251473 20510 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 (including the core module L ). =item Net-IDN-IDNA2003 provides the L module. This is separate because it has an dependency on L (through L). =begin comment =item Net-IDN-IDNA2008 provides the L module. This is separate because it has an dependency on perl 5.10 or higher (through L). =end comment =item Encode-Punycode =item IDNA-Punycode are separate because they are of limited use to the average user/perl programmer. =back =head1 AUTHOR Claus FErber =cut Net-IDN-Encode-2.300/lib/Net/IDN/Punycode.pm000444000765000024 623312552251473 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; eval { die if $_NO_XS; require XSLoader; XSLoader::load('Net::IDN::Punycode'); }; if (!defined(&encode_punycode)) { require Net::IDN::Punycode::PP; Net::IDN::Punycode::PP->import(qw(:all)); } 1; __END__ =head1 NAME Net::IDN::Punycode - A Bootstring encoding of Unicode for IDNA (S) =head1 SYNOPSIS use Net::IDN::Punycode qw(:all); $punycode = encode_punycode($unicode); $unicode = decode_punycode($punycode); =head1 DESCRIPTION This module implements the Punycode encoding, and only the Punycode encoding. This module does not implement any other steps required for converting internationalised domain names (IDNs) to and from ASCII. In particular, it does not do any string preparation as specified by I/I/I and does not add nor remove the ACE prefix (C). Thus, use L if you want to convert domain names. Punycode is an instance of a more general algorithm called Bootstring, which allows strings composed from a small set of "basic" code points to uniquely represent any string of code points drawn from a larger set. Punycode is Bootstring with particular parameter values appropriate for IDNA. =head1 WARNING You may be tempted to use this module directly and add/remove the ACE prefix (C) in your code for performance reasons. Usually, this is not a good idea. If you convert domain labels (or other strings) without proper 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, this may not be true. For example, some environments might automatically convert your perfectly valiad domain names to a different but equivalent Unicode normalisation form (e.g., NFD instead of NFC), which already breaks IDNA. =head1 FUNCTIONS No functions are exported by default. You can use the tag C<:all> or import them individually. The following functions are available: =over =item encode_punycode($input) Encodes C<$input> with Punycode and returns the result. This function will throw an exception on invalid/unencodable input. =item decode_punycode($input) Decodes C<$input> with Punycode and returns the result. This function will throw an exception on invalid input. =back =head1 AUTHORS Tatsuhiko Miyagawa Emiyagawa@bulknews.netE (versions 0.01 to 0.02) Claus FErber ECFAERBER@cpan.orgE (versions 1.000 and higher) =head1 LICENSE Copyright 2002-2004 Tatsuhiko Miyagawa Emiyagawa@bulknews.netE Copyright 2007-2014 Claus FErber ECFAERBER@cpan.orgE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO S (L), L, L =cut Net-IDN-Encode-2.300/lib/Net/IDN/Punycode.xs000444000765000024 1523212552251473 20342 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.300/lib/Net/IDN/Standards.pod000555000765000024 703412552251473 20613 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.300/lib/Net/IDN/UTS46.pm000444000765000024 4234612552251473 17371 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/^(?:(?i)$IDNA_PREFIX)(\p{ASCII}+)$/o) { eval { $l = decode_punycode($1); }; croak 'Invalid Punycode sequence [P4]' if $@; _validate_label($l, %param, 'TransitionalProcessing' => 0, 'AllowUnassigned' => 0, ## keep the Punycode version ) unless $@; } else { _validate_label($l,%param,'_AssumeNFC' => 1); } _validate_bidi($l,%param); _validate_contextj($l,%param); if(defined $to_ascii) { $l = $to_ascii->($l, %param); } ## IDNA test vectors: labels have to be checked for the minimum length of 1 (but not for the ## maximum length of 63) even in to_unicode. ## croak "empty label [A4_2]" if length($l) < 1; croak "label too long [A4_2]" if length($l) > 63 and defined $to_ascii; } my $domain = join('.', @ll); ## IDNA test vectors: domains have to be checked for the minimum length of 1 (but not for the ## maximum length of 253 excluding a final dot) even in to_unicode. ## croak "empty domain name [A4_1]" if length($domain) < 1; croak "domain name too long [A4_1]" if length($domain) > 253 and defined $to_ascii; $domain .= '.' if $rooted; return $domain; } sub _validate_label { my($l,%param) = @_; no warnings 'utf8'; $l eq Unicode::Normalize::NFC($l) or croak "not in Unicode Normalization Form NFC [V1]" unless $param{'_AssumeNFC'}; $l =~ m/^..--/ and croak "contains U+002D HYPHEN-MINUS in both third and forth position [V2]"; $l =~ m/^-/ and croak "begins with U+002D HYPHEN-MINUS [V3]"; $l =~ m/-$/ and croak "ends with U+002D HYPHEN-MINUS [V3]"; $l =~ m/\./ and croak "contains U+0023 FULL STOP [V4]"; $l =~ m/^\p{IsMark}/ and croak "begins with General_Category=Mark [V5]"; unless($param{'AllowUnassigned'}) { $l =~m/(\p{Unassigned})/ and croak sprintf "contains unassigned character U+%04X [V6]", ord $1; } if($param{'UseSTD3ASCIIRules'}) { $l =~m/(\p{IsDisallowedSTD3Valid})/ and croak sprintf "contains disallowed_STD3_valid character U+%04X [V6]", ord $1; } if($param{'TransitionalProcessing'}) { $l =~m/(\p{IsDeviation})/ and croak sprintf "contains deviation character U+%04X [V6]", ord $1; } $l =~ m/(\p{IsDisallowed})/ and croak sprintf "contains disallowed character U+%04X [V6]", ord $1; return 1; } sub _validate_bidi { my($l,%param) = @_; no warnings 'utf8'; ## IDNA test vectors: _labels_ that don't contain RTL characters are skipped ## (RFC 5893 mandates checks for _all_ labels if the ## _domain_ contains RTL characters in any label) return 1 unless length($l); return 1 unless $l =~ m/[\p{Bc:R}\p{Bc:AL}\p{Bc:AN}]/; ## IDNA test vectors: LTR labels may start with "neutral" characters of ## BidiClass NSM or EN (RFC 5893 says LTR labels must ## start with BidiClass L) ## if( $l =~ m/^[\p{Bc:NSM}\p{Bc:EN}]*\p{Bc:L}/ ) { # LTR (left-to-right) $l =~ m/[^\p{Bc:L}\p{Bc:EN}\p{Bc:ES}\p{Bc:CS}\p{Bc:ET}\p{Bc:BN}\p{Bc:ON}\p{Bc:NSM}]/ and croak 'contains characters with wrong bidi class for LTR [B5]'; $l =~ m/[\p{Bc:L}\p{Bc:EN}][\p{Bc:NSM}\P{Assigned}]*$/ or croak 'ends with character of wrong bidi class for LTR [B6]'; return 1; } if( $l =~ m/^[\p{Bc:R}\p{Bc:AL}]/ ) { # RTL (right-to-left) $l =~ m/[^\p{Bc:R}\p{Bc:AL}\p{Bc:AN}\p{Bc:EN}\p{Bc:ES}\p{Bc:CS}\p{Bc:ET}\p{Bc:ON}\p{Bc:BN}\p{Bc:NSM}]/ and croak 'contains characters with wrong bidi class for RTL [B2]'; $l =~ m/[\p{Bc:R}\p{Bc:AL}\p{Bc:EN}\p{Bc:AN}][\p{Bc:NSM}\P{Assigned}]*$/ or croak 'ends with character of wrong bidi class for RTL [B3]'; $l =~ m/\p{Bc:EN}.*\p{Bc:AN}|\p{Bc:AN}.*\p{Bc:EN}/ and croak 'contains characters with both bidi class EN and AN [B4]'; return 1; } croak 'starts with character of wrong bidi class [B1]'; } # For perl versions < 5.11, we use a conrete list of characters; this is safe # because the Unicode version supported by theses perl versions will not be # updated. For newer perl versions, we use the Unicode property (which is # supported from 5.11), so we will always be up-to-date with the Unicode # version supported by our underlying perl. # my $_RE_Ccc_Virama = $] >= 5.011 ? qr/\p{Ccc:Virama}/ : qr/[\x{094D}\x{09CD}\x{0A4D}\x{0ACD}\x{0B4D}\x{0BCD}\x{0C4D}\x{0CCD}\x{0D4D}\x{0DCA}\x{0E3A}\x{0F84}\x{1039}\x{103A}\x{1714}\x{1734}\x{17D2}\x{1A60}\x{1B44}\x{1BAA}\x{1BF2}\x{1BF3}\x{2D7F}\x{A806}\x{A8C4}\x{A953}\x{A9C0}\x{ABED}\x{00010A3F}\x{00011046}\x{000110B9}]/; my $_RE_JoiningType_L = $] >= 5.011 ? qr/\p{Joining_Type:L}/ : qr/(?!)/; my $_RE_JoiningType_R = $] >= 5.011 ? qr/\p{Joining_Type:R}/ : qr/[\x{0622}-\x{0625}\x{0627}\x{0629}\x{062F}-\x{0632}\x{0648}\x{0671}-\x{0673}\x{0675}-\x{0677}\x{0688}-\x{0699}\x{06C0}\x{06C3}-\x{06CB}\x{06CD}\x{06CF}\x{06D2}\x{06D3}\x{06D5}\x{06EE}\x{06EF}\x{0710}\x{0715}-\x{0719}\x{071E}\x{0728}\x{072A}\x{072C}\x{072F}\x{074D}\x{0759}-\x{075B}\x{076B}\x{076C}\x{0771}\x{0773}\x{0774}\x{0778}\x{0779}]/; my $_RE_JoiningType_D = $] >= 5.011 ? qr/\p{Joining_Type:D}/ : qr/[\x{0620}\x{0626}\x{0628}\x{062A}-\x{062E}\x{0633}-\x{063F}\x{0641}-\x{0647}\x{0649}\x{064A}\x{066E}\x{066F}\x{0678}-\x{0687}\x{069A}-\x{06BF}\x{06C1}\x{06C2}\x{06CC}\x{06CE}\x{06D0}\x{06D1}\x{06FA}-\x{06FC}\x{06FF}\x{0712}-\x{0714}\x{071A}-\x{071D}\x{071F}-\x{0727}\x{0729}\x{072B}\x{072D}\x{072E}\x{074E}-\x{0758}\x{075C}-\x{076A}\x{076D}-\x{0770}\x{0772}\x{0775}-\x{0777}\x{077A}-\x{077F}\x{07CA}-\x{07EA}]/; my $_RE_JoiningType_T = $] >= 5.011 ? qr/\p{Joining_Type:T}/ : qr/[\x{00AD}\x{0300}-\x{036F}\x{0483}-\x{0489}\x{0591}-\x{05BD}\x{05BF}\x{05C1}\x{05C2}\x{05C4}\x{05C5}\x{05C7}\x{0610}-\x{061A}\x{064B}-\x{065F}\x{0670}\x{06D6}-\x{06DC}\x{06DF}-\x{06E4}\x{06E7}\x{06E8}\x{06EA}-\x{06ED}\x{070F}\x{0711}\x{0730}-\x{074A}\x{07A6}-\x{07B0}\x{07EB}-\x{07F3}\x{0816}-\x{0819}\x{081B}-\x{0823}\x{0825}-\x{0827}\x{0829}-\x{082D}\x{0859}-\x{085B}\x{0900}-\x{0902}\x{093A}\x{093C}\x{0941}-\x{0948}\x{094D}\x{0951}-\x{0957}\x{0962}\x{0963}\x{0981}\x{09BC}\x{09C1}-\x{09C4}\x{09CD}\x{09E2}\x{09E3}\x{0A01}\x{0A02}\x{0A3C}\x{0A41}\x{0A42}\x{0A47}\x{0A48}\x{0A4B}-\x{0A4D}\x{0A51}\x{0A70}\x{0A71}\x{0A75}\x{0A81}\x{0A82}\x{0ABC}\x{0AC1}-\x{0AC5}\x{0AC7}\x{0AC8}\x{0ACD}\x{0AE2}\x{0AE3}\x{0B01}\x{0B3C}\x{0B3F}\x{0B41}-\x{0B44}\x{0B4D}\x{0B56}\x{0B62}\x{0B63}\x{0B82}\x{0BC0}\x{0BCD}\x{0C3E}-\x{0C40}\x{0C46}-\x{0C48}\x{0C4A}-\x{0C4D}\x{0C55}\x{0C56}\x{0C62}\x{0C63}\x{0CBC}\x{0CBF}\x{0CC6}\x{0CCC}\x{0CCD}\x{0CE2}\x{0CE3}\x{0D41}-\x{0D44}\x{0D4D}\x{0D62}\x{0D63}\x{0DCA}\x{0DD2}-\x{0DD4}\x{0DD6}\x{0E31}\x{0E34}-\x{0E3A}\x{0E47}-\x{0E4E}\x{0EB1}\x{0EB4}-\x{0EB9}\x{0EBB}\x{0EBC}\x{0EC8}-\x{0ECD}\x{0F18}\x{0F19}\x{0F35}\x{0F37}\x{0F39}\x{0F71}-\x{0F7E}\x{0F80}-\x{0F84}\x{0F86}\x{0F87}\x{0F8D}-\x{0F97}\x{0F99}-\x{0FBC}\x{0FC6}\x{102D}-\x{1030}\x{1032}-\x{1037}\x{1039}\x{103A}\x{103D}\x{103E}\x{1058}\x{1059}\x{105E}-\x{1060}\x{1071}-\x{1074}\x{1082}\x{1085}\x{1086}\x{108D}\x{109D}\x{135D}-\x{135F}\x{1712}-\x{1714}\x{1732}-\x{1734}\x{1752}\x{1753}\x{1772}\x{1773}\x{17B4}\x{17B5}\x{17B7}-\x{17BD}\x{17C6}\x{17C9}-\x{17D3}\x{17DD}\x{180B}-\x{180D}\x{18A9}\x{1920}-\x{1922}\x{1927}\x{1928}\x{1932}\x{1939}-\x{193B}\x{1A17}\x{1A18}\x{1A56}\x{1A58}-\x{1A5E}\x{1A60}\x{1A62}\x{1A65}-\x{1A6C}\x{1A73}-\x{1A7C}\x{1A7F}\x{1B00}-\x{1B03}\x{1B34}\x{1B36}-\x{1B3A}\x{1B3C}\x{1B42}\x{1B6B}-\x{1B73}\x{1B80}\x{1B81}\x{1BA2}-\x{1BA5}\x{1BA8}\x{1BA9}\x{1BE6}\x{1BE8}\x{1BE9}\x{1BED}\x{1BEF}-\x{1BF1}\x{1C2C}-\x{1C33}\x{1C36}\x{1C37}\x{1CD0}-\x{1CD2}\x{1CD4}-\x{1CE0}\x{1CE2}-\x{1CE8}\x{1CED}\x{1DC0}-\x{1DE6}\x{1DFC}-\x{1DFF}\x{200B}\x{200E}\x{200F}\x{202A}-\x{202E}\x{2060}-\x{2064}\x{206A}-\x{206F}\x{20D0}-\x{20F0}\x{2CEF}-\x{2CF1}\x{2D7F}\x{2DE0}-\x{2DFF}\x{302A}-\x{302F}\x{3099}\x{309A}\x{A66F}-\x{A672}\x{A67C}\x{A67D}\x{A6F0}\x{A6F1}\x{A802}\x{A806}\x{A80B}\x{A825}\x{A826}\x{A8C4}\x{A8E0}-\x{A8F1}\x{A926}-\x{A92D}\x{A947}-\x{A951}\x{A980}-\x{A982}\x{A9B3}\x{A9B6}-\x{A9B9}\x{A9BC}\x{AA29}-\x{AA2E}\x{AA31}\x{AA32}\x{AA35}\x{AA36}\x{AA43}\x{AA4C}\x{AAB0}\x{AAB2}-\x{AAB4}\x{AAB7}\x{AAB8}\x{AABE}\x{AABF}\x{AAC1}\x{ABE5}\x{ABE8}\x{ABED}\x{FB1E}\x{FE00}-\x{FE0F}\x{FE20}-\x{FE26}\x{FEFF}\x{FFF9}-\x{FFFB}\x{101FD}\x{10A01}-\x{10A03}\x{10A05}\x{10A06}\x{10A0C}-\x{10A0F}\x{10A38}-\x{10A3A}\x{10A3F}\x{11001}\x{11038}-\x{11046}\x{11080}\x{11081}\x{110B3}-\x{110B6}\x{110B9}\x{110BA}\x{110BD}\x{1D167}-\x{1D169}\x{1D173}-\x{1D182}\x{1D185}-\x{1D18B}\x{1D1AA}-\x{1D1AD}\x{1D242}-\x{1D244}\x{E0001}\x{E0020}-\x{E007F}\x{E0100}-\x{E01EF}]/; sub _validate_contextj { my($l,%param) = @_; no warnings 'utf8'; return 1 unless defined($l) && length($l); # catch ContextJ characters without defined rule (as of Unicode 6.0.0, this cannot match) # $l =~ m/([^\x{200C}\x{200D}\P{Join_Control}])/ and croak sprintf "contains CONTEXTJ character U+%04X without defined rule [C1]", ord($1); # RFC 5892, Appendix A.1. ZERO WIDTH NON-JOINER # Code point: # U+200C # # Overview: # This may occur in a formally cursive script (such as Arabic) in a # context where it breaks a cursive connection as required for # orthographic rules, as in the Persian language, for example. It # also may occur in Indic scripts in a consonant-conjunct context # (immediately following a virama), to control required display of # such conjuncts. # # # Lookup: # True # # Rule Set: # False; # If Canonical_Combining_Class(Before(cp)) .eq. Virama Then True; # If RegExpMatch((Joining_Type:{L,D})(Joining_Type:T)*\u200C # (Joining_Type:T)*(Joining_Type:{R,D})) Then True; $l =~ m/ $_RE_Ccc_Virama \x{200C} | (?: $_RE_JoiningType_L | $_RE_JoiningType_D) $_RE_JoiningType_T* \x{200C} $_RE_JoiningType_T*(?: $_RE_JoiningType_R | $_RE_JoiningType_D) | (\x{200C}) /xo and defined($1) and croak sprintf "rule for CONTEXTJ character U+%04X not satisfied [C2]", ord($1); # RFC 5892, Appendix A.2. ZERO WIDTH JOINER # # Code point: # U+200D # # Overview: # This may occur in Indic scripts in a consonant-conjunct context # (immediately following a virama), to control required display of # such conjuncts. # # Lookup: # True # Rule Set: # False; # If Canonical_Combining_Class(Before(cp)) .eq. Virama Then True; $l =~ m/ $_RE_Ccc_Virama \x{200D} | (\x{200D}) /xo and defined($1) and croak sprintf "rule for CONTEXTJ character U+%04X not satisfied [C2]", ord($1); } 1; __END__ =encoding utf8 =head1 NAME Net::IDN::UTS46 - Unicode IDNA Compatibility Processing (S) =head1 SYNOPSIS use Net::IDN:: ':all'; my $a = uts46_to_ascii("müller.example.org"); my $b = Net::IDN::UTS46::to_unicode('EXAMPLE.XN--11B5BS3A9AJ6G'); $domain =~ m/\P{Net::IDN::UTS46::IsDisallowed} and die 'oops'; =head1 DESCRIPTION This module implements the Unicode Technical Standard #46 (Unicode IDNA Compatibility Processing). UTS #46 is one variant of Internationalized Domain Names (IDN), which aims to be compatible with domain names registered under either IDNA2003 or IDNA2008. You should use this module if you want an exact implementation of the UTS #46 specification. However, if you just want to convert domain names and don't care which standard is used internally, you should use L instead. =head1 FUNCTIONS By default, this module does not export any subroutines. You may use the C<:all> tag to import everything. You can omit the C<'uts46_'> prefix when accessing the functions with a full-qualified module name (e.g. you can access C as C or C. The following functions are available: =over =item uts46_to_ascii( $domain, %param ) Implements the "ToASCII" function from UTS #46, section 4.2. It converts a domain name to ASCII and throws an exception on invalid input. This function takes the following optional parameters (C<%param>): =over =item AllowUnassigned (boolean) If set to a true value, unassigned code points in the label are allowed. This is an extension over UTS #46. The default is false. =item UseSTD3ASCIIRules (boolean) If set to a true value, checks the label for compliance with S (S) syntax for host name parts. The default is true. =item TransitionalProcessing (boolean) If set to true, the conversion will be compatible with IDNA2003. This only affects four characters: C<'ß'> (U+00DF), 'ς' (U+03C2), ZWJ (U+200D) and ZWNJ (U+200C). Usually, you will want to set this to false. The default is false. =back =item uts46_to_unicode( $label, %param ) Implements the "ToUnicode" function from UTS #46, section 4.3. It converts a domain name to Unicode and throws an exception on invalid input. This function takes the following optional parameters (C<%param>): =over =item AllowUnassigned see above. =item UseSTD3ASCIIRules see above. =item TransitionalProcessing (boolean) If given, this parameter must be false. The UTS #46 specification does not define transitional processing for ToUnicode. =back =back =head1 UNICODE CHARACTER PROPERTIES This module also defines the character properties listed below. Each character has exactly one of the following properties: =over =item C<\p{Net::IDN::UTS46::IsValid}> The code point is valid, and not modified (i.e. a deviation character) in UTS #46. =item C<\p{Net::IDN::UTS46::IsIgnored}> The code point is removed (i.e. mapped to an empty string) in UTS #46. =item C<\p{Net::IDN::UTS46::IsMapped}> The code point is replaced by another string in UTS #46. =item C<\p{Net::IDN::UTS46::IsDeviation}> The code point is either mapped or valid, depending on whether the processing is transitional or not. =item C<\p{Net::IDN::UTS46::IsDisallowed}> The code point is not allowed in UTS #46. =item C<\p{Net::IDN::UTS46::IsDisallowedSTD3Ignored}> The code point is not allowed in UTS #46 if C are used but would be ignored otherwise. =item C<\p{Net::IDN::UTS46::IsDisallowedSTD3Mapped}> The code point is not allowed in UTS #46 if C are used but would be mapped otherwise. =back =head1 AUTHOR Claus FErber =head1 LICENSE Copyright 2011-2014 Claus FErber. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L, L, S (L) Net-IDN-Encode-2.300/lib/Net/IDN/Punycode000755000765000024 012552251473 17606 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.300/lib/Net/IDN/Punycode/PP.pm000444000765000024 1112512552251473 20640 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.300/lib/Net/IDN/UTS46000755000765000024 012552251473 16645 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.300/lib/Net/IDN/UTS46/_Mapping.pm000444000765000024 57044612552251473 21152 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 = 8.000_000_000; our $UNICODE_VERSION = 8.000_000; our $UNICODE_DATE = "20150502"; our @ISA = qw(Exporter); our @EXPORT = (); our @EXPORT_OK = qw(IsDeviation IsDisallowed IsDisallowedSTD3Mapped IsDisallowedSTD3Valid IsIgnored IsMapped IsValid MapDeviation MapDisallowedSTD3Mapped MapIgnored MapMapped); sub _mk_prop { my @ll; while( my(@c) = splice(@_,0,2) ) { push @ll, join ' ', map { sprintf "%04X", $_ } grep { defined $_ } @c; } return join "\n", @ll; } 1; our @DISALLOWED = ( 0x0080, 0x009F, 0x0378, 0x0379, 0x0380, 0x0383, 0x038B, undef, 0x038D, undef, 0x03A2, undef, 0x04C0, undef, 0x0530, undef, 0x0557, 0x0558, 0x0560, undef, 0x0588, undef, 0x058B, 0x058C, 0x0590, undef, 0x05C8, 0x05CF, 0x05EB, 0x05EF, 0x05F5, 0x0605, 0x061C, 0x061D, 0x06DD, undef, 0x070E, 0x070F, 0x074B, 0x074C, 0x07B2, 0x07BF, 0x07FB, 0x07FF, 0x082E, 0x082F, 0x083F, undef, 0x085C, 0x085D, 0x085F, 0x089F, 0x08B5, 0x08E2, 0x0984, undef, 0x098D, 0x098E, 0x0991, 0x0992, 0x09A9, undef, 0x09B1, undef, 0x09B3, 0x09B5, 0x09BA, 0x09BB, 0x09C5, 0x09C6, 0x09C9, 0x09CA, 0x09CF, 0x09D6, 0x09D8, 0x09DB, 0x09DE, undef, 0x09E4, 0x09E5, 0x09FC, 0x0A00, 0x0A04, undef, 0x0A0B, 0x0A0E, 0x0A11, 0x0A12, 0x0A29, undef, 0x0A31, undef, 0x0A34, undef, 0x0A37, undef, 0x0A3A, 0x0A3B, 0x0A3D, undef, 0x0A43, 0x0A46, 0x0A49, 0x0A4A, 0x0A4E, 0x0A50, 0x0A52, 0x0A58, 0x0A5D, undef, 0x0A5F, 0x0A65, 0x0A76, 0x0A80, 0x0A84, undef, 0x0A8E, undef, 0x0A92, undef, 0x0AA9, undef, 0x0AB1, undef, 0x0AB4, undef, 0x0ABA, 0x0ABB, 0x0AC6, undef, 0x0ACA, undef, 0x0ACE, 0x0ACF, 0x0AD1, 0x0ADF, 0x0AE4, 0x0AE5, 0x0AF2, 0x0AF8, 0x0AFA, 0x0B00, 0x0B04, undef, 0x0B0D, 0x0B0E, 0x0B11, 0x0B12, 0x0B29, undef, 0x0B31, undef, 0x0B34, undef, 0x0B3A, 0x0B3B, 0x0B45, 0x0B46, 0x0B49, 0x0B4A, 0x0B4E, 0x0B55, 0x0B58, 0x0B5B, 0x0B5E, undef, 0x0B64, 0x0B65, 0x0B78, 0x0B81, 0x0B84, undef, 0x0B8B, 0x0B8D, 0x0B91, undef, 0x0B96, 0x0B98, 0x0B9B, undef, 0x0B9D, undef, 0x0BA0, 0x0BA2, 0x0BA5, 0x0BA7, 0x0BAB, 0x0BAD, 0x0BBA, 0x0BBD, 0x0BC3, 0x0BC5, 0x0BC9, undef, 0x0BCE, 0x0BCF, 0x0BD1, 0x0BD6, 0x0BD8, 0x0BE5, 0x0BFB, 0x0BFF, 0x0C04, undef, 0x0C0D, undef, 0x0C11, undef, 0x0C29, undef, 0x0C3A, 0x0C3C, 0x0C45, undef, 0x0C49, undef, 0x0C4E, 0x0C54, 0x0C57, undef, 0x0C5B, 0x0C5F, 0x0C64, 0x0C65, 0x0C70, 0x0C77, 0x0C80, undef, 0x0C84, undef, 0x0C8D, undef, 0x0C91, undef, 0x0CA9, undef, 0x0CB4, undef, 0x0CBA, 0x0CBB, 0x0CC5, undef, 0x0CC9, undef, 0x0CCE, 0x0CD4, 0x0CD7, 0x0CDD, 0x0CDF, undef, 0x0CE4, 0x0CE5, 0x0CF0, undef, 0x0CF3, 0x0D00, 0x0D04, undef, 0x0D0D, undef, 0x0D11, undef, 0x0D3B, 0x0D3C, 0x0D45, undef, 0x0D49, undef, 0x0D4F, 0x0D56, 0x0D58, 0x0D5E, 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, 0x0DE5, 0x0DF0, 0x0DF1, 0x0DF5, 0x0E00, 0x0E3B, 0x0E3E, 0x0E5C, 0x0E80, 0x0E83, undef, 0x0E85, 0x0E86, 0x0E89, undef, 0x0E8B, 0x0E8C, 0x0E8E, 0x0E93, 0x0E98, undef, 0x0EA0, undef, 0x0EA4, undef, 0x0EA6, undef, 0x0EA8, 0x0EA9, 0x0EAC, undef, 0x0EBA, undef, 0x0EBE, 0x0EBF, 0x0EC5, undef, 0x0EC7, undef, 0x0ECE, 0x0ECF, 0x0EDA, 0x0EDB, 0x0EE0, 0x0EFF, 0x0F48, undef, 0x0F6D, 0x0F70, 0x0F98, undef, 0x0FBD, undef, 0x0FCD, undef, 0x0FDB, 0x0FFF, 0x10A0, 0x10C6, 0x10C8, 0x10CC, 0x10CE, 0x10CF, 0x115F, 0x1160, 0x1249, undef, 0x124E, 0x124F, 0x1257, undef, 0x1259, undef, 0x125E, 0x125F, 0x1289, undef, 0x128E, 0x128F, 0x12B1, undef, 0x12B6, 0x12B7, 0x12BF, undef, 0x12C1, undef, 0x12C6, 0x12C7, 0x12D7, undef, 0x1311, undef, 0x1316, 0x1317, 0x135B, 0x135C, 0x137D, 0x137F, 0x139A, 0x139F, 0x13F6, 0x13F7, 0x13FE, 0x13FF, 0x1680, undef, 0x169D, 0x169F, 0x16F9, 0x16FF, 0x170D, undef, 0x1715, 0x171F, 0x1737, 0x173F, 0x1754, 0x175F, 0x176D, undef, 0x1771, undef, 0x1774, 0x177F, 0x17B4, 0x17B5, 0x17DE, 0x17DF, 0x17EA, 0x17EF, 0x17FA, 0x17FF, 0x1806, undef, 0x180E, 0x180F, 0x181A, 0x181F, 0x1878, 0x187F, 0x18AB, 0x18AF, 0x18F6, 0x18FF, 0x191F, undef, 0x192C, 0x192F, 0x193C, 0x193F, 0x1941, 0x1943, 0x196E, 0x196F, 0x1975, 0x197F, 0x19AC, 0x19AF, 0x19CA, 0x19CF, 0x19DB, 0x19DD, 0x1A1C, 0x1A1D, 0x1A5F, undef, 0x1A7D, 0x1A7E, 0x1A8A, 0x1A8F, 0x1A9A, 0x1A9F, 0x1AAE, 0x1AAF, 0x1ABF, 0x1AFF, 0x1B4C, 0x1B4F, 0x1B7D, 0x1B7F, 0x1BF4, 0x1BFB, 0x1C38, 0x1C3A, 0x1C4A, 0x1C4C, 0x1C80, 0x1CBF, 0x1CC8, 0x1CCF, 0x1CF7, undef, 0x1CFA, 0x1CFF, 0x1DF6, 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, 0x20BF, 0x20CF, 0x20F1, 0x20FF, 0x2132, undef, 0x2183, undef, 0x218C, 0x218F, 0x23FB, 0x23FF, 0x2427, 0x243F, 0x244B, 0x245F, 0x2488, 0x249B, 0x2B74, 0x2B75, 0x2B96, 0x2B97, 0x2BBA, 0x2BBC, 0x2BC9, undef, 0x2BD2, 0x2BEB, 0x2BF0, 0x2BFF, 0x2C2F, undef, 0x2C5F, undef, 0x2CF4, 0x2CF8, 0x2D26, undef, 0x2D28, 0x2D2C, 0x2D2E, 0x2D2F, 0x2D68, 0x2D6E, 0x2D71, 0x2D7E, 0x2D97, 0x2D9F, 0x2DA7, undef, 0x2DAF, undef, 0x2DB7, undef, 0x2DBF, undef, 0x2DC7, undef, 0x2DCF, undef, 0x2DD7, undef, 0x2DDF, undef, 0x2E43, 0x2E7F, 0x2E9A, undef, 0x2EF4, 0x2EFF, 0x2FD6, 0x2FFF, 0x3040, undef, 0x3097, 0x3098, 0x3100, 0x3104, 0x312E, 0x3130, 0x3164, undef, 0x318F, undef, 0x31BB, 0x31BF, 0x31E4, 0x31EF, 0x321F, undef, 0x32FF, undef, 0x33C2, undef, 0x33C7, undef, 0x33D8, undef, 0x4DB6, 0x4DBF, 0x9FD6, 0x9FFF, 0xA48D, 0xA48F, 0xA4C7, 0xA4CF, 0xA62C, 0xA63F, 0xA6F8, 0xA6FF, 0xA7AE, 0xA7AF, 0xA7B8, 0xA7F6, 0xA82C, 0xA82F, 0xA83A, 0xA83F, 0xA878, 0xA87F, 0xA8C5, 0xA8CD, 0xA8DA, 0xA8DF, 0xA8FE, 0xA8FF, 0xA954, 0xA95E, 0xA97D, 0xA97F, 0xA9CE, undef, 0xA9DA, 0xA9DD, 0xA9FF, undef, 0xAA37, 0xAA3F, 0xAA4E, 0xAA4F, 0xAA5A, 0xAA5B, 0xAAC3, 0xAADA, 0xAAF7, 0xAB00, 0xAB07, 0xAB08, 0xAB0F, 0xAB10, 0xAB17, 0xAB1F, 0xAB27, undef, 0xAB2F, undef, 0xAB66, 0xAB6F, 0xABEE, 0xABEF, 0xABFA, 0xABFF, 0xD7A4, 0xD7AF, 0xD7C7, 0xD7CA, 0xD7FC, 0xF8FF, 0xFA6E, 0xFA6F, 0xFADA, 0xFAFF, 0xFB07, 0xFB12, 0xFB18, 0xFB1C, 0xFB37, undef, 0xFB3D, undef, 0xFB3F, undef, 0xFB42, undef, 0xFB45, undef, 0xFBC2, 0xFBD2, 0xFD40, 0xFD4F, 0xFD90, 0xFD91, 0xFDC8, 0xFDEF, 0xFDFE, 0xFDFF, 0xFE12, undef, 0xFE19, 0xFE1F, 0xFE30, undef, 0xFE52, 0xFE53, 0xFE67, undef, 0xFE6C, 0xFE6F, 0xFE75, undef, 0xFEFD, 0xFEFE, 0xFF00, undef, 0xFFA0, undef, 0xFFBF, 0xFFC1, 0xFFC8, 0xFFC9, 0xFFD0, 0xFFD1, 0xFFD8, 0xFFD9, 0xFFDD, 0xFFDF, 0xFFE7, undef, 0xFFEF, 0xFFFF, 0x1000C, undef, 0x10027, undef, 0x1003B, undef, 0x1003E, undef, 0x1004E, 0x1004F, 0x1005E, 0x1007F, 0x100FB, 0x100FF, 0x10103, 0x10106, 0x10134, 0x10136, 0x1018D, 0x1018F, 0x1019C, 0x1019F, 0x101A1, 0x101CF, 0x101FE, 0x1027F, 0x1029D, 0x1029F, 0x102D1, 0x102DF, 0x102FC, 0x102FF, 0x10324, 0x1032F, 0x1034B, 0x1034F, 0x1037B, 0x1037F, 0x1039E, undef, 0x103C4, 0x103C7, 0x103D6, 0x103FF, 0x1049E, 0x1049F, 0x104AA, 0x104FF, 0x10528, 0x1052F, 0x10564, 0x1056E, 0x10570, 0x105FF, 0x10737, 0x1073F, 0x10756, 0x1075F, 0x10768, 0x107FF, 0x10806, 0x10807, 0x10809, undef, 0x10836, undef, 0x10839, 0x1083B, 0x1083D, 0x1083E, 0x10856, undef, 0x1089F, 0x108A6, 0x108B0, 0x108DF, 0x108F3, undef, 0x108F6, 0x108FA, 0x1091C, 0x1091E, 0x1093A, 0x1093E, 0x10940, 0x1097F, 0x109B8, 0x109BB, 0x109D0, 0x109D1, 0x10A04, undef, 0x10A07, 0x10A0B, 0x10A14, undef, 0x10A18, undef, 0x10A34, 0x10A37, 0x10A3B, 0x10A3E, 0x10A48, 0x10A4F, 0x10A59, 0x10A5F, 0x10AA0, 0x10ABF, 0x10AE7, 0x10AEA, 0x10AF7, 0x10AFF, 0x10B36, 0x10B38, 0x10B56, 0x10B57, 0x10B73, 0x10B77, 0x10B92, 0x10B98, 0x10B9D, 0x10BA8, 0x10BB0, 0x10BFF, 0x10C49, 0x10C7F, 0x10CB3, 0x10CBF, 0x10CF3, 0x10CF9, 0x10D00, 0x10E5F, 0x10E7F, 0x10FFF, 0x1104E, 0x11051, 0x11070, 0x1107E, 0x110BD, undef, 0x110C2, 0x110CF, 0x110E9, 0x110EF, 0x110FA, 0x110FF, 0x11135, undef, 0x11144, 0x1114F, 0x11177, 0x1117F, 0x111CE, 0x111CF, 0x111E0, undef, 0x111F5, 0x111FF, 0x11212, undef, 0x1123E, 0x1127F, 0x11287, undef, 0x11289, undef, 0x1128E, undef, 0x1129E, undef, 0x112AA, 0x112AF, 0x112EB, 0x112EF, 0x112FA, 0x112FF, 0x11304, undef, 0x1130D, 0x1130E, 0x11311, 0x11312, 0x11329, undef, 0x11331, undef, 0x11334, undef, 0x1133A, 0x1133B, 0x11345, 0x11346, 0x11349, 0x1134A, 0x1134E, 0x1134F, 0x11351, 0x11356, 0x11358, 0x1135C, 0x11364, 0x11365, 0x1136D, 0x1136F, 0x11375, 0x1147F, 0x114C8, 0x114CF, 0x114DA, 0x1157F, 0x115B6, 0x115B7, 0x115DE, 0x115FF, 0x11645, 0x1164F, 0x1165A, 0x1167F, 0x116B8, 0x116BF, 0x116CA, 0x116FF, 0x1171A, 0x1171C, 0x1172C, 0x1172F, 0x11740, 0x1189F, 0x118F3, 0x118FE, 0x11900, 0x11ABF, 0x11AF9, 0x11FFF, 0x1239A, 0x123FF, 0x1246F, undef, 0x12475, 0x1247F, 0x12544, 0x12FFF, 0x1342F, 0x143FF, 0x14647, 0x167FF, 0x16A39, 0x16A3F, 0x16A5F, undef, 0x16A6A, 0x16A6D, 0x16A70, 0x16ACF, 0x16AEE, 0x16AEF, 0x16AF6, 0x16AFF, 0x16B46, 0x16B4F, 0x16B5A, undef, 0x16B62, undef, 0x16B78, 0x16B7C, 0x16B90, 0x16EFF, 0x16F45, 0x16F4F, 0x16F7F, 0x16F8E, 0x16FA0, 0x1AFFF, 0x1B002, 0x1BBFF, 0x1BC6B, 0x1BC6F, 0x1BC7D, 0x1BC7F, 0x1BC89, 0x1BC8F, 0x1BC9A, 0x1BC9B, 0x1BCA4, 0x1CFFF, 0x1D0F6, 0x1D0FF, 0x1D127, 0x1D128, 0x1D173, 0x1D17A, 0x1D1E9, 0x1D1FF, 0x1D246, 0x1D2FF, 0x1D357, 0x1D35F, 0x1D372, 0x1D3FF, 0x1D455, undef, 0x1D49D, undef, 0x1D4A0, 0x1D4A1, 0x1D4A3, 0x1D4A4, 0x1D4A7, 0x1D4A8, 0x1D4AD, undef, 0x1D4BA, undef, 0x1D4BC, undef, 0x1D4C4, undef, 0x1D506, undef, 0x1D50B, 0x1D50C, 0x1D515, undef, 0x1D51D, undef, 0x1D53A, undef, 0x1D53F, undef, 0x1D545, undef, 0x1D547, 0x1D549, 0x1D551, undef, 0x1D6A6, 0x1D6A7, 0x1D7CC, 0x1D7CD, 0x1DA8C, 0x1DA9A, 0x1DAA0, undef, 0x1DAB0, 0x1E7FF, 0x1E8C5, 0x1E8C6, 0x1E8D7, 0x1EDFF, 0x1EE04, undef, 0x1EE20, undef, 0x1EE23, undef, 0x1EE25, 0x1EE26, 0x1EE28, undef, 0x1EE33, undef, 0x1EE38, undef, 0x1EE3A, undef, 0x1EE3C, 0x1EE41, 0x1EE43, 0x1EE46, 0x1EE48, undef, 0x1EE4A, undef, 0x1EE4C, undef, 0x1EE50, undef, 0x1EE53, undef, 0x1EE55, 0x1EE56, 0x1EE58, undef, 0x1EE5A, undef, 0x1EE5C, undef, 0x1EE5E, undef, 0x1EE60, undef, 0x1EE63, undef, 0x1EE65, 0x1EE66, 0x1EE6B, undef, 0x1EE73, undef, 0x1EE78, undef, 0x1EE7D, undef, 0x1EE7F, undef, 0x1EE8A, undef, 0x1EE9C, 0x1EEA0, 0x1EEA4, undef, 0x1EEAA, undef, 0x1EEBC, 0x1EEEF, 0x1EEF2, 0x1EFFF, 0x1F02C, 0x1F02F, 0x1F094, 0x1F09F, 0x1F0AF, 0x1F0B0, 0x1F0C0, undef, 0x1F0D0, undef, 0x1F0F6, 0x1F100, 0x1F10D, 0x1F10F, 0x1F12F, undef, 0x1F16C, 0x1F16F, 0x1F19B, 0x1F1E5, 0x1F203, 0x1F20F, 0x1F23B, 0x1F23F, 0x1F249, 0x1F24F, 0x1F252, 0x1F2FF, 0x1F57A, undef, 0x1F5A4, undef, 0x1F6D1, 0x1F6DF, 0x1F6ED, 0x1F6EF, 0x1F6F4, 0x1F6FF, 0x1F774, 0x1F77F, 0x1F7D5, 0x1F7FF, 0x1F80C, 0x1F80F, 0x1F848, 0x1F84F, 0x1F85A, 0x1F85F, 0x1F888, 0x1F88F, 0x1F8AE, 0x1F90F, 0x1F919, 0x1F97F, 0x1F985, 0x1F9BF, 0x1F9C1, 0x1FFFF, 0x2A6D7, 0x2A6FF, 0x2B735, 0x2B73F, 0x2B81E, 0x2B81F, 0x2CEA2, 0x2F7FF, 0x2F868, undef, 0x2F874, undef, 0x2F91F, undef, 0x2F95F, undef, 0x2F9BF, undef, 0x2FA1E, 0xE00FF, 0xE01F0, 0x10FFFF, ); sub IsDisallowed { return _mk_prop(@DISALLOWED); }; our @DISALLOWEDSTD3VALID = ( 0x0000, 0x002C, 0x002F, undef, 0x003A, 0x0040, 0x005B, 0x0060, 0x007B, 0x007F, 0x2260, undef, 0x226E, 0x226F, ); sub IsDisallowedSTD3Valid { return _mk_prop(@DISALLOWEDSTD3VALID); }; our @VALID = ( 0x002D, 0x002E, 0x0030, 0x0039, 0x0061, 0x007A, 0x00A1, 0x00A7, 0x00A9, undef, 0x00AB, 0x00AC, 0x00AE, undef, 0x00B0, 0x00B1, 0x00B6, 0x00B7, 0x00BB, undef, 0x00BF, undef, 0x00D7, undef, 0x00E0, 0x00FF, 0x0101, undef, 0x0103, undef, 0x0105, undef, 0x0107, undef, 0x0109, undef, 0x010B, undef, 0x010D, undef, 0x010F, undef, 0x0111, undef, 0x0113, undef, 0x0115, undef, 0x0117, undef, 0x0119, undef, 0x011B, undef, 0x011D, undef, 0x011F, undef, 0x0121, undef, 0x0123, undef, 0x0125, undef, 0x0127, undef, 0x0129, undef, 0x012B, undef, 0x012D, undef, 0x012F, undef, 0x0131, undef, 0x0135, undef, 0x0137, 0x0138, 0x013A, undef, 0x013C, undef, 0x013E, undef, 0x0142, undef, 0x0144, undef, 0x0146, undef, 0x0148, undef, 0x014B, undef, 0x014D, undef, 0x014F, undef, 0x0151, undef, 0x0153, undef, 0x0155, undef, 0x0157, undef, 0x0159, undef, 0x015B, undef, 0x015D, undef, 0x015F, undef, 0x0161, undef, 0x0163, undef, 0x0165, undef, 0x0167, undef, 0x0169, undef, 0x016B, undef, 0x016D, undef, 0x016F, undef, 0x0171, undef, 0x0173, undef, 0x0175, undef, 0x0177, undef, 0x017A, undef, 0x017C, undef, 0x017E, undef, 0x0180, undef, 0x0183, undef, 0x0185, undef, 0x0188, undef, 0x018C, 0x018D, 0x0192, undef, 0x0195, undef, 0x0199, 0x019B, 0x019E, undef, 0x01A1, undef, 0x01A3, undef, 0x01A5, undef, 0x01A8, undef, 0x01AA, 0x01AB, 0x01AD, undef, 0x01B0, undef, 0x01B4, undef, 0x01B6, undef, 0x01B9, 0x01BB, 0x01BD, 0x01C3, 0x01CE, undef, 0x01D0, undef, 0x01D2, undef, 0x01D4, undef, 0x01D6, undef, 0x01D8, undef, 0x01DA, undef, 0x01DC, 0x01DD, 0x01DF, undef, 0x01E1, undef, 0x01E3, undef, 0x01E5, undef, 0x01E7, undef, 0x01E9, undef, 0x01EB, undef, 0x01ED, undef, 0x01EF, 0x01F0, 0x01F5, undef, 0x01F9, undef, 0x01FB, undef, 0x01FD, undef, 0x01FF, undef, 0x0201, undef, 0x0203, undef, 0x0205, undef, 0x0207, undef, 0x0209, undef, 0x020B, undef, 0x020D, undef, 0x020F, undef, 0x0211, undef, 0x0213, undef, 0x0215, undef, 0x0217, undef, 0x0219, undef, 0x021B, undef, 0x021D, undef, 0x021F, undef, 0x0221, undef, 0x0223, undef, 0x0225, undef, 0x0227, undef, 0x0229, undef, 0x022B, undef, 0x022D, undef, 0x022F, undef, 0x0231, undef, 0x0233, 0x0239, 0x023C, undef, 0x023F, 0x0240, 0x0242, undef, 0x0247, undef, 0x0249, undef, 0x024B, undef, 0x024D, undef, 0x024F, 0x02AF, 0x02B9, 0x02D7, 0x02DE, 0x02DF, 0x02E5, 0x033F, 0x0342, undef, 0x0346, 0x034E, 0x0350, 0x036F, 0x0371, undef, 0x0373, undef, 0x0375, undef, 0x0377, undef, 0x037B, 0x037D, 0x0390, undef, 0x03AC, 0x03C1, 0x03C3, 0x03CE, 0x03D7, undef, 0x03D9, undef, 0x03DB, undef, 0x03DD, undef, 0x03DF, undef, 0x03E1, undef, 0x03E3, undef, 0x03E5, undef, 0x03E7, undef, 0x03E9, undef, 0x03EB, undef, 0x03ED, undef, 0x03EF, undef, 0x03F3, undef, 0x03F6, undef, 0x03F8, undef, 0x03FB, 0x03FC, 0x0430, 0x045F, 0x0461, undef, 0x0463, undef, 0x0465, undef, 0x0467, undef, 0x0469, undef, 0x046B, undef, 0x046D, undef, 0x046F, undef, 0x0471, undef, 0x0473, undef, 0x0475, undef, 0x0477, undef, 0x0479, undef, 0x047B, undef, 0x047D, undef, 0x047F, undef, 0x0481, 0x0489, 0x048B, undef, 0x048D, undef, 0x048F, undef, 0x0491, undef, 0x0493, undef, 0x0495, undef, 0x0497, undef, 0x0499, undef, 0x049B, undef, 0x049D, undef, 0x049F, undef, 0x04A1, undef, 0x04A3, undef, 0x04A5, undef, 0x04A7, undef, 0x04A9, undef, 0x04AB, undef, 0x04AD, undef, 0x04AF, undef, 0x04B1, undef, 0x04B3, undef, 0x04B5, undef, 0x04B7, undef, 0x04B9, undef, 0x04BB, undef, 0x04BD, undef, 0x04BF, undef, 0x04C2, undef, 0x04C4, undef, 0x04C6, undef, 0x04C8, undef, 0x04CA, undef, 0x04CC, undef, 0x04CE, 0x04CF, 0x04D1, undef, 0x04D3, undef, 0x04D5, undef, 0x04D7, undef, 0x04D9, undef, 0x04DB, undef, 0x04DD, undef, 0x04DF, undef, 0x04E1, undef, 0x04E3, undef, 0x04E5, undef, 0x04E7, undef, 0x04E9, undef, 0x04EB, undef, 0x04ED, undef, 0x04EF, undef, 0x04F1, undef, 0x04F3, undef, 0x04F5, undef, 0x04F7, undef, 0x04F9, undef, 0x04FB, undef, 0x04FD, undef, 0x04FF, undef, 0x0501, undef, 0x0503, undef, 0x0505, undef, 0x0507, undef, 0x0509, undef, 0x050B, undef, 0x050D, undef, 0x050F, undef, 0x0511, undef, 0x0513, undef, 0x0515, undef, 0x0517, undef, 0x0519, undef, 0x051B, undef, 0x051D, undef, 0x051F, undef, 0x0521, undef, 0x0523, undef, 0x0525, undef, 0x0527, undef, 0x0529, undef, 0x052B, undef, 0x052D, undef, 0x052F, undef, 0x0559, 0x055F, 0x0561, 0x0586, 0x0589, 0x058A, 0x058D, 0x058F, 0x0591, 0x05C7, 0x05D0, 0x05EA, 0x05F0, 0x05F4, 0x0606, 0x061B, 0x061E, 0x0674, 0x0679, 0x06DC, 0x06DE, 0x070D, 0x0710, 0x074A, 0x074D, 0x07B1, 0x07C0, 0x07FA, 0x0800, 0x082D, 0x0830, 0x083E, 0x0840, 0x085B, 0x085E, undef, 0x08A0, 0x08B4, 0x08E3, 0x0957, 0x0960, 0x0983, 0x0985, 0x098C, 0x098F, 0x0990, 0x0993, 0x09A8, 0x09AA, 0x09B0, 0x09B2, undef, 0x09B6, 0x09B9, 0x09BC, 0x09C4, 0x09C7, 0x09C8, 0x09CB, 0x09CE, 0x09D7, undef, 0x09E0, 0x09E3, 0x09E6, 0x09FB, 0x0A01, 0x0A03, 0x0A05, 0x0A0A, 0x0A0F, 0x0A10, 0x0A13, 0x0A28, 0x0A2A, 0x0A30, 0x0A32, undef, 0x0A35, undef, 0x0A38, 0x0A39, 0x0A3C, undef, 0x0A3E, 0x0A42, 0x0A47, 0x0A48, 0x0A4B, 0x0A4D, 0x0A51, undef, 0x0A5C, undef, 0x0A66, 0x0A75, 0x0A81, 0x0A83, 0x0A85, 0x0A8D, 0x0A8F, 0x0A91, 0x0A93, 0x0AA8, 0x0AAA, 0x0AB0, 0x0AB2, 0x0AB3, 0x0AB5, 0x0AB9, 0x0ABC, 0x0AC5, 0x0AC7, 0x0AC9, 0x0ACB, 0x0ACD, 0x0AD0, undef, 0x0AE0, 0x0AE3, 0x0AE6, 0x0AF1, 0x0AF9, undef, 0x0B01, 0x0B03, 0x0B05, 0x0B0C, 0x0B0F, 0x0B10, 0x0B13, 0x0B28, 0x0B2A, 0x0B30, 0x0B32, 0x0B33, 0x0B35, 0x0B39, 0x0B3C, 0x0B44, 0x0B47, 0x0B48, 0x0B4B, 0x0B4D, 0x0B56, 0x0B57, 0x0B5F, 0x0B63, 0x0B66, 0x0B77, 0x0B82, 0x0B83, 0x0B85, 0x0B8A, 0x0B8E, 0x0B90, 0x0B92, 0x0B95, 0x0B99, 0x0B9A, 0x0B9C, undef, 0x0B9E, 0x0B9F, 0x0BA3, 0x0BA4, 0x0BA8, 0x0BAA, 0x0BAE, 0x0BB9, 0x0BBE, 0x0BC2, 0x0BC6, 0x0BC8, 0x0BCA, 0x0BCD, 0x0BD0, undef, 0x0BD7, undef, 0x0BE6, 0x0BFA, 0x0C00, 0x0C03, 0x0C05, 0x0C0C, 0x0C0E, 0x0C10, 0x0C12, 0x0C28, 0x0C2A, 0x0C39, 0x0C3D, 0x0C44, 0x0C46, 0x0C48, 0x0C4A, 0x0C4D, 0x0C55, 0x0C56, 0x0C58, 0x0C5A, 0x0C60, 0x0C63, 0x0C66, 0x0C6F, 0x0C78, 0x0C7F, 0x0C81, 0x0C83, 0x0C85, 0x0C8C, 0x0C8E, 0x0C90, 0x0C92, 0x0CA8, 0x0CAA, 0x0CB3, 0x0CB5, 0x0CB9, 0x0CBC, 0x0CC4, 0x0CC6, 0x0CC8, 0x0CCA, 0x0CCD, 0x0CD5, 0x0CD6, 0x0CDE, undef, 0x0CE0, 0x0CE3, 0x0CE6, 0x0CEF, 0x0CF1, 0x0CF2, 0x0D01, 0x0D03, 0x0D05, 0x0D0C, 0x0D0E, 0x0D10, 0x0D12, 0x0D3A, 0x0D3D, 0x0D44, 0x0D46, 0x0D48, 0x0D4A, 0x0D4E, 0x0D57, undef, 0x0D5F, 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, 0x0DE6, 0x0DEF, 0x0DF2, 0x0DF4, 0x0E01, 0x0E32, 0x0E34, 0x0E3A, 0x0E3F, 0x0E5B, 0x0E81, 0x0E82, 0x0E84, undef, 0x0E87, 0x0E88, 0x0E8A, undef, 0x0E8D, undef, 0x0E94, 0x0E97, 0x0E99, 0x0E9F, 0x0EA1, 0x0EA3, 0x0EA5, undef, 0x0EA7, undef, 0x0EAA, 0x0EAB, 0x0EAD, 0x0EB2, 0x0EB4, 0x0EB9, 0x0EBB, 0x0EBD, 0x0EC0, 0x0EC4, 0x0EC6, undef, 0x0EC8, 0x0ECD, 0x0ED0, 0x0ED9, 0x0EDE, 0x0EDF, 0x0F00, 0x0F0B, 0x0F0D, 0x0F42, 0x0F44, 0x0F47, 0x0F49, 0x0F4C, 0x0F4E, 0x0F51, 0x0F53, 0x0F56, 0x0F58, 0x0F5B, 0x0F5D, 0x0F68, 0x0F6A, 0x0F6C, 0x0F71, 0x0F72, 0x0F74, undef, 0x0F7A, 0x0F80, 0x0F82, 0x0F92, 0x0F94, 0x0F97, 0x0F99, 0x0F9C, 0x0F9E, 0x0FA1, 0x0FA3, 0x0FA6, 0x0FA8, 0x0FAB, 0x0FAD, 0x0FB8, 0x0FBA, 0x0FBC, 0x0FBE, 0x0FCC, 0x0FCE, 0x0FDA, 0x1000, 0x109F, 0x10D0, 0x10FB, 0x10FD, 0x115E, 0x1161, 0x1248, 0x124A, 0x124D, 0x1250, 0x1256, 0x1258, undef, 0x125A, 0x125D, 0x1260, 0x1288, 0x128A, 0x128D, 0x1290, 0x12B0, 0x12B2, 0x12B5, 0x12B8, 0x12BE, 0x12C0, undef, 0x12C2, 0x12C5, 0x12C8, 0x12D6, 0x12D8, 0x1310, 0x1312, 0x1315, 0x1318, 0x135A, 0x135D, 0x137C, 0x1380, 0x1399, 0x13A0, 0x13F5, 0x1400, 0x167F, 0x1681, 0x169C, 0x16A0, 0x16F8, 0x1700, 0x170C, 0x170E, 0x1714, 0x1720, 0x1736, 0x1740, 0x1753, 0x1760, 0x176C, 0x176E, 0x1770, 0x1772, 0x1773, 0x1780, 0x17B3, 0x17B6, 0x17DD, 0x17E0, 0x17E9, 0x17F0, 0x17F9, 0x1800, 0x1805, 0x1807, 0x180A, 0x1810, 0x1819, 0x1820, 0x1877, 0x1880, 0x18AA, 0x18B0, 0x18F5, 0x1900, 0x191E, 0x1920, 0x192B, 0x1930, 0x193B, 0x1940, undef, 0x1944, 0x196D, 0x1970, 0x1974, 0x1980, 0x19AB, 0x19B0, 0x19C9, 0x19D0, 0x19DA, 0x19DE, 0x1A1B, 0x1A1E, 0x1A5E, 0x1A60, 0x1A7C, 0x1A7F, 0x1A89, 0x1A90, 0x1A99, 0x1AA0, 0x1AAD, 0x1AB0, 0x1ABE, 0x1B00, 0x1B4B, 0x1B50, 0x1B7C, 0x1B80, 0x1BF3, 0x1BFC, 0x1C37, 0x1C3B, 0x1C49, 0x1C4D, 0x1C7F, 0x1CC0, 0x1CC7, 0x1CD0, 0x1CF6, 0x1CF8, 0x1CF9, 0x1D00, 0x1D2B, 0x1D2F, undef, 0x1D3B, undef, 0x1D4E, undef, 0x1D6B, 0x1D77, 0x1D79, 0x1D9A, 0x1DC0, 0x1DF5, 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, 0x20BE, 0x20D0, 0x20F0, 0x2104, undef, 0x2108, undef, 0x2114, undef, 0x2117, 0x2118, 0x211E, 0x211F, 0x2123, undef, 0x2125, undef, 0x2127, undef, 0x2129, undef, 0x212E, undef, 0x213A, undef, 0x2141, 0x2144, 0x214A, 0x214F, 0x2180, 0x2182, 0x2184, 0x2188, 0x218A, 0x218B, 0x2190, 0x222B, 0x222E, undef, 0x2231, 0x225F, 0x2261, 0x226D, 0x2270, 0x2328, 0x232B, 0x23FA, 0x2400, 0x2426, 0x2440, 0x244A, 0x24EB, 0x2A0B, 0x2A0D, 0x2A73, 0x2A77, 0x2ADB, 0x2ADD, 0x2B73, 0x2B76, 0x2B95, 0x2B98, 0x2BB9, 0x2BBD, 0x2BC8, 0x2BCA, 0x2BD1, 0x2BEC, 0x2BEF, 0x2C30, 0x2C5E, 0x2C61, undef, 0x2C65, 0x2C66, 0x2C68, undef, 0x2C6A, undef, 0x2C6C, undef, 0x2C71, undef, 0x2C73, 0x2C74, 0x2C76, 0x2C7B, 0x2C81, undef, 0x2C83, undef, 0x2C85, undef, 0x2C87, undef, 0x2C89, undef, 0x2C8B, undef, 0x2C8D, undef, 0x2C8F, undef, 0x2C91, undef, 0x2C93, undef, 0x2C95, undef, 0x2C97, undef, 0x2C99, undef, 0x2C9B, undef, 0x2C9D, undef, 0x2C9F, undef, 0x2CA1, undef, 0x2CA3, undef, 0x2CA5, undef, 0x2CA7, undef, 0x2CA9, undef, 0x2CAB, undef, 0x2CAD, undef, 0x2CAF, undef, 0x2CB1, undef, 0x2CB3, undef, 0x2CB5, undef, 0x2CB7, undef, 0x2CB9, undef, 0x2CBB, undef, 0x2CBD, undef, 0x2CBF, undef, 0x2CC1, undef, 0x2CC3, undef, 0x2CC5, undef, 0x2CC7, undef, 0x2CC9, undef, 0x2CCB, undef, 0x2CCD, undef, 0x2CCF, undef, 0x2CD1, undef, 0x2CD3, undef, 0x2CD5, undef, 0x2CD7, undef, 0x2CD9, undef, 0x2CDB, undef, 0x2CDD, undef, 0x2CDF, undef, 0x2CE1, undef, 0x2CE3, 0x2CEA, 0x2CEC, undef, 0x2CEE, 0x2CF1, 0x2CF3, undef, 0x2CF9, 0x2D25, 0x2D27, undef, 0x2D2D, undef, 0x2D30, 0x2D67, 0x2D70, undef, 0x2D7F, 0x2D96, 0x2DA0, 0x2DA6, 0x2DA8, 0x2DAE, 0x2DB0, 0x2DB6, 0x2DB8, 0x2DBE, 0x2DC0, 0x2DC6, 0x2DC8, 0x2DCE, 0x2DD0, 0x2DD6, 0x2DD8, 0x2DDE, 0x2DE0, 0x2E42, 0x2E80, 0x2E99, 0x2E9B, 0x2E9E, 0x2EA0, 0x2EF2, 0x3001, undef, 0x3003, 0x3035, 0x3037, undef, 0x303B, 0x303F, 0x3041, 0x3096, 0x3099, 0x309A, 0x309D, 0x309E, 0x30A0, 0x30FE, 0x3105, 0x312D, 0x3190, 0x3191, 0x31A0, 0x31BA, 0x31C0, 0x31E3, 0x31F0, 0x31FF, 0x3248, 0x324F, 0x327F, undef, 0x3400, 0x4DB5, 0x4DC0, 0x9FD5, 0xA000, 0xA48C, 0xA490, 0xA4C6, 0xA4D0, 0xA62B, 0xA641, undef, 0xA643, undef, 0xA645, undef, 0xA647, undef, 0xA649, undef, 0xA64B, undef, 0xA64D, undef, 0xA64F, undef, 0xA651, undef, 0xA653, undef, 0xA655, undef, 0xA657, undef, 0xA659, undef, 0xA65B, undef, 0xA65D, undef, 0xA65F, undef, 0xA661, undef, 0xA663, undef, 0xA665, undef, 0xA667, undef, 0xA669, undef, 0xA66B, undef, 0xA66D, 0xA67F, 0xA681, undef, 0xA683, undef, 0xA685, undef, 0xA687, undef, 0xA689, undef, 0xA68B, undef, 0xA68D, undef, 0xA68F, undef, 0xA691, undef, 0xA693, undef, 0xA695, undef, 0xA697, undef, 0xA699, undef, 0xA69B, undef, 0xA69E, 0xA6F7, 0xA700, 0xA721, 0xA723, undef, 0xA725, undef, 0xA727, undef, 0xA729, undef, 0xA72B, undef, 0xA72D, undef, 0xA72F, 0xA731, 0xA733, undef, 0xA735, undef, 0xA737, undef, 0xA739, undef, 0xA73B, undef, 0xA73D, undef, 0xA73F, undef, 0xA741, undef, 0xA743, undef, 0xA745, undef, 0xA747, undef, 0xA749, undef, 0xA74B, undef, 0xA74D, undef, 0xA74F, undef, 0xA751, undef, 0xA753, undef, 0xA755, undef, 0xA757, undef, 0xA759, undef, 0xA75B, undef, 0xA75D, undef, 0xA75F, undef, 0xA761, undef, 0xA763, undef, 0xA765, undef, 0xA767, undef, 0xA769, undef, 0xA76B, undef, 0xA76D, undef, 0xA76F, undef, 0xA771, 0xA778, 0xA77A, undef, 0xA77C, undef, 0xA77F, undef, 0xA781, undef, 0xA783, undef, 0xA785, undef, 0xA787, 0xA78A, 0xA78C, undef, 0xA78E, 0xA78F, 0xA791, undef, 0xA793, 0xA795, 0xA797, undef, 0xA799, undef, 0xA79B, undef, 0xA79D, undef, 0xA79F, undef, 0xA7A1, undef, 0xA7A3, undef, 0xA7A5, undef, 0xA7A7, undef, 0xA7A9, undef, 0xA7B5, undef, 0xA7B7, undef, 0xA7F7, undef, 0xA7FA, 0xA82B, 0xA830, 0xA839, 0xA840, 0xA877, 0xA880, 0xA8C4, 0xA8CE, 0xA8D9, 0xA8E0, 0xA8FD, 0xA900, 0xA953, 0xA95F, 0xA97C, 0xA980, 0xA9CD, 0xA9CF, 0xA9D9, 0xA9DE, 0xA9FE, 0xAA00, 0xAA36, 0xAA40, 0xAA4D, 0xAA50, 0xAA59, 0xAA5C, 0xAAC2, 0xAADB, 0xAAF6, 0xAB01, 0xAB06, 0xAB09, 0xAB0E, 0xAB11, 0xAB16, 0xAB20, 0xAB26, 0xAB28, 0xAB2E, 0xAB30, 0xAB5B, 0xAB60, 0xAB65, 0xABC0, 0xABED, 0xABF0, 0xABF9, 0xAC00, 0xD7A3, 0xD7B0, 0xD7C6, 0xD7CB, 0xD7FB, 0xFA0E, 0xFA0F, 0xFA11, undef, 0xFA13, 0xFA14, 0xFA1F, undef, 0xFA21, undef, 0xFA23, 0xFA24, 0xFA27, 0xFA29, 0xFB1E, undef, 0xFBB2, 0xFBC1, 0xFD3E, 0xFD3F, 0xFDFD, undef, 0xFE20, 0xFE2F, 0xFE45, 0xFE46, 0xFE73, undef, 0x10000, 0x1000B, 0x1000D, 0x10026, 0x10028, 0x1003A, 0x1003C, 0x1003D, 0x1003F, 0x1004D, 0x10050, 0x1005D, 0x10080, 0x100FA, 0x10100, 0x10102, 0x10107, 0x10133, 0x10137, 0x1018C, 0x10190, 0x1019B, 0x101A0, undef, 0x101D0, 0x101FD, 0x10280, 0x1029C, 0x102A0, 0x102D0, 0x102E0, 0x102FB, 0x10300, 0x10323, 0x10330, 0x1034A, 0x10350, 0x1037A, 0x10380, 0x1039D, 0x1039F, 0x103C3, 0x103C8, 0x103D5, 0x10428, 0x1049D, 0x104A0, 0x104A9, 0x10500, 0x10527, 0x10530, 0x10563, 0x1056F, undef, 0x10600, 0x10736, 0x10740, 0x10755, 0x10760, 0x10767, 0x10800, 0x10805, 0x10808, undef, 0x1080A, 0x10835, 0x10837, 0x10838, 0x1083C, undef, 0x1083F, 0x10855, 0x10857, 0x1089E, 0x108A7, 0x108AF, 0x108E0, 0x108F2, 0x108F4, 0x108F5, 0x108FB, 0x1091B, 0x1091F, 0x10939, 0x1093F, undef, 0x10980, 0x109B7, 0x109BC, 0x109CF, 0x109D2, 0x10A03, 0x10A05, 0x10A06, 0x10A0C, 0x10A13, 0x10A15, 0x10A17, 0x10A19, 0x10A33, 0x10A38, 0x10A3A, 0x10A3F, 0x10A47, 0x10A50, 0x10A58, 0x10A60, 0x10A9F, 0x10AC0, 0x10AE6, 0x10AEB, 0x10AF6, 0x10B00, 0x10B35, 0x10B39, 0x10B55, 0x10B58, 0x10B72, 0x10B78, 0x10B91, 0x10B99, 0x10B9C, 0x10BA9, 0x10BAF, 0x10C00, 0x10C48, 0x10CC0, 0x10CF2, 0x10CFA, 0x10CFF, 0x10E60, 0x10E7E, 0x11000, 0x1104D, 0x11052, 0x1106F, 0x1107F, 0x110BC, 0x110BE, 0x110C1, 0x110D0, 0x110E8, 0x110F0, 0x110F9, 0x11100, 0x11134, 0x11136, 0x11143, 0x11150, 0x11176, 0x11180, 0x111CD, 0x111D0, 0x111DF, 0x111E1, 0x111F4, 0x11200, 0x11211, 0x11213, 0x1123D, 0x11280, 0x11286, 0x11288, undef, 0x1128A, 0x1128D, 0x1128F, 0x1129D, 0x1129F, 0x112A9, 0x112B0, 0x112EA, 0x112F0, 0x112F9, 0x11300, 0x11303, 0x11305, 0x1130C, 0x1130F, 0x11310, 0x11313, 0x11328, 0x1132A, 0x11330, 0x11332, 0x11333, 0x11335, 0x11339, 0x1133C, 0x11344, 0x11347, 0x11348, 0x1134B, 0x1134D, 0x11350, undef, 0x11357, undef, 0x1135D, 0x11363, 0x11366, 0x1136C, 0x11370, 0x11374, 0x11480, 0x114C7, 0x114D0, 0x114D9, 0x11580, 0x115B5, 0x115B8, 0x115DD, 0x11600, 0x11644, 0x11650, 0x11659, 0x11680, 0x116B7, 0x116C0, 0x116C9, 0x11700, 0x11719, 0x1171D, 0x1172B, 0x11730, 0x1173F, 0x118C0, 0x118F2, 0x118FF, undef, 0x11AC0, 0x11AF8, 0x12000, 0x12399, 0x12400, 0x1246E, 0x12470, 0x12474, 0x12480, 0x12543, 0x13000, 0x1342E, 0x14400, 0x14646, 0x16800, 0x16A38, 0x16A40, 0x16A5E, 0x16A60, 0x16A69, 0x16A6E, 0x16A6F, 0x16AD0, 0x16AED, 0x16AF0, 0x16AF5, 0x16B00, 0x16B45, 0x16B50, 0x16B59, 0x16B5B, 0x16B61, 0x16B63, 0x16B77, 0x16B7D, 0x16B8F, 0x16F00, 0x16F44, 0x16F50, 0x16F7E, 0x16F8F, 0x16F9F, 0x1B000, 0x1B001, 0x1BC00, 0x1BC6A, 0x1BC70, 0x1BC7C, 0x1BC80, 0x1BC88, 0x1BC90, 0x1BC99, 0x1BC9C, 0x1BC9F, 0x1D000, 0x1D0F5, 0x1D100, 0x1D126, 0x1D129, 0x1D15D, 0x1D165, 0x1D172, 0x1D17B, 0x1D1BA, 0x1D1C1, 0x1D1E8, 0x1D200, 0x1D245, 0x1D300, 0x1D356, 0x1D360, 0x1D371, 0x1D800, 0x1DA8B, 0x1DA9B, 0x1DA9F, 0x1DAA1, 0x1DAAF, 0x1E800, 0x1E8C4, 0x1E8C7, 0x1E8D6, 0x1EEF0, 0x1EEF1, 0x1F000, 0x1F02B, 0x1F030, 0x1F093, 0x1F0A0, 0x1F0AE, 0x1F0B1, 0x1F0BF, 0x1F0C1, 0x1F0CF, 0x1F0D1, 0x1F0F5, 0x1F10B, 0x1F10C, 0x1F150, 0x1F169, 0x1F170, 0x1F18F, 0x1F191, 0x1F19A, 0x1F1E6, 0x1F1FF, 0x1F300, 0x1F579, 0x1F57B, 0x1F5A3, 0x1F5A5, 0x1F6D0, 0x1F6E0, 0x1F6EC, 0x1F6F0, 0x1F6F3, 0x1F700, 0x1F773, 0x1F780, 0x1F7D4, 0x1F800, 0x1F80B, 0x1F810, 0x1F847, 0x1F850, 0x1F859, 0x1F860, 0x1F887, 0x1F890, 0x1F8AD, 0x1F910, 0x1F918, 0x1F980, 0x1F984, 0x1F9C0, undef, 0x20000, 0x2A6D6, 0x2A700, 0x2B734, 0x2B740, 0x2B81D, 0x2B820, 0x2CEA1, ); sub IsValid { return _mk_prop(@VALID); }; our %DEVIATION = ( 0x00DF => "ss", 0x03C2 => "σ", 0x200C => "", 0x200D => "",); our @DEVIATION = ( 0x00DF, undef, 0x03C2, undef, 0x200C, 0x200D, ); sub IsDeviation { return _mk_prop(@DEVIATION); }; sub MapDeviation { my $l = shift; $l =~ s/[\x{200C}\x{200D}]//g; $l =~ s/ß/ss/g; $l =~ s/ς/σ/g; return $l; }; our %DISALLOWEDSTD3MAPPED = ( 0x00A0 => " ", 0x00A8 => " \x{0308}", 0x00AF => " \x{0304}", 0x00B4 => " \x{0301}", 0x00B8 => " \x{0327}", 0x02D8 => " \x{0306}", 0x02D9 => " \x{0307}", 0x02DA => " \x{030A}", 0x02DB => " \x{0328}", 0x02DC => " \x{0303}", 0x02DD => " \x{030B}", 0x037A => " ι", 0x037E => "\;", 0x0384 => " \x{0301}", 0x0385 => " \x{0308}\x{0301}", 0x1FBD => " \x{0313}", 0x1FBF => " \x{0313}", 0x1FC0 => " \x{0342}", 0x1FC1 => " \x{0308}\x{0342}", 0x1FCD => " \x{0313}\x{0300}", 0x1FCE => " \x{0313}\x{0301}", 0x1FCF => " \x{0313}\x{0342}", 0x1FDD => " \x{0314}\x{0300}", 0x1FDE => " \x{0314}\x{0301}", 0x1FDF => " \x{0314}\x{0342}", 0x1FED => " \x{0308}\x{0300}", 0x1FEE => " \x{0308}\x{0301}", 0x1FEF => "\`", 0x1FFD => " \x{0301}", 0x1FFE => " \x{0314}", 0x2000 => " ", 0x2001 => " ", 0x2002 => " ", 0x2003 => " ", 0x2004 => " ", 0x2005 => " ", 0x2006 => " ", 0x2007 => " ", 0x2008 => " ", 0x2009 => " ", 0x200A => " ", 0x2017 => " \x{0333}", 0x202F => " ", 0x203C => "\!\!", 0x203E => " \x{0305}", 0x2047 => "\?\?", 0x2048 => "\?\!", 0x2049 => "\!\?", 0x205F => " ", 0x207A => "\+", 0x207C => "\=", 0x207D => "\(", 0x207E => "\)", 0x208A => "\+", 0x208C => "\=", 0x208D => "\(", 0x208E => "\)", 0x2100 => "a\/c", 0x2101 => "a\/s", 0x2105 => "c\/o", 0x2106 => "c\/u", 0x2474 => "\(1\)", 0x2475 => "\(2\)", 0x2476 => "\(3\)", 0x2477 => "\(4\)", 0x2478 => "\(5\)", 0x2479 => "\(6\)", 0x247A => "\(7\)", 0x247B => "\(8\)", 0x247C => "\(9\)", 0x247D => "\(10\)", 0x247E => "\(11\)", 0x247F => "\(12\)", 0x2480 => "\(13\)", 0x2481 => "\(14\)", 0x2482 => "\(15\)", 0x2483 => "\(16\)", 0x2484 => "\(17\)", 0x2485 => "\(18\)", 0x2486 => "\(19\)", 0x2487 => "\(20\)", 0x249C => "\(a\)", 0x249D => "\(b\)", 0x249E => "\(c\)", 0x249F => "\(d\)", 0x24A0 => "\(e\)", 0x24A1 => "\(f\)", 0x24A2 => "\(g\)", 0x24A3 => "\(h\)", 0x24A4 => "\(i\)", 0x24A5 => "\(j\)", 0x24A6 => "\(k\)", 0x24A7 => "\(l\)", 0x24A8 => "\(m\)", 0x24A9 => "\(n\)", 0x24AA => "\(o\)", 0x24AB => "\(p\)", 0x24AC => "\(q\)", 0x24AD => "\(r\)", 0x24AE => "\(s\)", 0x24AF => "\(t\)", 0x24B0 => "\(u\)", 0x24B1 => "\(v\)", 0x24B2 => "\(w\)", 0x24B3 => "\(x\)", 0x24B4 => "\(y\)", 0x24B5 => "\(z\)", 0x2A74 => "\:\:\=", 0x2A75 => "\=\=", 0x2A76 => "\=\=\=", 0x3000 => " ", 0x309B => " \x{3099}", 0x309C => " \x{309A}", 0x3200 => "\(ᄀ\)", 0x3201 => "\(ᄂ\)", 0x3202 => "\(ᄃ\)", 0x3203 => "\(ᄅ\)", 0x3204 => "\(ᄆ\)", 0x3205 => "\(ᄇ\)", 0x3206 => "\(ᄉ\)", 0x3207 => "\(ᄋ\)", 0x3208 => "\(ᄌ\)", 0x3209 => "\(ᄎ\)", 0x320A => "\(ᄏ\)", 0x320B => "\(ᄐ\)", 0x320C => "\(ᄑ\)", 0x320D => "\(ᄒ\)", 0x320E => "\(가\)", 0x320F => "\(나\)", 0x3210 => "\(다\)", 0x3211 => "\(라\)", 0x3212 => "\(마\)", 0x3213 => "\(바\)", 0x3214 => "\(사\)", 0x3215 => "\(아\)", 0x3216 => "\(자\)", 0x3217 => "\(차\)", 0x3218 => "\(카\)", 0x3219 => "\(타\)", 0x321A => "\(파\)", 0x321B => "\(하\)", 0x321C => "\(주\)", 0x321D => "\(오전\)", 0x321E => "\(오후\)", 0x3220 => "\(一\)", 0x3221 => "\(二\)", 0x3222 => "\(三\)", 0x3223 => "\(四\)", 0x3224 => "\(五\)", 0x3225 => "\(六\)", 0x3226 => "\(七\)", 0x3227 => "\(八\)", 0x3228 => "\(九\)", 0x3229 => "\(十\)", 0x322A => "\(月\)", 0x322B => "\(火\)", 0x322C => "\(水\)", 0x322D => "\(木\)", 0x322E => "\(金\)", 0x322F => "\(土\)", 0x3230 => "\(日\)", 0x3231 => "\(株\)", 0x3232 => "\(有\)", 0x3233 => "\(社\)", 0x3234 => "\(名\)", 0x3235 => "\(特\)", 0x3236 => "\(財\)", 0x3237 => "\(祝\)", 0x3238 => "\(労\)", 0x3239 => "\(代\)", 0x323A => "\(呼\)", 0x323B => "\(学\)", 0x323C => "\(監\)", 0x323D => "\(企\)", 0x323E => "\(資\)", 0x323F => "\(協\)", 0x3240 => "\(祭\)", 0x3241 => "\(休\)", 0x3242 => "\(自\)", 0x3243 => "\(至\)", 0xFB29 => "\+", 0xFC5E => " ٌّ", 0xFC5F => " ٍّ", 0xFC60 => " َّ", 0xFC61 => " ُّ", 0xFC62 => " ِّ", 0xFC63 => " ّٰ", 0xFDFA => "صلى الله عليه وسلم", 0xFDFB => "جل جلاله", 0xFE10 => "\,", 0xFE13 => "\:", 0xFE14 => "\;", 0xFE15 => "\!", 0xFE16 => "\?", 0xFE33 => "_", 0xFE34 => "_", 0xFE35 => "\(", 0xFE36 => "\)", 0xFE37 => "\{", 0xFE38 => "\}", 0xFE47 => "\[", 0xFE48 => "\]", 0xFE49 => " \x{0305}", 0xFE4A => " \x{0305}", 0xFE4B => " \x{0305}", 0xFE4C => " \x{0305}", 0xFE4D => "_", 0xFE4E => "_", 0xFE4F => "_", 0xFE50 => "\,", 0xFE54 => "\;", 0xFE55 => "\:", 0xFE56 => "\?", 0xFE57 => "\!", 0xFE59 => "\(", 0xFE5A => "\)", 0xFE5B => "\{", 0xFE5C => "\}", 0xFE5F => "\#", 0xFE60 => "\&", 0xFE61 => "\*", 0xFE62 => "\+", 0xFE64 => "\<", 0xFE65 => "\>", 0xFE66 => "\=", 0xFE68 => "\\", 0xFE69 => "\$", 0xFE6A => "\%", 0xFE6B => "\@", 0xFE70 => " ً", 0xFE72 => " ٌ", 0xFE74 => " ٍ", 0xFE76 => " َ", 0xFE78 => " ُ", 0xFE7A => " ِ", 0xFE7C => " ّ", 0xFE7E => " ْ", 0xFF01 => "\!", 0xFF02 => "\"", 0xFF03 => "\#", 0xFF04 => "\$", 0xFF05 => "\%", 0xFF06 => "\&", 0xFF07 => "\'", 0xFF08 => "\(", 0xFF09 => "\)", 0xFF0A => "\*", 0xFF0B => "\+", 0xFF0C => "\,", 0xFF0F => "\/", 0xFF1A => "\:", 0xFF1B => "\;", 0xFF1C => "\<", 0xFF1D => "\=", 0xFF1E => "\>", 0xFF1F => "\?", 0xFF20 => "\@", 0xFF3B => "\[", 0xFF3C => "\\", 0xFF3D => "\]", 0xFF3E => "\^", 0xFF3F => "_", 0xFF40 => "\`", 0xFF5B => "\{", 0xFF5C => "\|", 0xFF5D => "\}", 0xFF5E => "\~", 0xFFE3 => " \x{0304}", 0x1F101 => "0\,", 0x1F102 => "1\,", 0x1F103 => "2\,", 0x1F104 => "3\,", 0x1F105 => "4\,", 0x1F106 => "5\,", 0x1F107 => "6\,", 0x1F108 => "7\,", 0x1F109 => "8\,", 0x1F10A => "9\,", 0x1F110 => "\(a\)", 0x1F111 => "\(b\)", 0x1F112 => "\(c\)", 0x1F113 => "\(d\)", 0x1F114 => "\(e\)", 0x1F115 => "\(f\)", 0x1F116 => "\(g\)", 0x1F117 => "\(h\)", 0x1F118 => "\(i\)", 0x1F119 => "\(j\)", 0x1F11A => "\(k\)", 0x1F11B => "\(l\)", 0x1F11C => "\(m\)", 0x1F11D => "\(n\)", 0x1F11E => "\(o\)", 0x1F11F => "\(p\)", 0x1F120 => "\(q\)", 0x1F121 => "\(r\)", 0x1F122 => "\(s\)", 0x1F123 => "\(t\)", 0x1F124 => "\(u\)", 0x1F125 => "\(v\)", 0x1F126 => "\(w\)", 0x1F127 => "\(x\)", 0x1F128 => "\(y\)", 0x1F129 => "\(z\)",); our @DISALLOWEDSTD3MAPPED = ( 0x00A0, undef, 0x00A8, undef, 0x00AF, undef, 0x00B4, undef, 0x00B8, undef, 0x02D8, 0x02DD, 0x037A, undef, 0x037E, undef, 0x0384, 0x0385, 0x1FBD, undef, 0x1FBF, 0x1FC1, 0x1FCD, 0x1FCF, 0x1FDD, 0x1FDF, 0x1FED, 0x1FEF, 0x1FFD, 0x1FFE, 0x2000, 0x200A, 0x2017, undef, 0x202F, undef, 0x203C, undef, 0x203E, undef, 0x2047, 0x2049, 0x205F, undef, 0x207A, undef, 0x207C, 0x207E, 0x208A, undef, 0x208C, 0x208E, 0x2100, 0x2101, 0x2105, 0x2106, 0x2474, 0x2487, 0x249C, 0x24B5, 0x2A74, 0x2A76, 0x3000, undef, 0x309B, 0x309C, 0x3200, 0x321E, 0x3220, 0x3243, 0xFB29, undef, 0xFC5E, 0xFC63, 0xFDFA, 0xFDFB, 0xFE10, undef, 0xFE13, 0xFE16, 0xFE33, 0xFE38, 0xFE47, 0xFE50, 0xFE54, 0xFE57, 0xFE59, 0xFE5C, 0xFE5F, 0xFE62, 0xFE64, 0xFE66, 0xFE68, 0xFE6B, 0xFE70, undef, 0xFE72, undef, 0xFE74, undef, 0xFE76, undef, 0xFE78, undef, 0xFE7A, undef, 0xFE7C, undef, 0xFE7E, undef, 0xFF01, 0xFF0C, 0xFF0F, undef, 0xFF1A, 0xFF20, 0xFF3B, 0xFF40, 0xFF5B, 0xFF5E, 0xFFE3, undef, 0x1F101, 0x1F10A, 0x1F110, 0x1F129, ); sub IsDisallowedSTD3Mapped { return _mk_prop(@DISALLOWEDSTD3MAPPED); }; sub MapDisallowedSTD3Mapped { my $l = shift; $l =~ tr/\x{00A0}\x{037E}\x{1FEF}\x{2000}\x{2001}\x{2002}\x{2003}\x{2004}\x{2005}\x{2006}\x{2007}\x{2008}\x{2009}\x{200A}\x{202F}\x{205F}\x{207A}\x{207C}\x{207D}\x{207E}\x{208A}\x{208C}\x{208D}\x{208E}\x{3000}\x{FB29}\x{FE10}\x{FE13}\x{FE14}\x{FE15}\x{FE16}\x{FE33}\x{FE34}\x{FE35}\x{FE36}\x{FE37}\x{FE38}\x{FE47}\x{FE48}\x{FE4D}\x{FE4E}\x{FE4F}\x{FE50}\x{FE54}\x{FE55}\x{FE56}\x{FE57}\x{FE59}\x{FE5A}\x{FE5B}\x{FE5C}\x{FE5F}\x{FE60}\x{FE61}\x{FE62}\x{FE64}\x{FE65}\x{FE66}\x{FE68}\x{FE69}\x{FE6A}\x{FE6B}\x{FF01}\x{FF02}\x{FF03}\x{FF04}\x{FF05}\x{FF06}\x{FF07}\x{FF08}\x{FF09}\x{FF0A}\x{FF0B}\x{FF0C}\x{FF0F}\x{FF1A}\x{FF1B}\x{FF1C}\x{FF1D}\x{FF1E}\x{FF1F}\x{FF20}\x{FF3B}\x{FF3C}\x{FF3D}\x{FF3E}\x{FF3F}\x{FF40}\x{FF5B}\x{FF5C}\x{FF5D}\x{FF5E}/ \;\` \+\=\(\)\+\=\(\) \+\,\:\;\!\?__\(\)\{\}\[\]___\,\;\:\?\!\(\)\{\}\#\&\*\+\<\>\=\\\$\%\@\!\"\#\$\%\&\'\(\)\*\+\,\/\:\;\<\=\>\?\@\[\\\]\^_\`\{\|\}\~/; $l =~ s/([\x{00A8}\x{00AF}\x{00B4}\x{00B8}\x{02D8}\x{02D9}\x{02DA}\x{02DB}\x{02DC}\x{02DD}ͺ\x{0384}\x{0385}\x{1FBD}\x{1FBF}\x{1FC0}\x{1FC1}\x{1FCD}\x{1FCE}\x{1FCF}\x{1FDD}\x{1FDE}\x{1FDF}\x{1FED}\x{1FEE}\x{1FFD}\x{1FFE}\x{2017}\x{203C}\x{203E}\x{2047}\x{2048}\x{2049}\x{2100}\x{2101}\x{2105}\x{2106}\x{2474}\x{2475}\x{2476}\x{2477}\x{2478}\x{2479}\x{247A}\x{247B}\x{247C}\x{247D}\x{247E}\x{247F}\x{2480}\x{2481}\x{2482}\x{2483}\x{2484}\x{2485}\x{2486}\x{2487}\x{249C}\x{249D}\x{249E}\x{249F}\x{24A0}\x{24A1}\x{24A2}\x{24A3}\x{24A4}\x{24A5}\x{24A6}\x{24A7}\x{24A8}\x{24A9}\x{24AA}\x{24AB}\x{24AC}\x{24AD}\x{24AE}\x{24AF}\x{24B0}\x{24B1}\x{24B2}\x{24B3}\x{24B4}\x{24B5}\x{2A74}\x{2A75}\x{2A76}\x{309B}\x{309C}\x{3200}\x{3201}\x{3202}\x{3203}\x{3204}\x{3205}\x{3206}\x{3207}\x{3208}\x{3209}\x{320A}\x{320B}\x{320C}\x{320D}\x{320E}\x{320F}\x{3210}\x{3211}\x{3212}\x{3213}\x{3214}\x{3215}\x{3216}\x{3217}\x{3218}\x{3219}\x{321A}\x{321B}\x{321C}\x{321D}\x{321E}\x{3220}\x{3221}\x{3222}\x{3223}\x{3224}\x{3225}\x{3226}\x{3227}\x{3228}\x{3229}\x{322A}\x{322B}\x{322C}\x{322D}\x{322E}\x{322F}\x{3230}\x{3231}\x{3232}\x{3233}\x{3234}\x{3235}\x{3236}\x{3237}\x{3238}\x{3239}\x{323A}\x{323B}\x{323C}\x{323D}\x{323E}\x{323F}\x{3240}\x{3241}\x{3242}\x{3243}ﱞﱟﱠﱡﱢﱣﷺﷻ\x{FE49}\x{FE4A}\x{FE4B}\x{FE4C}ﹰﹲﹴﹶﹸﹺﹼﹾ\x{FFE3}\x{1F101}\x{1F102}\x{1F103}\x{1F104}\x{1F105}\x{1F106}\x{1F107}\x{1F108}\x{1F109}\x{1F10A}\x{1F110}\x{1F111}\x{1F112}\x{1F113}\x{1F114}\x{1F115}\x{1F116}\x{1F117}\x{1F118}\x{1F119}\x{1F11A}\x{1F11B}\x{1F11C}\x{1F11D}\x{1F11E}\x{1F11F}\x{1F120}\x{1F121}\x{1F122}\x{1F123}\x{1F124}\x{1F125}\x{1F126}\x{1F127}\x{1F128}\x{1F129}])/$DISALLOWEDSTD3MAPPED{ord($1)}/eg; return $l; }; our %IGNORED = ( 0x00AD => "", 0x034F => "", 0x180B => "", 0x180C => "", 0x180D => "", 0x200B => "", 0x2060 => "", 0x2064 => "", 0xFE00 => "", 0xFE01 => "", 0xFE02 => "", 0xFE03 => "", 0xFE04 => "", 0xFE05 => "", 0xFE06 => "", 0xFE07 => "", 0xFE08 => "", 0xFE09 => "", 0xFE0A => "", 0xFE0B => "", 0xFE0C => "", 0xFE0D => "", 0xFE0E => "", 0xFE0F => "", 0xFEFF => "", 0x1BCA0 => "", 0x1BCA1 => "", 0x1BCA2 => "", 0x1BCA3 => "", 0xE0100 => "", 0xE0101 => "", 0xE0102 => "", 0xE0103 => "", 0xE0104 => "", 0xE0105 => "", 0xE0106 => "", 0xE0107 => "", 0xE0108 => "", 0xE0109 => "", 0xE010A => "", 0xE010B => "", 0xE010C => "", 0xE010D => "", 0xE010E => "", 0xE010F => "", 0xE0110 => "", 0xE0111 => "", 0xE0112 => "", 0xE0113 => "", 0xE0114 => "", 0xE0115 => "", 0xE0116 => "", 0xE0117 => "", 0xE0118 => "", 0xE0119 => "", 0xE011A => "", 0xE011B => "", 0xE011C => "", 0xE011D => "", 0xE011E => "", 0xE011F => "", 0xE0120 => "", 0xE0121 => "", 0xE0122 => "", 0xE0123 => "", 0xE0124 => "", 0xE0125 => "", 0xE0126 => "", 0xE0127 => "", 0xE0128 => "", 0xE0129 => "", 0xE012A => "", 0xE012B => "", 0xE012C => "", 0xE012D => "", 0xE012E => "", 0xE012F => "", 0xE0130 => "", 0xE0131 => "", 0xE0132 => "", 0xE0133 => "", 0xE0134 => "", 0xE0135 => "", 0xE0136 => "", 0xE0137 => "", 0xE0138 => "", 0xE0139 => "", 0xE013A => "", 0xE013B => "", 0xE013C => "", 0xE013D => "", 0xE013E => "", 0xE013F => "", 0xE0140 => "", 0xE0141 => "", 0xE0142 => "", 0xE0143 => "", 0xE0144 => "", 0xE0145 => "", 0xE0146 => "", 0xE0147 => "", 0xE0148 => "", 0xE0149 => "", 0xE014A => "", 0xE014B => "", 0xE014C => "", 0xE014D => "", 0xE014E => "", 0xE014F => "", 0xE0150 => "", 0xE0151 => "", 0xE0152 => "", 0xE0153 => "", 0xE0154 => "", 0xE0155 => "", 0xE0156 => "", 0xE0157 => "", 0xE0158 => "", 0xE0159 => "", 0xE015A => "", 0xE015B => "", 0xE015C => "", 0xE015D => "", 0xE015E => "", 0xE015F => "", 0xE0160 => "", 0xE0161 => "", 0xE0162 => "", 0xE0163 => "", 0xE0164 => "", 0xE0165 => "", 0xE0166 => "", 0xE0167 => "", 0xE0168 => "", 0xE0169 => "", 0xE016A => "", 0xE016B => "", 0xE016C => "", 0xE016D => "", 0xE016E => "", 0xE016F => "", 0xE0170 => "", 0xE0171 => "", 0xE0172 => "", 0xE0173 => "", 0xE0174 => "", 0xE0175 => "", 0xE0176 => "", 0xE0177 => "", 0xE0178 => "", 0xE0179 => "", 0xE017A => "", 0xE017B => "", 0xE017C => "", 0xE017D => "", 0xE017E => "", 0xE017F => "", 0xE0180 => "", 0xE0181 => "", 0xE0182 => "", 0xE0183 => "", 0xE0184 => "", 0xE0185 => "", 0xE0186 => "", 0xE0187 => "", 0xE0188 => "", 0xE0189 => "", 0xE018A => "", 0xE018B => "", 0xE018C => "", 0xE018D => "", 0xE018E => "", 0xE018F => "", 0xE0190 => "", 0xE0191 => "", 0xE0192 => "", 0xE0193 => "", 0xE0194 => "", 0xE0195 => "", 0xE0196 => "", 0xE0197 => "", 0xE0198 => "", 0xE0199 => "", 0xE019A => "", 0xE019B => "", 0xE019C => "", 0xE019D => "", 0xE019E => "", 0xE019F => "", 0xE01A0 => "", 0xE01A1 => "", 0xE01A2 => "", 0xE01A3 => "", 0xE01A4 => "", 0xE01A5 => "", 0xE01A6 => "", 0xE01A7 => "", 0xE01A8 => "", 0xE01A9 => "", 0xE01AA => "", 0xE01AB => "", 0xE01AC => "", 0xE01AD => "", 0xE01AE => "", 0xE01AF => "", 0xE01B0 => "", 0xE01B1 => "", 0xE01B2 => "", 0xE01B3 => "", 0xE01B4 => "", 0xE01B5 => "", 0xE01B6 => "", 0xE01B7 => "", 0xE01B8 => "", 0xE01B9 => "", 0xE01BA => "", 0xE01BB => "", 0xE01BC => "", 0xE01BD => "", 0xE01BE => "", 0xE01BF => "", 0xE01C0 => "", 0xE01C1 => "", 0xE01C2 => "", 0xE01C3 => "", 0xE01C4 => "", 0xE01C5 => "", 0xE01C6 => "", 0xE01C7 => "", 0xE01C8 => "", 0xE01C9 => "", 0xE01CA => "", 0xE01CB => "", 0xE01CC => "", 0xE01CD => "", 0xE01CE => "", 0xE01CF => "", 0xE01D0 => "", 0xE01D1 => "", 0xE01D2 => "", 0xE01D3 => "", 0xE01D4 => "", 0xE01D5 => "", 0xE01D6 => "", 0xE01D7 => "", 0xE01D8 => "", 0xE01D9 => "", 0xE01DA => "", 0xE01DB => "", 0xE01DC => "", 0xE01DD => "", 0xE01DE => "", 0xE01DF => "", 0xE01E0 => "", 0xE01E1 => "", 0xE01E2 => "", 0xE01E3 => "", 0xE01E4 => "", 0xE01E5 => "", 0xE01E6 => "", 0xE01E7 => "", 0xE01E8 => "", 0xE01E9 => "", 0xE01EA => "", 0xE01EB => "", 0xE01EC => "", 0xE01ED => "", 0xE01EE => "", 0xE01EF => "",); our @IGNORED = ( 0x00AD, undef, 0x034F, undef, 0x180B, 0x180D, 0x200B, undef, 0x2060, undef, 0x2064, undef, 0xFE00, 0xFE0F, 0xFEFF, undef, 0x1BCA0, 0x1BCA3, 0xE0100, 0xE01EF, ); sub IsIgnored { return _mk_prop(@IGNORED); }; sub MapIgnored { my $l = shift; $l =~ s/\p{IsIgnored}//g; return $l; }; our %MAPPED = ( 0x0041 => "a", 0x0042 => "b", 0x0043 => "c", 0x0044 => "d", 0x0045 => "e", 0x0046 => "f", 0x0047 => "g", 0x0048 => "h", 0x0049 => "i", 0x004A => "j", 0x004B => "k", 0x004C => "l", 0x004D => "m", 0x004E => "n", 0x004F => "o", 0x0050 => "p", 0x0051 => "q", 0x0052 => "r", 0x0053 => "s", 0x0054 => "t", 0x0055 => "u", 0x0056 => "v", 0x0057 => "w", 0x0058 => "x", 0x0059 => "y", 0x005A => "z", 0x00AA => "a", 0x00B2 => "2", 0x00B3 => "3", 0x00B5 => "μ", 0x00B9 => "1", 0x00BA => "o", 0x00BC => "1\x{2044}4", 0x00BD => "1\x{2044}2", 0x00BE => "3\x{2044}4", 0x00C0 => "à", 0x00C1 => "á", 0x00C2 => "â", 0x00C3 => "ã", 0x00C4 => "ä", 0x00C5 => "å", 0x00C6 => "æ", 0x00C7 => "ç", 0x00C8 => "è", 0x00C9 => "é", 0x00CA => "ê", 0x00CB => "ë", 0x00CC => "ì", 0x00CD => "í", 0x00CE => "î", 0x00CF => "ï", 0x00D0 => "ð", 0x00D1 => "ñ", 0x00D2 => "ò", 0x00D3 => "ó", 0x00D4 => "ô", 0x00D5 => "õ", 0x00D6 => "ö", 0x00D8 => "ø", 0x00D9 => "ù", 0x00DA => "ú", 0x00DB => "û", 0x00DC => "ü", 0x00DD => "ý", 0x00DE => "þ", 0x0100 => "ā", 0x0102 => "ă", 0x0104 => "ą", 0x0106 => "ć", 0x0108 => "ĉ", 0x010A => "ċ", 0x010C => "č", 0x010E => "ď", 0x0110 => "đ", 0x0112 => "ē", 0x0114 => "ĕ", 0x0116 => "ė", 0x0118 => "ę", 0x011A => "ě", 0x011C => "ĝ", 0x011E => "ğ", 0x0120 => "ġ", 0x0122 => "ģ", 0x0124 => "ĥ", 0x0126 => "ħ", 0x0128 => "ĩ", 0x012A => "ī", 0x012C => "ĭ", 0x012E => "į", 0x0130 => "i\x{0307}", 0x0132 => "ij", 0x0133 => "ij", 0x0134 => "ĵ", 0x0136 => "ķ", 0x0139 => "ĺ", 0x013B => "ļ", 0x013D => "ľ", 0x013F => "l\x{00B7}", 0x0140 => "l\x{00B7}", 0x0141 => "ł", 0x0143 => "ń", 0x0145 => "ņ", 0x0147 => "ň", 0x0149 => "ʼn", 0x014A => "ŋ", 0x014C => "ō", 0x014E => "ŏ", 0x0150 => "ő", 0x0152 => "œ", 0x0154 => "ŕ", 0x0156 => "ŗ", 0x0158 => "ř", 0x015A => "ś", 0x015C => "ŝ", 0x015E => "ş", 0x0160 => "š", 0x0162 => "ţ", 0x0164 => "ť", 0x0166 => "ŧ", 0x0168 => "ũ", 0x016A => "ū", 0x016C => "ŭ", 0x016E => "ů", 0x0170 => "ű", 0x0172 => "ų", 0x0174 => "ŵ", 0x0176 => "ŷ", 0x0178 => "ÿ", 0x0179 => "ź", 0x017B => "ż", 0x017D => "ž", 0x017F => "s", 0x0181 => "ɓ", 0x0182 => "ƃ", 0x0184 => "ƅ", 0x0186 => "ɔ", 0x0187 => "ƈ", 0x0189 => "ɖ", 0x018A => "ɗ", 0x018B => "ƌ", 0x018E => "ǝ", 0x018F => "ə", 0x0190 => "ɛ", 0x0191 => "ƒ", 0x0193 => "ɠ", 0x0194 => "ɣ", 0x0196 => "ɩ", 0x0197 => "ɨ", 0x0198 => "ƙ", 0x019C => "ɯ", 0x019D => "ɲ", 0x019F => "ɵ", 0x01A0 => "ơ", 0x01A2 => "ƣ", 0x01A4 => "ƥ", 0x01A6 => "ʀ", 0x01A7 => "ƨ", 0x01A9 => "ʃ", 0x01AC => "ƭ", 0x01AE => "ʈ", 0x01AF => "ư", 0x01B1 => "ʊ", 0x01B2 => "ʋ", 0x01B3 => "ƴ", 0x01B5 => "ƶ", 0x01B7 => "ʒ", 0x01B8 => "ƹ", 0x01BC => "ƽ", 0x01C4 => "dž", 0x01C5 => "dž", 0x01C6 => "dž", 0x01C7 => "lj", 0x01C8 => "lj", 0x01C9 => "lj", 0x01CA => "nj", 0x01CB => "nj", 0x01CC => "nj", 0x01CD => "ǎ", 0x01CF => "ǐ", 0x01D1 => "ǒ", 0x01D3 => "ǔ", 0x01D5 => "ǖ", 0x01D7 => "ǘ", 0x01D9 => "ǚ", 0x01DB => "ǜ", 0x01DE => "ǟ", 0x01E0 => "ǡ", 0x01E2 => "ǣ", 0x01E4 => "ǥ", 0x01E6 => "ǧ", 0x01E8 => "ǩ", 0x01EA => "ǫ", 0x01EC => "ǭ", 0x01EE => "ǯ", 0x01F1 => "dz", 0x01F2 => "dz", 0x01F3 => "dz", 0x01F4 => "ǵ", 0x01F6 => "ƕ", 0x01F7 => "ƿ", 0x01F8 => "ǹ", 0x01FA => "ǻ", 0x01FC => "ǽ", 0x01FE => "ǿ", 0x0200 => "ȁ", 0x0202 => "ȃ", 0x0204 => "ȅ", 0x0206 => "ȇ", 0x0208 => "ȉ", 0x020A => "ȋ", 0x020C => "ȍ", 0x020E => "ȏ", 0x0210 => "ȑ", 0x0212 => "ȓ", 0x0214 => "ȕ", 0x0216 => "ȗ", 0x0218 => "ș", 0x021A => "ț", 0x021C => "ȝ", 0x021E => "ȟ", 0x0220 => "ƞ", 0x0222 => "ȣ", 0x0224 => "ȥ", 0x0226 => "ȧ", 0x0228 => "ȩ", 0x022A => "ȫ", 0x022C => "ȭ", 0x022E => "ȯ", 0x0230 => "ȱ", 0x0232 => "ȳ", 0x023A => "ⱥ", 0x023B => "ȼ", 0x023D => "ƚ", 0x023E => "ⱦ", 0x0241 => "ɂ", 0x0243 => "ƀ", 0x0244 => "ʉ", 0x0245 => "ʌ", 0x0246 => "ɇ", 0x0248 => "ɉ", 0x024A => "ɋ", 0x024C => "ɍ", 0x024E => "ɏ", 0x02B0 => "h", 0x02B1 => "ɦ", 0x02B2 => "j", 0x02B3 => "r", 0x02B4 => "ɹ", 0x02B5 => "ɻ", 0x02B6 => "ʁ", 0x02B7 => "w", 0x02B8 => "y", 0x02E0 => "ɣ", 0x02E1 => "l", 0x02E2 => "s", 0x02E3 => "x", 0x02E4 => "ʕ", 0x0340 => "\x{0300}", 0x0341 => "\x{0301}", 0x0343 => "\x{0313}", 0x0344 => "\x{0308}\x{0301}", 0x0345 => "ι", 0x0370 => "ͱ", 0x0372 => "ͳ", 0x0374 => "ʹ", 0x0376 => "ͷ", 0x037F => "ϳ", 0x0386 => "ά", 0x0387 => "\x{00B7}", 0x0388 => "έ", 0x0389 => "ή", 0x038A => "ί", 0x038C => "ό", 0x038E => "ύ", 0x038F => "ώ", 0x0391 => "α", 0x0392 => "β", 0x0393 => "γ", 0x0394 => "δ", 0x0395 => "ε", 0x0396 => "ζ", 0x0397 => "η", 0x0398 => "θ", 0x0399 => "ι", 0x039A => "κ", 0x039B => "λ", 0x039C => "μ", 0x039D => "ν", 0x039E => "ξ", 0x039F => "ο", 0x03A0 => "π", 0x03A1 => "ρ", 0x03A3 => "σ", 0x03A4 => "τ", 0x03A5 => "υ", 0x03A6 => "φ", 0x03A7 => "χ", 0x03A8 => "ψ", 0x03A9 => "ω", 0x03AA => "ϊ", 0x03AB => "ϋ", 0x03CF => "ϗ", 0x03D0 => "β", 0x03D1 => "θ", 0x03D2 => "υ", 0x03D3 => "ύ", 0x03D4 => "ϋ", 0x03D5 => "φ", 0x03D6 => "π", 0x03D8 => "ϙ", 0x03DA => "ϛ", 0x03DC => "ϝ", 0x03DE => "ϟ", 0x03E0 => "ϡ", 0x03E2 => "ϣ", 0x03E4 => "ϥ", 0x03E6 => "ϧ", 0x03E8 => "ϩ", 0x03EA => "ϫ", 0x03EC => "ϭ", 0x03EE => "ϯ", 0x03F0 => "κ", 0x03F1 => "ρ", 0x03F2 => "σ", 0x03F4 => "θ", 0x03F5 => "ε", 0x03F7 => "ϸ", 0x03F9 => "σ", 0x03FA => "ϻ", 0x03FD => "ͻ", 0x03FE => "ͼ", 0x03FF => "ͽ", 0x0400 => "ѐ", 0x0401 => "ё", 0x0402 => "ђ", 0x0403 => "ѓ", 0x0404 => "є", 0x0405 => "ѕ", 0x0406 => "і", 0x0407 => "ї", 0x0408 => "ј", 0x0409 => "љ", 0x040A => "њ", 0x040B => "ћ", 0x040C => "ќ", 0x040D => "ѝ", 0x040E => "ў", 0x040F => "џ", 0x0410 => "а", 0x0411 => "б", 0x0412 => "в", 0x0413 => "г", 0x0414 => "д", 0x0415 => "е", 0x0416 => "ж", 0x0417 => "з", 0x0418 => "и", 0x0419 => "й", 0x041A => "к", 0x041B => "л", 0x041C => "м", 0x041D => "н", 0x041E => "о", 0x041F => "п", 0x0420 => "р", 0x0421 => "с", 0x0422 => "т", 0x0423 => "у", 0x0424 => "ф", 0x0425 => "х", 0x0426 => "ц", 0x0427 => "ч", 0x0428 => "ш", 0x0429 => "щ", 0x042A => "ъ", 0x042B => "ы", 0x042C => "ь", 0x042D => "э", 0x042E => "ю", 0x042F => "я", 0x0460 => "ѡ", 0x0462 => "ѣ", 0x0464 => "ѥ", 0x0466 => "ѧ", 0x0468 => "ѩ", 0x046A => "ѫ", 0x046C => "ѭ", 0x046E => "ѯ", 0x0470 => "ѱ", 0x0472 => "ѳ", 0x0474 => "ѵ", 0x0476 => "ѷ", 0x0478 => "ѹ", 0x047A => "ѻ", 0x047C => "ѽ", 0x047E => "ѿ", 0x0480 => "ҁ", 0x048A => "ҋ", 0x048C => "ҍ", 0x048E => "ҏ", 0x0490 => "ґ", 0x0492 => "ғ", 0x0494 => "ҕ", 0x0496 => "җ", 0x0498 => "ҙ", 0x049A => "қ", 0x049C => "ҝ", 0x049E => "ҟ", 0x04A0 => "ҡ", 0x04A2 => "ң", 0x04A4 => "ҥ", 0x04A6 => "ҧ", 0x04A8 => "ҩ", 0x04AA => "ҫ", 0x04AC => "ҭ", 0x04AE => "ү", 0x04B0 => "ұ", 0x04B2 => "ҳ", 0x04B4 => "ҵ", 0x04B6 => "ҷ", 0x04B8 => "ҹ", 0x04BA => "һ", 0x04BC => "ҽ", 0x04BE => "ҿ", 0x04C1 => "ӂ", 0x04C3 => "ӄ", 0x04C5 => "ӆ", 0x04C7 => "ӈ", 0x04C9 => "ӊ", 0x04CB => "ӌ", 0x04CD => "ӎ", 0x04D0 => "ӑ", 0x04D2 => "ӓ", 0x04D4 => "ӕ", 0x04D6 => "ӗ", 0x04D8 => "ә", 0x04DA => "ӛ", 0x04DC => "ӝ", 0x04DE => "ӟ", 0x04E0 => "ӡ", 0x04E2 => "ӣ", 0x04E4 => "ӥ", 0x04E6 => "ӧ", 0x04E8 => "ө", 0x04EA => "ӫ", 0x04EC => "ӭ", 0x04EE => "ӯ", 0x04F0 => "ӱ", 0x04F2 => "ӳ", 0x04F4 => "ӵ", 0x04F6 => "ӷ", 0x04F8 => "ӹ", 0x04FA => "ӻ", 0x04FC => "ӽ", 0x04FE => "ӿ", 0x0500 => "ԁ", 0x0502 => "ԃ", 0x0504 => "ԅ", 0x0506 => "ԇ", 0x0508 => "ԉ", 0x050A => "ԋ", 0x050C => "ԍ", 0x050E => "ԏ", 0x0510 => "ԑ", 0x0512 => "ԓ", 0x0514 => "ԕ", 0x0516 => "ԗ", 0x0518 => "ԙ", 0x051A => "ԛ", 0x051C => "ԝ", 0x051E => "ԟ", 0x0520 => "ԡ", 0x0522 => "ԣ", 0x0524 => "ԥ", 0x0526 => "ԧ", 0x0528 => "ԩ", 0x052A => "ԫ", 0x052C => "ԭ", 0x052E => "ԯ", 0x0531 => "ա", 0x0532 => "բ", 0x0533 => "գ", 0x0534 => "դ", 0x0535 => "ե", 0x0536 => "զ", 0x0537 => "է", 0x0538 => "ը", 0x0539 => "թ", 0x053A => "ժ", 0x053B => "ի", 0x053C => "լ", 0x053D => "խ", 0x053E => "ծ", 0x053F => "կ", 0x0540 => "հ", 0x0541 => "ձ", 0x0542 => "ղ", 0x0543 => "ճ", 0x0544 => "մ", 0x0545 => "յ", 0x0546 => "ն", 0x0547 => "շ", 0x0548 => "ո", 0x0549 => "չ", 0x054A => "պ", 0x054B => "ջ", 0x054C => "ռ", 0x054D => "ս", 0x054E => "վ", 0x054F => "տ", 0x0550 => "ր", 0x0551 => "ց", 0x0552 => "ւ", 0x0553 => "փ", 0x0554 => "ք", 0x0555 => "օ", 0x0556 => "ֆ", 0x0587 => "եւ", 0x0675 => "اٴ", 0x0676 => "وٴ", 0x0677 => "ۇٴ", 0x0678 => "يٴ", 0x0958 => "क\x{093C}", 0x0959 => "ख\x{093C}", 0x095A => "ग\x{093C}", 0x095B => "ज\x{093C}", 0x095C => "ड\x{093C}", 0x095D => "ढ\x{093C}", 0x095E => "फ\x{093C}", 0x095F => "य\x{093C}", 0x09DC => "ড\x{09BC}", 0x09DD => "ঢ\x{09BC}", 0x09DF => "য\x{09BC}", 0x0A33 => "ਲ\x{0A3C}", 0x0A36 => "ਸ\x{0A3C}", 0x0A59 => "ਖ\x{0A3C}", 0x0A5A => "ਗ\x{0A3C}", 0x0A5B => "ਜ\x{0A3C}", 0x0A5E => "ਫ\x{0A3C}", 0x0B5C => "ଡ\x{0B3C}", 0x0B5D => "ଢ\x{0B3C}", 0x0E33 => "ํา", 0x0EB3 => "ໍາ", 0x0EDC => "ຫນ", 0x0EDD => "ຫມ", 0x0F0C => "\x{0F0B}", 0x0F43 => "གྷ", 0x0F4D => "ཌྷ", 0x0F52 => "དྷ", 0x0F57 => "བྷ", 0x0F5C => "ཛྷ", 0x0F69 => "ཀྵ", 0x0F73 => "ཱི", 0x0F75 => "ཱུ", 0x0F76 => "ྲྀ", 0x0F77 => "ྲཱྀ", 0x0F78 => "ླྀ", 0x0F79 => "ླཱྀ", 0x0F81 => "ཱྀ", 0x0F93 => "ྒྷ", 0x0F9D => "ྜྷ", 0x0FA2 => "ྡྷ", 0x0FA7 => "ྦྷ", 0x0FAC => "ྫྷ", 0x0FB9 => "ྐྵ", 0x10C7 => "ⴧ", 0x10CD => "ⴭ", 0x10FC => "ნ", 0x13F8 => "Ᏸ", 0x13F9 => "Ᏹ", 0x13FA => "Ᏺ", 0x13FB => "Ᏻ", 0x13FC => "Ᏼ", 0x13FD => "\x{13F5}", 0x1D2C => "a", 0x1D2D => "æ", 0x1D2E => "b", 0x1D30 => "d", 0x1D31 => "e", 0x1D32 => "ǝ", 0x1D33 => "g", 0x1D34 => "h", 0x1D35 => "i", 0x1D36 => "j", 0x1D37 => "k", 0x1D38 => "l", 0x1D39 => "m", 0x1D3A => "n", 0x1D3C => "o", 0x1D3D => "ȣ", 0x1D3E => "p", 0x1D3F => "r", 0x1D40 => "t", 0x1D41 => "u", 0x1D42 => "w", 0x1D43 => "a", 0x1D44 => "ɐ", 0x1D45 => "ɑ", 0x1D46 => "ᴂ", 0x1D47 => "b", 0x1D48 => "d", 0x1D49 => "e", 0x1D4A => "ə", 0x1D4B => "ɛ", 0x1D4C => "ɜ", 0x1D4D => "g", 0x1D4F => "k", 0x1D50 => "m", 0x1D51 => "ŋ", 0x1D52 => "o", 0x1D53 => "ɔ", 0x1D54 => "ᴖ", 0x1D55 => "ᴗ", 0x1D56 => "p", 0x1D57 => "t", 0x1D58 => "u", 0x1D59 => "ᴝ", 0x1D5A => "ɯ", 0x1D5B => "v", 0x1D5C => "ᴥ", 0x1D5D => "β", 0x1D5E => "γ", 0x1D5F => "δ", 0x1D60 => "φ", 0x1D61 => "χ", 0x1D62 => "i", 0x1D63 => "r", 0x1D64 => "u", 0x1D65 => "v", 0x1D66 => "β", 0x1D67 => "γ", 0x1D68 => "ρ", 0x1D69 => "φ", 0x1D6A => "χ", 0x1D78 => "н", 0x1D9B => "ɒ", 0x1D9C => "c", 0x1D9D => "ɕ", 0x1D9E => "ð", 0x1D9F => "ɜ", 0x1DA0 => "f", 0x1DA1 => "ɟ", 0x1DA2 => "ɡ", 0x1DA3 => "ɥ", 0x1DA4 => "ɨ", 0x1DA5 => "ɩ", 0x1DA6 => "ɪ", 0x1DA7 => "ᵻ", 0x1DA8 => "ʝ", 0x1DA9 => "ɭ", 0x1DAA => "ᶅ", 0x1DAB => "ʟ", 0x1DAC => "ɱ", 0x1DAD => "ɰ", 0x1DAE => "ɲ", 0x1DAF => "ɳ", 0x1DB0 => "ɴ", 0x1DB1 => "ɵ", 0x1DB2 => "ɸ", 0x1DB3 => "ʂ", 0x1DB4 => "ʃ", 0x1DB5 => "ƫ", 0x1DB6 => "ʉ", 0x1DB7 => "ʊ", 0x1DB8 => "ᴜ", 0x1DB9 => "ʋ", 0x1DBA => "ʌ", 0x1DBB => "z", 0x1DBC => "ʐ", 0x1DBD => "ʑ", 0x1DBE => "ʒ", 0x1DBF => "θ", 0x1E00 => "ḁ", 0x1E02 => "ḃ", 0x1E04 => "ḅ", 0x1E06 => "ḇ", 0x1E08 => "ḉ", 0x1E0A => "ḋ", 0x1E0C => "ḍ", 0x1E0E => "ḏ", 0x1E10 => "ḑ", 0x1E12 => "ḓ", 0x1E14 => "ḕ", 0x1E16 => "ḗ", 0x1E18 => "ḙ", 0x1E1A => "ḛ", 0x1E1C => "ḝ", 0x1E1E => "ḟ", 0x1E20 => "ḡ", 0x1E22 => "ḣ", 0x1E24 => "ḥ", 0x1E26 => "ḧ", 0x1E28 => "ḩ", 0x1E2A => "ḫ", 0x1E2C => "ḭ", 0x1E2E => "ḯ", 0x1E30 => "ḱ", 0x1E32 => "ḳ", 0x1E34 => "ḵ", 0x1E36 => "ḷ", 0x1E38 => "ḹ", 0x1E3A => "ḻ", 0x1E3C => "ḽ", 0x1E3E => "ḿ", 0x1E40 => "ṁ", 0x1E42 => "ṃ", 0x1E44 => "ṅ", 0x1E46 => "ṇ", 0x1E48 => "ṉ", 0x1E4A => "ṋ", 0x1E4C => "ṍ", 0x1E4E => "ṏ", 0x1E50 => "ṑ", 0x1E52 => "ṓ", 0x1E54 => "ṕ", 0x1E56 => "ṗ", 0x1E58 => "ṙ", 0x1E5A => "ṛ", 0x1E5C => "ṝ", 0x1E5E => "ṟ", 0x1E60 => "ṡ", 0x1E62 => "ṣ", 0x1E64 => "ṥ", 0x1E66 => "ṧ", 0x1E68 => "ṩ", 0x1E6A => "ṫ", 0x1E6C => "ṭ", 0x1E6E => "ṯ", 0x1E70 => "ṱ", 0x1E72 => "ṳ", 0x1E74 => "ṵ", 0x1E76 => "ṷ", 0x1E78 => "ṹ", 0x1E7A => "ṻ", 0x1E7C => "ṽ", 0x1E7E => "ṿ", 0x1E80 => "ẁ", 0x1E82 => "ẃ", 0x1E84 => "ẅ", 0x1E86 => "ẇ", 0x1E88 => "ẉ", 0x1E8A => "ẋ", 0x1E8C => "ẍ", 0x1E8E => "ẏ", 0x1E90 => "ẑ", 0x1E92 => "ẓ", 0x1E94 => "ẕ", 0x1E9A => "aʾ", 0x1E9B => "ṡ", 0x1E9E => "ss", 0x1EA0 => "ạ", 0x1EA2 => "ả", 0x1EA4 => "ấ", 0x1EA6 => "ầ", 0x1EA8 => "ẩ", 0x1EAA => "ẫ", 0x1EAC => "ậ", 0x1EAE => "ắ", 0x1EB0 => "ằ", 0x1EB2 => "ẳ", 0x1EB4 => "ẵ", 0x1EB6 => "ặ", 0x1EB8 => "ẹ", 0x1EBA => "ẻ", 0x1EBC => "ẽ", 0x1EBE => "ế", 0x1EC0 => "ề", 0x1EC2 => "ể", 0x1EC4 => "ễ", 0x1EC6 => "ệ", 0x1EC8 => "ỉ", 0x1ECA => "ị", 0x1ECC => "ọ", 0x1ECE => "ỏ", 0x1ED0 => "ố", 0x1ED2 => "ồ", 0x1ED4 => "ổ", 0x1ED6 => "ỗ", 0x1ED8 => "ộ", 0x1EDA => "ớ", 0x1EDC => "ờ", 0x1EDE => "ở", 0x1EE0 => "ỡ", 0x1EE2 => "ợ", 0x1EE4 => "ụ", 0x1EE6 => "ủ", 0x1EE8 => "ứ", 0x1EEA => "ừ", 0x1EEC => "ử", 0x1EEE => "ữ", 0x1EF0 => "ự", 0x1EF2 => "ỳ", 0x1EF4 => "ỵ", 0x1EF6 => "ỷ", 0x1EF8 => "ỹ", 0x1EFA => "ỻ", 0x1EFC => "ỽ", 0x1EFE => "ỿ", 0x1F08 => "ἀ", 0x1F09 => "ἁ", 0x1F0A => "ἂ", 0x1F0B => "ἃ", 0x1F0C => "ἄ", 0x1F0D => "ἅ", 0x1F0E => "ἆ", 0x1F0F => "ἇ", 0x1F18 => "ἐ", 0x1F19 => "ἑ", 0x1F1A => "ἒ", 0x1F1B => "ἓ", 0x1F1C => "ἔ", 0x1F1D => "ἕ", 0x1F28 => "ἠ", 0x1F29 => "ἡ", 0x1F2A => "ἢ", 0x1F2B => "ἣ", 0x1F2C => "ἤ", 0x1F2D => "ἥ", 0x1F2E => "ἦ", 0x1F2F => "ἧ", 0x1F38 => "ἰ", 0x1F39 => "ἱ", 0x1F3A => "ἲ", 0x1F3B => "ἳ", 0x1F3C => "ἴ", 0x1F3D => "ἵ", 0x1F3E => "ἶ", 0x1F3F => "ἷ", 0x1F48 => "ὀ", 0x1F49 => "ὁ", 0x1F4A => "ὂ", 0x1F4B => "ὃ", 0x1F4C => "ὄ", 0x1F4D => "ὅ", 0x1F59 => "ὑ", 0x1F5B => "ὓ", 0x1F5D => "ὕ", 0x1F5F => "ὗ", 0x1F68 => "ὠ", 0x1F69 => "ὡ", 0x1F6A => "ὢ", 0x1F6B => "ὣ", 0x1F6C => "ὤ", 0x1F6D => "ὥ", 0x1F6E => "ὦ", 0x1F6F => "ὧ", 0x1F71 => "ά", 0x1F73 => "έ", 0x1F75 => "ή", 0x1F77 => "ί", 0x1F79 => "ό", 0x1F7B => "ύ", 0x1F7D => "ώ", 0x1F80 => "ἀι", 0x1F81 => "ἁι", 0x1F82 => "ἂι", 0x1F83 => "ἃι", 0x1F84 => "ἄι", 0x1F85 => "ἅι", 0x1F86 => "ἆι", 0x1F87 => "ἇι", 0x1F88 => "ἀι", 0x1F89 => "ἁι", 0x1F8A => "ἂι", 0x1F8B => "ἃι", 0x1F8C => "ἄι", 0x1F8D => "ἅι", 0x1F8E => "ἆι", 0x1F8F => "ἇι", 0x1F90 => "ἠι", 0x1F91 => "ἡι", 0x1F92 => "ἢι", 0x1F93 => "ἣι", 0x1F94 => "ἤι", 0x1F95 => "ἥι", 0x1F96 => "ἦι", 0x1F97 => "ἧι", 0x1F98 => "ἠι", 0x1F99 => "ἡι", 0x1F9A => "ἢι", 0x1F9B => "ἣι", 0x1F9C => "ἤι", 0x1F9D => "ἥι", 0x1F9E => "ἦι", 0x1F9F => "ἧι", 0x1FA0 => "ὠι", 0x1FA1 => "ὡι", 0x1FA2 => "ὢι", 0x1FA3 => "ὣι", 0x1FA4 => "ὤι", 0x1FA5 => "ὥι", 0x1FA6 => "ὦι", 0x1FA7 => "ὧι", 0x1FA8 => "ὠι", 0x1FA9 => "ὡι", 0x1FAA => "ὢι", 0x1FAB => "ὣι", 0x1FAC => "ὤι", 0x1FAD => "ὥι", 0x1FAE => "ὦι", 0x1FAF => "ὧι", 0x1FB2 => "ὰι", 0x1FB3 => "αι", 0x1FB4 => "άι", 0x1FB7 => "ᾶι", 0x1FB8 => "ᾰ", 0x1FB9 => "ᾱ", 0x1FBA => "ὰ", 0x1FBB => "ά", 0x1FBC => "αι", 0x1FBE => "ι", 0x1FC2 => "ὴι", 0x1FC3 => "ηι", 0x1FC4 => "ήι", 0x1FC7 => "ῆι", 0x1FC8 => "ὲ", 0x1FC9 => "έ", 0x1FCA => "ὴ", 0x1FCB => "ή", 0x1FCC => "ηι", 0x1FD3 => "ΐ", 0x1FD8 => "ῐ", 0x1FD9 => "ῑ", 0x1FDA => "ὶ", 0x1FDB => "ί", 0x1FE3 => "ΰ", 0x1FE8 => "ῠ", 0x1FE9 => "ῡ", 0x1FEA => "ὺ", 0x1FEB => "ύ", 0x1FEC => "ῥ", 0x1FF2 => "ὼι", 0x1FF3 => "ωι", 0x1FF4 => "ώι", 0x1FF7 => "ῶι", 0x1FF8 => "ὸ", 0x1FF9 => "ό", 0x1FFA => "ὼ", 0x1FFB => "ώ", 0x1FFC => "ωι", 0x2011 => "\x{2010}", 0x2033 => "\x{2032}\x{2032}", 0x2034 => "\x{2032}\x{2032}\x{2032}", 0x2036 => "\x{2035}\x{2035}", 0x2037 => "\x{2035}\x{2035}\x{2035}", 0x2057 => "\x{2032}\x{2032}\x{2032}\x{2032}", 0x2070 => "0", 0x2071 => "i", 0x2074 => "4", 0x2075 => "5", 0x2076 => "6", 0x2077 => "7", 0x2078 => "8", 0x2079 => "9", 0x207B => "\x{2212}", 0x207F => "n", 0x2080 => "0", 0x2081 => "1", 0x2082 => "2", 0x2083 => "3", 0x2084 => "4", 0x2085 => "5", 0x2086 => "6", 0x2087 => "7", 0x2088 => "8", 0x2089 => "9", 0x208B => "\x{2212}", 0x2090 => "a", 0x2091 => "e", 0x2092 => "o", 0x2093 => "x", 0x2094 => "ə", 0x2095 => "h", 0x2096 => "k", 0x2097 => "l", 0x2098 => "m", 0x2099 => "n", 0x209A => "p", 0x209B => "s", 0x209C => "t", 0x20A8 => "rs", 0x2102 => "c", 0x2103 => "\x{00B0}c", 0x2107 => "ɛ", 0x2109 => "\x{00B0}f", 0x210A => "g", 0x210B => "h", 0x210C => "h", 0x210D => "h", 0x210E => "h", 0x210F => "ħ", 0x2110 => "i", 0x2111 => "i", 0x2112 => "l", 0x2113 => "l", 0x2115 => "n", 0x2116 => "no", 0x2119 => "p", 0x211A => "q", 0x211B => "r", 0x211C => "r", 0x211D => "r", 0x2120 => "sm", 0x2121 => "tel", 0x2122 => "tm", 0x2124 => "z", 0x2126 => "ω", 0x2128 => "z", 0x212A => "k", 0x212B => "å", 0x212C => "b", 0x212D => "c", 0x212F => "e", 0x2130 => "e", 0x2131 => "f", 0x2133 => "m", 0x2134 => "o", 0x2135 => "א", 0x2136 => "ב", 0x2137 => "ג", 0x2138 => "ד", 0x2139 => "i", 0x213B => "fax", 0x213C => "π", 0x213D => "γ", 0x213E => "γ", 0x213F => "π", 0x2140 => "\x{2211}", 0x2145 => "d", 0x2146 => "d", 0x2147 => "e", 0x2148 => "i", 0x2149 => "j", 0x2150 => "1\x{2044}7", 0x2151 => "1\x{2044}9", 0x2152 => "1\x{2044}10", 0x2153 => "1\x{2044}3", 0x2154 => "2\x{2044}3", 0x2155 => "1\x{2044}5", 0x2156 => "2\x{2044}5", 0x2157 => "3\x{2044}5", 0x2158 => "4\x{2044}5", 0x2159 => "1\x{2044}6", 0x215A => "5\x{2044}6", 0x215B => "1\x{2044}8", 0x215C => "3\x{2044}8", 0x215D => "5\x{2044}8", 0x215E => "7\x{2044}8", 0x215F => "1\x{2044}", 0x2160 => "i", 0x2161 => "ii", 0x2162 => "iii", 0x2163 => "iv", 0x2164 => "v", 0x2165 => "vi", 0x2166 => "vii", 0x2167 => "viii", 0x2168 => "ix", 0x2169 => "x", 0x216A => "xi", 0x216B => "xii", 0x216C => "l", 0x216D => "c", 0x216E => "d", 0x216F => "m", 0x2170 => "i", 0x2171 => "ii", 0x2172 => "iii", 0x2173 => "iv", 0x2174 => "v", 0x2175 => "vi", 0x2176 => "vii", 0x2177 => "viii", 0x2178 => "ix", 0x2179 => "x", 0x217A => "xi", 0x217B => "xii", 0x217C => "l", 0x217D => "c", 0x217E => "d", 0x217F => "m", 0x2189 => "0\x{2044}3", 0x222C => "\x{222B}\x{222B}", 0x222D => "\x{222B}\x{222B}\x{222B}", 0x222F => "\x{222E}\x{222E}", 0x2230 => "\x{222E}\x{222E}\x{222E}", 0x2329 => "\x{3008}", 0x232A => "\x{3009}", 0x2460 => "1", 0x2461 => "2", 0x2462 => "3", 0x2463 => "4", 0x2464 => "5", 0x2465 => "6", 0x2466 => "7", 0x2467 => "8", 0x2468 => "9", 0x2469 => "10", 0x246A => "11", 0x246B => "12", 0x246C => "13", 0x246D => "14", 0x246E => "15", 0x246F => "16", 0x2470 => "17", 0x2471 => "18", 0x2472 => "19", 0x2473 => "20", 0x24B6 => "a", 0x24B7 => "b", 0x24B8 => "c", 0x24B9 => "d", 0x24BA => "e", 0x24BB => "f", 0x24BC => "g", 0x24BD => "h", 0x24BE => "i", 0x24BF => "j", 0x24C0 => "k", 0x24C1 => "l", 0x24C2 => "m", 0x24C3 => "n", 0x24C4 => "o", 0x24C5 => "p", 0x24C6 => "q", 0x24C7 => "r", 0x24C8 => "s", 0x24C9 => "t", 0x24CA => "u", 0x24CB => "v", 0x24CC => "w", 0x24CD => "x", 0x24CE => "y", 0x24CF => "z", 0x24D0 => "a", 0x24D1 => "b", 0x24D2 => "c", 0x24D3 => "d", 0x24D4 => "e", 0x24D5 => "f", 0x24D6 => "g", 0x24D7 => "h", 0x24D8 => "i", 0x24D9 => "j", 0x24DA => "k", 0x24DB => "l", 0x24DC => "m", 0x24DD => "n", 0x24DE => "o", 0x24DF => "p", 0x24E0 => "q", 0x24E1 => "r", 0x24E2 => "s", 0x24E3 => "t", 0x24E4 => "u", 0x24E5 => "v", 0x24E6 => "w", 0x24E7 => "x", 0x24E8 => "y", 0x24E9 => "z", 0x24EA => "0", 0x2A0C => "\x{222B}\x{222B}\x{222B}\x{222B}", 0x2ADC => "\x{2ADD}\x{0338}", 0x2C00 => "ⰰ", 0x2C01 => "ⰱ", 0x2C02 => "ⰲ", 0x2C03 => "ⰳ", 0x2C04 => "ⰴ", 0x2C05 => "ⰵ", 0x2C06 => "ⰶ", 0x2C07 => "ⰷ", 0x2C08 => "ⰸ", 0x2C09 => "ⰹ", 0x2C0A => "ⰺ", 0x2C0B => "ⰻ", 0x2C0C => "ⰼ", 0x2C0D => "ⰽ", 0x2C0E => "ⰾ", 0x2C0F => "ⰿ", 0x2C10 => "ⱀ", 0x2C11 => "ⱁ", 0x2C12 => "ⱂ", 0x2C13 => "ⱃ", 0x2C14 => "ⱄ", 0x2C15 => "ⱅ", 0x2C16 => "ⱆ", 0x2C17 => "ⱇ", 0x2C18 => "ⱈ", 0x2C19 => "ⱉ", 0x2C1A => "ⱊ", 0x2C1B => "ⱋ", 0x2C1C => "ⱌ", 0x2C1D => "ⱍ", 0x2C1E => "ⱎ", 0x2C1F => "ⱏ", 0x2C20 => "ⱐ", 0x2C21 => "ⱑ", 0x2C22 => "ⱒ", 0x2C23 => "ⱓ", 0x2C24 => "ⱔ", 0x2C25 => "ⱕ", 0x2C26 => "ⱖ", 0x2C27 => "ⱗ", 0x2C28 => "ⱘ", 0x2C29 => "ⱙ", 0x2C2A => "ⱚ", 0x2C2B => "ⱛ", 0x2C2C => "ⱜ", 0x2C2D => "ⱝ", 0x2C2E => "ⱞ", 0x2C60 => "ⱡ", 0x2C62 => "ɫ", 0x2C63 => "ᵽ", 0x2C64 => "ɽ", 0x2C67 => "ⱨ", 0x2C69 => "ⱪ", 0x2C6B => "ⱬ", 0x2C6D => "ɑ", 0x2C6E => "ɱ", 0x2C6F => "ɐ", 0x2C70 => "ɒ", 0x2C72 => "ⱳ", 0x2C75 => "ⱶ", 0x2C7C => "j", 0x2C7D => "v", 0x2C7E => "ȿ", 0x2C7F => "ɀ", 0x2C80 => "ⲁ", 0x2C82 => "ⲃ", 0x2C84 => "ⲅ", 0x2C86 => "ⲇ", 0x2C88 => "ⲉ", 0x2C8A => "ⲋ", 0x2C8C => "ⲍ", 0x2C8E => "ⲏ", 0x2C90 => "ⲑ", 0x2C92 => "ⲓ", 0x2C94 => "ⲕ", 0x2C96 => "ⲗ", 0x2C98 => "ⲙ", 0x2C9A => "ⲛ", 0x2C9C => "ⲝ", 0x2C9E => "ⲟ", 0x2CA0 => "ⲡ", 0x2CA2 => "ⲣ", 0x2CA4 => "ⲥ", 0x2CA6 => "ⲧ", 0x2CA8 => "ⲩ", 0x2CAA => "ⲫ", 0x2CAC => "ⲭ", 0x2CAE => "ⲯ", 0x2CB0 => "ⲱ", 0x2CB2 => "ⲳ", 0x2CB4 => "ⲵ", 0x2CB6 => "ⲷ", 0x2CB8 => "ⲹ", 0x2CBA => "ⲻ", 0x2CBC => "ⲽ", 0x2CBE => "ⲿ", 0x2CC0 => "ⳁ", 0x2CC2 => "ⳃ", 0x2CC4 => "ⳅ", 0x2CC6 => "ⳇ", 0x2CC8 => "ⳉ", 0x2CCA => "ⳋ", 0x2CCC => "ⳍ", 0x2CCE => "ⳏ", 0x2CD0 => "ⳑ", 0x2CD2 => "ⳓ", 0x2CD4 => "ⳕ", 0x2CD6 => "ⳗ", 0x2CD8 => "ⳙ", 0x2CDA => "ⳛ", 0x2CDC => "ⳝ", 0x2CDE => "ⳟ", 0x2CE0 => "ⳡ", 0x2CE2 => "ⳣ", 0x2CEB => "ⳬ", 0x2CED => "ⳮ", 0x2CF2 => "ⳳ", 0x2D6F => "ⵡ", 0x2E9F => "母", 0x2EF3 => "龟", 0x2F00 => "一", 0x2F01 => "丨", 0x2F02 => "丶", 0x2F03 => "丿", 0x2F04 => "乙", 0x2F05 => "亅", 0x2F06 => "二", 0x2F07 => "亠", 0x2F08 => "人", 0x2F09 => "儿", 0x2F0A => "入", 0x2F0B => "八", 0x2F0C => "冂", 0x2F0D => "冖", 0x2F0E => "冫", 0x2F0F => "几", 0x2F10 => "凵", 0x2F11 => "刀", 0x2F12 => "力", 0x2F13 => "勹", 0x2F14 => "匕", 0x2F15 => "匚", 0x2F16 => "匸", 0x2F17 => "十", 0x2F18 => "卜", 0x2F19 => "卩", 0x2F1A => "厂", 0x2F1B => "厶", 0x2F1C => "又", 0x2F1D => "口", 0x2F1E => "囗", 0x2F1F => "土", 0x2F20 => "士", 0x2F21 => "夂", 0x2F22 => "夊", 0x2F23 => "夕", 0x2F24 => "大", 0x2F25 => "女", 0x2F26 => "子", 0x2F27 => "宀", 0x2F28 => "寸", 0x2F29 => "小", 0x2F2A => "尢", 0x2F2B => "尸", 0x2F2C => "屮", 0x2F2D => "山", 0x2F2E => "巛", 0x2F2F => "工", 0x2F30 => "己", 0x2F31 => "巾", 0x2F32 => "干", 0x2F33 => "幺", 0x2F34 => "广", 0x2F35 => "廴", 0x2F36 => "廾", 0x2F37 => "弋", 0x2F38 => "弓", 0x2F39 => "彐", 0x2F3A => "彡", 0x2F3B => "彳", 0x2F3C => "心", 0x2F3D => "戈", 0x2F3E => "戶", 0x2F3F => "手", 0x2F40 => "支", 0x2F41 => "攴", 0x2F42 => "文", 0x2F43 => "斗", 0x2F44 => "斤", 0x2F45 => "方", 0x2F46 => "无", 0x2F47 => "日", 0x2F48 => "曰", 0x2F49 => "月", 0x2F4A => "木", 0x2F4B => "欠", 0x2F4C => "止", 0x2F4D => "歹", 0x2F4E => "殳", 0x2F4F => "毋", 0x2F50 => "比", 0x2F51 => "毛", 0x2F52 => "氏", 0x2F53 => "气", 0x2F54 => "水", 0x2F55 => "火", 0x2F56 => "爪", 0x2F57 => "父", 0x2F58 => "爻", 0x2F59 => "爿", 0x2F5A => "片", 0x2F5B => "牙", 0x2F5C => "牛", 0x2F5D => "犬", 0x2F5E => "玄", 0x2F5F => "玉", 0x2F60 => "瓜", 0x2F61 => "瓦", 0x2F62 => "甘", 0x2F63 => "生", 0x2F64 => "用", 0x2F65 => "田", 0x2F66 => "疋", 0x2F67 => "疒", 0x2F68 => "癶", 0x2F69 => "白", 0x2F6A => "皮", 0x2F6B => "皿", 0x2F6C => "目", 0x2F6D => "矛", 0x2F6E => "矢", 0x2F6F => "石", 0x2F70 => "示", 0x2F71 => "禸", 0x2F72 => "禾", 0x2F73 => "穴", 0x2F74 => "立", 0x2F75 => "竹", 0x2F76 => "米", 0x2F77 => "糸", 0x2F78 => "缶", 0x2F79 => "网", 0x2F7A => "羊", 0x2F7B => "羽", 0x2F7C => "老", 0x2F7D => "而", 0x2F7E => "耒", 0x2F7F => "耳", 0x2F80 => "聿", 0x2F81 => "肉", 0x2F82 => "臣", 0x2F83 => "自", 0x2F84 => "至", 0x2F85 => "臼", 0x2F86 => "舌", 0x2F87 => "舛", 0x2F88 => "舟", 0x2F89 => "艮", 0x2F8A => "色", 0x2F8B => "艸", 0x2F8C => "虍", 0x2F8D => "虫", 0x2F8E => "血", 0x2F8F => "行", 0x2F90 => "衣", 0x2F91 => "襾", 0x2F92 => "見", 0x2F93 => "角", 0x2F94 => "言", 0x2F95 => "谷", 0x2F96 => "豆", 0x2F97 => "豕", 0x2F98 => "豸", 0x2F99 => "貝", 0x2F9A => "赤", 0x2F9B => "走", 0x2F9C => "足", 0x2F9D => "身", 0x2F9E => "車", 0x2F9F => "辛", 0x2FA0 => "辰", 0x2FA1 => "辵", 0x2FA2 => "邑", 0x2FA3 => "酉", 0x2FA4 => "釆", 0x2FA5 => "里", 0x2FA6 => "金", 0x2FA7 => "長", 0x2FA8 => "門", 0x2FA9 => "阜", 0x2FAA => "隶", 0x2FAB => "隹", 0x2FAC => "雨", 0x2FAD => "靑", 0x2FAE => "非", 0x2FAF => "面", 0x2FB0 => "革", 0x2FB1 => "韋", 0x2FB2 => "韭", 0x2FB3 => "音", 0x2FB4 => "頁", 0x2FB5 => "風", 0x2FB6 => "飛", 0x2FB7 => "食", 0x2FB8 => "首", 0x2FB9 => "香", 0x2FBA => "馬", 0x2FBB => "骨", 0x2FBC => "高", 0x2FBD => "髟", 0x2FBE => "鬥", 0x2FBF => "鬯", 0x2FC0 => "鬲", 0x2FC1 => "鬼", 0x2FC2 => "魚", 0x2FC3 => "鳥", 0x2FC4 => "鹵", 0x2FC5 => "鹿", 0x2FC6 => "麥", 0x2FC7 => "麻", 0x2FC8 => "黃", 0x2FC9 => "黍", 0x2FCA => "黑", 0x2FCB => "黹", 0x2FCC => "黽", 0x2FCD => "鼎", 0x2FCE => "鼓", 0x2FCF => "鼠", 0x2FD0 => "鼻", 0x2FD1 => "齊", 0x2FD2 => "齒", 0x2FD3 => "龍", 0x2FD4 => "龜", 0x2FD5 => "龠", 0x3002 => "\.", 0x3036 => "\x{3012}", 0x3038 => "十", 0x3039 => "卄", 0x303A => "卅", 0x309F => "より", 0x30FF => "コト", 0x3131 => "ᄀ", 0x3132 => "ᄁ", 0x3133 => "ᆪ", 0x3134 => "ᄂ", 0x3135 => "ᆬ", 0x3136 => "ᆭ", 0x3137 => "ᄃ", 0x3138 => "ᄄ", 0x3139 => "ᄅ", 0x313A => "ᆰ", 0x313B => "ᆱ", 0x313C => "ᆲ", 0x313D => "ᆳ", 0x313E => "ᆴ", 0x313F => "ᆵ", 0x3140 => "ᄚ", 0x3141 => "ᄆ", 0x3142 => "ᄇ", 0x3143 => "ᄈ", 0x3144 => "ᄡ", 0x3145 => "ᄉ", 0x3146 => "ᄊ", 0x3147 => "ᄋ", 0x3148 => "ᄌ", 0x3149 => "ᄍ", 0x314A => "ᄎ", 0x314B => "ᄏ", 0x314C => "ᄐ", 0x314D => "ᄑ", 0x314E => "ᄒ", 0x314F => "ᅡ", 0x3150 => "ᅢ", 0x3151 => "ᅣ", 0x3152 => "ᅤ", 0x3153 => "ᅥ", 0x3154 => "ᅦ", 0x3155 => "ᅧ", 0x3156 => "ᅨ", 0x3157 => "ᅩ", 0x3158 => "ᅪ", 0x3159 => "ᅫ", 0x315A => "ᅬ", 0x315B => "ᅭ", 0x315C => "ᅮ", 0x315D => "ᅯ", 0x315E => "ᅰ", 0x315F => "ᅱ", 0x3160 => "ᅲ", 0x3161 => "ᅳ", 0x3162 => "ᅴ", 0x3163 => "ᅵ", 0x3165 => "ᄔ", 0x3166 => "ᄕ", 0x3167 => "ᇇ", 0x3168 => "ᇈ", 0x3169 => "ᇌ", 0x316A => "ᇎ", 0x316B => "ᇓ", 0x316C => "ᇗ", 0x316D => "ᇙ", 0x316E => "ᄜ", 0x316F => "ᇝ", 0x3170 => "ᇟ", 0x3171 => "ᄝ", 0x3172 => "ᄞ", 0x3173 => "ᄠ", 0x3174 => "ᄢ", 0x3175 => "ᄣ", 0x3176 => "ᄧ", 0x3177 => "ᄩ", 0x3178 => "ᄫ", 0x3179 => "ᄬ", 0x317A => "ᄭ", 0x317B => "ᄮ", 0x317C => "ᄯ", 0x317D => "ᄲ", 0x317E => "ᄶ", 0x317F => "ᅀ", 0x3180 => "ᅇ", 0x3181 => "ᅌ", 0x3182 => "ᇱ", 0x3183 => "ᇲ", 0x3184 => "ᅗ", 0x3185 => "ᅘ", 0x3186 => "ᅙ", 0x3187 => "ᆄ", 0x3188 => "ᆅ", 0x3189 => "ᆈ", 0x318A => "ᆑ", 0x318B => "ᆒ", 0x318C => "ᆔ", 0x318D => "ᆞ", 0x318E => "ᆡ", 0x3192 => "一", 0x3193 => "二", 0x3194 => "三", 0x3195 => "四", 0x3196 => "上", 0x3197 => "中", 0x3198 => "下", 0x3199 => "甲", 0x319A => "乙", 0x319B => "丙", 0x319C => "丁", 0x319D => "天", 0x319E => "地", 0x319F => "人", 0x3244 => "問", 0x3245 => "幼", 0x3246 => "文", 0x3247 => "箏", 0x3250 => "pte", 0x3251 => "21", 0x3252 => "22", 0x3253 => "23", 0x3254 => "24", 0x3255 => "25", 0x3256 => "26", 0x3257 => "27", 0x3258 => "28", 0x3259 => "29", 0x325A => "30", 0x325B => "31", 0x325C => "32", 0x325D => "33", 0x325E => "34", 0x325F => "35", 0x3260 => "ᄀ", 0x3261 => "ᄂ", 0x3262 => "ᄃ", 0x3263 => "ᄅ", 0x3264 => "ᄆ", 0x3265 => "ᄇ", 0x3266 => "ᄉ", 0x3267 => "ᄋ", 0x3268 => "ᄌ", 0x3269 => "ᄎ", 0x326A => "ᄏ", 0x326B => "ᄐ", 0x326C => "ᄑ", 0x326D => "ᄒ", 0x326E => "가", 0x326F => "나", 0x3270 => "다", 0x3271 => "라", 0x3272 => "마", 0x3273 => "바", 0x3274 => "사", 0x3275 => "아", 0x3276 => "자", 0x3277 => "차", 0x3278 => "카", 0x3279 => "타", 0x327A => "파", 0x327B => "하", 0x327C => "참고", 0x327D => "주의", 0x327E => "우", 0x3280 => "一", 0x3281 => "二", 0x3282 => "三", 0x3283 => "四", 0x3284 => "五", 0x3285 => "六", 0x3286 => "七", 0x3287 => "八", 0x3288 => "九", 0x3289 => "十", 0x328A => "月", 0x328B => "火", 0x328C => "水", 0x328D => "木", 0x328E => "金", 0x328F => "土", 0x3290 => "日", 0x3291 => "株", 0x3292 => "有", 0x3293 => "社", 0x3294 => "名", 0x3295 => "特", 0x3296 => "財", 0x3297 => "祝", 0x3298 => "労", 0x3299 => "秘", 0x329A => "男", 0x329B => "女", 0x329C => "適", 0x329D => "優", 0x329E => "印", 0x329F => "注", 0x32A0 => "項", 0x32A1 => "休", 0x32A2 => "写", 0x32A3 => "正", 0x32A4 => "上", 0x32A5 => "中", 0x32A6 => "下", 0x32A7 => "左", 0x32A8 => "右", 0x32A9 => "医", 0x32AA => "宗", 0x32AB => "学", 0x32AC => "監", 0x32AD => "企", 0x32AE => "資", 0x32AF => "協", 0x32B0 => "夜", 0x32B1 => "36", 0x32B2 => "37", 0x32B3 => "38", 0x32B4 => "39", 0x32B5 => "40", 0x32B6 => "41", 0x32B7 => "42", 0x32B8 => "43", 0x32B9 => "44", 0x32BA => "45", 0x32BB => "46", 0x32BC => "47", 0x32BD => "48", 0x32BE => "49", 0x32BF => "50", 0x32C0 => "1月", 0x32C1 => "2月", 0x32C2 => "3月", 0x32C3 => "4月", 0x32C4 => "5月", 0x32C5 => "6月", 0x32C6 => "7月", 0x32C7 => "8月", 0x32C8 => "9月", 0x32C9 => "10月", 0x32CA => "11月", 0x32CB => "12月", 0x32CC => "hg", 0x32CD => "erg", 0x32CE => "ev", 0x32CF => "ltd", 0x32D0 => "ア", 0x32D1 => "イ", 0x32D2 => "ウ", 0x32D3 => "エ", 0x32D4 => "オ", 0x32D5 => "カ", 0x32D6 => "キ", 0x32D7 => "ク", 0x32D8 => "ケ", 0x32D9 => "コ", 0x32DA => "サ", 0x32DB => "シ", 0x32DC => "ス", 0x32DD => "セ", 0x32DE => "ソ", 0x32DF => "タ", 0x32E0 => "チ", 0x32E1 => "ツ", 0x32E2 => "テ", 0x32E3 => "ト", 0x32E4 => "ナ", 0x32E5 => "ニ", 0x32E6 => "ヌ", 0x32E7 => "ネ", 0x32E8 => "ノ", 0x32E9 => "ハ", 0x32EA => "ヒ", 0x32EB => "フ", 0x32EC => "ヘ", 0x32ED => "ホ", 0x32EE => "マ", 0x32EF => "ミ", 0x32F0 => "ム", 0x32F1 => "メ", 0x32F2 => "モ", 0x32F3 => "ヤ", 0x32F4 => "ユ", 0x32F5 => "ヨ", 0x32F6 => "ラ", 0x32F7 => "リ", 0x32F8 => "ル", 0x32F9 => "レ", 0x32FA => "ロ", 0x32FB => "ワ", 0x32FC => "ヰ", 0x32FD => "ヱ", 0x32FE => "ヲ", 0x3300 => "アパート", 0x3301 => "アルファ", 0x3302 => "アンペア", 0x3303 => "アール", 0x3304 => "イニング", 0x3305 => "インチ", 0x3306 => "ウォン", 0x3307 => "エスクード", 0x3308 => "エーカー", 0x3309 => "オンス", 0x330A => "オーム", 0x330B => "カイリ", 0x330C => "カラット", 0x330D => "カロリー", 0x330E => "ガロン", 0x330F => "ガンマ", 0x3310 => "ギガ", 0x3311 => "ギニー", 0x3312 => "キュリー", 0x3313 => "ギルダー", 0x3314 => "キロ", 0x3315 => "キログラム", 0x3316 => "キロメートル", 0x3317 => "キロワット", 0x3318 => "グラム", 0x3319 => "グラムトン", 0x331A => "クルゼイロ", 0x331B => "クローネ", 0x331C => "ケース", 0x331D => "コルナ", 0x331E => "コーポ", 0x331F => "サイクル", 0x3320 => "サンチーム", 0x3321 => "シリング", 0x3322 => "センチ", 0x3323 => "セント", 0x3324 => "ダース", 0x3325 => "デシ", 0x3326 => "ドル", 0x3327 => "トン", 0x3328 => "ナノ", 0x3329 => "ノット", 0x332A => "ハイツ", 0x332B => "パーセント", 0x332C => "パーツ", 0x332D => "バーレル", 0x332E => "ピアストル", 0x332F => "ピクル", 0x3330 => "ピコ", 0x3331 => "ビル", 0x3332 => "ファラッド", 0x3333 => "フィート", 0x3334 => "ブッシェル", 0x3335 => "フラン", 0x3336 => "ヘクタール", 0x3337 => "ペソ", 0x3338 => "ペニヒ", 0x3339 => "ヘルツ", 0x333A => "ペンス", 0x333B => "ページ", 0x333C => "ベータ", 0x333D => "ポイント", 0x333E => "ボルト", 0x333F => "ホン", 0x3340 => "ポンド", 0x3341 => "ホール", 0x3342 => "ホーン", 0x3343 => "マイクロ", 0x3344 => "マイル", 0x3345 => "マッハ", 0x3346 => "マルク", 0x3347 => "マンション", 0x3348 => "ミクロン", 0x3349 => "ミリ", 0x334A => "ミリバール", 0x334B => "メガ", 0x334C => "メガトン", 0x334D => "メートル", 0x334E => "ヤード", 0x334F => "ヤール", 0x3350 => "ユアン", 0x3351 => "リットル", 0x3352 => "リラ", 0x3353 => "ルピー", 0x3354 => "ルーブル", 0x3355 => "レム", 0x3356 => "レントゲン", 0x3357 => "ワット", 0x3358 => "0点", 0x3359 => "1点", 0x335A => "2点", 0x335B => "3点", 0x335C => "4点", 0x335D => "5点", 0x335E => "6点", 0x335F => "7点", 0x3360 => "8点", 0x3361 => "9点", 0x3362 => "10点", 0x3363 => "11点", 0x3364 => "12点", 0x3365 => "13点", 0x3366 => "14点", 0x3367 => "15点", 0x3368 => "16点", 0x3369 => "17点", 0x336A => "18点", 0x336B => "19点", 0x336C => "20点", 0x336D => "21点", 0x336E => "22点", 0x336F => "23点", 0x3370 => "24点", 0x3371 => "hpa", 0x3372 => "da", 0x3373 => "au", 0x3374 => "bar", 0x3375 => "ov", 0x3376 => "pc", 0x3377 => "dm", 0x3378 => "dm2", 0x3379 => "dm3", 0x337A => "iu", 0x337B => "平成", 0x337C => "昭和", 0x337D => "大正", 0x337E => "明治", 0x337F => "株式会社", 0x3380 => "pa", 0x3381 => "na", 0x3382 => "μa", 0x3383 => "ma", 0x3384 => "ka", 0x3385 => "kb", 0x3386 => "mb", 0x3387 => "gb", 0x3388 => "cal", 0x3389 => "kcal", 0x338A => "pf", 0x338B => "nf", 0x338C => "μf", 0x338D => "μg", 0x338E => "mg", 0x338F => "kg", 0x3390 => "hz", 0x3391 => "khz", 0x3392 => "mhz", 0x3393 => "ghz", 0x3394 => "thz", 0x3395 => "μl", 0x3396 => "ml", 0x3397 => "dl", 0x3398 => "kl", 0x3399 => "fm", 0x339A => "nm", 0x339B => "μm", 0x339C => "mm", 0x339D => "cm", 0x339E => "km", 0x339F => "mm2", 0x33A0 => "cm2", 0x33A1 => "m2", 0x33A2 => "km2", 0x33A3 => "mm3", 0x33A4 => "cm3", 0x33A5 => "m3", 0x33A6 => "km3", 0x33A7 => "m\x{2215}s", 0x33A8 => "m\x{2215}s2", 0x33A9 => "pa", 0x33AA => "kpa", 0x33AB => "mpa", 0x33AC => "gpa", 0x33AD => "rad", 0x33AE => "rad\x{2215}s", 0x33AF => "rad\x{2215}s2", 0x33B0 => "ps", 0x33B1 => "ns", 0x33B2 => "μs", 0x33B3 => "ms", 0x33B4 => "pv", 0x33B5 => "nv", 0x33B6 => "μv", 0x33B7 => "mv", 0x33B8 => "kv", 0x33B9 => "mv", 0x33BA => "pw", 0x33BB => "nw", 0x33BC => "μw", 0x33BD => "mw", 0x33BE => "kw", 0x33BF => "mw", 0x33C0 => "kω", 0x33C1 => "mω", 0x33C3 => "bq", 0x33C4 => "cc", 0x33C5 => "cd", 0x33C6 => "c\x{2215}kg", 0x33C8 => "db", 0x33C9 => "gy", 0x33CA => "ha", 0x33CB => "hp", 0x33CC => "in", 0x33CD => "kk", 0x33CE => "km", 0x33CF => "kt", 0x33D0 => "lm", 0x33D1 => "ln", 0x33D2 => "log", 0x33D3 => "lx", 0x33D4 => "mb", 0x33D5 => "mil", 0x33D6 => "mol", 0x33D7 => "ph", 0x33D9 => "ppm", 0x33DA => "pr", 0x33DB => "sr", 0x33DC => "sv", 0x33DD => "wb", 0x33DE => "v\x{2215}m", 0x33DF => "a\x{2215}m", 0x33E0 => "1日", 0x33E1 => "2日", 0x33E2 => "3日", 0x33E3 => "4日", 0x33E4 => "5日", 0x33E5 => "6日", 0x33E6 => "7日", 0x33E7 => "8日", 0x33E8 => "9日", 0x33E9 => "10日", 0x33EA => "11日", 0x33EB => "12日", 0x33EC => "13日", 0x33ED => "14日", 0x33EE => "15日", 0x33EF => "16日", 0x33F0 => "17日", 0x33F1 => "18日", 0x33F2 => "19日", 0x33F3 => "20日", 0x33F4 => "21日", 0x33F5 => "22日", 0x33F6 => "23日", 0x33F7 => "24日", 0x33F8 => "25日", 0x33F9 => "26日", 0x33FA => "27日", 0x33FB => "28日", 0x33FC => "29日", 0x33FD => "30日", 0x33FE => "31日", 0x33FF => "gal", 0xA640 => "ꙁ", 0xA642 => "ꙃ", 0xA644 => "ꙅ", 0xA646 => "ꙇ", 0xA648 => "ꙉ", 0xA64A => "ꙋ", 0xA64C => "ꙍ", 0xA64E => "ꙏ", 0xA650 => "ꙑ", 0xA652 => "ꙓ", 0xA654 => "ꙕ", 0xA656 => "ꙗ", 0xA658 => "ꙙ", 0xA65A => "ꙛ", 0xA65C => "ꙝ", 0xA65E => "ꙟ", 0xA660 => "ꙡ", 0xA662 => "ꙣ", 0xA664 => "ꙥ", 0xA666 => "ꙧ", 0xA668 => "ꙩ", 0xA66A => "ꙫ", 0xA66C => "ꙭ", 0xA680 => "ꚁ", 0xA682 => "ꚃ", 0xA684 => "ꚅ", 0xA686 => "ꚇ", 0xA688 => "ꚉ", 0xA68A => "ꚋ", 0xA68C => "ꚍ", 0xA68E => "ꚏ", 0xA690 => "ꚑ", 0xA692 => "ꚓ", 0xA694 => "ꚕ", 0xA696 => "ꚗ", 0xA698 => "ꚙ", 0xA69A => "ꚛ", 0xA69C => "ъ", 0xA69D => "ь", 0xA722 => "ꜣ", 0xA724 => "ꜥ", 0xA726 => "ꜧ", 0xA728 => "ꜩ", 0xA72A => "ꜫ", 0xA72C => "ꜭ", 0xA72E => "ꜯ", 0xA732 => "ꜳ", 0xA734 => "ꜵ", 0xA736 => "ꜷ", 0xA738 => "ꜹ", 0xA73A => "ꜻ", 0xA73C => "ꜽ", 0xA73E => "ꜿ", 0xA740 => "ꝁ", 0xA742 => "ꝃ", 0xA744 => "ꝅ", 0xA746 => "ꝇ", 0xA748 => "ꝉ", 0xA74A => "ꝋ", 0xA74C => "ꝍ", 0xA74E => "ꝏ", 0xA750 => "ꝑ", 0xA752 => "ꝓ", 0xA754 => "ꝕ", 0xA756 => "ꝗ", 0xA758 => "ꝙ", 0xA75A => "ꝛ", 0xA75C => "ꝝ", 0xA75E => "ꝟ", 0xA760 => "ꝡ", 0xA762 => "ꝣ", 0xA764 => "ꝥ", 0xA766 => "ꝧ", 0xA768 => "ꝩ", 0xA76A => "ꝫ", 0xA76C => "ꝭ", 0xA76E => "ꝯ", 0xA770 => "ꝯ", 0xA779 => "ꝺ", 0xA77B => "ꝼ", 0xA77D => "ᵹ", 0xA77E => "ꝿ", 0xA780 => "ꞁ", 0xA782 => "ꞃ", 0xA784 => "ꞅ", 0xA786 => "ꞇ", 0xA78B => "ꞌ", 0xA78D => "ɥ", 0xA790 => "ꞑ", 0xA792 => "ꞓ", 0xA796 => "ꞗ", 0xA798 => "ꞙ", 0xA79A => "ꞛ", 0xA79C => "ꞝ", 0xA79E => "ꞟ", 0xA7A0 => "ꞡ", 0xA7A2 => "ꞣ", 0xA7A4 => "ꞥ", 0xA7A6 => "ꞧ", 0xA7A8 => "ꞩ", 0xA7AA => "ɦ", 0xA7AB => "ɜ", 0xA7AC => "ɡ", 0xA7AD => "ɬ", 0xA7B0 => "ʞ", 0xA7B1 => "ʇ", 0xA7B2 => "ʝ", 0xA7B3 => "ꭓ", 0xA7B4 => "\x{A7B5}", 0xA7B6 => "\x{A7B7}", 0xA7F8 => "ħ", 0xA7F9 => "œ", 0xAB5C => "ꜧ", 0xAB5D => "ꬷ", 0xAB5E => "ɫ", 0xAB5F => "ꭒ", 0xAB70 => "Ꭰ", 0xAB71 => "Ꭱ", 0xAB72 => "Ꭲ", 0xAB73 => "Ꭳ", 0xAB74 => "Ꭴ", 0xAB75 => "Ꭵ", 0xAB76 => "Ꭶ", 0xAB77 => "Ꭷ", 0xAB78 => "Ꭸ", 0xAB79 => "Ꭹ", 0xAB7A => "Ꭺ", 0xAB7B => "Ꭻ", 0xAB7C => "Ꭼ", 0xAB7D => "Ꭽ", 0xAB7E => "Ꭾ", 0xAB7F => "Ꭿ", 0xAB80 => "Ꮀ", 0xAB81 => "Ꮁ", 0xAB82 => "Ꮂ", 0xAB83 => "Ꮃ", 0xAB84 => "Ꮄ", 0xAB85 => "Ꮅ", 0xAB86 => "Ꮆ", 0xAB87 => "Ꮇ", 0xAB88 => "Ꮈ", 0xAB89 => "Ꮉ", 0xAB8A => "Ꮊ", 0xAB8B => "Ꮋ", 0xAB8C => "Ꮌ", 0xAB8D => "Ꮍ", 0xAB8E => "Ꮎ", 0xAB8F => "Ꮏ", 0xAB90 => "Ꮐ", 0xAB91 => "Ꮑ", 0xAB92 => "Ꮒ", 0xAB93 => "Ꮓ", 0xAB94 => "Ꮔ", 0xAB95 => "Ꮕ", 0xAB96 => "Ꮖ", 0xAB97 => "Ꮗ", 0xAB98 => "Ꮘ", 0xAB99 => "Ꮙ", 0xAB9A => "Ꮚ", 0xAB9B => "Ꮛ", 0xAB9C => "Ꮜ", 0xAB9D => "Ꮝ", 0xAB9E => "Ꮞ", 0xAB9F => "Ꮟ", 0xABA0 => "Ꮠ", 0xABA1 => "Ꮡ", 0xABA2 => "Ꮢ", 0xABA3 => "Ꮣ", 0xABA4 => "Ꮤ", 0xABA5 => "Ꮥ", 0xABA6 => "Ꮦ", 0xABA7 => "Ꮧ", 0xABA8 => "Ꮨ", 0xABA9 => "Ꮩ", 0xABAA => "Ꮪ", 0xABAB => "Ꮫ", 0xABAC => "Ꮬ", 0xABAD => "Ꮭ", 0xABAE => "Ꮮ", 0xABAF => "Ꮯ", 0xABB0 => "Ꮰ", 0xABB1 => "Ꮱ", 0xABB2 => "Ꮲ", 0xABB3 => "Ꮳ", 0xABB4 => "Ꮴ", 0xABB5 => "Ꮵ", 0xABB6 => "Ꮶ", 0xABB7 => "Ꮷ", 0xABB8 => "Ꮸ", 0xABB9 => "Ꮹ", 0xABBA => "Ꮺ", 0xABBB => "Ꮻ", 0xABBC => "Ꮼ", 0xABBD => "Ꮽ", 0xABBE => "Ꮾ", 0xABBF => "Ꮿ", 0xF900 => "豈", 0xF901 => "更", 0xF902 => "車", 0xF903 => "賈", 0xF904 => "滑", 0xF905 => "串", 0xF906 => "句", 0xF907 => "龜", 0xF908 => "龜", 0xF909 => "契", 0xF90A => "金", 0xF90B => "喇", 0xF90C => "奈", 0xF90D => "懶", 0xF90E => "癩", 0xF90F => "羅", 0xF910 => "蘿", 0xF911 => "螺", 0xF912 => "裸", 0xF913 => "邏", 0xF914 => "樂", 0xF915 => "洛", 0xF916 => "烙", 0xF917 => "珞", 0xF918 => "落", 0xF919 => "酪", 0xF91A => "駱", 0xF91B => "亂", 0xF91C => "卵", 0xF91D => "欄", 0xF91E => "爛", 0xF91F => "蘭", 0xF920 => "鸞", 0xF921 => "嵐", 0xF922 => "濫", 0xF923 => "藍", 0xF924 => "襤", 0xF925 => "拉", 0xF926 => "臘", 0xF927 => "蠟", 0xF928 => "廊", 0xF929 => "朗", 0xF92A => "浪", 0xF92B => "狼", 0xF92C => "郎", 0xF92D => "來", 0xF92E => "冷", 0xF92F => "勞", 0xF930 => "擄", 0xF931 => "櫓", 0xF932 => "爐", 0xF933 => "盧", 0xF934 => "老", 0xF935 => "蘆", 0xF936 => "虜", 0xF937 => "路", 0xF938 => "露", 0xF939 => "魯", 0xF93A => "鷺", 0xF93B => "碌", 0xF93C => "祿", 0xF93D => "綠", 0xF93E => "菉", 0xF93F => "錄", 0xF940 => "鹿", 0xF941 => "論", 0xF942 => "壟", 0xF943 => "弄", 0xF944 => "籠", 0xF945 => "聾", 0xF946 => "牢", 0xF947 => "磊", 0xF948 => "賂", 0xF949 => "雷", 0xF94A => "壘", 0xF94B => "屢", 0xF94C => "樓", 0xF94D => "淚", 0xF94E => "漏", 0xF94F => "累", 0xF950 => "縷", 0xF951 => "陋", 0xF952 => "勒", 0xF953 => "肋", 0xF954 => "凜", 0xF955 => "凌", 0xF956 => "稜", 0xF957 => "綾", 0xF958 => "菱", 0xF959 => "陵", 0xF95A => "讀", 0xF95B => "拏", 0xF95C => "樂", 0xF95D => "諾", 0xF95E => "丹", 0xF95F => "寧", 0xF960 => "怒", 0xF961 => "率", 0xF962 => "異", 0xF963 => "北", 0xF964 => "磻", 0xF965 => "便", 0xF966 => "復", 0xF967 => "不", 0xF968 => "泌", 0xF969 => "數", 0xF96A => "索", 0xF96B => "參", 0xF96C => "塞", 0xF96D => "省", 0xF96E => "葉", 0xF96F => "說", 0xF970 => "殺", 0xF971 => "辰", 0xF972 => "沈", 0xF973 => "拾", 0xF974 => "若", 0xF975 => "掠", 0xF976 => "略", 0xF977 => "亮", 0xF978 => "兩", 0xF979 => "凉", 0xF97A => "梁", 0xF97B => "糧", 0xF97C => "良", 0xF97D => "諒", 0xF97E => "量", 0xF97F => "勵", 0xF980 => "呂", 0xF981 => "女", 0xF982 => "廬", 0xF983 => "旅", 0xF984 => "濾", 0xF985 => "礪", 0xF986 => "閭", 0xF987 => "驪", 0xF988 => "麗", 0xF989 => "黎", 0xF98A => "力", 0xF98B => "曆", 0xF98C => "歷", 0xF98D => "轢", 0xF98E => "年", 0xF98F => "憐", 0xF990 => "戀", 0xF991 => "撚", 0xF992 => "漣", 0xF993 => "煉", 0xF994 => "璉", 0xF995 => "秊", 0xF996 => "練", 0xF997 => "聯", 0xF998 => "輦", 0xF999 => "蓮", 0xF99A => "連", 0xF99B => "鍊", 0xF99C => "列", 0xF99D => "劣", 0xF99E => "咽", 0xF99F => "烈", 0xF9A0 => "裂", 0xF9A1 => "說", 0xF9A2 => "廉", 0xF9A3 => "念", 0xF9A4 => "捻", 0xF9A5 => "殮", 0xF9A6 => "簾", 0xF9A7 => "獵", 0xF9A8 => "令", 0xF9A9 => "囹", 0xF9AA => "寧", 0xF9AB => "嶺", 0xF9AC => "怜", 0xF9AD => "玲", 0xF9AE => "瑩", 0xF9AF => "羚", 0xF9B0 => "聆", 0xF9B1 => "鈴", 0xF9B2 => "零", 0xF9B3 => "靈", 0xF9B4 => "領", 0xF9B5 => "例", 0xF9B6 => "禮", 0xF9B7 => "醴", 0xF9B8 => "隸", 0xF9B9 => "惡", 0xF9BA => "了", 0xF9BB => "僚", 0xF9BC => "寮", 0xF9BD => "尿", 0xF9BE => "料", 0xF9BF => "樂", 0xF9C0 => "燎", 0xF9C1 => "療", 0xF9C2 => "蓼", 0xF9C3 => "遼", 0xF9C4 => "龍", 0xF9C5 => "暈", 0xF9C6 => "阮", 0xF9C7 => "劉", 0xF9C8 => "杻", 0xF9C9 => "柳", 0xF9CA => "流", 0xF9CB => "溜", 0xF9CC => "琉", 0xF9CD => "留", 0xF9CE => "硫", 0xF9CF => "紐", 0xF9D0 => "類", 0xF9D1 => "六", 0xF9D2 => "戮", 0xF9D3 => "陸", 0xF9D4 => "倫", 0xF9D5 => "崙", 0xF9D6 => "淪", 0xF9D7 => "輪", 0xF9D8 => "律", 0xF9D9 => "慄", 0xF9DA => "栗", 0xF9DB => "率", 0xF9DC => "隆", 0xF9DD => "利", 0xF9DE => "吏", 0xF9DF => "履", 0xF9E0 => "易", 0xF9E1 => "李", 0xF9E2 => "梨", 0xF9E3 => "泥", 0xF9E4 => "理", 0xF9E5 => "痢", 0xF9E6 => "罹", 0xF9E7 => "裏", 0xF9E8 => "裡", 0xF9E9 => "里", 0xF9EA => "離", 0xF9EB => "匿", 0xF9EC => "溺", 0xF9ED => "吝", 0xF9EE => "燐", 0xF9EF => "璘", 0xF9F0 => "藺", 0xF9F1 => "隣", 0xF9F2 => "鱗", 0xF9F3 => "麟", 0xF9F4 => "林", 0xF9F5 => "淋", 0xF9F6 => "臨", 0xF9F7 => "立", 0xF9F8 => "笠", 0xF9F9 => "粒", 0xF9FA => "狀", 0xF9FB => "炙", 0xF9FC => "識", 0xF9FD => "什", 0xF9FE => "茶", 0xF9FF => "刺", 0xFA00 => "切", 0xFA01 => "度", 0xFA02 => "拓", 0xFA03 => "糖", 0xFA04 => "宅", 0xFA05 => "洞", 0xFA06 => "暴", 0xFA07 => "輻", 0xFA08 => "行", 0xFA09 => "降", 0xFA0A => "見", 0xFA0B => "廓", 0xFA0C => "兀", 0xFA0D => "嗀", 0xFA10 => "塚", 0xFA12 => "晴", 0xFA15 => "凞", 0xFA16 => "猪", 0xFA17 => "益", 0xFA18 => "礼", 0xFA19 => "神", 0xFA1A => "祥", 0xFA1B => "福", 0xFA1C => "靖", 0xFA1D => "精", 0xFA1E => "羽", 0xFA20 => "蘒", 0xFA22 => "諸", 0xFA25 => "逸", 0xFA26 => "都", 0xFA2A => "飯", 0xFA2B => "飼", 0xFA2C => "館", 0xFA2D => "鶴", 0xFA2E => "郞", 0xFA2F => "隷", 0xFA30 => "侮", 0xFA31 => "僧", 0xFA32 => "免", 0xFA33 => "勉", 0xFA34 => "勤", 0xFA35 => "卑", 0xFA36 => "喝", 0xFA37 => "嘆", 0xFA38 => "器", 0xFA39 => "塀", 0xFA3A => "墨", 0xFA3B => "層", 0xFA3C => "屮", 0xFA3D => "悔", 0xFA3E => "慨", 0xFA3F => "憎", 0xFA40 => "懲", 0xFA41 => "敏", 0xFA42 => "既", 0xFA43 => "暑", 0xFA44 => "梅", 0xFA45 => "海", 0xFA46 => "渚", 0xFA47 => "漢", 0xFA48 => "煮", 0xFA49 => "爫", 0xFA4A => "琢", 0xFA4B => "碑", 0xFA4C => "社", 0xFA4D => "祉", 0xFA4E => "祈", 0xFA4F => "祐", 0xFA50 => "祖", 0xFA51 => "祝", 0xFA52 => "禍", 0xFA53 => "禎", 0xFA54 => "穀", 0xFA55 => "突", 0xFA56 => "節", 0xFA57 => "練", 0xFA58 => "縉", 0xFA59 => "繁", 0xFA5A => "署", 0xFA5B => "者", 0xFA5C => "臭", 0xFA5D => "艹", 0xFA5E => "艹", 0xFA5F => "著", 0xFA60 => "褐", 0xFA61 => "視", 0xFA62 => "謁", 0xFA63 => "謹", 0xFA64 => "賓", 0xFA65 => "贈", 0xFA66 => "辶", 0xFA67 => "逸", 0xFA68 => "難", 0xFA69 => "響", 0xFA6A => "頻", 0xFA6B => "恵", 0xFA6C => "𤋮", 0xFA6D => "舘", 0xFA70 => "並", 0xFA71 => "况", 0xFA72 => "全", 0xFA73 => "侀", 0xFA74 => "充", 0xFA75 => "冀", 0xFA76 => "勇", 0xFA77 => "勺", 0xFA78 => "喝", 0xFA79 => "啕", 0xFA7A => "喙", 0xFA7B => "嗢", 0xFA7C => "塚", 0xFA7D => "墳", 0xFA7E => "奄", 0xFA7F => "奔", 0xFA80 => "婢", 0xFA81 => "嬨", 0xFA82 => "廒", 0xFA83 => "廙", 0xFA84 => "彩", 0xFA85 => "徭", 0xFA86 => "惘", 0xFA87 => "慎", 0xFA88 => "愈", 0xFA89 => "憎", 0xFA8A => "慠", 0xFA8B => "懲", 0xFA8C => "戴", 0xFA8D => "揄", 0xFA8E => "搜", 0xFA8F => "摒", 0xFA90 => "敖", 0xFA91 => "晴", 0xFA92 => "朗", 0xFA93 => "望", 0xFA94 => "杖", 0xFA95 => "歹", 0xFA96 => "殺", 0xFA97 => "流", 0xFA98 => "滛", 0xFA99 => "滋", 0xFA9A => "漢", 0xFA9B => "瀞", 0xFA9C => "煮", 0xFA9D => "瞧", 0xFA9E => "爵", 0xFA9F => "犯", 0xFAA0 => "猪", 0xFAA1 => "瑱", 0xFAA2 => "甆", 0xFAA3 => "画", 0xFAA4 => "瘝", 0xFAA5 => "瘟", 0xFAA6 => "益", 0xFAA7 => "盛", 0xFAA8 => "直", 0xFAA9 => "睊", 0xFAAA => "着", 0xFAAB => "磌", 0xFAAC => "窱", 0xFAAD => "節", 0xFAAE => "类", 0xFAAF => "絛", 0xFAB0 => "練", 0xFAB1 => "缾", 0xFAB2 => "者", 0xFAB3 => "荒", 0xFAB4 => "華", 0xFAB5 => "蝹", 0xFAB6 => "襁", 0xFAB7 => "覆", 0xFAB8 => "視", 0xFAB9 => "調", 0xFABA => "諸", 0xFABB => "請", 0xFABC => "謁", 0xFABD => "諾", 0xFABE => "諭", 0xFABF => "謹", 0xFAC0 => "變", 0xFAC1 => "贈", 0xFAC2 => "輸", 0xFAC3 => "遲", 0xFAC4 => "醙", 0xFAC5 => "鉶", 0xFAC6 => "陼", 0xFAC7 => "難", 0xFAC8 => "靖", 0xFAC9 => "韛", 0xFACA => "響", 0xFACB => "頋", 0xFACC => "頻", 0xFACD => "鬒", 0xFACE => "龜", 0xFACF => "𢡊", 0xFAD0 => "𢡄", 0xFAD1 => "𣏕", 0xFAD2 => "㮝", 0xFAD3 => "䀘", 0xFAD4 => "䀹", 0xFAD5 => "𥉉", 0xFAD6 => "𥳐", 0xFAD7 => "𧻓", 0xFAD8 => "齃", 0xFAD9 => "龎", 0xFB00 => "ff", 0xFB01 => "fi", 0xFB02 => "fl", 0xFB03 => "ffi", 0xFB04 => "ffl", 0xFB05 => "st", 0xFB06 => "st", 0xFB13 => "մն", 0xFB14 => "մե", 0xFB15 => "մի", 0xFB16 => "վն", 0xFB17 => "մխ", 0xFB1D => "יִ", 0xFB1F => "ײַ", 0xFB20 => "ע", 0xFB21 => "א", 0xFB22 => "ד", 0xFB23 => "ה", 0xFB24 => "כ", 0xFB25 => "ל", 0xFB26 => "ם", 0xFB27 => "ר", 0xFB28 => "ת", 0xFB2A => "שׁ", 0xFB2B => "שׂ", 0xFB2C => "שּׁ", 0xFB2D => "שּׂ", 0xFB2E => "אַ", 0xFB2F => "אָ", 0xFB30 => "אּ", 0xFB31 => "בּ", 0xFB32 => "גּ", 0xFB33 => "דּ", 0xFB34 => "הּ", 0xFB35 => "וּ", 0xFB36 => "זּ", 0xFB38 => "טּ", 0xFB39 => "יּ", 0xFB3A => "ךּ", 0xFB3B => "כּ", 0xFB3C => "לּ", 0xFB3E => "מּ", 0xFB40 => "נּ", 0xFB41 => "סּ", 0xFB43 => "ףּ", 0xFB44 => "פּ", 0xFB46 => "צּ", 0xFB47 => "קּ", 0xFB48 => "רּ", 0xFB49 => "שּ", 0xFB4A => "תּ", 0xFB4B => "וֹ", 0xFB4C => "בֿ", 0xFB4D => "כֿ", 0xFB4E => "פֿ", 0xFB4F => "אל", 0xFB50 => "ٱ", 0xFB51 => "ٱ", 0xFB52 => "ٻ", 0xFB53 => "ٻ", 0xFB54 => "ٻ", 0xFB55 => "ٻ", 0xFB56 => "پ", 0xFB57 => "پ", 0xFB58 => "پ", 0xFB59 => "پ", 0xFB5A => "ڀ", 0xFB5B => "ڀ", 0xFB5C => "ڀ", 0xFB5D => "ڀ", 0xFB5E => "ٺ", 0xFB5F => "ٺ", 0xFB60 => "ٺ", 0xFB61 => "ٺ", 0xFB62 => "ٿ", 0xFB63 => "ٿ", 0xFB64 => "ٿ", 0xFB65 => "ٿ", 0xFB66 => "ٹ", 0xFB67 => "ٹ", 0xFB68 => "ٹ", 0xFB69 => "ٹ", 0xFB6A => "ڤ", 0xFB6B => "ڤ", 0xFB6C => "ڤ", 0xFB6D => "ڤ", 0xFB6E => "ڦ", 0xFB6F => "ڦ", 0xFB70 => "ڦ", 0xFB71 => "ڦ", 0xFB72 => "ڄ", 0xFB73 => "ڄ", 0xFB74 => "ڄ", 0xFB75 => "ڄ", 0xFB76 => "ڃ", 0xFB77 => "ڃ", 0xFB78 => "ڃ", 0xFB79 => "ڃ", 0xFB7A => "چ", 0xFB7B => "چ", 0xFB7C => "چ", 0xFB7D => "چ", 0xFB7E => "ڇ", 0xFB7F => "ڇ", 0xFB80 => "ڇ", 0xFB81 => "ڇ", 0xFB82 => "ڍ", 0xFB83 => "ڍ", 0xFB84 => "ڌ", 0xFB85 => "ڌ", 0xFB86 => "ڎ", 0xFB87 => "ڎ", 0xFB88 => "ڈ", 0xFB89 => "ڈ", 0xFB8A => "ژ", 0xFB8B => "ژ", 0xFB8C => "ڑ", 0xFB8D => "ڑ", 0xFB8E => "ک", 0xFB8F => "ک", 0xFB90 => "ک", 0xFB91 => "ک", 0xFB92 => "گ", 0xFB93 => "گ", 0xFB94 => "گ", 0xFB95 => "گ", 0xFB96 => "ڳ", 0xFB97 => "ڳ", 0xFB98 => "ڳ", 0xFB99 => "ڳ", 0xFB9A => "ڱ", 0xFB9B => "ڱ", 0xFB9C => "ڱ", 0xFB9D => "ڱ", 0xFB9E => "ں", 0xFB9F => "ں", 0xFBA0 => "ڻ", 0xFBA1 => "ڻ", 0xFBA2 => "ڻ", 0xFBA3 => "ڻ", 0xFBA4 => "ۀ", 0xFBA5 => "ۀ", 0xFBA6 => "ہ", 0xFBA7 => "ہ", 0xFBA8 => "ہ", 0xFBA9 => "ہ", 0xFBAA => "ھ", 0xFBAB => "ھ", 0xFBAC => "ھ", 0xFBAD => "ھ", 0xFBAE => "ے", 0xFBAF => "ے", 0xFBB0 => "ۓ", 0xFBB1 => "ۓ", 0xFBD3 => "ڭ", 0xFBD4 => "ڭ", 0xFBD5 => "ڭ", 0xFBD6 => "ڭ", 0xFBD7 => "ۇ", 0xFBD8 => "ۇ", 0xFBD9 => "ۆ", 0xFBDA => "ۆ", 0xFBDB => "ۈ", 0xFBDC => "ۈ", 0xFBDD => "ۇٴ", 0xFBDE => "ۋ", 0xFBDF => "ۋ", 0xFBE0 => "ۅ", 0xFBE1 => "ۅ", 0xFBE2 => "ۉ", 0xFBE3 => "ۉ", 0xFBE4 => "ې", 0xFBE5 => "ې", 0xFBE6 => "ې", 0xFBE7 => "ې", 0xFBE8 => "ى", 0xFBE9 => "ى", 0xFBEA => "ئا", 0xFBEB => "ئا", 0xFBEC => "ئە", 0xFBED => "ئە", 0xFBEE => "ئو", 0xFBEF => "ئو", 0xFBF0 => "ئۇ", 0xFBF1 => "ئۇ", 0xFBF2 => "ئۆ", 0xFBF3 => "ئۆ", 0xFBF4 => "ئۈ", 0xFBF5 => "ئۈ", 0xFBF6 => "ئې", 0xFBF7 => "ئې", 0xFBF8 => "ئې", 0xFBF9 => "ئى", 0xFBFA => "ئى", 0xFBFB => "ئى", 0xFBFC => "ی", 0xFBFD => "ی", 0xFBFE => "ی", 0xFBFF => "ی", 0xFC00 => "ئج", 0xFC01 => "ئح", 0xFC02 => "ئم", 0xFC03 => "ئى", 0xFC04 => "ئي", 0xFC05 => "بج", 0xFC06 => "بح", 0xFC07 => "بخ", 0xFC08 => "بم", 0xFC09 => "بى", 0xFC0A => "بي", 0xFC0B => "تج", 0xFC0C => "تح", 0xFC0D => "تخ", 0xFC0E => "تم", 0xFC0F => "تى", 0xFC10 => "تي", 0xFC11 => "ثج", 0xFC12 => "ثم", 0xFC13 => "ثى", 0xFC14 => "ثي", 0xFC15 => "جح", 0xFC16 => "جم", 0xFC17 => "حج", 0xFC18 => "حم", 0xFC19 => "خج", 0xFC1A => "خح", 0xFC1B => "خم", 0xFC1C => "سج", 0xFC1D => "سح", 0xFC1E => "سخ", 0xFC1F => "سم", 0xFC20 => "صح", 0xFC21 => "صم", 0xFC22 => "ضج", 0xFC23 => "ضح", 0xFC24 => "ضخ", 0xFC25 => "ضم", 0xFC26 => "طح", 0xFC27 => "طم", 0xFC28 => "ظم", 0xFC29 => "عج", 0xFC2A => "عم", 0xFC2B => "غج", 0xFC2C => "غم", 0xFC2D => "فج", 0xFC2E => "فح", 0xFC2F => "فخ", 0xFC30 => "فم", 0xFC31 => "فى", 0xFC32 => "في", 0xFC33 => "قح", 0xFC34 => "قم", 0xFC35 => "قى", 0xFC36 => "قي", 0xFC37 => "كا", 0xFC38 => "كج", 0xFC39 => "كح", 0xFC3A => "كخ", 0xFC3B => "كل", 0xFC3C => "كم", 0xFC3D => "كى", 0xFC3E => "كي", 0xFC3F => "لج", 0xFC40 => "لح", 0xFC41 => "لخ", 0xFC42 => "لم", 0xFC43 => "لى", 0xFC44 => "لي", 0xFC45 => "مج", 0xFC46 => "مح", 0xFC47 => "مخ", 0xFC48 => "مم", 0xFC49 => "مى", 0xFC4A => "مي", 0xFC4B => "نج", 0xFC4C => "نح", 0xFC4D => "نخ", 0xFC4E => "نم", 0xFC4F => "نى", 0xFC50 => "ني", 0xFC51 => "هج", 0xFC52 => "هم", 0xFC53 => "هى", 0xFC54 => "هي", 0xFC55 => "يج", 0xFC56 => "يح", 0xFC57 => "يخ", 0xFC58 => "يم", 0xFC59 => "يى", 0xFC5A => "يي", 0xFC5B => "ذٰ", 0xFC5C => "رٰ", 0xFC5D => "ىٰ", 0xFC64 => "ئر", 0xFC65 => "ئز", 0xFC66 => "ئم", 0xFC67 => "ئن", 0xFC68 => "ئى", 0xFC69 => "ئي", 0xFC6A => "بر", 0xFC6B => "بز", 0xFC6C => "بم", 0xFC6D => "بن", 0xFC6E => "بى", 0xFC6F => "بي", 0xFC70 => "تر", 0xFC71 => "تز", 0xFC72 => "تم", 0xFC73 => "تن", 0xFC74 => "تى", 0xFC75 => "تي", 0xFC76 => "ثر", 0xFC77 => "ثز", 0xFC78 => "ثم", 0xFC79 => "ثن", 0xFC7A => "ثى", 0xFC7B => "ثي", 0xFC7C => "فى", 0xFC7D => "في", 0xFC7E => "قى", 0xFC7F => "قي", 0xFC80 => "كا", 0xFC81 => "كل", 0xFC82 => "كم", 0xFC83 => "كى", 0xFC84 => "كي", 0xFC85 => "لم", 0xFC86 => "لى", 0xFC87 => "لي", 0xFC88 => "ما", 0xFC89 => "مم", 0xFC8A => "نر", 0xFC8B => "نز", 0xFC8C => "نم", 0xFC8D => "نن", 0xFC8E => "نى", 0xFC8F => "ني", 0xFC90 => "ىٰ", 0xFC91 => "ير", 0xFC92 => "يز", 0xFC93 => "يم", 0xFC94 => "ين", 0xFC95 => "يى", 0xFC96 => "يي", 0xFC97 => "ئج", 0xFC98 => "ئح", 0xFC99 => "ئخ", 0xFC9A => "ئم", 0xFC9B => "ئه", 0xFC9C => "بج", 0xFC9D => "بح", 0xFC9E => "بخ", 0xFC9F => "بم", 0xFCA0 => "به", 0xFCA1 => "تج", 0xFCA2 => "تح", 0xFCA3 => "تخ", 0xFCA4 => "تم", 0xFCA5 => "ته", 0xFCA6 => "ثم", 0xFCA7 => "جح", 0xFCA8 => "جم", 0xFCA9 => "حج", 0xFCAA => "حم", 0xFCAB => "خج", 0xFCAC => "خم", 0xFCAD => "سج", 0xFCAE => "سح", 0xFCAF => "سخ", 0xFCB0 => "سم", 0xFCB1 => "صح", 0xFCB2 => "صخ", 0xFCB3 => "صم", 0xFCB4 => "ضج", 0xFCB5 => "ضح", 0xFCB6 => "ضخ", 0xFCB7 => "ضم", 0xFCB8 => "طح", 0xFCB9 => "ظم", 0xFCBA => "عج", 0xFCBB => "عم", 0xFCBC => "غج", 0xFCBD => "غم", 0xFCBE => "فج", 0xFCBF => "فح", 0xFCC0 => "فخ", 0xFCC1 => "فم", 0xFCC2 => "قح", 0xFCC3 => "قم", 0xFCC4 => "كج", 0xFCC5 => "كح", 0xFCC6 => "كخ", 0xFCC7 => "كل", 0xFCC8 => "كم", 0xFCC9 => "لج", 0xFCCA => "لح", 0xFCCB => "لخ", 0xFCCC => "لم", 0xFCCD => "له", 0xFCCE => "مج", 0xFCCF => "مح", 0xFCD0 => "مخ", 0xFCD1 => "مم", 0xFCD2 => "نج", 0xFCD3 => "نح", 0xFCD4 => "نخ", 0xFCD5 => "نم", 0xFCD6 => "نه", 0xFCD7 => "هج", 0xFCD8 => "هم", 0xFCD9 => "هٰ", 0xFCDA => "يج", 0xFCDB => "يح", 0xFCDC => "يخ", 0xFCDD => "يم", 0xFCDE => "يه", 0xFCDF => "ئم", 0xFCE0 => "ئه", 0xFCE1 => "بم", 0xFCE2 => "به", 0xFCE3 => "تم", 0xFCE4 => "ته", 0xFCE5 => "ثم", 0xFCE6 => "ثه", 0xFCE7 => "سم", 0xFCE8 => "سه", 0xFCE9 => "شم", 0xFCEA => "شه", 0xFCEB => "كل", 0xFCEC => "كم", 0xFCED => "لم", 0xFCEE => "نم", 0xFCEF => "نه", 0xFCF0 => "يم", 0xFCF1 => "يه", 0xFCF2 => "ـَّ", 0xFCF3 => "ـُّ", 0xFCF4 => "ـِّ", 0xFCF5 => "طى", 0xFCF6 => "طي", 0xFCF7 => "عى", 0xFCF8 => "عي", 0xFCF9 => "غى", 0xFCFA => "غي", 0xFCFB => "سى", 0xFCFC => "سي", 0xFCFD => "شى", 0xFCFE => "شي", 0xFCFF => "حى", 0xFD00 => "حي", 0xFD01 => "جى", 0xFD02 => "جي", 0xFD03 => "خى", 0xFD04 => "خي", 0xFD05 => "صى", 0xFD06 => "صي", 0xFD07 => "ضى", 0xFD08 => "ضي", 0xFD09 => "شج", 0xFD0A => "شح", 0xFD0B => "شخ", 0xFD0C => "شم", 0xFD0D => "شر", 0xFD0E => "سر", 0xFD0F => "صر", 0xFD10 => "ضر", 0xFD11 => "طى", 0xFD12 => "طي", 0xFD13 => "عى", 0xFD14 => "عي", 0xFD15 => "غى", 0xFD16 => "غي", 0xFD17 => "سى", 0xFD18 => "سي", 0xFD19 => "شى", 0xFD1A => "شي", 0xFD1B => "حى", 0xFD1C => "حي", 0xFD1D => "جى", 0xFD1E => "جي", 0xFD1F => "خى", 0xFD20 => "خي", 0xFD21 => "صى", 0xFD22 => "صي", 0xFD23 => "ضى", 0xFD24 => "ضي", 0xFD25 => "شج", 0xFD26 => "شح", 0xFD27 => "شخ", 0xFD28 => "شم", 0xFD29 => "شر", 0xFD2A => "سر", 0xFD2B => "صر", 0xFD2C => "ضر", 0xFD2D => "شج", 0xFD2E => "شح", 0xFD2F => "شخ", 0xFD30 => "شم", 0xFD31 => "سه", 0xFD32 => "شه", 0xFD33 => "طم", 0xFD34 => "سج", 0xFD35 => "سح", 0xFD36 => "سخ", 0xFD37 => "شج", 0xFD38 => "شح", 0xFD39 => "شخ", 0xFD3A => "طم", 0xFD3B => "ظم", 0xFD3C => "اً", 0xFD3D => "اً", 0xFD50 => "تجم", 0xFD51 => "تحج", 0xFD52 => "تحج", 0xFD53 => "تحم", 0xFD54 => "تخم", 0xFD55 => "تمج", 0xFD56 => "تمح", 0xFD57 => "تمخ", 0xFD58 => "جمح", 0xFD59 => "جمح", 0xFD5A => "حمي", 0xFD5B => "حمى", 0xFD5C => "سحج", 0xFD5D => "سجح", 0xFD5E => "سجى", 0xFD5F => "سمح", 0xFD60 => "سمح", 0xFD61 => "سمج", 0xFD62 => "سمم", 0xFD63 => "سمم", 0xFD64 => "صحح", 0xFD65 => "صحح", 0xFD66 => "صمم", 0xFD67 => "شحم", 0xFD68 => "شحم", 0xFD69 => "شجي", 0xFD6A => "شمخ", 0xFD6B => "شمخ", 0xFD6C => "شمم", 0xFD6D => "شمم", 0xFD6E => "ضحى", 0xFD6F => "ضخم", 0xFD70 => "ضخم", 0xFD71 => "طمح", 0xFD72 => "طمح", 0xFD73 => "طمم", 0xFD74 => "طمي", 0xFD75 => "عجم", 0xFD76 => "عمم", 0xFD77 => "عمم", 0xFD78 => "عمى", 0xFD79 => "غمم", 0xFD7A => "غمي", 0xFD7B => "غمى", 0xFD7C => "فخم", 0xFD7D => "فخم", 0xFD7E => "قمح", 0xFD7F => "قمم", 0xFD80 => "لحم", 0xFD81 => "لحي", 0xFD82 => "لحى", 0xFD83 => "لجج", 0xFD84 => "لجج", 0xFD85 => "لخم", 0xFD86 => "لخم", 0xFD87 => "لمح", 0xFD88 => "لمح", 0xFD89 => "محج", 0xFD8A => "محم", 0xFD8B => "محي", 0xFD8C => "مجح", 0xFD8D => "مجم", 0xFD8E => "مخج", 0xFD8F => "مخم", 0xFD92 => "مجخ", 0xFD93 => "همج", 0xFD94 => "همم", 0xFD95 => "نحم", 0xFD96 => "نحى", 0xFD97 => "نجم", 0xFD98 => "نجم", 0xFD99 => "نجى", 0xFD9A => "نمي", 0xFD9B => "نمى", 0xFD9C => "يمم", 0xFD9D => "يمم", 0xFD9E => "بخي", 0xFD9F => "تجي", 0xFDA0 => "تجى", 0xFDA1 => "تخي", 0xFDA2 => "تخى", 0xFDA3 => "تمي", 0xFDA4 => "تمى", 0xFDA5 => "جمي", 0xFDA6 => "جحى", 0xFDA7 => "جمى", 0xFDA8 => "سخى", 0xFDA9 => "صحي", 0xFDAA => "شحي", 0xFDAB => "ضحي", 0xFDAC => "لجي", 0xFDAD => "لمي", 0xFDAE => "يحي", 0xFDAF => "يجي", 0xFDB0 => "يمي", 0xFDB1 => "ممي", 0xFDB2 => "قمي", 0xFDB3 => "نحي", 0xFDB4 => "قمح", 0xFDB5 => "لحم", 0xFDB6 => "عمي", 0xFDB7 => "كمي", 0xFDB8 => "نجح", 0xFDB9 => "مخي", 0xFDBA => "لجم", 0xFDBB => "كمم", 0xFDBC => "لجم", 0xFDBD => "نجح", 0xFDBE => "جحي", 0xFDBF => "حجي", 0xFDC0 => "مجي", 0xFDC1 => "فمي", 0xFDC2 => "بحي", 0xFDC3 => "كمم", 0xFDC4 => "عجم", 0xFDC5 => "صمم", 0xFDC6 => "سخي", 0xFDC7 => "نجي", 0xFDF0 => "صلے", 0xFDF1 => "قلے", 0xFDF2 => "الله", 0xFDF3 => "اكبر", 0xFDF4 => "محمد", 0xFDF5 => "صلعم", 0xFDF6 => "رسول", 0xFDF7 => "عليه", 0xFDF8 => "وسلم", 0xFDF9 => "صلى", 0xFDFC => "ریال", 0xFE11 => "\x{3001}", 0xFE17 => "\x{3016}", 0xFE18 => "\x{3017}", 0xFE31 => "\x{2014}", 0xFE32 => "\x{2013}", 0xFE39 => "\x{3014}", 0xFE3A => "\x{3015}", 0xFE3B => "\x{3010}", 0xFE3C => "\x{3011}", 0xFE3D => "\x{300A}", 0xFE3E => "\x{300B}", 0xFE3F => "\x{3008}", 0xFE40 => "\x{3009}", 0xFE41 => "\x{300C}", 0xFE42 => "\x{300D}", 0xFE43 => "\x{300E}", 0xFE44 => "\x{300F}", 0xFE51 => "\x{3001}", 0xFE58 => "\x{2014}", 0xFE5D => "\x{3014}", 0xFE5E => "\x{3015}", 0xFE63 => "\-", 0xFE71 => "ـً", 0xFE77 => "ـَ", 0xFE79 => "ـُ", 0xFE7B => "ـِ", 0xFE7D => "ـّ", 0xFE7F => "ـْ", 0xFE80 => "ء", 0xFE81 => "آ", 0xFE82 => "آ", 0xFE83 => "أ", 0xFE84 => "أ", 0xFE85 => "ؤ", 0xFE86 => "ؤ", 0xFE87 => "إ", 0xFE88 => "إ", 0xFE89 => "ئ", 0xFE8A => "ئ", 0xFE8B => "ئ", 0xFE8C => "ئ", 0xFE8D => "ا", 0xFE8E => "ا", 0xFE8F => "ب", 0xFE90 => "ب", 0xFE91 => "ب", 0xFE92 => "ب", 0xFE93 => "ة", 0xFE94 => "ة", 0xFE95 => "ت", 0xFE96 => "ت", 0xFE97 => "ت", 0xFE98 => "ت", 0xFE99 => "ث", 0xFE9A => "ث", 0xFE9B => "ث", 0xFE9C => "ث", 0xFE9D => "ج", 0xFE9E => "ج", 0xFE9F => "ج", 0xFEA0 => "ج", 0xFEA1 => "ح", 0xFEA2 => "ح", 0xFEA3 => "ح", 0xFEA4 => "ح", 0xFEA5 => "خ", 0xFEA6 => "خ", 0xFEA7 => "خ", 0xFEA8 => "خ", 0xFEA9 => "د", 0xFEAA => "د", 0xFEAB => "ذ", 0xFEAC => "ذ", 0xFEAD => "ر", 0xFEAE => "ر", 0xFEAF => "ز", 0xFEB0 => "ز", 0xFEB1 => "س", 0xFEB2 => "س", 0xFEB3 => "س", 0xFEB4 => "س", 0xFEB5 => "ش", 0xFEB6 => "ش", 0xFEB7 => "ش", 0xFEB8 => "ش", 0xFEB9 => "ص", 0xFEBA => "ص", 0xFEBB => "ص", 0xFEBC => "ص", 0xFEBD => "ض", 0xFEBE => "ض", 0xFEBF => "ض", 0xFEC0 => "ض", 0xFEC1 => "ط", 0xFEC2 => "ط", 0xFEC3 => "ط", 0xFEC4 => "ط", 0xFEC5 => "ظ", 0xFEC6 => "ظ", 0xFEC7 => "ظ", 0xFEC8 => "ظ", 0xFEC9 => "ع", 0xFECA => "ع", 0xFECB => "ع", 0xFECC => "ع", 0xFECD => "غ", 0xFECE => "غ", 0xFECF => "غ", 0xFED0 => "غ", 0xFED1 => "ف", 0xFED2 => "ف", 0xFED3 => "ف", 0xFED4 => "ف", 0xFED5 => "ق", 0xFED6 => "ق", 0xFED7 => "ق", 0xFED8 => "ق", 0xFED9 => "ك", 0xFEDA => "ك", 0xFEDB => "ك", 0xFEDC => "ك", 0xFEDD => "ل", 0xFEDE => "ل", 0xFEDF => "ل", 0xFEE0 => "ل", 0xFEE1 => "م", 0xFEE2 => "م", 0xFEE3 => "م", 0xFEE4 => "م", 0xFEE5 => "ن", 0xFEE6 => "ن", 0xFEE7 => "ن", 0xFEE8 => "ن", 0xFEE9 => "ه", 0xFEEA => "ه", 0xFEEB => "ه", 0xFEEC => "ه", 0xFEED => "و", 0xFEEE => "و", 0xFEEF => "ى", 0xFEF0 => "ى", 0xFEF1 => "ي", 0xFEF2 => "ي", 0xFEF3 => "ي", 0xFEF4 => "ي", 0xFEF5 => "لآ", 0xFEF6 => "لآ", 0xFEF7 => "لأ", 0xFEF8 => "لأ", 0xFEF9 => "لإ", 0xFEFA => "لإ", 0xFEFB => "لا", 0xFEFC => "لا", 0xFF0D => "\-", 0xFF0E => "\.", 0xFF10 => "0", 0xFF11 => "1", 0xFF12 => "2", 0xFF13 => "3", 0xFF14 => "4", 0xFF15 => "5", 0xFF16 => "6", 0xFF17 => "7", 0xFF18 => "8", 0xFF19 => "9", 0xFF21 => "a", 0xFF22 => "b", 0xFF23 => "c", 0xFF24 => "d", 0xFF25 => "e", 0xFF26 => "f", 0xFF27 => "g", 0xFF28 => "h", 0xFF29 => "i", 0xFF2A => "j", 0xFF2B => "k", 0xFF2C => "l", 0xFF2D => "m", 0xFF2E => "n", 0xFF2F => "o", 0xFF30 => "p", 0xFF31 => "q", 0xFF32 => "r", 0xFF33 => "s", 0xFF34 => "t", 0xFF35 => "u", 0xFF36 => "v", 0xFF37 => "w", 0xFF38 => "x", 0xFF39 => "y", 0xFF3A => "z", 0xFF41 => "a", 0xFF42 => "b", 0xFF43 => "c", 0xFF44 => "d", 0xFF45 => "e", 0xFF46 => "f", 0xFF47 => "g", 0xFF48 => "h", 0xFF49 => "i", 0xFF4A => "j", 0xFF4B => "k", 0xFF4C => "l", 0xFF4D => "m", 0xFF4E => "n", 0xFF4F => "o", 0xFF50 => "p", 0xFF51 => "q", 0xFF52 => "r", 0xFF53 => "s", 0xFF54 => "t", 0xFF55 => "u", 0xFF56 => "v", 0xFF57 => "w", 0xFF58 => "x", 0xFF59 => "y", 0xFF5A => "z", 0xFF5F => "\x{2985}", 0xFF60 => "\x{2986}", 0xFF61 => "\.", 0xFF62 => "\x{300C}", 0xFF63 => "\x{300D}", 0xFF64 => "\x{3001}", 0xFF65 => "\x{30FB}", 0xFF66 => "ヲ", 0xFF67 => "ァ", 0xFF68 => "ィ", 0xFF69 => "ゥ", 0xFF6A => "ェ", 0xFF6B => "ォ", 0xFF6C => "ャ", 0xFF6D => "ュ", 0xFF6E => "ョ", 0xFF6F => "ッ", 0xFF70 => "ー", 0xFF71 => "ア", 0xFF72 => "イ", 0xFF73 => "ウ", 0xFF74 => "エ", 0xFF75 => "オ", 0xFF76 => "カ", 0xFF77 => "キ", 0xFF78 => "ク", 0xFF79 => "ケ", 0xFF7A => "コ", 0xFF7B => "サ", 0xFF7C => "シ", 0xFF7D => "ス", 0xFF7E => "セ", 0xFF7F => "ソ", 0xFF80 => "タ", 0xFF81 => "チ", 0xFF82 => "ツ", 0xFF83 => "テ", 0xFF84 => "ト", 0xFF85 => "ナ", 0xFF86 => "ニ", 0xFF87 => "ヌ", 0xFF88 => "ネ", 0xFF89 => "ノ", 0xFF8A => "ハ", 0xFF8B => "ヒ", 0xFF8C => "フ", 0xFF8D => "ヘ", 0xFF8E => "ホ", 0xFF8F => "マ", 0xFF90 => "ミ", 0xFF91 => "ム", 0xFF92 => "メ", 0xFF93 => "モ", 0xFF94 => "ヤ", 0xFF95 => "ユ", 0xFF96 => "ヨ", 0xFF97 => "ラ", 0xFF98 => "リ", 0xFF99 => "ル", 0xFF9A => "レ", 0xFF9B => "ロ", 0xFF9C => "ワ", 0xFF9D => "ン", 0xFF9E => "\x{3099}", 0xFF9F => "\x{309A}", 0xFFA1 => "ᄀ", 0xFFA2 => "ᄁ", 0xFFA3 => "ᆪ", 0xFFA4 => "ᄂ", 0xFFA5 => "ᆬ", 0xFFA6 => "ᆭ", 0xFFA7 => "ᄃ", 0xFFA8 => "ᄄ", 0xFFA9 => "ᄅ", 0xFFAA => "ᆰ", 0xFFAB => "ᆱ", 0xFFAC => "ᆲ", 0xFFAD => "ᆳ", 0xFFAE => "ᆴ", 0xFFAF => "ᆵ", 0xFFB0 => "ᄚ", 0xFFB1 => "ᄆ", 0xFFB2 => "ᄇ", 0xFFB3 => "ᄈ", 0xFFB4 => "ᄡ", 0xFFB5 => "ᄉ", 0xFFB6 => "ᄊ", 0xFFB7 => "ᄋ", 0xFFB8 => "ᄌ", 0xFFB9 => "ᄍ", 0xFFBA => "ᄎ", 0xFFBB => "ᄏ", 0xFFBC => "ᄐ", 0xFFBD => "ᄑ", 0xFFBE => "ᄒ", 0xFFC2 => "ᅡ", 0xFFC3 => "ᅢ", 0xFFC4 => "ᅣ", 0xFFC5 => "ᅤ", 0xFFC6 => "ᅥ", 0xFFC7 => "ᅦ", 0xFFCA => "ᅧ", 0xFFCB => "ᅨ", 0xFFCC => "ᅩ", 0xFFCD => "ᅪ", 0xFFCE => "ᅫ", 0xFFCF => "ᅬ", 0xFFD2 => "ᅭ", 0xFFD3 => "ᅮ", 0xFFD4 => "ᅯ", 0xFFD5 => "ᅰ", 0xFFD6 => "ᅱ", 0xFFD7 => "ᅲ", 0xFFDA => "ᅳ", 0xFFDB => "ᅴ", 0xFFDC => "ᅵ", 0xFFE0 => "\x{00A2}", 0xFFE1 => "\x{00A3}", 0xFFE2 => "\x{00AC}", 0xFFE4 => "\x{00A6}", 0xFFE5 => "\x{00A5}", 0xFFE6 => "\x{20A9}", 0xFFE8 => "\x{2502}", 0xFFE9 => "\x{2190}", 0xFFEA => "\x{2191}", 0xFFEB => "\x{2192}", 0xFFEC => "\x{2193}", 0xFFED => "\x{25A0}", 0xFFEE => "\x{25CB}", 0x10400 => "𐐨", 0x10401 => "𐐩", 0x10402 => "𐐪", 0x10403 => "𐐫", 0x10404 => "𐐬", 0x10405 => "𐐭", 0x10406 => "𐐮", 0x10407 => "𐐯", 0x10408 => "𐐰", 0x10409 => "𐐱", 0x1040A => "𐐲", 0x1040B => "𐐳", 0x1040C => "𐐴", 0x1040D => "𐐵", 0x1040E => "𐐶", 0x1040F => "𐐷", 0x10410 => "𐐸", 0x10411 => "𐐹", 0x10412 => "𐐺", 0x10413 => "𐐻", 0x10414 => "𐐼", 0x10415 => "𐐽", 0x10416 => "𐐾", 0x10417 => "𐐿", 0x10418 => "𐑀", 0x10419 => "𐑁", 0x1041A => "𐑂", 0x1041B => "𐑃", 0x1041C => "𐑄", 0x1041D => "𐑅", 0x1041E => "𐑆", 0x1041F => "𐑇", 0x10420 => "𐑈", 0x10421 => "𐑉", 0x10422 => "𐑊", 0x10423 => "𐑋", 0x10424 => "𐑌", 0x10425 => "𐑍", 0x10426 => "𐑎", 0x10427 => "𐑏", 0x10C80 => "\x{10CC0}", 0x10C81 => "\x{10CC1}", 0x10C82 => "\x{10CC2}", 0x10C83 => "\x{10CC3}", 0x10C84 => "\x{10CC4}", 0x10C85 => "\x{10CC5}", 0x10C86 => "\x{10CC6}", 0x10C87 => "\x{10CC7}", 0x10C88 => "\x{10CC8}", 0x10C89 => "\x{10CC9}", 0x10C8A => "\x{10CCA}", 0x10C8B => "\x{10CCB}", 0x10C8C => "\x{10CCC}", 0x10C8D => "\x{10CCD}", 0x10C8E => "\x{10CCE}", 0x10C8F => "\x{10CCF}", 0x10C90 => "\x{10CD0}", 0x10C91 => "\x{10CD1}", 0x10C92 => "\x{10CD2}", 0x10C93 => "\x{10CD3}", 0x10C94 => "\x{10CD4}", 0x10C95 => "\x{10CD5}", 0x10C96 => "\x{10CD6}", 0x10C97 => "\x{10CD7}", 0x10C98 => "\x{10CD8}", 0x10C99 => "\x{10CD9}", 0x10C9A => "\x{10CDA}", 0x10C9B => "\x{10CDB}", 0x10C9C => "\x{10CDC}", 0x10C9D => "\x{10CDD}", 0x10C9E => "\x{10CDE}", 0x10C9F => "\x{10CDF}", 0x10CA0 => "\x{10CE0}", 0x10CA1 => "\x{10CE1}", 0x10CA2 => "\x{10CE2}", 0x10CA3 => "\x{10CE3}", 0x10CA4 => "\x{10CE4}", 0x10CA5 => "\x{10CE5}", 0x10CA6 => "\x{10CE6}", 0x10CA7 => "\x{10CE7}", 0x10CA8 => "\x{10CE8}", 0x10CA9 => "\x{10CE9}", 0x10CAA => "\x{10CEA}", 0x10CAB => "\x{10CEB}", 0x10CAC => "\x{10CEC}", 0x10CAD => "\x{10CED}", 0x10CAE => "\x{10CEE}", 0x10CAF => "\x{10CEF}", 0x10CB0 => "\x{10CF0}", 0x10CB1 => "\x{10CF1}", 0x10CB2 => "\x{10CF2}", 0x118A0 => "𑣀", 0x118A1 => "𑣁", 0x118A2 => "𑣂", 0x118A3 => "𑣃", 0x118A4 => "𑣄", 0x118A5 => "𑣅", 0x118A6 => "𑣆", 0x118A7 => "𑣇", 0x118A8 => "𑣈", 0x118A9 => "𑣉", 0x118AA => "𑣊", 0x118AB => "𑣋", 0x118AC => "𑣌", 0x118AD => "𑣍", 0x118AE => "𑣎", 0x118AF => "𑣏", 0x118B0 => "𑣐", 0x118B1 => "𑣑", 0x118B2 => "𑣒", 0x118B3 => "𑣓", 0x118B4 => "𑣔", 0x118B5 => "𑣕", 0x118B6 => "𑣖", 0x118B7 => "𑣗", 0x118B8 => "𑣘", 0x118B9 => "𑣙", 0x118BA => "𑣚", 0x118BB => "𑣛", 0x118BC => "𑣜", 0x118BD => "𑣝", 0x118BE => "𑣞", 0x118BF => "𑣟", 0x1D15E => "\x{1D157}\x{1D165}", 0x1D15F => "\x{1D158}\x{1D165}", 0x1D160 => "\x{1D158}\x{1D165}\x{1D16E}", 0x1D161 => "\x{1D158}\x{1D165}\x{1D16F}", 0x1D162 => "\x{1D158}\x{1D165}\x{1D170}", 0x1D163 => "\x{1D158}\x{1D165}\x{1D171}", 0x1D164 => "\x{1D158}\x{1D165}\x{1D172}", 0x1D1BB => "\x{1D1B9}\x{1D165}", 0x1D1BC => "\x{1D1BA}\x{1D165}", 0x1D1BD => "\x{1D1B9}\x{1D165}\x{1D16E}", 0x1D1BE => "\x{1D1BA}\x{1D165}\x{1D16E}", 0x1D1BF => "\x{1D1B9}\x{1D165}\x{1D16F}", 0x1D1C0 => "\x{1D1BA}\x{1D165}\x{1D16F}", 0x1D400 => "a", 0x1D401 => "b", 0x1D402 => "c", 0x1D403 => "d", 0x1D404 => "e", 0x1D405 => "f", 0x1D406 => "g", 0x1D407 => "h", 0x1D408 => "i", 0x1D409 => "j", 0x1D40A => "k", 0x1D40B => "l", 0x1D40C => "m", 0x1D40D => "n", 0x1D40E => "o", 0x1D40F => "p", 0x1D410 => "q", 0x1D411 => "r", 0x1D412 => "s", 0x1D413 => "t", 0x1D414 => "u", 0x1D415 => "v", 0x1D416 => "w", 0x1D417 => "x", 0x1D418 => "y", 0x1D419 => "z", 0x1D41A => "a", 0x1D41B => "b", 0x1D41C => "c", 0x1D41D => "d", 0x1D41E => "e", 0x1D41F => "f", 0x1D420 => "g", 0x1D421 => "h", 0x1D422 => "i", 0x1D423 => "j", 0x1D424 => "k", 0x1D425 => "l", 0x1D426 => "m", 0x1D427 => "n", 0x1D428 => "o", 0x1D429 => "p", 0x1D42A => "q", 0x1D42B => "r", 0x1D42C => "s", 0x1D42D => "t", 0x1D42E => "u", 0x1D42F => "v", 0x1D430 => "w", 0x1D431 => "x", 0x1D432 => "y", 0x1D433 => "z", 0x1D434 => "a", 0x1D435 => "b", 0x1D436 => "c", 0x1D437 => "d", 0x1D438 => "e", 0x1D439 => "f", 0x1D43A => "g", 0x1D43B => "h", 0x1D43C => "i", 0x1D43D => "j", 0x1D43E => "k", 0x1D43F => "l", 0x1D440 => "m", 0x1D441 => "n", 0x1D442 => "o", 0x1D443 => "p", 0x1D444 => "q", 0x1D445 => "r", 0x1D446 => "s", 0x1D447 => "t", 0x1D448 => "u", 0x1D449 => "v", 0x1D44A => "w", 0x1D44B => "x", 0x1D44C => "y", 0x1D44D => "z", 0x1D44E => "a", 0x1D44F => "b", 0x1D450 => "c", 0x1D451 => "d", 0x1D452 => "e", 0x1D453 => "f", 0x1D454 => "g", 0x1D456 => "i", 0x1D457 => "j", 0x1D458 => "k", 0x1D459 => "l", 0x1D45A => "m", 0x1D45B => "n", 0x1D45C => "o", 0x1D45D => "p", 0x1D45E => "q", 0x1D45F => "r", 0x1D460 => "s", 0x1D461 => "t", 0x1D462 => "u", 0x1D463 => "v", 0x1D464 => "w", 0x1D465 => "x", 0x1D466 => "y", 0x1D467 => "z", 0x1D468 => "a", 0x1D469 => "b", 0x1D46A => "c", 0x1D46B => "d", 0x1D46C => "e", 0x1D46D => "f", 0x1D46E => "g", 0x1D46F => "h", 0x1D470 => "i", 0x1D471 => "j", 0x1D472 => "k", 0x1D473 => "l", 0x1D474 => "m", 0x1D475 => "n", 0x1D476 => "o", 0x1D477 => "p", 0x1D478 => "q", 0x1D479 => "r", 0x1D47A => "s", 0x1D47B => "t", 0x1D47C => "u", 0x1D47D => "v", 0x1D47E => "w", 0x1D47F => "x", 0x1D480 => "y", 0x1D481 => "z", 0x1D482 => "a", 0x1D483 => "b", 0x1D484 => "c", 0x1D485 => "d", 0x1D486 => "e", 0x1D487 => "f", 0x1D488 => "g", 0x1D489 => "h", 0x1D48A => "i", 0x1D48B => "j", 0x1D48C => "k", 0x1D48D => "l", 0x1D48E => "m", 0x1D48F => "n", 0x1D490 => "o", 0x1D491 => "p", 0x1D492 => "q", 0x1D493 => "r", 0x1D494 => "s", 0x1D495 => "t", 0x1D496 => "u", 0x1D497 => "v", 0x1D498 => "w", 0x1D499 => "x", 0x1D49A => "y", 0x1D49B => "z", 0x1D49C => "a", 0x1D49E => "c", 0x1D49F => "d", 0x1D4A2 => "g", 0x1D4A5 => "j", 0x1D4A6 => "k", 0x1D4A9 => "n", 0x1D4AA => "o", 0x1D4AB => "p", 0x1D4AC => "q", 0x1D4AE => "s", 0x1D4AF => "t", 0x1D4B0 => "u", 0x1D4B1 => "v", 0x1D4B2 => "w", 0x1D4B3 => "x", 0x1D4B4 => "y", 0x1D4B5 => "z", 0x1D4B6 => "a", 0x1D4B7 => "b", 0x1D4B8 => "c", 0x1D4B9 => "d", 0x1D4BB => "f", 0x1D4BD => "h", 0x1D4BE => "i", 0x1D4BF => "j", 0x1D4C0 => "k", 0x1D4C1 => "l", 0x1D4C2 => "m", 0x1D4C3 => "n", 0x1D4C5 => "p", 0x1D4C6 => "q", 0x1D4C7 => "r", 0x1D4C8 => "s", 0x1D4C9 => "t", 0x1D4CA => "u", 0x1D4CB => "v", 0x1D4CC => "w", 0x1D4CD => "x", 0x1D4CE => "y", 0x1D4CF => "z", 0x1D4D0 => "a", 0x1D4D1 => "b", 0x1D4D2 => "c", 0x1D4D3 => "d", 0x1D4D4 => "e", 0x1D4D5 => "f", 0x1D4D6 => "g", 0x1D4D7 => "h", 0x1D4D8 => "i", 0x1D4D9 => "j", 0x1D4DA => "k", 0x1D4DB => "l", 0x1D4DC => "m", 0x1D4DD => "n", 0x1D4DE => "o", 0x1D4DF => "p", 0x1D4E0 => "q", 0x1D4E1 => "r", 0x1D4E2 => "s", 0x1D4E3 => "t", 0x1D4E4 => "u", 0x1D4E5 => "v", 0x1D4E6 => "w", 0x1D4E7 => "x", 0x1D4E8 => "y", 0x1D4E9 => "z", 0x1D4EA => "a", 0x1D4EB => "b", 0x1D4EC => "c", 0x1D4ED => "d", 0x1D4EE => "e", 0x1D4EF => "f", 0x1D4F0 => "g", 0x1D4F1 => "h", 0x1D4F2 => "i", 0x1D4F3 => "j", 0x1D4F4 => "k", 0x1D4F5 => "l", 0x1D4F6 => "m", 0x1D4F7 => "n", 0x1D4F8 => "o", 0x1D4F9 => "p", 0x1D4FA => "q", 0x1D4FB => "r", 0x1D4FC => "s", 0x1D4FD => "t", 0x1D4FE => "u", 0x1D4FF => "v", 0x1D500 => "w", 0x1D501 => "x", 0x1D502 => "y", 0x1D503 => "z", 0x1D504 => "a", 0x1D505 => "b", 0x1D507 => "d", 0x1D508 => "e", 0x1D509 => "f", 0x1D50A => "g", 0x1D50D => "j", 0x1D50E => "k", 0x1D50F => "l", 0x1D510 => "m", 0x1D511 => "n", 0x1D512 => "o", 0x1D513 => "p", 0x1D514 => "q", 0x1D516 => "s", 0x1D517 => "t", 0x1D518 => "u", 0x1D519 => "v", 0x1D51A => "w", 0x1D51B => "x", 0x1D51C => "y", 0x1D51E => "a", 0x1D51F => "b", 0x1D520 => "c", 0x1D521 => "d", 0x1D522 => "e", 0x1D523 => "f", 0x1D524 => "g", 0x1D525 => "h", 0x1D526 => "i", 0x1D527 => "j", 0x1D528 => "k", 0x1D529 => "l", 0x1D52A => "m", 0x1D52B => "n", 0x1D52C => "o", 0x1D52D => "p", 0x1D52E => "q", 0x1D52F => "r", 0x1D530 => "s", 0x1D531 => "t", 0x1D532 => "u", 0x1D533 => "v", 0x1D534 => "w", 0x1D535 => "x", 0x1D536 => "y", 0x1D537 => "z", 0x1D538 => "a", 0x1D539 => "b", 0x1D53B => "d", 0x1D53C => "e", 0x1D53D => "f", 0x1D53E => "g", 0x1D540 => "i", 0x1D541 => "j", 0x1D542 => "k", 0x1D543 => "l", 0x1D544 => "m", 0x1D546 => "o", 0x1D54A => "s", 0x1D54B => "t", 0x1D54C => "u", 0x1D54D => "v", 0x1D54E => "w", 0x1D54F => "x", 0x1D550 => "y", 0x1D552 => "a", 0x1D553 => "b", 0x1D554 => "c", 0x1D555 => "d", 0x1D556 => "e", 0x1D557 => "f", 0x1D558 => "g", 0x1D559 => "h", 0x1D55A => "i", 0x1D55B => "j", 0x1D55C => "k", 0x1D55D => "l", 0x1D55E => "m", 0x1D55F => "n", 0x1D560 => "o", 0x1D561 => "p", 0x1D562 => "q", 0x1D563 => "r", 0x1D564 => "s", 0x1D565 => "t", 0x1D566 => "u", 0x1D567 => "v", 0x1D568 => "w", 0x1D569 => "x", 0x1D56A => "y", 0x1D56B => "z", 0x1D56C => "a", 0x1D56D => "b", 0x1D56E => "c", 0x1D56F => "d", 0x1D570 => "e", 0x1D571 => "f", 0x1D572 => "g", 0x1D573 => "h", 0x1D574 => "i", 0x1D575 => "j", 0x1D576 => "k", 0x1D577 => "l", 0x1D578 => "m", 0x1D579 => "n", 0x1D57A => "o", 0x1D57B => "p", 0x1D57C => "q", 0x1D57D => "r", 0x1D57E => "s", 0x1D57F => "t", 0x1D580 => "u", 0x1D581 => "v", 0x1D582 => "w", 0x1D583 => "x", 0x1D584 => "y", 0x1D585 => "z", 0x1D586 => "a", 0x1D587 => "b", 0x1D588 => "c", 0x1D589 => "d", 0x1D58A => "e", 0x1D58B => "f", 0x1D58C => "g", 0x1D58D => "h", 0x1D58E => "i", 0x1D58F => "j", 0x1D590 => "k", 0x1D591 => "l", 0x1D592 => "m", 0x1D593 => "n", 0x1D594 => "o", 0x1D595 => "p", 0x1D596 => "q", 0x1D597 => "r", 0x1D598 => "s", 0x1D599 => "t", 0x1D59A => "u", 0x1D59B => "v", 0x1D59C => "w", 0x1D59D => "x", 0x1D59E => "y", 0x1D59F => "z", 0x1D5A0 => "a", 0x1D5A1 => "b", 0x1D5A2 => "c", 0x1D5A3 => "d", 0x1D5A4 => "e", 0x1D5A5 => "f", 0x1D5A6 => "g", 0x1D5A7 => "h", 0x1D5A8 => "i", 0x1D5A9 => "j", 0x1D5AA => "k", 0x1D5AB => "l", 0x1D5AC => "m", 0x1D5AD => "n", 0x1D5AE => "o", 0x1D5AF => "p", 0x1D5B0 => "q", 0x1D5B1 => "r", 0x1D5B2 => "s", 0x1D5B3 => "t", 0x1D5B4 => "u", 0x1D5B5 => "v", 0x1D5B6 => "w", 0x1D5B7 => "x", 0x1D5B8 => "y", 0x1D5B9 => "z", 0x1D5BA => "a", 0x1D5BB => "b", 0x1D5BC => "c", 0x1D5BD => "d", 0x1D5BE => "e", 0x1D5BF => "f", 0x1D5C0 => "g", 0x1D5C1 => "h", 0x1D5C2 => "i", 0x1D5C3 => "j", 0x1D5C4 => "k", 0x1D5C5 => "l", 0x1D5C6 => "m", 0x1D5C7 => "n", 0x1D5C8 => "o", 0x1D5C9 => "p", 0x1D5CA => "q", 0x1D5CB => "r", 0x1D5CC => "s", 0x1D5CD => "t", 0x1D5CE => "u", 0x1D5CF => "v", 0x1D5D0 => "w", 0x1D5D1 => "x", 0x1D5D2 => "y", 0x1D5D3 => "z", 0x1D5D4 => "a", 0x1D5D5 => "b", 0x1D5D6 => "c", 0x1D5D7 => "d", 0x1D5D8 => "e", 0x1D5D9 => "f", 0x1D5DA => "g", 0x1D5DB => "h", 0x1D5DC => "i", 0x1D5DD => "j", 0x1D5DE => "k", 0x1D5DF => "l", 0x1D5E0 => "m", 0x1D5E1 => "n", 0x1D5E2 => "o", 0x1D5E3 => "p", 0x1D5E4 => "q", 0x1D5E5 => "r", 0x1D5E6 => "s", 0x1D5E7 => "t", 0x1D5E8 => "u", 0x1D5E9 => "v", 0x1D5EA => "w", 0x1D5EB => "x", 0x1D5EC => "y", 0x1D5ED => "z", 0x1D5EE => "a", 0x1D5EF => "b", 0x1D5F0 => "c", 0x1D5F1 => "d", 0x1D5F2 => "e", 0x1D5F3 => "f", 0x1D5F4 => "g", 0x1D5F5 => "h", 0x1D5F6 => "i", 0x1D5F7 => "j", 0x1D5F8 => "k", 0x1D5F9 => "l", 0x1D5FA => "m", 0x1D5FB => "n", 0x1D5FC => "o", 0x1D5FD => "p", 0x1D5FE => "q", 0x1D5FF => "r", 0x1D600 => "s", 0x1D601 => "t", 0x1D602 => "u", 0x1D603 => "v", 0x1D604 => "w", 0x1D605 => "x", 0x1D606 => "y", 0x1D607 => "z", 0x1D608 => "a", 0x1D609 => "b", 0x1D60A => "c", 0x1D60B => "d", 0x1D60C => "e", 0x1D60D => "f", 0x1D60E => "g", 0x1D60F => "h", 0x1D610 => "i", 0x1D611 => "j", 0x1D612 => "k", 0x1D613 => "l", 0x1D614 => "m", 0x1D615 => "n", 0x1D616 => "o", 0x1D617 => "p", 0x1D618 => "q", 0x1D619 => "r", 0x1D61A => "s", 0x1D61B => "t", 0x1D61C => "u", 0x1D61D => "v", 0x1D61E => "w", 0x1D61F => "x", 0x1D620 => "y", 0x1D621 => "z", 0x1D622 => "a", 0x1D623 => "b", 0x1D624 => "c", 0x1D625 => "d", 0x1D626 => "e", 0x1D627 => "f", 0x1D628 => "g", 0x1D629 => "h", 0x1D62A => "i", 0x1D62B => "j", 0x1D62C => "k", 0x1D62D => "l", 0x1D62E => "m", 0x1D62F => "n", 0x1D630 => "o", 0x1D631 => "p", 0x1D632 => "q", 0x1D633 => "r", 0x1D634 => "s", 0x1D635 => "t", 0x1D636 => "u", 0x1D637 => "v", 0x1D638 => "w", 0x1D639 => "x", 0x1D63A => "y", 0x1D63B => "z", 0x1D63C => "a", 0x1D63D => "b", 0x1D63E => "c", 0x1D63F => "d", 0x1D640 => "e", 0x1D641 => "f", 0x1D642 => "g", 0x1D643 => "h", 0x1D644 => "i", 0x1D645 => "j", 0x1D646 => "k", 0x1D647 => "l", 0x1D648 => "m", 0x1D649 => "n", 0x1D64A => "o", 0x1D64B => "p", 0x1D64C => "q", 0x1D64D => "r", 0x1D64E => "s", 0x1D64F => "t", 0x1D650 => "u", 0x1D651 => "v", 0x1D652 => "w", 0x1D653 => "x", 0x1D654 => "y", 0x1D655 => "z", 0x1D656 => "a", 0x1D657 => "b", 0x1D658 => "c", 0x1D659 => "d", 0x1D65A => "e", 0x1D65B => "f", 0x1D65C => "g", 0x1D65D => "h", 0x1D65E => "i", 0x1D65F => "j", 0x1D660 => "k", 0x1D661 => "l", 0x1D662 => "m", 0x1D663 => "n", 0x1D664 => "o", 0x1D665 => "p", 0x1D666 => "q", 0x1D667 => "r", 0x1D668 => "s", 0x1D669 => "t", 0x1D66A => "u", 0x1D66B => "v", 0x1D66C => "w", 0x1D66D => "x", 0x1D66E => "y", 0x1D66F => "z", 0x1D670 => "a", 0x1D671 => "b", 0x1D672 => "c", 0x1D673 => "d", 0x1D674 => "e", 0x1D675 => "f", 0x1D676 => "g", 0x1D677 => "h", 0x1D678 => "i", 0x1D679 => "j", 0x1D67A => "k", 0x1D67B => "l", 0x1D67C => "m", 0x1D67D => "n", 0x1D67E => "o", 0x1D67F => "p", 0x1D680 => "q", 0x1D681 => "r", 0x1D682 => "s", 0x1D683 => "t", 0x1D684 => "u", 0x1D685 => "v", 0x1D686 => "w", 0x1D687 => "x", 0x1D688 => "y", 0x1D689 => "z", 0x1D68A => "a", 0x1D68B => "b", 0x1D68C => "c", 0x1D68D => "d", 0x1D68E => "e", 0x1D68F => "f", 0x1D690 => "g", 0x1D691 => "h", 0x1D692 => "i", 0x1D693 => "j", 0x1D694 => "k", 0x1D695 => "l", 0x1D696 => "m", 0x1D697 => "n", 0x1D698 => "o", 0x1D699 => "p", 0x1D69A => "q", 0x1D69B => "r", 0x1D69C => "s", 0x1D69D => "t", 0x1D69E => "u", 0x1D69F => "v", 0x1D6A0 => "w", 0x1D6A1 => "x", 0x1D6A2 => "y", 0x1D6A3 => "z", 0x1D6A4 => "ı", 0x1D6A5 => "ȷ", 0x1D6A8 => "α", 0x1D6A9 => "β", 0x1D6AA => "γ", 0x1D6AB => "δ", 0x1D6AC => "ε", 0x1D6AD => "ζ", 0x1D6AE => "η", 0x1D6AF => "θ", 0x1D6B0 => "ι", 0x1D6B1 => "κ", 0x1D6B2 => "λ", 0x1D6B3 => "μ", 0x1D6B4 => "ν", 0x1D6B5 => "ξ", 0x1D6B6 => "ο", 0x1D6B7 => "π", 0x1D6B8 => "ρ", 0x1D6B9 => "θ", 0x1D6BA => "σ", 0x1D6BB => "τ", 0x1D6BC => "υ", 0x1D6BD => "φ", 0x1D6BE => "χ", 0x1D6BF => "ψ", 0x1D6C0 => "ω", 0x1D6C1 => "\x{2207}", 0x1D6C2 => "α", 0x1D6C3 => "β", 0x1D6C4 => "γ", 0x1D6C5 => "δ", 0x1D6C6 => "ε", 0x1D6C7 => "ζ", 0x1D6C8 => "η", 0x1D6C9 => "θ", 0x1D6CA => "ι", 0x1D6CB => "κ", 0x1D6CC => "λ", 0x1D6CD => "μ", 0x1D6CE => "ν", 0x1D6CF => "ξ", 0x1D6D0 => "ο", 0x1D6D1 => "π", 0x1D6D2 => "ρ", 0x1D6D3 => "σ", 0x1D6D4 => "σ", 0x1D6D5 => "τ", 0x1D6D6 => "υ", 0x1D6D7 => "φ", 0x1D6D8 => "χ", 0x1D6D9 => "ψ", 0x1D6DA => "ω", 0x1D6DB => "\x{2202}", 0x1D6DC => "ε", 0x1D6DD => "θ", 0x1D6DE => "κ", 0x1D6DF => "φ", 0x1D6E0 => "ρ", 0x1D6E1 => "π", 0x1D6E2 => "α", 0x1D6E3 => "β", 0x1D6E4 => "γ", 0x1D6E5 => "δ", 0x1D6E6 => "ε", 0x1D6E7 => "ζ", 0x1D6E8 => "η", 0x1D6E9 => "θ", 0x1D6EA => "ι", 0x1D6EB => "κ", 0x1D6EC => "λ", 0x1D6ED => "μ", 0x1D6EE => "ν", 0x1D6EF => "ξ", 0x1D6F0 => "ο", 0x1D6F1 => "π", 0x1D6F2 => "ρ", 0x1D6F3 => "θ", 0x1D6F4 => "σ", 0x1D6F5 => "τ", 0x1D6F6 => "υ", 0x1D6F7 => "φ", 0x1D6F8 => "χ", 0x1D6F9 => "ψ", 0x1D6FA => "ω", 0x1D6FB => "\x{2207}", 0x1D6FC => "α", 0x1D6FD => "β", 0x1D6FE => "γ", 0x1D6FF => "δ", 0x1D700 => "ε", 0x1D701 => "ζ", 0x1D702 => "η", 0x1D703 => "θ", 0x1D704 => "ι", 0x1D705 => "κ", 0x1D706 => "λ", 0x1D707 => "μ", 0x1D708 => "ν", 0x1D709 => "ξ", 0x1D70A => "ο", 0x1D70B => "π", 0x1D70C => "ρ", 0x1D70D => "σ", 0x1D70E => "σ", 0x1D70F => "τ", 0x1D710 => "υ", 0x1D711 => "φ", 0x1D712 => "χ", 0x1D713 => "ψ", 0x1D714 => "ω", 0x1D715 => "\x{2202}", 0x1D716 => "ε", 0x1D717 => "θ", 0x1D718 => "κ", 0x1D719 => "φ", 0x1D71A => "ρ", 0x1D71B => "π", 0x1D71C => "α", 0x1D71D => "β", 0x1D71E => "γ", 0x1D71F => "δ", 0x1D720 => "ε", 0x1D721 => "ζ", 0x1D722 => "η", 0x1D723 => "θ", 0x1D724 => "ι", 0x1D725 => "κ", 0x1D726 => "λ", 0x1D727 => "μ", 0x1D728 => "ν", 0x1D729 => "ξ", 0x1D72A => "ο", 0x1D72B => "π", 0x1D72C => "ρ", 0x1D72D => "θ", 0x1D72E => "σ", 0x1D72F => "τ", 0x1D730 => "υ", 0x1D731 => "φ", 0x1D732 => "χ", 0x1D733 => "ψ", 0x1D734 => "ω", 0x1D735 => "\x{2207}", 0x1D736 => "α", 0x1D737 => "β", 0x1D738 => "γ", 0x1D739 => "δ", 0x1D73A => "ε", 0x1D73B => "ζ", 0x1D73C => "η", 0x1D73D => "θ", 0x1D73E => "ι", 0x1D73F => "κ", 0x1D740 => "λ", 0x1D741 => "μ", 0x1D742 => "ν", 0x1D743 => "ξ", 0x1D744 => "ο", 0x1D745 => "π", 0x1D746 => "ρ", 0x1D747 => "σ", 0x1D748 => "σ", 0x1D749 => "τ", 0x1D74A => "υ", 0x1D74B => "φ", 0x1D74C => "χ", 0x1D74D => "ψ", 0x1D74E => "ω", 0x1D74F => "\x{2202}", 0x1D750 => "ε", 0x1D751 => "θ", 0x1D752 => "κ", 0x1D753 => "φ", 0x1D754 => "ρ", 0x1D755 => "π", 0x1D756 => "α", 0x1D757 => "β", 0x1D758 => "γ", 0x1D759 => "δ", 0x1D75A => "ε", 0x1D75B => "ζ", 0x1D75C => "η", 0x1D75D => "θ", 0x1D75E => "ι", 0x1D75F => "κ", 0x1D760 => "λ", 0x1D761 => "μ", 0x1D762 => "ν", 0x1D763 => "ξ", 0x1D764 => "ο", 0x1D765 => "π", 0x1D766 => "ρ", 0x1D767 => "θ", 0x1D768 => "σ", 0x1D769 => "τ", 0x1D76A => "υ", 0x1D76B => "φ", 0x1D76C => "χ", 0x1D76D => "ψ", 0x1D76E => "ω", 0x1D76F => "\x{2207}", 0x1D770 => "α", 0x1D771 => "β", 0x1D772 => "γ", 0x1D773 => "δ", 0x1D774 => "ε", 0x1D775 => "ζ", 0x1D776 => "η", 0x1D777 => "θ", 0x1D778 => "ι", 0x1D779 => "κ", 0x1D77A => "λ", 0x1D77B => "μ", 0x1D77C => "ν", 0x1D77D => "ξ", 0x1D77E => "ο", 0x1D77F => "π", 0x1D780 => "ρ", 0x1D781 => "σ", 0x1D782 => "σ", 0x1D783 => "τ", 0x1D784 => "υ", 0x1D785 => "φ", 0x1D786 => "χ", 0x1D787 => "ψ", 0x1D788 => "ω", 0x1D789 => "\x{2202}", 0x1D78A => "ε", 0x1D78B => "θ", 0x1D78C => "κ", 0x1D78D => "φ", 0x1D78E => "ρ", 0x1D78F => "π", 0x1D790 => "α", 0x1D791 => "β", 0x1D792 => "γ", 0x1D793 => "δ", 0x1D794 => "ε", 0x1D795 => "ζ", 0x1D796 => "η", 0x1D797 => "θ", 0x1D798 => "ι", 0x1D799 => "κ", 0x1D79A => "λ", 0x1D79B => "μ", 0x1D79C => "ν", 0x1D79D => "ξ", 0x1D79E => "ο", 0x1D79F => "π", 0x1D7A0 => "ρ", 0x1D7A1 => "θ", 0x1D7A2 => "σ", 0x1D7A3 => "τ", 0x1D7A4 => "υ", 0x1D7A5 => "φ", 0x1D7A6 => "χ", 0x1D7A7 => "ψ", 0x1D7A8 => "ω", 0x1D7A9 => "\x{2207}", 0x1D7AA => "α", 0x1D7AB => "β", 0x1D7AC => "γ", 0x1D7AD => "δ", 0x1D7AE => "ε", 0x1D7AF => "ζ", 0x1D7B0 => "η", 0x1D7B1 => "θ", 0x1D7B2 => "ι", 0x1D7B3 => "κ", 0x1D7B4 => "λ", 0x1D7B5 => "μ", 0x1D7B6 => "ν", 0x1D7B7 => "ξ", 0x1D7B8 => "ο", 0x1D7B9 => "π", 0x1D7BA => "ρ", 0x1D7BB => "σ", 0x1D7BC => "σ", 0x1D7BD => "τ", 0x1D7BE => "υ", 0x1D7BF => "φ", 0x1D7C0 => "χ", 0x1D7C1 => "ψ", 0x1D7C2 => "ω", 0x1D7C3 => "\x{2202}", 0x1D7C4 => "ε", 0x1D7C5 => "θ", 0x1D7C6 => "κ", 0x1D7C7 => "φ", 0x1D7C8 => "ρ", 0x1D7C9 => "π", 0x1D7CA => "ϝ", 0x1D7CB => "ϝ", 0x1D7CE => "0", 0x1D7CF => "1", 0x1D7D0 => "2", 0x1D7D1 => "3", 0x1D7D2 => "4", 0x1D7D3 => "5", 0x1D7D4 => "6", 0x1D7D5 => "7", 0x1D7D6 => "8", 0x1D7D7 => "9", 0x1D7D8 => "0", 0x1D7D9 => "1", 0x1D7DA => "2", 0x1D7DB => "3", 0x1D7DC => "4", 0x1D7DD => "5", 0x1D7DE => "6", 0x1D7DF => "7", 0x1D7E0 => "8", 0x1D7E1 => "9", 0x1D7E2 => "0", 0x1D7E3 => "1", 0x1D7E4 => "2", 0x1D7E5 => "3", 0x1D7E6 => "4", 0x1D7E7 => "5", 0x1D7E8 => "6", 0x1D7E9 => "7", 0x1D7EA => "8", 0x1D7EB => "9", 0x1D7EC => "0", 0x1D7ED => "1", 0x1D7EE => "2", 0x1D7EF => "3", 0x1D7F0 => "4", 0x1D7F1 => "5", 0x1D7F2 => "6", 0x1D7F3 => "7", 0x1D7F4 => "8", 0x1D7F5 => "9", 0x1D7F6 => "0", 0x1D7F7 => "1", 0x1D7F8 => "2", 0x1D7F9 => "3", 0x1D7FA => "4", 0x1D7FB => "5", 0x1D7FC => "6", 0x1D7FD => "7", 0x1D7FE => "8", 0x1D7FF => "9", 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, 0x037F, undef, 0x0386, 0x038A, 0x038C, undef, 0x038E, 0x038F, 0x0391, 0x03A1, 0x03A3, 0x03AB, 0x03CF, 0x03D6, 0x03D8, undef, 0x03DA, undef, 0x03DC, undef, 0x03DE, undef, 0x03E0, undef, 0x03E2, undef, 0x03E4, undef, 0x03E6, undef, 0x03E8, undef, 0x03EA, undef, 0x03EC, undef, 0x03EE, undef, 0x03F0, 0x03F2, 0x03F4, 0x03F5, 0x03F7, undef, 0x03F9, 0x03FA, 0x03FD, 0x042F, 0x0460, undef, 0x0462, undef, 0x0464, undef, 0x0466, undef, 0x0468, undef, 0x046A, undef, 0x046C, undef, 0x046E, undef, 0x0470, undef, 0x0472, undef, 0x0474, undef, 0x0476, undef, 0x0478, undef, 0x047A, undef, 0x047C, undef, 0x047E, undef, 0x0480, undef, 0x048A, undef, 0x048C, undef, 0x048E, undef, 0x0490, undef, 0x0492, undef, 0x0494, undef, 0x0496, undef, 0x0498, undef, 0x049A, undef, 0x049C, undef, 0x049E, undef, 0x04A0, undef, 0x04A2, undef, 0x04A4, undef, 0x04A6, undef, 0x04A8, undef, 0x04AA, undef, 0x04AC, undef, 0x04AE, undef, 0x04B0, undef, 0x04B2, undef, 0x04B4, undef, 0x04B6, undef, 0x04B8, undef, 0x04BA, undef, 0x04BC, undef, 0x04BE, undef, 0x04C1, undef, 0x04C3, undef, 0x04C5, undef, 0x04C7, undef, 0x04C9, undef, 0x04CB, undef, 0x04CD, undef, 0x04D0, undef, 0x04D2, undef, 0x04D4, undef, 0x04D6, undef, 0x04D8, undef, 0x04DA, undef, 0x04DC, undef, 0x04DE, undef, 0x04E0, undef, 0x04E2, undef, 0x04E4, undef, 0x04E6, undef, 0x04E8, undef, 0x04EA, undef, 0x04EC, undef, 0x04EE, undef, 0x04F0, undef, 0x04F2, undef, 0x04F4, undef, 0x04F6, undef, 0x04F8, undef, 0x04FA, undef, 0x04FC, undef, 0x04FE, undef, 0x0500, undef, 0x0502, undef, 0x0504, undef, 0x0506, undef, 0x0508, undef, 0x050A, undef, 0x050C, undef, 0x050E, undef, 0x0510, undef, 0x0512, undef, 0x0514, undef, 0x0516, undef, 0x0518, undef, 0x051A, undef, 0x051C, undef, 0x051E, undef, 0x0520, undef, 0x0522, undef, 0x0524, undef, 0x0526, undef, 0x0528, undef, 0x052A, undef, 0x052C, undef, 0x052E, undef, 0x0531, 0x0556, 0x0587, undef, 0x0675, 0x0678, 0x0958, 0x095F, 0x09DC, 0x09DD, 0x09DF, undef, 0x0A33, undef, 0x0A36, undef, 0x0A59, 0x0A5B, 0x0A5E, undef, 0x0B5C, 0x0B5D, 0x0E33, undef, 0x0EB3, undef, 0x0EDC, 0x0EDD, 0x0F0C, undef, 0x0F43, undef, 0x0F4D, undef, 0x0F52, undef, 0x0F57, undef, 0x0F5C, undef, 0x0F69, undef, 0x0F73, undef, 0x0F75, 0x0F79, 0x0F81, undef, 0x0F93, undef, 0x0F9D, undef, 0x0FA2, undef, 0x0FA7, undef, 0x0FAC, undef, 0x0FB9, undef, 0x10C7, undef, 0x10CD, undef, 0x10FC, undef, 0x13F8, 0x13FD, 0x1D2C, 0x1D2E, 0x1D30, 0x1D3A, 0x1D3C, 0x1D4D, 0x1D4F, 0x1D6A, 0x1D78, undef, 0x1D9B, 0x1DBF, 0x1E00, undef, 0x1E02, undef, 0x1E04, undef, 0x1E06, undef, 0x1E08, undef, 0x1E0A, undef, 0x1E0C, undef, 0x1E0E, undef, 0x1E10, undef, 0x1E12, undef, 0x1E14, undef, 0x1E16, undef, 0x1E18, undef, 0x1E1A, undef, 0x1E1C, undef, 0x1E1E, undef, 0x1E20, undef, 0x1E22, undef, 0x1E24, undef, 0x1E26, undef, 0x1E28, undef, 0x1E2A, undef, 0x1E2C, undef, 0x1E2E, undef, 0x1E30, undef, 0x1E32, undef, 0x1E34, undef, 0x1E36, undef, 0x1E38, undef, 0x1E3A, undef, 0x1E3C, undef, 0x1E3E, undef, 0x1E40, undef, 0x1E42, undef, 0x1E44, undef, 0x1E46, undef, 0x1E48, undef, 0x1E4A, undef, 0x1E4C, undef, 0x1E4E, undef, 0x1E50, undef, 0x1E52, undef, 0x1E54, undef, 0x1E56, undef, 0x1E58, undef, 0x1E5A, undef, 0x1E5C, undef, 0x1E5E, undef, 0x1E60, undef, 0x1E62, undef, 0x1E64, undef, 0x1E66, undef, 0x1E68, undef, 0x1E6A, undef, 0x1E6C, undef, 0x1E6E, undef, 0x1E70, undef, 0x1E72, undef, 0x1E74, undef, 0x1E76, undef, 0x1E78, undef, 0x1E7A, undef, 0x1E7C, undef, 0x1E7E, undef, 0x1E80, undef, 0x1E82, undef, 0x1E84, undef, 0x1E86, undef, 0x1E88, undef, 0x1E8A, undef, 0x1E8C, undef, 0x1E8E, undef, 0x1E90, undef, 0x1E92, undef, 0x1E94, undef, 0x1E9A, 0x1E9B, 0x1E9E, undef, 0x1EA0, undef, 0x1EA2, undef, 0x1EA4, undef, 0x1EA6, undef, 0x1EA8, undef, 0x1EAA, undef, 0x1EAC, undef, 0x1EAE, undef, 0x1EB0, undef, 0x1EB2, undef, 0x1EB4, undef, 0x1EB6, undef, 0x1EB8, undef, 0x1EBA, undef, 0x1EBC, undef, 0x1EBE, undef, 0x1EC0, undef, 0x1EC2, undef, 0x1EC4, undef, 0x1EC6, undef, 0x1EC8, undef, 0x1ECA, undef, 0x1ECC, undef, 0x1ECE, undef, 0x1ED0, undef, 0x1ED2, undef, 0x1ED4, undef, 0x1ED6, undef, 0x1ED8, undef, 0x1EDA, undef, 0x1EDC, undef, 0x1EDE, undef, 0x1EE0, undef, 0x1EE2, undef, 0x1EE4, undef, 0x1EE6, undef, 0x1EE8, undef, 0x1EEA, undef, 0x1EEC, undef, 0x1EEE, undef, 0x1EF0, undef, 0x1EF2, undef, 0x1EF4, undef, 0x1EF6, undef, 0x1EF8, undef, 0x1EFA, undef, 0x1EFC, undef, 0x1EFE, undef, 0x1F08, 0x1F0F, 0x1F18, 0x1F1D, 0x1F28, 0x1F2F, 0x1F38, 0x1F3F, 0x1F48, 0x1F4D, 0x1F59, undef, 0x1F5B, undef, 0x1F5D, undef, 0x1F5F, undef, 0x1F68, 0x1F6F, 0x1F71, undef, 0x1F73, undef, 0x1F75, undef, 0x1F77, undef, 0x1F79, undef, 0x1F7B, undef, 0x1F7D, undef, 0x1F80, 0x1FAF, 0x1FB2, 0x1FB4, 0x1FB7, 0x1FBC, 0x1FBE, undef, 0x1FC2, 0x1FC4, 0x1FC7, 0x1FCC, 0x1FD3, undef, 0x1FD8, 0x1FDB, 0x1FE3, undef, 0x1FE8, 0x1FEC, 0x1FF2, 0x1FF4, 0x1FF7, 0x1FFC, 0x2011, undef, 0x2033, 0x2034, 0x2036, 0x2037, 0x2057, undef, 0x2070, 0x2071, 0x2074, 0x2079, 0x207B, undef, 0x207F, 0x2089, 0x208B, undef, 0x2090, 0x209C, 0x20A8, undef, 0x2102, 0x2103, 0x2107, undef, 0x2109, 0x2113, 0x2115, 0x2116, 0x2119, 0x211D, 0x2120, 0x2122, 0x2124, undef, 0x2126, undef, 0x2128, undef, 0x212A, 0x212D, 0x212F, 0x2131, 0x2133, 0x2139, 0x213B, 0x2140, 0x2145, 0x2149, 0x2150, 0x217F, 0x2189, undef, 0x222C, 0x222D, 0x222F, 0x2230, 0x2329, 0x232A, 0x2460, 0x2473, 0x24B6, 0x24EA, 0x2A0C, undef, 0x2ADC, undef, 0x2C00, 0x2C2E, 0x2C60, undef, 0x2C62, 0x2C64, 0x2C67, undef, 0x2C69, undef, 0x2C6B, undef, 0x2C6D, 0x2C70, 0x2C72, undef, 0x2C75, undef, 0x2C7C, 0x2C80, 0x2C82, undef, 0x2C84, undef, 0x2C86, undef, 0x2C88, undef, 0x2C8A, undef, 0x2C8C, undef, 0x2C8E, undef, 0x2C90, undef, 0x2C92, undef, 0x2C94, undef, 0x2C96, undef, 0x2C98, undef, 0x2C9A, undef, 0x2C9C, undef, 0x2C9E, undef, 0x2CA0, undef, 0x2CA2, undef, 0x2CA4, undef, 0x2CA6, undef, 0x2CA8, undef, 0x2CAA, undef, 0x2CAC, undef, 0x2CAE, undef, 0x2CB0, undef, 0x2CB2, undef, 0x2CB4, undef, 0x2CB6, undef, 0x2CB8, undef, 0x2CBA, undef, 0x2CBC, undef, 0x2CBE, undef, 0x2CC0, undef, 0x2CC2, undef, 0x2CC4, undef, 0x2CC6, undef, 0x2CC8, undef, 0x2CCA, undef, 0x2CCC, undef, 0x2CCE, undef, 0x2CD0, undef, 0x2CD2, undef, 0x2CD4, undef, 0x2CD6, undef, 0x2CD8, undef, 0x2CDA, undef, 0x2CDC, undef, 0x2CDE, undef, 0x2CE0, undef, 0x2CE2, undef, 0x2CEB, undef, 0x2CED, undef, 0x2CF2, undef, 0x2D6F, undef, 0x2E9F, undef, 0x2EF3, undef, 0x2F00, 0x2FD5, 0x3002, undef, 0x3036, undef, 0x3038, 0x303A, 0x309F, undef, 0x30FF, undef, 0x3131, 0x3163, 0x3165, 0x318E, 0x3192, 0x319F, 0x3244, 0x3247, 0x3250, 0x327E, 0x3280, 0x32FE, 0x3300, 0x33C1, 0x33C3, 0x33C6, 0x33C8, 0x33D7, 0x33D9, 0x33FF, 0xA640, undef, 0xA642, undef, 0xA644, undef, 0xA646, undef, 0xA648, undef, 0xA64A, undef, 0xA64C, undef, 0xA64E, undef, 0xA650, undef, 0xA652, undef, 0xA654, undef, 0xA656, undef, 0xA658, undef, 0xA65A, undef, 0xA65C, undef, 0xA65E, undef, 0xA660, undef, 0xA662, undef, 0xA664, undef, 0xA666, undef, 0xA668, undef, 0xA66A, undef, 0xA66C, undef, 0xA680, undef, 0xA682, undef, 0xA684, undef, 0xA686, undef, 0xA688, undef, 0xA68A, undef, 0xA68C, undef, 0xA68E, undef, 0xA690, undef, 0xA692, undef, 0xA694, undef, 0xA696, undef, 0xA698, undef, 0xA69A, undef, 0xA69C, 0xA69D, 0xA722, undef, 0xA724, undef, 0xA726, undef, 0xA728, undef, 0xA72A, undef, 0xA72C, undef, 0xA72E, undef, 0xA732, undef, 0xA734, undef, 0xA736, undef, 0xA738, undef, 0xA73A, undef, 0xA73C, undef, 0xA73E, undef, 0xA740, undef, 0xA742, undef, 0xA744, undef, 0xA746, undef, 0xA748, undef, 0xA74A, undef, 0xA74C, undef, 0xA74E, undef, 0xA750, undef, 0xA752, undef, 0xA754, undef, 0xA756, undef, 0xA758, undef, 0xA75A, undef, 0xA75C, undef, 0xA75E, undef, 0xA760, undef, 0xA762, undef, 0xA764, undef, 0xA766, undef, 0xA768, undef, 0xA76A, undef, 0xA76C, undef, 0xA76E, undef, 0xA770, undef, 0xA779, undef, 0xA77B, undef, 0xA77D, 0xA77E, 0xA780, undef, 0xA782, undef, 0xA784, undef, 0xA786, undef, 0xA78B, undef, 0xA78D, undef, 0xA790, undef, 0xA792, undef, 0xA796, undef, 0xA798, undef, 0xA79A, undef, 0xA79C, undef, 0xA79E, undef, 0xA7A0, undef, 0xA7A2, undef, 0xA7A4, undef, 0xA7A6, undef, 0xA7A8, undef, 0xA7AA, 0xA7AD, 0xA7B0, 0xA7B4, 0xA7B6, undef, 0xA7F8, 0xA7F9, 0xAB5C, 0xAB5F, 0xAB70, 0xABBF, 0xF900, 0xFA0D, 0xFA10, undef, 0xFA12, undef, 0xFA15, 0xFA1E, 0xFA20, undef, 0xFA22, undef, 0xFA25, 0xFA26, 0xFA2A, 0xFA6D, 0xFA70, 0xFAD9, 0xFB00, 0xFB06, 0xFB13, 0xFB17, 0xFB1D, undef, 0xFB1F, 0xFB28, 0xFB2A, 0xFB36, 0xFB38, 0xFB3C, 0xFB3E, undef, 0xFB40, 0xFB41, 0xFB43, 0xFB44, 0xFB46, 0xFBB1, 0xFBD3, 0xFC5D, 0xFC64, 0xFD3D, 0xFD50, 0xFD8F, 0xFD92, 0xFDC7, 0xFDF0, 0xFDF9, 0xFDFC, undef, 0xFE11, undef, 0xFE17, 0xFE18, 0xFE31, 0xFE32, 0xFE39, 0xFE44, 0xFE51, undef, 0xFE58, undef, 0xFE5D, 0xFE5E, 0xFE63, undef, 0xFE71, undef, 0xFE77, undef, 0xFE79, undef, 0xFE7B, undef, 0xFE7D, undef, 0xFE7F, 0xFEFC, 0xFF0D, 0xFF0E, 0xFF10, 0xFF19, 0xFF21, 0xFF3A, 0xFF41, 0xFF5A, 0xFF5F, 0xFF9F, 0xFFA1, 0xFFBE, 0xFFC2, 0xFFC7, 0xFFCA, 0xFFCF, 0xFFD2, 0xFFD7, 0xFFDA, 0xFFDC, 0xFFE0, 0xFFE2, 0xFFE4, 0xFFE6, 0xFFE8, 0xFFEE, 0x10400, 0x10427, 0x10C80, 0x10CB2, 0x118A0, 0x118BF, 0x1D15E, 0x1D164, 0x1D1BB, 0x1D1C0, 0x1D400, 0x1D454, 0x1D456, 0x1D49C, 0x1D49E, 0x1D49F, 0x1D4A2, undef, 0x1D4A5, 0x1D4A6, 0x1D4A9, 0x1D4AC, 0x1D4AE, 0x1D4B9, 0x1D4BB, undef, 0x1D4BD, 0x1D4C3, 0x1D4C5, 0x1D505, 0x1D507, 0x1D50A, 0x1D50D, 0x1D514, 0x1D516, 0x1D51C, 0x1D51E, 0x1D539, 0x1D53B, 0x1D53E, 0x1D540, 0x1D544, 0x1D546, undef, 0x1D54A, 0x1D550, 0x1D552, 0x1D6A5, 0x1D6A8, 0x1D7CB, 0x1D7CE, 0x1D7FF, 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{13F8}\x{13F9}\x{13FA}\x{13FB}\x{13FC}\x{13FD}ᴬᴭᴮᴰᴱᴲᴳᴴᴵᴶᴷᴸᴹᴺᴼᴽᴾᴿᵀᵁᵂᵃᵄᵅᵆᵇᵈᵉᵊᵋᵌᵍᵏᵐᵑᵒᵓᵔᵕᵖᵗᵘᵙᵚᵛᵜᵝᵞᵟᵠᵡᵢᵣᵤᵥᵦᵧᵨᵩᵪᵸᶛᶜᶝᶞᶟᶠᶡᶢᶣᶤᶥᶦᶧᶨᶩᶪᶫᶬᶭᶮᶯᶰᶱᶲᶳᶴᶵᶶᶷᶸᶹᶺᶻᶼᶽᶾᶿḀḂḄḆḈḊḌḎḐḒḔḖḘḚḜḞḠḢḤḦḨḪḬḮḰḲḴḶḸḺḼḾṀṂṄṆṈṊṌṎṐṒṔṖṘṚṜṞṠṢṤṦṨṪṬṮṰṲṴṶṸṺṼṾẀẂẄẆẈẊẌẎẐẒẔẛẠẢẤẦẨẪẬẮẰẲẴẶẸẺẼẾỀỂỄỆỈỊỌỎỐỒỔỖỘỚỜỞỠỢỤỦỨỪỬỮỰỲỴỶỸỺỼỾἈἉἊἋἌἍἎἏἘἙἚἛἜἝἨἩἪἫἬἭἮἯἸἹἺἻἼἽἾἿὈὉὊὋὌὍὙὛὝὟὨὩὪὫὬὭὮὯάέήίόύώᾸᾹᾺΆιῈΈῊΉΐῘῙῚΊΰῨῩῪΎῬῸΌῺΏ\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{A7B2}\x{A7B3}\x{A7B4}\x{A7B6}ꟸꟹꭜꭝꭞꭟ\x{AB70}\x{AB71}\x{AB72}\x{AB73}\x{AB74}\x{AB75}\x{AB76}\x{AB77}\x{AB78}\x{AB79}\x{AB7A}\x{AB7B}\x{AB7C}\x{AB7D}\x{AB7E}\x{AB7F}\x{AB80}\x{AB81}\x{AB82}\x{AB83}\x{AB84}\x{AB85}\x{AB86}\x{AB87}\x{AB88}\x{AB89}\x{AB8A}\x{AB8B}\x{AB8C}\x{AB8D}\x{AB8E}\x{AB8F}\x{AB90}\x{AB91}\x{AB92}\x{AB93}\x{AB94}\x{AB95}\x{AB96}\x{AB97}\x{AB98}\x{AB99}\x{AB9A}\x{AB9B}\x{AB9C}\x{AB9D}\x{AB9E}\x{AB9F}\x{ABA0}\x{ABA1}\x{ABA2}\x{ABA3}\x{ABA4}\x{ABA5}\x{ABA6}\x{ABA7}\x{ABA8}\x{ABA9}\x{ABAA}\x{ABAB}\x{ABAC}\x{ABAD}\x{ABAE}\x{ABAF}\x{ABB0}\x{ABB1}\x{ABB2}\x{ABB3}\x{ABB4}\x{ABB5}\x{ABB6}\x{ABB7}\x{ABB8}\x{ABB9}\x{ABBA}\x{ABBB}\x{ABBC}\x{ABBD}\x{ABBE}\x{ABBF}豈更車賈滑串句龜龜契金喇奈懶癩羅蘿螺裸邏樂洛烙珞落酪駱亂卵欄爛蘭鸞嵐濫藍襤拉臘蠟廊朗浪狼郎來冷勞擄櫓爐盧老蘆虜路露魯鷺碌祿綠菉錄鹿論壟弄籠聾牢磊賂雷壘屢樓淚漏累縷陋勒肋凜凌稜綾菱陵讀拏樂諾丹寧怒率異北磻便復不泌數索參塞省葉說殺辰沈拾若掠略亮兩凉梁糧良諒量勵呂女廬旅濾礪閭驪麗黎力曆歷轢年憐戀撚漣煉璉秊練聯輦蓮連鍊列劣咽烈裂說廉念捻殮簾獵令囹寧嶺怜玲瑩羚聆鈴零靈領例禮醴隸惡了僚寮尿料樂燎療蓼遼龍暈阮劉杻柳流溜琉留硫紐類六戮陸倫崙淪輪律慄栗率隆利吏履易李梨泥理痢罹裏裡里離匿溺吝燐璘藺隣鱗麟林淋臨立笠粒狀炙識什茶刺切度拓糖宅洞暴輻行降見廓兀嗀塚晴凞猪益礼神祥福靖精羽蘒諸逸都飯飼館鶴郞隷侮僧免勉勤卑喝嘆器塀墨層屮悔慨憎懲敏既暑梅海渚漢煮爫琢碑社祉祈祐祖祝禍禎穀突節練縉繁署者臭艹艹著褐視謁謹賓贈辶逸難響頻恵𤋮舘並况全侀充冀勇勺喝啕喙嗢塚墳奄奔婢嬨廒廙彩徭惘慎愈憎慠懲戴揄搜摒敖晴朗望杖歹殺流滛滋漢瀞煮瞧爵犯猪瑱甆画瘝瘟益盛直睊着磌窱節类絛練缾者荒華蝹襁覆視調諸請謁諾諭謹變贈輸遲醙鉶陼難靖韛響頋頻鬒龜𢡊𢡄𣏕㮝䀘䀹𥉉𥳐𧻓齃龎ﬠﬡﬢﬣﬤﬥﬦﬧﬨﭐﭑﭒﭓﭔﭕﭖﭗﭘﭙﭚﭛﭜﭝﭞﭟﭠﭡﭢﭣﭤﭥﭦﭧﭨﭩﭪﭫﭬﭭﭮﭯﭰﭱﭲﭳﭴﭵﭶﭷﭸﭹﭺﭻﭼﭽﭾﭿﮀﮁﮂﮃﮄﮅﮆﮇﮈﮉﮊﮋﮌﮍﮎﮏﮐﮑﮒﮓﮔﮕﮖﮗﮘﮙﮚﮛﮜﮝﮞﮟﮠﮡﮢﮣﮤﮥﮦﮧﮨﮩﮪﮫﮬﮭﮮﮯﮰﮱﯓﯔﯕﯖﯗﯘﯙﯚﯛﯜﯞﯟﯠﯡﯢﯣﯤﯥﯦﯧﯨﯩﯼﯽﯾﯿ\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{10C80}\x{10C81}\x{10C82}\x{10C83}\x{10C84}\x{10C85}\x{10C86}\x{10C87}\x{10C88}\x{10C89}\x{10C8A}\x{10C8B}\x{10C8C}\x{10C8D}\x{10C8E}\x{10C8F}\x{10C90}\x{10C91}\x{10C92}\x{10C93}\x{10C94}\x{10C95}\x{10C96}\x{10C97}\x{10C98}\x{10C99}\x{10C9A}\x{10C9B}\x{10C9C}\x{10C9D}\x{10C9E}\x{10C9F}\x{10CA0}\x{10CA1}\x{10CA2}\x{10CA3}\x{10CA4}\x{10CA5}\x{10CA6}\x{10CA7}\x{10CA8}\x{10CA9}\x{10CAA}\x{10CAB}\x{10CAC}\x{10CAD}\x{10CAE}\x{10CAF}\x{10CB0}\x{10CB1}\x{10CB2}𑢠𑢡𑢢𑢣𑢤𑢥𑢦𑢧𑢨𑢩𑢪𑢫𑢬𑢭𑢮𑢯𑢰𑢱𑢲𑢳𑢴𑢵𑢶𑢷𑢸𑢹𑢺𑢻𑢼𑢽𑢾𑢿𝐀𝐁𝐂𝐃𝐄𝐅𝐆𝐇𝐈𝐉𝐊𝐋𝐌𝐍𝐎𝐏𝐐𝐑𝐒𝐓𝐔𝐕𝐖𝐗𝐘𝐙𝐚𝐛𝐜𝐝𝐞𝐟𝐠𝐡𝐢𝐣𝐤𝐥𝐦𝐧𝐨𝐩𝐪𝐫𝐬𝐭𝐮𝐯𝐰𝐱𝐲𝐳𝐴𝐵𝐶𝐷𝐸𝐹𝐺𝐻𝐼𝐽𝐾𝐿𝑀𝑁𝑂𝑃𝑄𝑅𝑆𝑇𝑈𝑉𝑊𝑋𝑌𝑍𝑎𝑏𝑐𝑑𝑒𝑓𝑔𝑖𝑗𝑘𝑙𝑚𝑛𝑜𝑝𝑞𝑟𝑠𝑡𝑢𝑣𝑤𝑥𝑦𝑧𝑨𝑩𝑪𝑫𝑬𝑭𝑮𝑯𝑰𝑱𝑲𝑳𝑴𝑵𝑶𝑷𝑸𝑹𝑺𝑻𝑼𝑽𝑾𝑿𝒀𝒁𝒂𝒃𝒄𝒅𝒆𝒇𝒈𝒉𝒊𝒋𝒌𝒍𝒎𝒏𝒐𝒑𝒒𝒓𝒔𝒕𝒖𝒗𝒘𝒙𝒚𝒛𝒜𝒞𝒟𝒢𝒥𝒦𝒩𝒪𝒫𝒬𝒮𝒯𝒰𝒱𝒲𝒳𝒴𝒵𝒶𝒷𝒸𝒹𝒻𝒽𝒾𝒿𝓀𝓁𝓂𝓃𝓅𝓆𝓇𝓈𝓉𝓊𝓋𝓌𝓍𝓎𝓏𝓐𝓑𝓒𝓓𝓔𝓕𝓖𝓗𝓘𝓙𝓚𝓛𝓜𝓝𝓞𝓟𝓠𝓡𝓢𝓣𝓤𝓥𝓦𝓧𝓨𝓩𝓪𝓫𝓬𝓭𝓮𝓯𝓰𝓱𝓲𝓳𝓴𝓵𝓶𝓷𝓸𝓹𝓺𝓻𝓼𝓽𝓾𝓿𝔀𝔁𝔂𝔃𝔄𝔅𝔇𝔈𝔉𝔊𝔍𝔎𝔏𝔐𝔑𝔒𝔓𝔔𝔖𝔗𝔘𝔙𝔚𝔛𝔜𝔞𝔟𝔠𝔡𝔢𝔣𝔤𝔥𝔦𝔧𝔨𝔩𝔪𝔫𝔬𝔭𝔮𝔯𝔰𝔱𝔲𝔳𝔴𝔵𝔶𝔷𝔸𝔹𝔻𝔼𝔽𝔾𝕀𝕁𝕂𝕃𝕄𝕆𝕊𝕋𝕌𝕍𝕎𝕏𝕐𝕒𝕓𝕔𝕕𝕖𝕗𝕘𝕙𝕚𝕛𝕜𝕝𝕞𝕟𝕠𝕡𝕢𝕣𝕤𝕥𝕦𝕧𝕨𝕩𝕪𝕫𝕬𝕭𝕮𝕯𝕰𝕱𝕲𝕳𝕴𝕵𝕶𝕷𝕸𝕹𝕺𝕻𝕼𝕽𝕾𝕿𝖀𝖁𝖂𝖃𝖄𝖅𝖆𝖇𝖈𝖉𝖊𝖋𝖌𝖍𝖎𝖏𝖐𝖑𝖒𝖓𝖔𝖕𝖖𝖗𝖘𝖙𝖚𝖛𝖜𝖝𝖞𝖟𝖠𝖡𝖢𝖣𝖤𝖥𝖦𝖧𝖨𝖩𝖪𝖫𝖬𝖭𝖮𝖯𝖰𝖱𝖲𝖳𝖴𝖵𝖶𝖷𝖸𝖹𝖺𝖻𝖼𝖽𝖾𝖿𝗀𝗁𝗂𝗃𝗄𝗅𝗆𝗇𝗈𝗉𝗊𝗋𝗌𝗍𝗎𝗏𝗐𝗑𝗒𝗓𝗔𝗕𝗖𝗗𝗘𝗙𝗚𝗛𝗜𝗝𝗞𝗟𝗠𝗡𝗢𝗣𝗤𝗥𝗦𝗧𝗨𝗩𝗪𝗫𝗬𝗭𝗮𝗯𝗰𝗱𝗲𝗳𝗴𝗵𝗶𝗷𝗸𝗹𝗺𝗻𝗼𝗽𝗾𝗿𝘀𝘁𝘂𝘃𝘄𝘅𝘆𝘇𝘈𝘉𝘊𝘋𝘌𝘍𝘎𝘏𝘐𝘑𝘒𝘓𝘔𝘕𝘖𝘗𝘘𝘙𝘚𝘛𝘜𝘝𝘞𝘟𝘠𝘡𝘢𝘣𝘤𝘥𝘦𝘧𝘨𝘩𝘪𝘫𝘬𝘭𝘮𝘯𝘰𝘱𝘲𝘳𝘴𝘵𝘶𝘷𝘸𝘹𝘺𝘻𝘼𝘽𝘾𝘿𝙀𝙁𝙂𝙃𝙄𝙅𝙆𝙇𝙈𝙉𝙊𝙋𝙌𝙍𝙎𝙏𝙐𝙑𝙒𝙓𝙔𝙕𝙖𝙗𝙘𝙙𝙚𝙛𝙜𝙝𝙞𝙟𝙠𝙡𝙢𝙣𝙤𝙥𝙦𝙧𝙨𝙩𝙪𝙫𝙬𝙭𝙮𝙯𝙰𝙱𝙲𝙳𝙴𝙵𝙶𝙷𝙸𝙹𝙺𝙻𝙼𝙽𝙾𝙿𝚀𝚁𝚂𝚃𝚄𝚅𝚆𝚇𝚈𝚉𝚊𝚋𝚌𝚍𝚎𝚏𝚐𝚑𝚒𝚓𝚔𝚕𝚖𝚗𝚘𝚙𝚚𝚛𝚜𝚝𝚞𝚟𝚠𝚡𝚢𝚣𝚤𝚥𝚨𝚩𝚪𝚫𝚬𝚭𝚮𝚯𝚰𝚱𝚲𝚳𝚴𝚵𝚶𝚷𝚸𝚹𝚺𝚻𝚼𝚽𝚾𝚿𝛀\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{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}ⴧⴭნᏰᏱᏲᏳᏴ\x{13F5}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{A7B5}\x{A7B7}ħœꜧꬷɫꭒᎠᎡᎢᎣᎤᎥᎦᎧᎨᎩᎪᎫᎬᎭᎮᎯᎰᎱᎲᎳᎴᎵᎶᎷᎸᎹᎺᎻᎼᎽᎾᎿᏀᏁᏂᏃᏄᏅᏆᏇᏈᏉᏊᏋᏌᏍᏎᏏᏐᏑᏒᏓᏔᏕᏖᏗᏘᏙᏚᏛᏜᏝᏞᏟᏠᏡᏢᏣᏤᏥᏦᏧᏨᏩᏪᏫᏬᏭᏮᏯ豈更車賈滑串句龜龜契金喇奈懶癩羅蘿螺裸邏樂洛烙珞落酪駱亂卵欄爛蘭鸞嵐濫藍襤拉臘蠟廊朗浪狼郎來冷勞擄櫓爐盧老蘆虜路露魯鷺碌祿綠菉錄鹿論壟弄籠聾牢磊賂雷壘屢樓淚漏累縷陋勒肋凜凌稜綾菱陵讀拏樂諾丹寧怒率異北磻便復不泌數索參塞省葉說殺辰沈拾若掠略亮兩凉梁糧良諒量勵呂女廬旅濾礪閭驪麗黎力曆歷轢年憐戀撚漣煉璉秊練聯輦蓮連鍊列劣咽烈裂說廉念捻殮簾獵令囹寧嶺怜玲瑩羚聆鈴零靈領例禮醴隸惡了僚寮尿料樂燎療蓼遼龍暈阮劉杻柳流溜琉留硫紐類六戮陸倫崙淪輪律慄栗率隆利吏履易李梨泥理痢罹裏裡里離匿溺吝燐璘藺隣鱗麟林淋臨立笠粒狀炙識什茶刺切度拓糖宅洞暴輻行降見廓兀嗀塚晴凞猪益礼神祥福靖精羽蘒諸逸都飯飼館鶴郞隷侮僧免勉勤卑喝嘆器塀墨層屮悔慨憎懲敏既暑梅海渚漢煮爫琢碑社祉祈祐祖祝禍禎穀突節練縉繁署者臭艹艹著褐視謁謹賓贈辶逸難響頻恵𤋮舘並况全侀充冀勇勺喝啕喙嗢塚墳奄奔婢嬨廒廙彩徭惘慎愈憎慠懲戴揄搜摒敖晴朗望杖歹殺流滛滋漢瀞煮瞧爵犯猪瑱甆画瘝瘟益盛直睊着磌窱節类絛練缾者荒華蝹襁覆視調諸請謁諾諭謹變贈輸遲醙鉶陼難靖韛響頋頻鬒龜𢡊𢡄𣏕㮝䀘䀹𥉉𥳐𧻓齃龎עאדהכלםרתٱٱٻٻٻٻپپپپڀڀڀڀٺٺٺٺٿٿٿٿٹٹٹٹڤڤڤڤڦڦڦڦڄڄڄڄڃڃڃڃچچچچڇڇڇڇڍڍڌڌڎڎڈڈژژڑڑککککگگگگڳڳڳڳڱڱڱڱںںڻڻڻڻۀۀہہہہھھھھےےۓۓڭڭڭڭۇۇۆۆۈۈۋۋۅۅۉۉېېېېىىیییی\x{3001}\x{3016}\x{3017}\x{2014}\x{2013}\x{3014}\x{3015}\x{3010}\x{3011}\x{300A}\x{300B}\x{3008}\x{3009}\x{300C}\x{300D}\x{300E}\x{300F}\x{3001}\x{2014}\x{3014}\x{3015}\-ءآآأأؤؤإإئئئئااببببةةتتتتثثثثججججححححخخخخددذذررززسسسسششششصصصصضضضضططططظظظظععععغغغغففففققققككككللللممممننننههههووىىيييي\-\.0123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\x{2985}\x{2986}\.\x{300C}\x{300D}\x{3001}\x{30FB}ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン\x{3099}\x{309A}ᄀᄁᆪᄂᆬᆭᄃᄄᄅᆰᆱᆲᆳᆴᆵᄚᄆᄇᄈᄡᄉᄊᄋᄌᄍᄎᄏᄐᄑ하ᅢᅣᅤᅥᅦᅧᅨᅩᅪᅫᅬᅭᅮᅯᅰᅱᅲᅳᅴᅵ\x{00A2}\x{00A3}\x{00AC}\x{00A6}\x{00A5}\x{20A9}\x{2502}\x{2190}\x{2191}\x{2192}\x{2193}\x{25A0}\x{25CB}𐐨𐐩𐐪𐐫𐐬𐐭𐐮𐐯𐐰𐐱𐐲𐐳𐐴𐐵𐐶𐐷𐐸𐐹𐐺𐐻𐐼𐐽𐐾𐐿𐑀𐑁𐑂𐑃𐑄𐑅𐑆𐑇𐑈𐑉𐑊𐑋𐑌𐑍𐑎𐑏\x{10CC0}\x{10CC1}\x{10CC2}\x{10CC3}\x{10CC4}\x{10CC5}\x{10CC6}\x{10CC7}\x{10CC8}\x{10CC9}\x{10CCA}\x{10CCB}\x{10CCC}\x{10CCD}\x{10CCE}\x{10CCF}\x{10CD0}\x{10CD1}\x{10CD2}\x{10CD3}\x{10CD4}\x{10CD5}\x{10CD6}\x{10CD7}\x{10CD8}\x{10CD9}\x{10CDA}\x{10CDB}\x{10CDC}\x{10CDD}\x{10CDE}\x{10CDF}\x{10CE0}\x{10CE1}\x{10CE2}\x{10CE3}\x{10CE4}\x{10CE5}\x{10CE6}\x{10CE7}\x{10CE8}\x{10CE9}\x{10CEA}\x{10CEB}\x{10CEC}\x{10CED}\x{10CEE}\x{10CEF}\x{10CF0}\x{10CF1}\x{10CF2}𑣀𑣁𑣂𑣃𑣄𑣅𑣆𑣇𑣈𑣉𑣊𑣋𑣌𑣍𑣎𑣏𑣐𑣑𑣒𑣓𑣔𑣕𑣖𑣗𑣘𑣙𑣚𑣛𑣜𑣝𑣞𑣟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-2014 Claus FErber. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO Net-IDN-Encode-2.300/t000755000765000024 012552251473 14355 5ustar00cfaerberstaff000000000000Net-IDN-Encode-2.300/t/00use.t000444000765000024 34412552251473 15614 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.300/t/10pod.t000444000765000024 21612552251473 15601 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.300/t/11pod_cover.t000444000765000024 67512552251473 17011 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.300/t/domain_to_ascii.t000555000765000024 321112552251473 20020 0ustar00cfaerberstaff000000000000use utf8; use strict; BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } use Net::IDN::Encode qw(:all); use Test::More tests => 1 + 12; use Test::NoWarnings; use Net::IDN::Encode qw(:all); is(eval{domain_to_ascii('müller')} || $@, 'xn--mller-kva', 'single label (to_ascii)'); is(eval{domain_to_ascii('XN--MLLER-KVA')} || $@, 'XN--MLLER-KVA', 'single uppercase label (to_ascii)'); is(eval{domain_to_ascii('www.jürg.xn--mller-kva.com', )} || $@, 'www.xn--jrg-hoa.xn--mller-kva.com', 'mixed utf8/ace/ascii'); is(eval{domain_to_ascii('www.a.b。c.d。com', )} || $@, 'www.a.b.c.d.com', 'mixed dots'); is(eval{domain_to_ascii('www.ä ö ü ß.example', 'UseSTD3ASCIIRules' => 0)}, 'www.xn-- -7kav3ivb.example', 'blank (without STD3 rules) (to_unicode)') or diag $@; is(eval{domain_to_ascii('www.ä ö ü ß.example', 'UseSTD3ASCIIRules' => 1)}, undef, 'blank (with STD3 rules) (to_unicode)') or diag $@; is(eval{domain_to_ascii('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules' => 0)}, 'www.xn-- -7kav3ivb.example', 'blank (without STD3 rules) (to_unicode pass-through)') or diag $@; is(eval{domain_to_ascii('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules' => 1)}, 'www.xn-- -7kav3ivb.example', 'blank (with STD3 rules) (to_unicode pass-through)') or diag $@; is(eval{domain_to_ascii("I.\x{2665}.Perl.invalid")}, 'I.xn--g6h.Perl.invalid', 'mixed case'); is(eval{domain_to_ascii("I.xn--g6h.Perl.invalid")}, 'I.xn--g6h.Perl.invalid', 'mixed case'); is(eval{domain_to_ascii('www.xn--garbage')}, 'www.xn--garbage', 'Invalid A-label'); is(eval{domain_to_ascii('_test._srv.müller.example.com')}, '_test._srv.xn--mller-kva.example.com', 'SRV record'); Net-IDN-Encode-2.300/t/domain_to_unicode.t000555000765000024 354012552251473 20363 0ustar00cfaerberstaff000000000000use utf8; use strict; BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; } use Test::More tests => 1 + 14; use Test::NoWarnings; use Net::IDN::Encode qw(:all); is(eval{domain_to_unicode('xn--mller-kva')} || $@, 'müller', 'single label (to_unicode)'); is(eval{domain_to_unicode('XN--MLLER-KVA')} || $@, 'müller', 'single uppercase label (to_unicode)'); is(eval{domain_to_unicode('www.jürg.xn--mller-kva.com', )} || $@, 'www.jürg.müller.com', 'mixed utf8/ace/ascii (to_unicode)'); is(eval{domain_to_unicode('www.a.b。c.d。com', )} || $@, 'www.a.b。c.d。com', 'mixed dots (to_unicode)'); is(eval{domain_to_unicode('www.ä ö ü ß.example', 'UseSTD3ASCIIRules' => 0)}, 'www.ä ö ü ß.example', 'blank (without STD3 rules) (to_unicode)') or diag $@; is(eval{domain_to_unicode('www.ä ö ü ß.example', 'UseSTD3ASCIIRules' => 1)}, undef, 'blank (without STD3 rules) (to_unicode pass-through)') or diag $@; is(eval{domain_to_unicode('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules' => 0)}, 'www.ä ö ü ß.example', 'blank (with STD3 rules) (to_unicode)') or diag $@; is(eval{domain_to_unicode('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules' => 1)}, undef, 'blank (with STD3 rules) (to_unicode pass-through)') or diag $@; is(eval{domain_to_unicode("EXAMPLE.XN--11B5BS3A9AJ6G")}, 'EXAMPLE.परीक्षा', 'lowercase IDNA prefix') or diag $@; is(eval{domain_to_unicode("EXAMPLE.xn--11B5BS3A9AJ6G")}, 'EXAMPLE.परीक्षा', 'uppercase IDNA prefix') or diag $@; is(eval{domain_to_unicode("I.\x{2665}.Perl.invalid")}, "I.\x{2665}.Perl.invalid", 'mixed case'); is(eval{domain_to_unicode('I.xn--g6h.Perl.invalid')}, "I.\x{2665}.Perl.invalid", 'mixed case'); is(eval{domain_to_unicode('_test._srv.xn--mller-kva.example.com')}, '_test._srv.müller.example.com', 'SRV record'); is(eval{domain_to_unicode('xn--zcaa.de')}, 'ßß.de', 'bare ßß'); Net-IDN-Encode-2.300/t/encode_bytes.t000444000765000024 253312552251473 17345 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.300/t/encode_utf8.t000444000765000024 366712552251473 17116 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.300/t/punycode_vec-pp.t000444000765000024 1426712552251473 20031 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.300/t/punycode_vec-xs.t000444000765000024 1461612552251473 20042 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.300/t/uts46_api_call.t000444000765000024 67612552251473 17501 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.300/t/uts46_encode_bytes.t000444000765000024 57712552251473 20400 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.300/t/uts46_encode_utf8.t000444000765000024 105212552251473 20145 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.300/t/uts46_to_ascii-trans.t000444000765000024 320007412552251473 20751 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 => 3769 + 1; use Test::NoWarnings; use Unicode::UCD; use Net::IDN::UTS46 (':all'); no warnings 'utf8'; our $UCD_VERSION = eval('v'.(Unicode::UCD::UnicodeVersion())); my %p = ("TransitionalProcessing" => "1"); is(eval{uts46_to_ascii("fass.de", %p)}, "fass.de", "to_ascii\(\'fass\.de\'\)\ \[data\/IdnaTest\.txt\:61\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("faß.de", %p)}, "fass.de", "to_ascii\(\'faß\.de\'\)\ \[data\/IdnaTest\.txt\:62\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Faß.de", %p)}, "fass.de", "to_ascii\(\'Faß\.de\'\)\ \[data\/IdnaTest\.txt\:64\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--fa-hia.de", %p)}, "xn--fa-hia.de", "to_ascii\(\'xn\-\-fa\-hia\.de\'\)\ \[data\/IdnaTest\.txt\:66\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à\x{05D0}", %p)}, undef, "to_ascii\(\'à\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:70\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:71\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:72\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À\x{05D0}", %p)}, undef, "to_ascii\(\'À\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:73\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0à.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0à\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:74\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0a\x{0300}.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0a\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:75\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A\x{0300}.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0A\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:76\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0À.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0À\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:77\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0-sfa.xn--4db", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'xn\-\-0\-sfa\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:78\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'à\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:79\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'a\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:80\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'A\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:81\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'À\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:82\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0ca.xn--ssa73l", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'xn\-\-0ca\.xn\-\-ssa73l\'\)\ \[data\/IdnaTest\.txt\:83\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'à\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:84\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:85\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:86\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:87\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}.\x{05D0}", %p)}, undef, "to_ascii\(\'\\u0308\.\\u05D0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:88\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'à\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:89\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'a\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:90\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'A\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:91\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:92\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:93\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}ˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'a\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:94\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}ˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'A\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:95\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'Àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:96\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0ca88g.xn--4db", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'xn\-\-0ca88g\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:97\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'à\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:98\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'a\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:99\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'A\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'À\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0ca81i.xn--4db", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'xn\-\-0ca81i\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{200C}b", %p)}, "ab", "to_ascii\(\'a\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200C}B", %p)}, "ab", "to_ascii\(\'A\\u200CB\'\)\ \[data\/IdnaTest\.txt\:108\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200C}b", %p)}, "ab", "to_ascii\(\'A\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:110\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ab", %p)}, "ab", "to_ascii\(\'ab\'\)\ \[data\/IdnaTest\.txt\:112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{094D}\x{200C}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}\x{200C}B", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094D\\u200CB\'\)\ \[data\/IdnaTest\.txt\:115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}\x{200C}b", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf", %p)}, "xn--ab-fsf", "to_ascii\(\'xn\-\-ab\-fsf\'\)\ \[data\/IdnaTest\.txt\:119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094Db\'\)\ \[data\/IdnaTest\.txt\:120\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}B", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094DB\'\)\ \[data\/IdnaTest\.txt\:121\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094Db\'\)\ \[data\/IdnaTest\.txt\:122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf604u", %p)}, "xn--ab-fsf604u", "to_ascii\(\'xn\-\-ab\-fsf604u\'\)\ \[data\/IdnaTest\.txt\:123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:124\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:126\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{200D}b", %p)}, "ab", "to_ascii\(\'a\\u200Db\'\)\ \[data\/IdnaTest\.txt\:135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200D}B", %p)}, "ab", "to_ascii\(\'A\\u200DB\'\)\ \[data\/IdnaTest\.txt\:137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200D}b", %p)}, "ab", "to_ascii\(\'A\\u200Db\'\)\ \[data\/IdnaTest\.txt\:139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{094D}\x{200D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:141\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}\x{200D}B", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094D\\u200DB\'\)\ \[data\/IdnaTest\.txt\:143\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}\x{200D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:145\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf014u", %p)}, "xn--ab-fsf014u", "to_ascii\(\'xn\-\-ab\-fsf014u\'\)\ \[data\/IdnaTest\.txt\:147\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:148\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:152\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:158\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("¡", %p)}, "xn--7a", "to_ascii\(\'\¡\'\)\ \[data\/IdnaTest\.txt\:165\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7a", %p)}, "xn--7a", "to_ascii\(\'xn\-\-7a\'\)\ \[data\/IdnaTest\.txt\:166\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("᧚", %p)}, "xn--pkf", "to_ascii\(\'᧚\'\)\ \[data\/IdnaTest\.txt\:167\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("xn--pkf", %p)}, "xn--pkf", "to_ascii\(\'xn\-\-pkf\'\)\ \[data\/IdnaTest\.txt\:168\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("。", %p)}, undef, "to_ascii\(\'\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:169\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ꭠ", %p)}, "xn--3y9a", "to_ascii\(\'ꭠ\'\)\ \[data\/IdnaTest\.txt\:170\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--3y9a", %p)}, "xn--3y9a", "to_ascii\(\'xn\-\-3y9a\'\)\ \[data\/IdnaTest\.txt\:171\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("1234567890ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890a\x{0308}1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890a\\u03081234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:173\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890A\x{0308}1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890A\\u03081234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:174\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890Ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890Ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.eXample.cOm", %p)}, "www.example.com", "to_ascii\(\'www\.eXample\.cOm\'\)\ \[data\/IdnaTest\.txt\:176\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bücher\.de\'\)\ \[data\/IdnaTest\.txt\:177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Bu\x{0308}cher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("bu\x{0308}cher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bücher\.de\'\)\ \[data\/IdnaTest\.txt\:180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("BÜCHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BÜCHER\.DE\'\)\ \[data\/IdnaTest\.txt\:181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("BU\x{0308}CHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BU\\u0308CHER\.DE\'\)\ \[data\/IdnaTest\.txt\:182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bcher-kva.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'xn\-\-bcher\-kva\.de\'\)\ \[data\/IdnaTest\.txt\:183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ÖBB", %p)}, "xn--bb-eka", "to_ascii\(\'ÖBB\'\)\ \[data\/IdnaTest\.txt\:184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("O\x{0308}BB", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308BB\'\)\ \[data\/IdnaTest\.txt\:185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("o\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'o\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("öbb", %p)}, "xn--bb-eka", "to_ascii\(\'öbb\'\)\ \[data\/IdnaTest\.txt\:187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Öbb", %p)}, "xn--bb-eka", "to_ascii\(\'Öbb\'\)\ \[data\/IdnaTest\.txt\:188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("O\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bb-eka", %p)}, "xn--bb-eka", "to_ascii\(\'xn\-\-bb\-eka\'\)\ \[data\/IdnaTest\.txt\:190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:191\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΌΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΌΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmq6b.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'xn\-\-nxasmq6b\.com\'\)\ \[data\/IdnaTest\.txt\:201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλος.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmm1c.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'xn\-\-nxasmm1c\.com\'\)\ \[data\/IdnaTest\.txt\:206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmm1c", %p)}, "xn--nxasmm1c", "to_ascii\(\'xn\-\-nxasmm1c\'\)\ \[data\/IdnaTest\.txt\:207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλος", %p)}, "xn--nxasmq6b", "to_ascii\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:208\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λος", %p)}, "xn--nxasmq6b", "to_ascii\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΌΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΌΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βόλοσ\'\)\ \[data\/IdnaTest\.txt\:214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βόλοσ\'\)\ \[data\/IdnaTest\.txt\:217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmq6b", %p)}, "xn--nxasmq6b", "to_ascii\(\'xn\-\-nxasmq6b\'\)\ \[data\/IdnaTest\.txt\:218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλος", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βόλος\'\)\ \[data\/IdnaTest\.txt\:219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λος", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:221\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.ශ\\u0DCA\\u200Dර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.xn--10cl1a0b.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.xn\-\-10cl1a0b\.com\'\)\ \[data\/IdnaTest\.txt\:225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.ශ\x{0DCA}ර\x{0DD3}.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.ශ\\u0DCAර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.xn--10cl1a0b660p.com", %p)}, "www.xn--10cl1a0b660p.com", "to_ascii\(\'www\.xn\-\-10cl1a0b660p\.com\'\)\ \[data\/IdnaTest\.txt\:227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", %p)}, "xn--mgba3gch31f", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f", %p)}, "xn--mgba3gch31f", "to_ascii\(\'xn\-\-mgba3gch31f\'\)\ \[data\/IdnaTest\.txt\:230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", %p)}, "xn--mgba3gch31f", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f060k", %p)}, "xn--mgba3gch31f060k", "to_ascii\(\'xn\-\-mgba3gch31f060k\'\)\ \[data\/IdnaTest\.txt\:232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f060k.com", %p)}, "xn--mgba3gch31f060k.com", "to_ascii\(\'xn\-\-mgba3gch31f060k\.com\'\)\ \[data\/IdnaTest\.txt\:233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:234\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'xn\-\-mgba3gch31f\.com\'\)\ \[data\/IdnaTest\.txt\:236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.c。d。", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b.c\。d。\'\)\ \[data\/IdnaTest\.txt\:238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.c。d。", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b\.c\。d\。\'\)\ \[data\/IdnaTest\.txt\:239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.c.d.", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b\.c\.d\.\'\)\ \[data\/IdnaTest\.txt\:240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("U\x{0308}.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("u\x{0308}.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'u\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--tda.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'xn\-\-tda\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.ü\'\)\ \[data\/IdnaTest\.txt\:246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("u\x{0308}.u\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'u\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("U\x{0308}.U\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.U\\u0308\'\)\ \[data\/IdnaTest\.txt\:248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.Ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.Ü\'\)\ \[data\/IdnaTest\.txt\:249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.ü\'\)\ \[data\/IdnaTest\.txt\:250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("U\x{0308}.u\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--u-ccb", %p)}, undef, "to_ascii\(\'xn\-\-u\-ccb\'\)\ throws\ error\ V1\ \[data\/IdnaTest\.txt\:252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a⒈com", %p)}, undef, "to_ascii\(\'a⒈com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a1.com", %p)}, "a1.com", "to_ascii\(\'a1\.com\'\)\ \[data\/IdnaTest\.txt\:254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A⒈COM", %p)}, undef, "to_ascii\(\'A⒈COM\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A⒈Com", %p)}, undef, "to_ascii\(\'A⒈Com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-ecp.ru", %p)}, undef, "to_ascii\(\'xn\-\-a\-ecp\.ru\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0.pt", %p)}, undef, "to_ascii\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\.pt\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-Ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-A\x{0308}.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-a\x{0308}.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-a\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("XN--A-Ä.PT", %p)}, undef, "to_ascii\(\'XN\-\-A\-Ä\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("XN--A-A\x{0308}.PT", %p)}, undef, "to_ascii\(\'XN\-\-A\-A\\u0308\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Xn--A-A\x{0308}.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Xn--A-Ä.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--wgv71a119e.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'xn\-\-wgv71a119e\.jp\'\)\ \[data\/IdnaTest\.txt\:270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\.jp\'\)\ \[data\/IdnaTest\.txt\:271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。jp\'\)\ \[data\/IdnaTest\.txt\:272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。Jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。Jp\'\)\ \[data\/IdnaTest\.txt\:273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("☕", %p)}, "xn--53h", "to_ascii\(\'\☕\'\)\ \[data\/IdnaTest\.txt\:274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--53h", %p)}, "xn--53h", "to_ascii\(\'xn\-\-53h\'\)\ \[data\/IdnaTest\.txt\:275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_ascii\(\'1\.aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\x{0302}SSZ", %p)}, undef, "to_ascii\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\\u0302SSZ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ", %p)}, undef, "to_ascii\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:280\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_ascii\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:282\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_ascii\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_ascii\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:286\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_ascii\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.Aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_ascii\(\'1\.Aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:290\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bß", %p)}, "xn--bss", "to_ascii\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bß\'\)\ \[data\/IdnaTest\.txt\:292\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}X\x{200D}N\x{200C}-\x{200D}-BSS", %p)}, "xn--bss", "to_ascii\(\'\\u200CX\\u200DN\\u200C\-\\u200D\-BSS\'\)\ \[data\/IdnaTest\.txt\:294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bss", %p)}, "xn--bss", "to_ascii\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bss\'\)\ \[data\/IdnaTest\.txt\:296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bss", %p)}, "xn--bss", "to_ascii\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bss\'\)\ \[data\/IdnaTest\.txt\:298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bss", %p)}, "xn--bss", "to_ascii\(\'xn\-\-bss\'\)\ \[data\/IdnaTest\.txt\:300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("夙", %p)}, "xn--bss", "to_ascii\(\'夙\'\)\ \[data\/IdnaTest\.txt\:301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bß", %p)}, "xn--bss", "to_ascii\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bß\'\)\ \[data\/IdnaTest\.txt\:302\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}ſ\x{2064}𝔰󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00ſ\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:304\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:305\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}n\x{200B}-\x{00AD}-\x{180C}b\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034Fn\\u200B\-\\u00AD\-\\u180Cb\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:306\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("X\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}S󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064S\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:307\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("X\x{034F}n\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034Fn\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:308\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("xn--bssffl", %p)}, "xn--bssffl", "to_ascii\(\'xn\-\-bssffl\'\)\ \[data\/IdnaTest\.txt\:309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("夡夞夜夙", %p)}, "xn--bssffl", "to_ascii\(\'夡夞夜夙\'\)\ \[data\/IdnaTest\.txt\:310\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}S\x{2064}𝔰󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00S\\u2064𝔰\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:311\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}s󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064s\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:312\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}s\x{2064}𝔰󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00s\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:313\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:315\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'a\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'A\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'Ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--1234567890123456789012345678901234567890123456789012345-9te", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'xn\-\-1234567890123456789012345678901234567890123456789012345\-9te\'\)\ \[data\/IdnaTest\.txt\:324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:327\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:328\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:331\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:334\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:335\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:336\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:337\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:338\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:347\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:348\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:349\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:350\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b..-q--a-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-a\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:351\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b..-q--ä-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-ä\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b..-q--a\x{0308}-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-a\\u0308\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A.B..-Q--A\x{0308}-.E", %p)}, undef, "to_ascii\(\'A\.B\.\.\-Q\-\-A\\u0308\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A.B..-Q--Ä-.E", %p)}, undef, "to_ascii\(\'A\.B\.\.\-Q\-\-Ä\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b..xn---q----jra.e", %p)}, undef, "to_ascii\(\'a\.b\.\.xn\-\-\-q\-\-\-\-jra\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a..c", %p)}, undef, "to_ascii\(\'a\.\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.-b.", %p)}, undef, "to_ascii\(\'a\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b-.c", %p)}, undef, "to_ascii\(\'a\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.-.c", %p)}, undef, "to_ascii\(\'a\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.bc--de.f", %p)}, undef, "to_ascii\(\'a\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:361\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.\x{00AD}.c", %p)}, undef, "to_ascii\(\'ä\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:362\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.\x{00AD}.c", %p)}, undef, "to_ascii\(\'a\\u0308\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.\x{00AD}.C", %p)}, undef, "to_ascii\(\'A\\u0308\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.\x{00AD}.C", %p)}, undef, "to_ascii\(\'Ä\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.-b.", %p)}, undef, "to_ascii\(\'ä\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.-b.", %p)}, undef, "to_ascii\(\'a\\u0308\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.-B.", %p)}, undef, "to_ascii\(\'A\\u0308\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.-B.", %p)}, undef, "to_ascii\(\'Ä\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:369\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.b-.c", %p)}, undef, "to_ascii\(\'ä\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.b-.c", %p)}, undef, "to_ascii\(\'a\\u0308\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.B-.C", %p)}, undef, "to_ascii\(\'A\\u0308\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.B-.C", %p)}, undef, "to_ascii\(\'Ä\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.-.c", %p)}, undef, "to_ascii\(\'ä\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.-.c", %p)}, undef, "to_ascii\(\'a\\u0308\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.-.C", %p)}, undef, "to_ascii\(\'A\\u0308\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:376\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.-.C", %p)}, undef, "to_ascii\(\'Ä\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:377\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.bc--de.f", %p)}, undef, "to_ascii\(\'ä\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:378\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.bc--de.f", %p)}, undef, "to_ascii\(\'a\\u0308\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.BC--DE.F", %p)}, undef, "to_ascii\(\'A\\u0308\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.BC--DE.F", %p)}, undef, "to_ascii\(\'Ä\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.\x{0308}c.d", %p)}, undef, "to_ascii\(\'a\.b\.\\u0308c\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A.B.\x{0308}C.D", %p)}, undef, "to_ascii\(\'A\.B\.\\u0308C\.D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.xn--c-bcb.d", %p)}, undef, "to_ascii\(\'a\.b\.xn\-\-c\-bcb\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A0", %p)}, "a0", "to_ascii\(\'A0\'\)\ \[data\/IdnaTest\.txt\:385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A", %p)}, "0a", "to_ascii\(\'0A\'\)\ \[data\/IdnaTest\.txt\:386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A.\x{05D0}", %p)}, "0a.xn--4db", "to_ascii\(\'0A\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0a.xn--4db", %p)}, "0a.xn--4db", "to_ascii\(\'0a\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("c.xn--0-eha.xn--4db", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.xn\-\-0\-eha\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("c.0ü.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.0ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("c.0u\x{0308}.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.0u\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("C.0U\x{0308}.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'C\.0U\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("C.0Ü.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'C\.0Ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("b-.\x{05D0}", %p)}, undef, "to_ascii\(\'b\-\.\\u05D0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("d.xn----dha.xn--4db", %p)}, undef, "to_ascii\(\'d\.xn\-\-\-\-dha\.xn\-\-4db\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:397\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}\x{05C7}", %p)}, "xn--vdbr", "to_ascii\(\'\\u05D0\\u05C7\'\)\ \[data\/IdnaTest\.txt\:398\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--vdbr", %p)}, "xn--vdbr", "to_ascii\(\'xn\-\-vdbr\'\)\ \[data\/IdnaTest\.txt\:399\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}9\x{05C7}", %p)}, "xn--9-ihcz", "to_ascii\(\'\\u05D09\\u05C7\'\)\ \[data\/IdnaTest\.txt\:400\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--9-ihcz", %p)}, "xn--9-ihcz", "to_ascii\(\'xn\-\-9\-ihcz\'\)\ \[data\/IdnaTest\.txt\:401\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}a\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0a\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:402\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}A\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0A\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:403\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{05D0}\x{05EA}", %p)}, "xn--4db6c", "to_ascii\(\'\\u05D0\\u05EA\'\)\ \[data\/IdnaTest\.txt\:404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c", %p)}, "xn--4db6c", "to_ascii\(\'xn\-\-4db6c\'\)\ \[data\/IdnaTest\.txt\:405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}\x{05F3}\x{05EA}", %p)}, "xn--4db6c0a", "to_ascii\(\'\\u05D0\\u05F3\\u05EA\'\)\ \[data\/IdnaTest\.txt\:406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c0a", %p)}, "xn--4db6c0a", "to_ascii\(\'xn\-\-4db6c0a\'\)\ \[data\/IdnaTest\.txt\:407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}Tz", %p)}, undef, "to_ascii\(\'a\\u05D0Tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}tz", %p)}, undef, "to_ascii\(\'a\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}TZ", %p)}, undef, "to_ascii\(\'A\\u05D0TZ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:410\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}tz", %p)}, undef, "to_ascii\(\'A\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}T\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D0T\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}t\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D0t\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}7\x{05EA}", %p)}, "xn--7-zhc3f", "to_ascii\(\'\\u05D07\\u05EA\'\)\ \[data\/IdnaTest\.txt\:414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7-zhc3f", %p)}, "xn--7-zhc3f", "to_ascii\(\'xn\-\-7\-zhc3f\'\)\ \[data\/IdnaTest\.txt\:415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}\x{0667}\x{05EA}", %p)}, "xn--4db6c6t", "to_ascii\(\'\\u05D0\\u0667\\u05EA\'\)\ \[data\/IdnaTest\.txt\:416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c6t", %p)}, "xn--4db6c6t", "to_ascii\(\'xn\-\-4db6c6t\'\)\ \[data\/IdnaTest\.txt\:417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a7\x{0667}z", %p)}, undef, "to_ascii\(\'a7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A7\x{0667}Z", %p)}, undef, "to_ascii\(\'A7\\u0667Z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:419\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A7\x{0667}z", %p)}, undef, "to_ascii\(\'A7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:420\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}7\x{0667}\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D07\\u0667\\u05EA\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200D}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:422\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4b", %p)}, "xn--dmc4b", "to_ascii\(\'xn\-\-dmc4b\'\)\ \[data\/IdnaTest\.txt\:424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4b194h", %p)}, "xn--dmc4b194h", "to_ascii\(\'xn\-\-dmc4b194h\'\)\ \[data\/IdnaTest\.txt\:426\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{200D}", %p)}, "xn--dmc", "to_ascii\(\'ஹ\\u200D\'\)\ \[data\/IdnaTest\.txt\:427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc", %p)}, "xn--dmc", "to_ascii\(\'xn\-\-dmc\'\)\ \[data\/IdnaTest\.txt\:429\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ", %p)}, "xn--dmc", "to_ascii\(\'ஹ\'\)\ \[data\/IdnaTest\.txt\:430\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:431\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200C}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:433\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4by94h", %p)}, "xn--dmc4by94h", "to_ascii\(\'xn\-\-dmc4by94h\'\)\ \[data\/IdnaTest\.txt\:435\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{200C}", %p)}, "xn--dmc", "to_ascii\(\'ஹ\\u200C\'\)\ \[data\/IdnaTest\.txt\:436\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:438\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", %p)}, "xn--ghb2gxqia", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxqia", %p)}, "xn--ghb2gxqia", "to_ascii\(\'xn\-\-ghb2gxqia\'\)\ \[data\/IdnaTest\.txt\:442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06ED}\x{06EF}", %p)}, "xn--ghb2gxqia", "to_ascii\(\'\\u0644\\u0670\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxqia7523a", %p)}, "xn--ghb2gxqia7523a", "to_ascii\(\'xn\-\-ghb2gxqia7523a\'\)\ \[data\/IdnaTest\.txt\:444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06EF}", %p)}, "xn--ghb2g3q", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2g3q", %p)}, "xn--ghb2g3q", "to_ascii\(\'xn\-\-ghb2g3q\'\)\ \[data\/IdnaTest\.txt\:447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06EF}", %p)}, "xn--ghb2g3q", "to_ascii\(\'\\u0644\\u0670\\u06EF\'\)\ \[data\/IdnaTest\.txt\:448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2g3qq34f", %p)}, "xn--ghb2g3qq34f", "to_ascii\(\'xn\-\-ghb2g3qq34f\'\)\ \[data\/IdnaTest\.txt\:449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{200C}\x{06ED}\x{06EF}", %p)}, "xn--ghb25aga", "to_ascii\(\'\\u0644\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:450\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb25aga", %p)}, "xn--ghb25aga", "to_ascii\(\'xn\-\-ghb25aga\'\)\ \[data\/IdnaTest\.txt\:452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{06ED}\x{06EF}", %p)}, "xn--ghb25aga", "to_ascii\(\'\\u0644\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb25aga828w", %p)}, "xn--ghb25aga828w", "to_ascii\(\'xn\-\-ghb25aga828w\'\)\ \[data\/IdnaTest\.txt\:454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{200C}\x{06EF}", %p)}, "xn--ghb65a", "to_ascii\(\'\\u0644\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb65a", %p)}, "xn--ghb65a", "to_ascii\(\'xn\-\-ghb65a\'\)\ \[data\/IdnaTest\.txt\:457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{06EF}", %p)}, "xn--ghb65a", "to_ascii\(\'\\u0644\\u06EF\'\)\ \[data\/IdnaTest\.txt\:458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb65a953d", %p)}, "xn--ghb65a953d", "to_ascii\(\'xn\-\-ghb65a953d\'\)\ \[data\/IdnaTest\.txt\:459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06ED}", %p)}, "xn--ghb2gxq", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06ED\'\)\ \[data\/IdnaTest\.txt\:460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxq", %p)}, "xn--ghb2gxq", "to_ascii\(\'xn\-\-ghb2gxq\'\)\ \[data\/IdnaTest\.txt\:462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06ED}", %p)}, "xn--ghb2gxq", "to_ascii\(\'\\u0644\\u0670\\u06ED\'\)\ \[data\/IdnaTest\.txt\:463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EF}\x{200C}\x{06EF}", %p)}, "xn--cmba", "to_ascii\(\'\\u06EF\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--cmba", %p)}, "xn--cmba", "to_ascii\(\'xn\-\-cmba\'\)\ \[data\/IdnaTest\.txt\:466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EF}\x{06EF}", %p)}, "xn--cmba", "to_ascii\(\'\\u06EF\\u06EF\'\)\ \[data\/IdnaTest\.txt\:467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{200C}", %p)}, "xn--ghb", "to_ascii\(\'\\u0644\\u200C\'\)\ \[data\/IdnaTest\.txt\:468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb", %p)}, "xn--ghb", "to_ascii\(\'xn\-\-ghb\'\)\ \[data\/IdnaTest\.txt\:470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}", %p)}, "xn--ghb", "to_ascii\(\'\\u0644\'\)\ \[data\/IdnaTest\.txt\:471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒕∝\x{FE0E}񋆨.-󠄠", %p)}, undef, "to_ascii\(\'⒕\∝\\uFE0E񋆨.\-\󠄠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("14.∝\x{FE0E}񋆨.-󠄠", %p)}, undef, "to_ascii\(\'14\.\∝\\uFE0E񋆨\.\-\󠄠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:476\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{07CE}.\x{076D}", %p)}, "xn--psb.xn--xpb", "to_ascii\(\'\\u07CE\.\\u076D\'\)\ \[data\/IdnaTest\.txt\:477\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--psb.xn--xpb", %p)}, "xn--psb.xn--xpb", "to_ascii\(\'xn\-\-psb\.xn\-\-xpb\'\)\ \[data\/IdnaTest\.txt\:478\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{0600}。-", %p)}, undef, "to_ascii\(\'\≯\\u0600。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0600}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0600。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0600}。-", %p)}, undef, "to_ascii\(\'\≯\\u0600\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:481\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0600}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0600\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}ςႭ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000FςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}ςႭ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000FςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:484\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}ςⴍ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000Fςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:485\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}ΣႭ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000FΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:486\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}σⴍ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000Fσⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:487\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}Σⴍ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000FΣⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:488\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}ςⴍ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000Fςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}ΣႭ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000FΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}σⴍ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000Fσⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:491\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}Σⴍ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000FΣⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:492\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≠\x{07E0}≯.솣-\x{0692}Ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠\\u07E0\≯\.솣\-\\u0692Ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}=\x{0338}\x{07E0}>\x{0338}.솣-\x{0692}Ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338\\u07E0\>\\u0338\.솣\-\\u0692Ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}=\x{0338}\x{07E0}>\x{0338}.솣-\x{0692}ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338\\u07E0\>\\u0338\.솣\-\\u0692ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≠\x{07E0}≯.솣-\x{0692}ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠\\u07E0\≯\.솣\-\\u0692ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򺓺.𐸛\x{1B36}ᠠ\x{0664}", %p)}, undef, "to_ascii\(\'򺓺.𐸛\\u1B36ᠠ\\u0664\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򺓺.𐸛\x{1B36}ᠠ\x{0664}", %p)}, undef, "to_ascii\(\'򺓺\.𐸛\\u1B36ᠠ\\u0664\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E9D9}\x{302C}.\x{A953}", %p)}, undef, "to_ascii\(\'\\uE9D9\\u302C\.\\uA953\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠷ\x{09CD}𒚉。\x{0732}Ⴣꡐ", %p)}, undef, "to_ascii\(\'ᠷ\\u09CD𒚉\。\\u0732Ⴣꡐ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠷ\x{09CD}𒚉。\x{0732}ⴣꡐ", %p)}, undef, "to_ascii\(\'ᠷ\\u09CD𒚉\。\\u0732ⴣꡐ\'\)\ throws\ error\ P1\ V6\ V5\ \[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{2D7F}ς⋀。\x{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7Fς\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:506\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7Fς\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:507\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7FΣ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:508\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7FΣ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:509\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7Fσ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:510\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7Fσ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:511\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{200D}。ᡠ\x{200C}\x{200D}⒈", %p)}, undef, "to_ascii\(\'\-\\u200D\。ᡠ\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}。ᡠ\x{200C}\x{200D}1.", %p)}, undef, "to_ascii\(\'\-\\u200D\。ᡠ\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}򈘂.Ⴒ\x{ABED}", %p)}, undef, "to_ascii\(\'\\u200C򈘂\.Ⴒ\\uABED\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}򈘂.ⴒ\x{ABED}", %p)}, undef, "to_ascii\(\'\\u200C򈘂\.ⴒ\\uABED\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:518\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{1039}\x{200D}.8︒", %p)}, undef, "to_ascii\(\'繱\\u1039\\u200D\.8︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{1039}\x{200D}.8。", %p)}, "xn--9jd5457c.8.", "to_ascii\(\'繱\\u1039\\u200D\.8\。\'\)\ \[data\/IdnaTest\.txt\:521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--9jd5457c.8.", %p)}, "xn--9jd5457c.8.", "to_ascii\(\'xn\-\-9jd5457c\.8\.\'\)\ \[data\/IdnaTest\.txt\:523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{1039}.8.", %p)}, "xn--9jd5457c.8.", "to_ascii\(\'繱\\u1039\.8\.\'\)\ \[data\/IdnaTest\.txt\:524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--9jd812ffm5e.8.", %p)}, "xn--9jd812ffm5e.8.", "to_ascii\(\'xn\-\-9jd812ffm5e\.8\.\'\)\ \[data\/IdnaTest\.txt\:525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{1039}\x{200D}.8.", %p)}, "xn--9jd5457c.8.", "to_ascii\(\'繱\\u1039\\u200D\.8\.\'\)\ \[data\/IdnaTest\.txt\:526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠅕.\x{1927}", %p)}, undef, "to_ascii\(\'\󠅕.\\u1927\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠅕.\x{1927}", %p)}, undef, "to_ascii\(\'\󠅕\.\\u1927\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß󠇦。\x{200D}", %p)}, "ss.", "to_ascii\(\'ß\󠇦\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS󠇦。\x{200D}", %p)}, "ss.", "to_ascii\(\'SS\󠇦\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss󠇦。\x{200D}", %p)}, "ss.", "to_ascii\(\'ss\󠇦\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss󠇦。\x{200D}", %p)}, "ss.", "to_ascii\(\'Ss\󠇦\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss.", %p)}, "ss.", "to_ascii\(\'ss\.\'\)\ \[data\/IdnaTest\.txt\:538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠯓\x{200C}⒈.󠅵", %p)}, undef, "to_ascii\(\'\󠯓\\u200C⒈.\󠅵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠯓\x{200C}1..󠅵", %p)}, undef, "to_ascii\(\'\󠯓\\u200C1\.\.\󠅵\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򸕹\x{1072}󠆈ß。󚭹", %p)}, undef, "to_ascii\(\'򸕹\\u1072\󠆈ß\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򸕹\x{1072}󠆈SS。󚭹", %p)}, undef, "to_ascii\(\'򸕹\\u1072\󠆈SS\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򸕹\x{1072}󠆈ss。󚭹", %p)}, undef, "to_ascii\(\'򸕹\\u1072\󠆈ss\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򸕹\x{1072}󠆈Ss。󚭹", %p)}, undef, "to_ascii\(\'򸕹\\u1072\󠆈Ss\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A8}\x{200C}𐮂。󻋜䉜\x{200D}񒑺", %p)}, undef, "to_ascii\(\'\\u06A8\\u200C𐮂\。󻋜䉜\\u200D񒑺\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎ς\x{07DA}⒈.≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎ς\\u07DA⒈\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎ς\x{07DA}⒈.<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎ς\\u07DA⒈\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎ς\x{07DA}1..≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎ς\\u07DA1\.\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎ς\x{07DA}1..<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎ς\\u07DA1\.\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎Σ\x{07DA}1..<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎Σ\\u07DA1\.\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎Σ\x{07DA}1..≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎Σ\\u07DA1\.\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎σ\x{07DA}1..≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎σ\\u07DA1\.\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎σ\x{07DA}1..<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎σ\\u07DA1\.\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎Σ\x{07DA}⒈.<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎Σ\\u07DA⒈\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎Σ\x{07DA}⒈.≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎Σ\\u07DA⒈\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎σ\x{07DA}⒈.≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎σ\\u07DA⒈\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎σ\x{07DA}⒈.<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎σ\\u07DA⒈\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3164}\x{0CCD}Ⴀ𑇋.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u0CCDႠ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{0CCD}Ⴀ𑇋.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u0CCDႠ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:562\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{0CCD}ⴀ𑇋.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u0CCDⴀ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3164}\x{0CCD}ⴀ𑇋.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u0CCDⴀ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠜈\x{200D}.\x{1BF3}󠄀󠆦\x{1B6D}", %p)}, undef, "to_ascii\(\'\󠜈\\u200D.\\u1BF3\󠄀\󠆦\\u1B6D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠜈\x{200D}.\x{1BF3}󠄀󠆦\x{1B6D}", %p)}, undef, "to_ascii\(\'\󠜈\\u200D\.\\u1BF3\󠄀\󠆦\\u1B6D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𐸧𞶡.≯𼫗ᡖ", %p)}, undef, "to_ascii\(\'\≮𐸧𞶡\.\≯𼫗ᡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}𐸧𞶡.>\x{0338}𼫗ᡖ", %p)}, undef, "to_ascii\(\'\<\\u0338𐸧𞶡\.\>\\u0338𼫗ᡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𐥴\x{0857}№。\x{1BAA}ꡊ", %p)}, undef, "to_ascii\(\'\\u05C7𐥴\\u0857№。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𐥴\x{0857}No。\x{1BAA}ꡊ", %p)}, undef, "to_ascii\(\'\\u05C7𐥴\\u0857No\。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𐥴\x{0857}no。\x{1BAA}ꡊ", %p)}, undef, "to_ascii\(\'\\u05C7𐥴\\u0857no\。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𐥴\x{0857}NO。\x{1BAA}ꡊ", %p)}, undef, "to_ascii\(\'\\u05C7𐥴\\u0857NO\。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F9F}。􃍩", %p)}, undef, "to_ascii\(\'\\u0F9F\。􃍩\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:575\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}\x{1B6B}.\x{1160}", %p)}, undef, "to_ascii\(\'\\uA9C0\\u1B6B.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}\x{1B6B}.\x{1160}", %p)}, undef, "to_ascii\(\'\\uA9C0\\u1B6B\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:577\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{08A7}\x{200D}。󴀴\x{079E}", %p)}, undef, "to_ascii\(\'\-\\u08A7\\u200D\。󴀴\\u079E\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:578\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}\x{1920}≯󞉲。󠇨⾇滸𐹭", %p)}, undef, "to_ascii\(\'\\u072B\\u1920\≯󞉲\。\󠇨⾇滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}\x{1920}>\x{0338}󞉲。󠇨⾇滸𐹭", %p)}, undef, "to_ascii\(\'\\u072B\\u1920\>\\u0338󞉲\。\󠇨⾇滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:581\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}\x{1920}≯󞉲。󠇨舛滸𐹭", %p)}, undef, "to_ascii\(\'\\u072B\\u1920\≯󞉲\。\󠇨舛滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}\x{1920}>\x{0338}󞉲。󠇨舛滸𐹭", %p)}, undef, "to_ascii\(\'\\u072B\\u1920\>\\u0338󞉲\。\󠇨舛滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:583\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("蔏。\x{08FB}", %p)}, undef, "to_ascii\(\'蔏。\\u08FB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:584\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("蔏。\x{08FB}", %p)}, undef, "to_ascii\(\'蔏\。\\u08FB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:585\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟿𐮂。\x{034E}", %p)}, undef, "to_ascii\(\'𝟿𐮂\。\\u034E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:586\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("9𐮂。\x{034E}", %p)}, undef, "to_ascii\(\'9𐮂\。\\u034E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:587\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󧫃-䟖F。\x{069B}⒈𐹣", %p)}, undef, "to_ascii\(\'󧫃\-䟖F\。\\u069B⒈𐹣\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󧫃-䟖F。\x{069B}1.𐹣", %p)}, undef, "to_ascii\(\'󧫃\-䟖F\。\\u069B1\.𐹣\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󧫃-䟖f。\x{069B}1.𐹣", %p)}, undef, "to_ascii\(\'󧫃\-䟖f\。\\u069B1\.𐹣\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:590\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󧫃-䟖f。\x{069B}⒈𐹣", %p)}, undef, "to_ascii\(\'󧫃\-䟖f\。\\u069B⒈𐹣\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:591\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}。𐹣", %p)}, undef, "to_ascii\(\'\\u200C。𐹣\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:592\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}。𐹣", %p)}, undef, "to_ascii\(\'\\u200C\。𐹣\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:594\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞠃.≯\x{200C}-\x{0714}", %p)}, undef, "to_ascii\(\'𞠃\.\≯\\u200C\-\\u0714\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞠃.>\x{0338}\x{200C}-\x{0714}", %p)}, undef, "to_ascii\(\'𞠃\.\>\\u0338\\u200C\-\\u0714\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{036D}-。≠𐾢", %p)}, undef, "to_ascii\(\'\\u036D\-\。\≠𐾢\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{036D}-。=\x{0338}𐾢", %p)}, undef, "to_ascii\(\'\\u036D\-\。\=\\u0338𐾢\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞀪\x{1A60}。\x{200D}𐥚", %p)}, undef, "to_ascii\(\'𞀪\\u1A60\。\\u200D𐥚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059D}\x{AAF6}2。㧉𱃺", %p)}, undef, "to_ascii\(\'\\u059D\\uAAF62。㧉𱃺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AAF6}\x{059D}2。㧉𱃺", %p)}, undef, "to_ascii\(\'\\uAAF6\\u059D2。㧉𱃺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AAF6}\x{059D}2。㧉𱃺", %p)}, undef, "to_ascii\(\'\\uAAF6\\u059D2\。㧉𱃺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񪨑𐹾𞺉。≯6", %p)}, undef, "to_ascii\(\'\\u200C񪨑𐹾𞺉\。\≯6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񪨑𐹾𞺉。>\x{0338}6", %p)}, undef, "to_ascii\(\'\\u200C񪨑𐹾𞺉\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񪨑𐹾\x{064A}。≯6", %p)}, undef, "to_ascii\(\'\\u200C񪨑𐹾\\u064A\。\≯6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񪨑𐹾\x{064A}。>\x{0338}6", %p)}, undef, "to_ascii\(\'\\u200C񪨑𐹾\\u064A\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}.𐹹𛂿-\x{200D}", %p)}, undef, "to_ascii\(\'\\u1734.𐹹𛂿\-\\u200D\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:615\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}.𐹹𛂿-\x{200D}", %p)}, undef, "to_ascii\(\'\\u1734\.𐹹𛂿\-\\u200D\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰ς􍵐。\x{FFA0}", %p)}, undef, "to_ascii\(\'🕰ς􍵐。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰ς􍵐。\x{1160}", %p)}, undef, "to_ascii\(\'🕰ς􍵐\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰Σ􍵐。\x{1160}", %p)}, undef, "to_ascii\(\'🕰Σ􍵐\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰σ􍵐。\x{1160}", %p)}, undef, "to_ascii\(\'🕰σ􍵐\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰Σ􍵐。\x{FFA0}", %p)}, undef, "to_ascii\(\'🕰Σ􍵐。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰σ􍵐。\x{FFA0}", %p)}, undef, "to_ascii\(\'🕰σ􍵐。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08B1}󠅲𐫟\x{08A1}.𐸛\x{1BAA}Ⴃ", %p)}, undef, "to_ascii\(\'\\u08B1\󠅲𐫟\\u08A1\.𐸛\\u1BAAႣ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08B1}󠅲𐫟\x{08A1}.𐸛\x{1BAA}ⴃ", %p)}, undef, "to_ascii\(\'\\u08B1\󠅲𐫟\\u08A1\.𐸛\\u1BAAⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡𑓂-킼.\x{ABED}\x{1C33}\x{06DD}≯", %p)}, undef, "to_ascii\(\'𐹡𑓂\-킼\.\\uABED\\u1C33\\u06DD\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡𑓂-킼.\x{ABED}\x{1C33}\x{06DD}>\x{0338}", %p)}, undef, "to_ascii\(\'𐹡𑓂\-킼\.\\uABED\\u1C33\\u06DD\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ꡇ\x{0667}򹘐\x{0ACD}", %p)}, undef, "to_ascii\(\'\-\。ꡇ\\u0667򹘐\\u0ACD\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󉡂\x{0F96}.\x{0737}󻨮𐫃𐋡", %p)}, undef, "to_ascii\(\'\\u200D󉡂\\u0F96.\\u0737󻨮𐫃𐋡\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󉡂\x{0F96}.\x{0737}󻨮𐫃𐋡", %p)}, undef, "to_ascii\(\'\\u200D󉡂\\u0F96\.\\u0737󻨮𐫃𐋡\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒󷫏ς򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'︒󷫏ς򔩯。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。󷫏ς򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'\。󷫏ς򔩯\。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。󷫏Σ򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'\。󷫏Σ򔩯\。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。󷫏σ򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'\。󷫏σ򔩯\。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒󷫏Σ򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'︒󷫏Σ򔩯。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒󷫏σ򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'︒󷫏σ򔩯。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD93}.\x{FB73}򾟛≯\x{0B82}", %p)}, undef, "to_ascii\(\'\\uFD93.\\uFB73򾟛\≯\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD93}.\x{FB73}򾟛>\x{0338}\x{0B82}", %p)}, undef, "to_ascii\(\'\\uFD93.\\uFB73򾟛\>\\u0338\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0647}\x{0645}\x{062C}.\x{0684}򾟛≯\x{0B82}", %p)}, undef, "to_ascii\(\'\\u0647\\u0645\\u062C\.\\u0684򾟛\≯\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0647}\x{0645}\x{062C}.\x{0684}򾟛>\x{0338}\x{0B82}", %p)}, undef, "to_ascii\(\'\\u0647\\u0645\\u062C\.\\u0684򾟛\>\\u0338\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A42}򜖴.𐨝", %p)}, undef, "to_ascii\(\'\\u0A42򜖴\.𐨝\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒉💰≠。Ⴟ□Ⴈ", %p)}, undef, "to_ascii\(\'⒉💰\≠。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒉💰=\x{0338}。Ⴟ□Ⴈ", %p)}, undef, "to_ascii\(\'⒉💰\=\\u0338。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2.💰≠。Ⴟ□Ⴈ", %p)}, undef, "to_ascii\(\'2\.💰\≠\。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2.💰=\x{0338}。Ⴟ□Ⴈ", %p)}, undef, "to_ascii\(\'2\.💰\=\\u0338\。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2.💰=\x{0338}。ⴟ□ⴈ", %p)}, undef, "to_ascii\(\'2\.💰\=\\u0338\。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2.💰≠。ⴟ□ⴈ", %p)}, undef, "to_ascii\(\'2\.💰\≠\。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒉💰=\x{0338}。ⴟ□ⴈ", %p)}, undef, "to_ascii\(\'⒉💰\=\\u0338。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒉💰≠。ⴟ□ⴈ", %p)}, undef, "to_ascii\(\'⒉💰\≠。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𑚫\x{0321}Ⴥ。-\x{0660}𐮩\x{035B}", %p)}, undef, "to_ascii\(\'\-𑚫\\u0321Ⴥ\。\-\\u0660𐮩\\u035B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:653\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𑚫\x{0321}ⴥ。-\x{0660}𐮩\x{035B}", %p)}, undef, "to_ascii\(\'\-𑚫\\u0321ⴥ\。\-\\u0660𐮩\\u035B\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:654\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1B3A}。\x{1B44}︒\x{06AF}\x{0695}", %p)}, undef, "to_ascii\(\'\\u1B3A\。\\u1B44︒\\u06AF\\u0695\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:655\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{1B3A}。\x{1B44}。\x{06AF}\x{0695}", %p)}, undef, "to_ascii\(\'\\u1B3A\。\\u1B44\。\\u06AF\\u0695\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:656\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴙᡡ.\x{0FB8}\x{200D}", %p)}, undef, "to_ascii\(\'Ⴙᡡ\.\\u0FB8\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:657\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FB8}\x{200D}", %p)}, undef, "to_ascii\(\'ⴙᡡ\.\\u0FB8\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:659\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{FE05}。₆0𐭧ᠺ", %p)}, undef, "to_ascii\(\'\\uFE05。₆0𐭧ᠺ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:661\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{FE05}。60𐭧ᠺ", %p)}, undef, "to_ascii\(\'\\uFE05\。60𐭧ᠺ\'\)\ throws\ error\ B1\ \[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("6\x{072C}。-\x{20EE}", %p)}, undef, "to_ascii\(\'6\\u072C。\-\\u20EE\'\)\ throws\ error\ V3\ B1\ \[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("6\x{072C}。-\x{20EE}", %p)}, undef, "to_ascii\(\'6\\u072C\。\-\\u20EE\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:664\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}ς\x{FDBF}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662。\\u0A4Dς\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}ς\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662\。\\u0A4Dς\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}Σ\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662\。\\u0A4DΣ\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}σ\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662\。\\u0A4Dσ\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:671\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}Σ\x{FDBF}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662。\\u0A4DΣ\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:673\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}σ\x{FDBF}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662。\\u0A4Dσ\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:675\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈񊼈Ⴓ⒪.󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'⒈񊼈Ⴓ⒪.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.񊼈Ⴓ(o).󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'1\.񊼈Ⴓ\(o\)\.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.񊼈ⴓ(o).󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'1\.񊼈ⴓ\(o\)\.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.񊼈Ⴓ(O).󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'1\.񊼈Ⴓ\(O\)\.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈񊼈ⴓ⒪.󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'⒈񊼈ⴓ⒪.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}.\x{0855}𞯝𐹰𐫐", %p)}, undef, "to_ascii\(\'\\u0772\.\\u0855𞯝𐹰𐫐\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FC92}-。𐨿񔅥", %p)}, undef, "to_ascii\(\'\\uFC92\-。𐨿񔅥\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{064A}\x{0632}-。𐨿񔅥", %p)}, undef, "to_ascii\(\'\\u064A\\u0632\-\。𐨿񔅥\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-󠧚ꡐ.\x{1DEF}𜒩🄉", %p)}, undef, "to_ascii\(\'\-\󠧚ꡐ.\\u1DEF𜒩🄉\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-󠧚ꡐ.\x{1DEF}𜒩8,", %p)}, undef, "to_ascii\(\'\-\󠧚ꡐ\.\\u1DEF𜒩8\,\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏧󠗑󰭊􋱔.ᡥ𝟝", %p)}, undef, "to_ascii\(\'🏧\󠗑󰭊􋱔\.ᡥ𝟝\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏧󠗑󰭊􋱔.ᡥ5", %p)}, undef, "to_ascii\(\'🏧\󠗑󰭊􋱔\.ᡥ5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{066C}.\x{FE0F}", %p)}, undef, "to_ascii\(\'\≮\\u066C.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{066C}.\x{FE0F}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u066C.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{066C}.\x{FE0F}", %p)}, undef, "to_ascii\(\'\≮\\u066C\.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{066C}.\x{FE0F}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u066C\.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:692\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}。脥", %p)}, undef, "to_ascii\(\'𐹭ᯛ\\u1BF3。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:693\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}。脥", %p)}, undef, "to_ascii\(\'𐹭ᯛ\\u1BF3\。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:694\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1BF3}\x{115F}𞣱򃜐.-", %p)}, undef, "to_ascii\(\'\\u1BF3\\u115F𞣱򃜐\.\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:695\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{AAED}", %p)}, undef, "to_ascii\(\'\\u200C。\\uAAED\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:696\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{AAED}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uAAED\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:698\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{077A}𑒺.𐫎Ⴎ", %p)}, undef, "to_ascii\(\'\\u077A𑒺.𐫎Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077A}𑒺.𐫎Ⴎ", %p)}, undef, "to_ascii\(\'\\u077A𑒺\.𐫎Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:701\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{077A}𑒺.𐫎ⴎ", %p)}, undef, "to_ascii\(\'\\u077A𑒺\.𐫎ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:702\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{077A}𑒺.𐫎ⴎ", %p)}, undef, "to_ascii\(\'\\u077A𑒺.𐫎ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:703\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07DD}\x{1921}Ξ.蚗㛨󠫺", %p)}, undef, "to_ascii\(\'\\u07DD\\u1921Ξ.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DD}\x{1921}Ξ.蚗㛨󠫺", %p)}, undef, "to_ascii\(\'\\u07DD\\u1921Ξ\.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DD}\x{1921}ξ.蚗㛨󠫺", %p)}, undef, "to_ascii\(\'\\u07DD\\u1921ξ\.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DD}\x{1921}ξ.蚗㛨󠫺", %p)}, undef, "to_ascii\(\'\\u07DD\\u1921ξ.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{083F}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。Ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{083F}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。Ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{083F}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:712\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{083F}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{083F}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{083F}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:718\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{083F}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{083F}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠵜.︒󠲅\x{200C}𐹽", %p)}, undef, "to_ascii\(\'\󠵜\.︒\󠲅\\u200C𐹽\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠵜.。󠲅\x{200C}𐹽", %p)}, undef, "to_ascii\(\'\󠵜\.\。\󠲅\\u200C𐹽\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:726\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FC48}.𐹢Ⴑ񣞍\x{0765}", %p)}, undef, "to_ascii\(\'\\uFC48\.𐹢Ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:728\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0645}\x{0645}.𐹢Ⴑ񣞍\x{0765}", %p)}, undef, "to_ascii\(\'\\u0645\\u0645\.𐹢Ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:729\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0645}\x{0645}.𐹢ⴑ񣞍\x{0765}", %p)}, undef, "to_ascii\(\'\\u0645\\u0645\.𐹢ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:730\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FC48}.𐹢ⴑ񣞍\x{0765}", %p)}, undef, "to_ascii\(\'\\uFC48\.𐹢ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:731\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁁𼉗.𝟭Ⴛ", %p)}, undef, "to_ascii\(\'\󠁁𼉗.𝟭Ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁁𼉗.1Ⴛ", %p)}, undef, "to_ascii\(\'\󠁁𼉗\.1Ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁁𼉗.1ⴛ", %p)}, undef, "to_ascii\(\'\󠁁𼉗\.1ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁁𼉗.𝟭ⴛ", %p)}, undef, "to_ascii\(\'\󠁁𼉗.𝟭ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:735\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-\x{1A65}齀。릿\x{0637}", %p)}, undef, "to_ascii\(\'\-\\u1A65齀\。릿\\u0637\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:736\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-\x{1A65}齀。릿\x{0637}", %p)}, undef, "to_ascii\(\'\-\\u1A65齀\。릿\\u0637\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:737\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠇕\x{0687}鹝꾗。񺧞\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\󠇕\\u0687鹝꾗\。񺧞\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇕\x{0687}鹝꾗。񺧞\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\󠇕\\u0687鹝꾗\。񺧞\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:740\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.-𐻡--", %p)}, undef, "to_ascii\(\'\≮.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:742\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.-𐻡--", %p)}, undef, "to_ascii\(\'\<\\u0338.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:743\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.-𐻡--", %p)}, undef, "to_ascii\(\'\≮\.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:744\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.-𐻡--", %p)}, undef, "to_ascii\(\'\<\\u0338\.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:745\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}ς𝟩", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200Dς𝟩\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:746\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}ς7", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200Dς7\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:748\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}Σ7", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200DΣ7\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:750\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}σ7", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200Dσ7\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:752\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}Σ𝟩", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200DΣ𝟩\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:754\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}σ𝟩", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200Dσ𝟩\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:756\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς񩓤8.𞫘", %p)}, undef, "to_ascii\(\'ς񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς񩓤8.𞫘", %p)}, undef, "to_ascii\(\'ς񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ񩓤8.𞫘", %p)}, undef, "to_ascii\(\'Σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ񩓤8.𞫘", %p)}, undef, "to_ascii\(\'σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ񩓤8.𞫘", %p)}, undef, "to_ascii\(\'Σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ񩓤8.𞫘", %p)}, undef, "to_ascii\(\'σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{07CE}🄀\x{0843}.-\x{07E6}𑌁", %p)}, undef, "to_ascii\(\'\\u200C\\u07CE🄀\\u0843.\-\\u07E6𑌁\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:764\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}\x{07CE}0.\x{0843}.-\x{07E6}𑌁", %p)}, undef, "to_ascii\(\'\\u200C\\u07CE0\.\\u0843\.\-\\u07E6𑌁\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:766\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("􉿃。𞸝넯򆰡", %p)}, undef, "to_ascii\(\'􉿃\。𞸝넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:768\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿃。𞸝넯򆰡", %p)}, undef, "to_ascii\(\'􉿃\。𞸝넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:769\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿃。\x{06BA}넯򆰡", %p)}, undef, "to_ascii\(\'􉿃\。\\u06BA넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿃。\x{06BA}넯򆰡", %p)}, undef, "to_ascii\(\'􉿃\。\\u06BA넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡇႸ。\x{0600}Ⴈ\x{08F9}", %p)}, undef, "to_ascii\(\'ᡇႸ\。\\u0600Ⴈ\\u08F9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡇⴘ。\x{0600}ⴈ\x{08F9}", %p)}, undef, "to_ascii\(\'ᡇⴘ\。\\u0600ⴈ\\u08F9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚♰\x{08B0}。牣𐹤Ⴜᣥ", %p)}, undef, "to_ascii\(\'⒚\♰\\u08B0\。牣𐹤Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.♰\x{08B0}。牣𐹤Ⴜᣥ", %p)}, undef, "to_ascii\(\'19\.\♰\\u08B0\。牣𐹤Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:775\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("19.♰\x{08B0}。牣𐹤ⴜᣥ", %p)}, undef, "to_ascii\(\'19\.\♰\\u08B0\。牣𐹤ⴜᣥ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:776\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒚♰\x{08B0}。牣𐹤ⴜᣥ", %p)}, undef, "to_ascii\(\'⒚\♰\\u08B0\。牣𐹤ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐋱𞧐⒈.Ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𞧐⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐋱𞧐1..Ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𞧐1\.\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:779\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐋱𞧐1..ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𞧐1\.\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐋱𞧐⒈.ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𞧐⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}긃.󰎽-", %p)}, undef, "to_ascii\(\'\\u200C긃\.󰎽\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}긃.󰎽-", %p)}, undef, "to_ascii\(\'\\u200C긃\.󰎽\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:784\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("뉓泓񢊆.𑘿\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓񢊆\.𑘿\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:786\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("뉓泓񢊆.𑘿\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓񢊆\.𑘿\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾ß。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾ß。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:788\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾ß。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾ß\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:790\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾SS。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾SS\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:792\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾ss\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾Ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾Ss\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾SS。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾SS。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾ss。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:800\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾Ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾Ss。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:802\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}.𐨿-≮≠", %p)}, undef, "to_ascii\(\'\\u0ACD.𐨿\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}.𐨿-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0ACD.𐨿\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:805\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}.𐨿-≮≠", %p)}, undef, "to_ascii\(\'\\u0ACD\.𐨿\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}.𐨿-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0ACD\.𐨿\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}Ⴑ\x{115F}.𑖿Ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7FႱ\\u115F.𑖿Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}Ⴑ\x{115F}.𑖿Ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7FႱ\\u115F\.𑖿Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7Fⴑ\\u115F\.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}Ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7FႱ\\u115F\.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7Fⴑ\\u115F.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}Ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7FႱ\\u115F.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󖗚。Ⴃ𐳖\x{0601}똯", %p)}, undef, "to_ascii\(\'󖗚\。Ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󖗚。Ⴃ𐳖\x{0601}똯", %p)}, undef, "to_ascii\(\'󖗚\。Ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󖗚。ⴃ𐳖\x{0601}똯", %p)}, undef, "to_ascii\(\'󖗚\。ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󖗚。ⴃ𐳖\x{0601}똯", %p)}, undef, "to_ascii\(\'󖗚\。ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢥ。⳻󠷡󠆏\x{3164}", %p)}, undef, "to_ascii\(\'ᢥ。⳻\󠷡\󠆏\\u3164\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢥ。⳻󠷡󠆏\x{1160}", %p)}, undef, "to_ascii\(\'ᢥ\。⳻\󠷡\󠆏\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐼣⾇.ᡙ-𐋰", %p)}, undef, "to_ascii\(\'𐼣⾇.ᡙ\-𐋰\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐼣舛.ᡙ-𐋰", %p)}, undef, "to_ascii\(\'𐼣舛\.ᡙ\-𐋰\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕󝌩≮.︒", %p)}, undef, "to_ascii\(\'Ⴉ猕󝌩\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕󝌩<\x{0338}.︒", %p)}, undef, "to_ascii\(\'Ⴉ猕󝌩\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕󝌩≮.。", %p)}, undef, "to_ascii\(\'Ⴉ猕󝌩\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕󝌩<\x{0338}.。", %p)}, undef, "to_ascii\(\'Ⴉ猕󝌩\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕󝌩<\x{0338}.。", %p)}, undef, "to_ascii\(\'ⴉ猕󝌩\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕󝌩≮.。", %p)}, undef, "to_ascii\(\'ⴉ猕󝌩\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕󝌩<\x{0338}.︒", %p)}, undef, "to_ascii\(\'ⴉ猕󝌩\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕󝌩≮.︒", %p)}, undef, "to_ascii\(\'ⴉ猕󝌩\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:829\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("🜙。\x{0635}鳳ꡱ\x{08FC}", %p)}, undef, "to_ascii\(\'🜙。\\u0635鳳ꡱ\\u08FC\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:830\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("🜙。\x{0635}鳳ꡱ\x{08FC}", %p)}, undef, "to_ascii\(\'🜙\。\\u0635鳳ꡱ\\u08FC\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:831\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}𐹮。ß", %p)}, undef, "to_ascii\(\'\\u200D𐹮\。ß\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:832\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}𐹮。SS", %p)}, undef, "to_ascii\(\'\\u200D𐹮\。SS\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:834\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-.\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:836\]") 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\:838\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:840\]") 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\: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("å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-.\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035F}󪒅󠆬ᢐ.󈌵-\x{A8EB}", %p)}, undef, "to_ascii\(\'\\u035F󪒅\󠆬ᢐ\.󈌵\-\\uA8EB\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:852\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'ς\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:853\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'ς\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:854\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.SS𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.SS𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:855\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:856\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:857\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:858\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:859\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.SS𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.SS𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:860\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:861\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:862\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ 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{06EF}󠄚。𐹫𑂁", %p)}, undef, "to_ascii\(\'\\u06EF\󠄚。𐹫𑂁\'\)\ 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{06EF}󠄚。𐹫𑂁", %p)}, undef, "to_ascii\(\'\\u06EF\󠄚\。𐹫𑂁\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:866\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񊧏\x{200C}𞭭。௸񗷞-\x{FD57}", %p)}, undef, "to_ascii\(\'񊧏\\u200C𞭭。௸񗷞\-\\uFD57\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񊧏\x{200C}𞭭。௸񗷞-\x{062A}\x{0645}\x{062E}", %p)}, undef, "to_ascii\(\'񊧏\\u200C𞭭\。௸񗷞\-\\u062A\\u0645\\u062E\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}𞳕\x{200C}。\x{0485}︒", %p)}, undef, "to_ascii\(\'룱\\u200D𞳕\\u200C\。\\u0485︒\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}𞳕\x{200C}。\x{0485}︒", %p)}, undef, "to_ascii\(\'룱\\u200D𞳕\\u200C\。\\u0485︒\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}𞳕\x{200C}。\x{0485}。", %p)}, undef, "to_ascii\(\'룱\\u200D𞳕\\u200C\。\\u0485\。\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}𞳕\x{200C}。\x{0485}。", %p)}, undef, "to_ascii\(\'룱\\u200D𞳕\\u200C\。\\u0485\。\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄄.\x{FE03}⒈ß", %p)}, undef, "to_ascii\(\'🄄.\\uFE03⒈ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3,.\x{FE03}1.ß", %p)}, undef, "to_ascii\(\'3\,\.\\uFE031\.ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3,.\x{FE03}1.SS", %p)}, undef, "to_ascii\(\'3\,\.\\uFE031\.SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄄.\x{FE03}⒈SS", %p)}, undef, "to_ascii\(\'🄄.\\uFE03⒈SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄄.\x{FE03}⒈ss", %p)}, undef, "to_ascii\(\'🄄.\\uFE03⒈ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄄.\x{FE03}⒈Ss", %p)}, undef, "to_ascii\(\'🄄.\\uFE03⒈Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򢋻𑄳。𐰕񷒾\x{FEFF}", %p)}, undef, "to_ascii\(\'򢋻𑄳。𐰕񷒾\\uFEFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򢋻𑄳。𐰕񷒾\x{FEFF}", %p)}, undef, "to_ascii\(\'򢋻𑄳\。𐰕񷒾\\uFEFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A73}\x{094D}\x{1BF2}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1A73\\u094D\\u1BF2.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A73}\x{094D}\x{1BF2}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1A73\\u094D\\u1BF2.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A73}\x{094D}\x{1BF2}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1A73\\u094D\\u1BF2\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A73}\x{094D}\x{1BF2}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1A73\\u094D\\u1BF2\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴁ𐋨娤.\x{200D}\x{0981}\x{0601}\x{0A70}", %p)}, undef, "to_ascii\(\'Ⴁ𐋨娤\.\\u200D\\u0981\\u0601\\u0A70\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴁ𐋨娤.\x{200D}\x{0981}\x{0601}\x{0A70}", %p)}, undef, "to_ascii\(\'ⴁ𐋨娤\.\\u200D\\u0981\\u0601\\u0A70\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀Ⴄ𐹾󠅩。⒈\x{0736}ß", %p)}, undef, "to_ascii\(\'🄀Ⴄ𐹾\󠅩\。⒈\\u0736ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.Ⴄ𐹾󠅩。1.\x{0736}ß", %p)}, undef, "to_ascii\(\'0\.Ⴄ𐹾\󠅩\。1\.\\u0736ß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:900\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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.ⴄ𐹾󠅩。1.\x{0736}ß", %p)}, undef, "to_ascii\(\'0\.ⴄ𐹾\󠅩\。1\.\\u0736ß\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:901\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("0.Ⴄ𐹾󠅩。1.\x{0736}SS", %p)}, undef, "to_ascii\(\'0\.Ⴄ𐹾\󠅩\。1\.\\u0736SS\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:902\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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.ⴄ𐹾󠅩。1.\x{0736}ss", %p)}, undef, "to_ascii\(\'0\.ⴄ𐹾\󠅩\。1\.\\u0736ss\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:903\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("0.Ⴄ𐹾󠅩。1.\x{0736}Ss", %p)}, undef, "to_ascii\(\'0\.Ⴄ𐹾\󠅩\。1\.\\u0736Ss\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:904\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀ⴄ𐹾󠅩。⒈\x{0736}ß", %p)}, undef, "to_ascii\(\'🄀ⴄ𐹾\󠅩\。⒈\\u0736ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:905\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀Ⴄ𐹾󠅩。⒈\x{0736}SS", %p)}, undef, "to_ascii\(\'🄀Ⴄ𐹾\󠅩\。⒈\\u0736SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:906\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀ⴄ𐹾󠅩。⒈\x{0736}ss", %p)}, undef, "to_ascii\(\'🄀ⴄ𐹾\󠅩\。⒈\\u0736ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:907\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀Ⴄ𐹾󠅩。⒈\x{0736}Ss", %p)}, undef, "to_ascii\(\'🄀Ⴄ𐹾\󠅩\。⒈\\u0736Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠.\x{200C}-𐹸", %p)}, undef, "to_ascii\(\'\≠\.\\u200C\-𐹸\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}.\x{200C}-𐹸", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u200C\-𐹸\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:911\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0665}۱。\x{180B}𐡼\x{0663}", %p)}, undef, "to_ascii\(\'\\u0665۱。\\u180B𐡼\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:913\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0665}۱。\x{180B}𐡼\x{0663}", %p)}, undef, "to_ascii\(\'\\u0665۱\。\\u180B𐡼\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:914\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{066B}⒖。󙀷񅖙\x{0DCA}", %p)}, undef, "to_ascii\(\'\\u200C\\u066B⒖\。󙀷񅖙\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:915\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{066B}15.。󙀷񅖙\x{0DCA}", %p)}, undef, "to_ascii\(\'\\u200C\\u066B15\.\。󙀷񅖙\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:917\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.-逋𰶞򼥘", %p)}, undef, "to_ascii\(\'\\u0B4D\.\-逋𰶞򼥘\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{3164}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0847\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{1160}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0847\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{1160}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0847\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{1160}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0847\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{3164}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0847\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{3164}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0847\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0843}Ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0843Ⴃ。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0843}Ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0843Ⴃ\。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0843}ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0843ⴃ\。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0843}ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0843ⴃ。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.ς\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘.ς\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.ς\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘\.ς\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.Σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘\.Σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘\.σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.Σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘.Σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘.σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:950\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B5}。𐳺\x{0845}󠃧", %p)}, undef, "to_ascii\(\'\\u17B5\。𐳺\\u0845\󠃧\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򾏛暑.⾑\x{0662}", %p)}, undef, "to_ascii\(\'򾏛暑.⾑\\u0662\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:953\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򾏛暑.襾\x{0662}", %p)}, undef, "to_ascii\(\'򾏛暑\.襾\\u0662\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17D1}≯\x{08AA}。\x{060D}\x{08EC}", %p)}, undef, "to_ascii\(\'\\u17D1\≯\\u08AA\。\\u060D\\u08EC\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17D1}>\x{0338}\x{08AA}。\x{060D}\x{08EC}", %p)}, undef, "to_ascii\(\'\\u17D1\>\\u0338\\u08AA\。\\u060D\\u08EC\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫹񏔜𑚶\x{103A}.򕔔Ⴗ", %p)}, undef, "to_ascii\(\'𞫹񏔜𑚶\\u103A\.򕔔Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:957\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫹񏔜𑚶\x{103A}.򕔔ⴗ", %p)}, undef, "to_ascii\(\'𞫹񏔜𑚶\\u103A\.򕔔ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:958\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆽。𐨿񃱏񛂙", %p)}, undef, "to_ascii\(\'\󠆽。𐨿񃱏񛂙\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:959\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆽。𐨿񃱏񛂙", %p)}, undef, "to_ascii\(\'\󠆽\。𐨿񃱏񛂙\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:960\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BA9}\x{200C}.𞥖\x{200C}ꡓ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200C.𞥖\\u200Cꡓ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:961\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BA9}\x{200C}.𞥖\x{200C}ꡓ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200C\.𞥖\\u200Cꡓ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:963\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡉ񥜐ß.ጧ", %p)}, undef, "to_ascii\(\'ᡉ񥜐ß\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡉ񥜐SS.ጧ", %p)}, undef, "to_ascii\(\'ᡉ񥜐SS\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡉ񥜐ss.ጧ", %p)}, undef, "to_ascii\(\'ᡉ񥜐ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡉ񥜐Ss.ጧ", %p)}, undef, "to_ascii\(\'ᡉ񥜐Ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍴\x{200C}.򞞰\x{200C}", %p)}, undef, "to_ascii\(\'𑍴\\u200C\.򞞰\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CC}򶕐\x{0663}。Ⴜ", %p)}, undef, "to_ascii\(\'\\u06CC򶕐\\u0663\。Ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CC}򶕐\x{0663}。ⴜ", %p)}, undef, "to_ascii\(\'\\u06CC򶕐\\u0663\。ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0600}⮣\x{200C}\x{135F}。󯅪𐠨", %p)}, undef, "to_ascii\(\'\\u0600\⮣\\u200C\\u135F。󯅪𐠨\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:973\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0600}⮣\x{200C}\x{135F}。󯅪𐠨", %p)}, undef, "to_ascii\(\'\\u0600\⮣\\u200C\\u135F\。󯅪𐠨\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:975\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。デßꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。デßꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}ßꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099ßꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:978\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ。テ\x{3099}ßꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\。テ\\u3099ßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:979\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ。デßꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\。デßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:981\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ。デSSꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。デSSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}SSꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099SSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:984\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ。テ\x{3099}ssꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\。テ\\u3099ssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:985\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ。デssꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\。デssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:986\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ。デSsꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。デSsꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:987\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}Ssꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099Ssꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:988\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--9kj.xn--ss-mj4a0834c49ue", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'xn\-\-9kj\.xn\-\-ss\-mj4a0834c49ue\'\)\ \[data\/IdnaTest\.txt\:989\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ.デssꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\.デssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:990\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ.テ\x{3099}ssꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\.テ\\u3099ssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:991\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ.テ\x{3099}SSꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\.テ\\u3099SSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ.デSSꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\.デSSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ.デSsꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\.デSsꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ.テ\x{3099}Ssꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\.テ\\u3099Ssꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:995\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--9kj.xn--zca146vs88eyh1d", %p)}, "xn--9kj.xn--zca146vs88eyh1d", "to_ascii\(\'xn\-\-9kj\.xn\-\-zca146vs88eyh1d\'\)\ \[data\/IdnaTest\.txt\:996\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ.デßꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\.デßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:997\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ.テ\x{3099}ßꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\.テ\\u3099ßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:999\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿\x{0BCD}.7-\x{08A9}", %p)}, undef, "to_ascii\(\'𑖿\\u0BCD.7\-\\u08A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1001\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿\x{0BCD}.7-\x{08A9}", %p)}, undef, "to_ascii\(\'𑖿\\u0BCD\.7\-\\u08A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1002\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{17D2}🟌.\x{1734}񌂒\x{1DC1}\x{0625}", %p)}, undef, "to_ascii\(\'\≯\\u17D2🟌\.\\u1734񌂒\\u1DC1\\u0625\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{17D2}🟌.\x{1734}񌂒\x{1DC1}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'\>\\u0338\\u17D2🟌\.\\u1734񌂒\\u1DC1\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖲򠍜Ⴗ쏔。𐴋", %p)}, undef, "to_ascii\(\'𑖲򠍜Ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1005\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖲򠍜Ⴗ쏔。𐴋", %p)}, undef, "to_ascii\(\'𑖲򠍜Ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖲򠍜ⴗ쏔。𐴋", %p)}, undef, "to_ascii\(\'𑖲򠍜ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖲򠍜ⴗ쏔。𐴋", %p)}, undef, "to_ascii\(\'𑖲򠍜ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'ß。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'ß\。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1010\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß。𐋳ⴌ\x{0591}", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ß\。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1011\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS。𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'SS\。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1013\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss。𐋳ⴌ\x{0591}", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ss\。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1014\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss.xn--ccb723rvh6l", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ss\.xn\-\-ccb723rvh6l\'\)\ \[data\/IdnaTest\.txt\:1015\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss.𐋳ⴌ\x{0591}", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ss\.𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1016\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS.𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'SS\.𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1017\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--zca.xn--ccb723rvh6l", %p)}, "xn--zca.xn--ccb723rvh6l", "to_ascii\(\'xn\-\-zca\.xn\-\-ccb723rvh6l\'\)\ \[data\/IdnaTest\.txt\:1018\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß.𐋳ⴌ\x{0591}", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ß\.𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1019\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß。𐋳ⴌ\x{0591}", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ß。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1021\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS。𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'SS。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1023\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss。𐋳ⴌ\x{0591}", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ss。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1024\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}", %p)}, undef, "to_ascii\(\'\-ꡝ𐩁\.\\u200C➇\\uABED\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1025\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0B42}\x{08B4}\x{17CD}\x{0DCA}.󠆇\x{200D}", %p)}, undef, "to_ascii\(\'\\u0B42\\u08B4\\u17CD\\u0DCA\.\󠆇\\u200D\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1027\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠅡\x{200D}󠨿ꡁ.\x{07D3}\x{200C}󠜔", %p)}, undef, "to_ascii\(\'\󠅡\\u200D\󠨿ꡁ\.\\u07D3\\u200C\󠜔\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:1029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴑ.\x{07D1}\x{FB8A}\x{0634}", %p)}, undef, "to_ascii\(\'Ⴑ.\\u07D1\\uFB8A\\u0634\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴑ.\x{07D1}\x{0698}\x{0634}", %p)}, undef, "to_ascii\(\'Ⴑ\.\\u07D1\\u0698\\u0634\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1032\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0698}\x{0634}", %p)}, "xn--8kj.xn--zgb3ro7a", "to_ascii\(\'ⴑ\.\\u07D1\\u0698\\u0634\'\)\ \[data\/IdnaTest\.txt\:1033\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--8kj.xn--zgb3ro7a", %p)}, "xn--8kj.xn--zgb3ro7a", "to_ascii\(\'xn\-\-8kj\.xn\-\-zgb3ro7a\'\)\ \[data\/IdnaTest\.txt\:1034\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{FB8A}\x{0634}", %p)}, "xn--8kj.xn--zgb3ro7a", "to_ascii\(\'ⴑ.\\u07D1\\uFB8A\\u0634\'\)\ \[data\/IdnaTest\.txt\:1035\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝩝玵\x{A9C0}。𕹊𝟵", %p)}, undef, "to_ascii\(\'𝩝玵\\uA9C0\。𕹊𝟵\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩝玵\x{A9C0}。𕹊9", %p)}, undef, "to_ascii\(\'𝩝玵\\uA9C0\。𕹊9\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{06CF}󂎶𝟗。Ⴣꜟ𐰾󄮷", %p)}, undef, "to_ascii\(\'\\u200C\\u06CF󂎶𝟗。Ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{06CF}󂎶9。Ⴣꜟ𐰾󄮷", %p)}, undef, "to_ascii\(\'\\u200C\\u06CF󂎶9\。Ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{06CF}󂎶9。ⴣꜟ𐰾󄮷", %p)}, undef, "to_ascii\(\'\\u200C\\u06CF󂎶9\。ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{06CF}󂎶𝟗。ⴣꜟ𐰾󄮷", %p)}, undef, "to_ascii\(\'\\u200C\\u06CF󂎶𝟗。ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B2\ B5\ \[data\/IdnaTest\.txt\:1044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D0}。\x{1B70}𹝗󠇑-", %p)}, undef, "to_ascii\(\'\\u07D0。\\u1B70𹝗\󠇑\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D0}。\x{1B70}𹝗󠇑-", %p)}, undef, "to_ascii\(\'\\u07D0\。\\u1B70𹝗\󠇑\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞧺󨸝。絧\x{0EB7}", %p)}, undef, "to_ascii\(\'𞧺󨸝\。絧\\u0EB7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}Ⴋ.𝟳≯︒\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39Ⴋ.𝟳\≯︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}Ⴋ.𝟳>\x{0338}︒\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39Ⴋ.𝟳\>\\u0338︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}Ⴋ.7≯。\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39Ⴋ\.7\≯\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}Ⴋ.7>\x{0338}。\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39Ⴋ\.7\>\\u0338\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}ⴋ.7>\x{0338}。\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39ⴋ\.7\>\\u0338\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}ⴋ.7≯。\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39ⴋ\.7\≯\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}ⴋ.𝟳>\x{0338}︒\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39ⴋ.𝟳\>\\u0338︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}ⴋ.𝟳≯︒\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39ⴋ.𝟳\≯︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}F\x{ABED}。⤵︒\x{06AD}𐹸", %p)}, undef, "to_ascii\(\'\\u200DF\\uABED\。\⤵︒\\u06AD𐹸\'\)\ throws\ error\ P1\ V6\ B1\ \[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_ascii("\x{200D}F\x{ABED}。⤵。\x{06AD}𐹸", %p)}, "xn--f-0w5e.xn--0ri.xn--gkb6716k", "to_ascii\(\'\\u200DF\\uABED\。\⤵\。\\u06AD𐹸\'\)\ \[data\/IdnaTest\.txt\:1059\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}。⤵。\x{06AD}𐹸", %p)}, "xn--f-0w5e.xn--0ri.xn--gkb6716k", "to_ascii\(\'\\u200Df\\uABED\。\⤵\。\\u06AD𐹸\'\)\ \[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("xn--f-0w5e.xn--0ri.xn--gkb6716k", %p)}, "xn--f-0w5e.xn--0ri.xn--gkb6716k", "to_ascii\(\'xn\-\-f\-0w5e\.xn\-\-0ri\.xn\-\-gkb6716k\'\)\ \[data\/IdnaTest\.txt\:1063\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("f\x{ABED}.⤵.\x{06AD}𐹸", %p)}, "xn--f-0w5e.xn--0ri.xn--gkb6716k", "to_ascii\(\'f\\uABED\.\⤵\.\\u06AD𐹸\'\)\ \[data\/IdnaTest\.txt\:1064\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("F\x{ABED}.⤵.\x{06AD}𐹸", %p)}, "xn--f-0w5e.xn--0ri.xn--gkb6716k", "to_ascii\(\'F\\uABED\.\⤵\.\\u06AD𐹸\'\)\ \[data\/IdnaTest\.txt\:1065\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}f\x{ABED}。⤵︒\x{06AD}𐹸", %p)}, undef, "to_ascii\(\'\\u200Df\\uABED\。\⤵︒\\u06AD𐹸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}🄇𐸷︒。𐹰\x{0F84}", %p)}, undef, "to_ascii\(\'\\u0775🄇𐸷︒。𐹰\\u0F84\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:1068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}6,𐸷。。𐹰\x{0F84}", %p)}, undef, "to_ascii\(\'\\u07756\,𐸷\。\。𐹰\\u0F84\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐽜.\x{2DF3}\x{0748}𞬜", %p)}, undef, "to_ascii\(\'𐽜\.\\u2DF3\\u0748𞬜\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐽜.\x{0748}\x{2DF3}𞬜", %p)}, undef, "to_ascii\(\'𐽜\.\\u0748\\u2DF3𞬜\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴂ䠺。\x{084E}旤𺹼\x{0850}", %p)}, undef, "to_ascii\(\'Ⴂ䠺\。\\u084E旤𺹼\\u0850\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴂ䠺。\x{084E}旤𺹼\x{0850}", %p)}, undef, "to_ascii\(\'ⴂ䠺\。\\u084E旤𺹼\\u0850\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄇伐︒.򟳭\x{1039}", %p)}, undef, "to_ascii\(\'🄇伐︒\.򟳭\\u1039\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6,伐。.򟳭\x{1039}", %p)}, undef, "to_ascii\(\'6\,伐\。\.򟳭\\u1039\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1075\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹤\x{0DCA}⺶。\x{200D}𐫚Ⴚ\x{1B44}", %p)}, undef, "to_ascii\(\'\\u200D𐹤\\u0DCA⺶\。\\u200D𐫚Ⴚ\\u1B44\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1076\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}𐹤\x{0DCA}⺶。\x{200D}𐫚ⴚ\x{1B44}", %p)}, undef, "to_ascii\(\'\\u200D𐹤\\u0DCA⺶\。\\u200D𐫚ⴚ\\u1B44\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1078\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0FAB}.󐓯򑿜", %p)}, undef, "to_ascii\(\'\\u0FAB.󐓯򑿜\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAB}.󐓯򑿜", %p)}, undef, "to_ascii\(\'\\u0FAB\.󐓯򑿜\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}Ⴆ.≠\x{FE8D}", %p)}, undef, "to_ascii\(\'\\u072D\\u200CႦ\.\≠\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}Ⴆ.=\x{0338}\x{FE8D}", %p)}, undef, "to_ascii\(\'\\u072D\\u200CႦ\.\=\\u0338\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}Ⴆ.≠\x{0627}", %p)}, undef, "to_ascii\(\'\\u072D\\u200CႦ\.\≠\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}Ⴆ.=\x{0338}\x{0627}", %p)}, undef, "to_ascii\(\'\\u072D\\u200CႦ\.\=\\u0338\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}ⴆ.=\x{0338}\x{0627}", %p)}, undef, "to_ascii\(\'\\u072D\\u200Cⴆ\.\=\\u0338\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1090\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}ⴆ.≠\x{0627}", %p)}, undef, "to_ascii\(\'\\u072D\\u200Cⴆ\.\≠\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1092\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}ⴆ.=\x{0338}\x{FE8D}", %p)}, undef, "to_ascii\(\'\\u072D\\u200Cⴆ\.\=\\u0338\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1094\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}ⴆ.≠\x{FE8D}", %p)}, undef, "to_ascii\(\'\\u072D\\u200Cⴆ\.\≠\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1096\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07F2}󂉽𝟥ꘌ.\x{07CA}", %p)}, undef, "to_ascii\(\'\\u07F2󂉽𝟥ꘌ.\\u07CA\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1098\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07F2}󂉽3ꘌ.\x{07CA}", %p)}, undef, "to_ascii\(\'\\u07F2󂉽3ꘌ\.\\u07CA\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.󠆌򝒅-", %p)}, undef, "to_ascii\(\'\-\.\󠆌򝒅\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲ς", %p)}, undef, "to_ascii\(\'򲼁\\u200C。\\u200C𐳲ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲ς", %p)}, undef, "to_ascii\(\'򲼁\\u200C\。\\u200C𐳲ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1103\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲Σ", %p)}, undef, "to_ascii\(\'򲼁\\u200C\。\\u200C𐳲Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1105\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲σ", %p)}, undef, "to_ascii\(\'򲼁\\u200C\。\\u200C𐳲σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1107\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲Σ", %p)}, undef, "to_ascii\(\'򲼁\\u200C。\\u200C𐳲Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1109\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲σ", %p)}, undef, "to_ascii\(\'򲼁\\u200C。\\u200C𐳲σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1111\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("堕𑍍󠇣。ᠻᢕ\x{200C}-", %p)}, undef, "to_ascii\(\'堕𑍍\󠇣\。ᠻᢕ\\u200C\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1113\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}ς\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077Eς\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1115\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}ς\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077Eς\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1116\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}Σ\x{062A}Σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077EΣ\\u062AΣ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1117\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}σ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077Eσ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1118\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}Σ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077EΣ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1119\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}Σ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077EΣ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1120\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}σ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077Eσ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1121\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}Σ\x{062A}Σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077EΣ\\u062AΣ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1122\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}σ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077Eσ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1123\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}Σ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077EΣ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1124\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}Σ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077EΣ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1125\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}σ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077Eσ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1126\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𸷣.-𝟻ß", %p)}, undef, "to_ascii\(\'𸷣.\-𝟻ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-5ß", %p)}, undef, "to_ascii\(\'𸷣\.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-5SS", %p)}, undef, "to_ascii\(\'𸷣\.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-𝟻SS", %p)}, undef, "to_ascii\(\'𸷣.\-𝟻SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-𝟻ss", %p)}, undef, "to_ascii\(\'𸷣.\-𝟻ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-𝟻Ss", %p)}, undef, "to_ascii\(\'𸷣.\-𝟻Ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𑄴.𐅾Ⴥ񓴸", %p)}, undef, "to_ascii\(\'\\u200D𑄴\.𐅾Ⴥ񓴸\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𑄴.𐅾ⴥ񓴸", %p)}, undef, "to_ascii\(\'\\u200D𑄴\.𐅾ⴥ񓴸\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򒭷。ß󞑓\x{200D}", %p)}, undef, "to_ascii\(\'򒭷\。ß󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򒭷。SS󞑓\x{200D}", %p)}, undef, "to_ascii\(\'򒭷\。SS󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򒭷。ss󞑓\x{200D}", %p)}, undef, "to_ascii\(\'򒭷\。ss󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1141\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򒭷。Ss󞑓\x{200D}", %p)}, undef, "to_ascii\(\'򒭷\。Ss󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1143\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󙀇。󠄘䷚𞤛", %p)}, undef, "to_ascii\(\'\\u200C󙀇\。\󠄘䷚𞤛\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1145\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐸾\x{200C}𝪟。𐹾", %p)}, undef, "to_ascii\(\'𐸾\\u200C𝪟\。𐹾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1147\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹ς\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1149\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹ς\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹ς\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹ς\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹Σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹Σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1159\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1161\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1163\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹Σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1165\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹Σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒋。⒈\x{200D}򛶪", %p)}, undef, "to_ascii\(\'⒋。⒈\\u200D򛶪\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1173\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.。1.\x{200D}򛶪", %p)}, undef, "to_ascii\(\'4\.\。1\.\\u200D򛶪\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ß。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEß。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ß。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEß。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ß。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEß\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}SS。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESS\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEss\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESs\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}SS。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESS。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEss。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESs。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}SS。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESS。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ss。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEss。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ss。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESs。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0661}\x{ABED}򚝪.󠀣\x{FE2E}𑁆\x{17D2}", %p)}, undef, "to_ascii\(\'\\u0661\\uABED򚝪\.\󠀣\\uFE2E𑁆\\u17D2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0661}\x{ABED}򚝪.󠀣𑁆\x{17D2}\x{FE2E}", %p)}, undef, "to_ascii\(\'\\u0661\\uABED򚝪\.\󠀣𑁆\\u17D2\\uFE2E\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_ascii\(\'Ⴓ𑂹\\u200D򒾎.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1191\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_ascii\(\'Ⴓ𑂹\\u200D򒾎\.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1192\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_ascii\(\'ⴓ𑂹\\u200D򒾎\.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_ascii\(\'ⴓ𑂹\\u200D򒾎.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}.🄆꡶", %p)}, undef, "to_ascii\(\'\\u0BCD\.🄆꡶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}.5,꡶", %p)}, undef, "to_ascii\(\'\\u0BCD\.5\,꡶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񥛿𴫊۸。󠠾-", %p)}, undef, "to_ascii\(\'񥛿𴫊۸\。\󠠾\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𷍞\x{06AF}𐹦。\x{0667}\x{0854}\x{084F}", %p)}, undef, "to_ascii\(\'𷍞\\u06AF𐹦\。\\u0667\\u0854\\u084F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ꡀႾ🄂.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DꡀႾ🄂\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ꡀႾ1,.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DꡀႾ1\,\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ꡀⴞ1,.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dꡀⴞ1\,\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ꡀⴞ🄂.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dꡀⴞ🄂\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0665}ᡙ.\x{1BAA}񒂱⾆", %p)}, undef, "to_ascii\(\'\\u0665ᡙ.\\u1BAA񒂱⾆\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0665}ᡙ.\x{1BAA}񒂱舌", %p)}, undef, "to_ascii\(\'\\u0665ᡙ\.\\u1BAA񒂱舌\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1208\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㇕󠤹󏶍.񵧳", %p)}, undef, "to_ascii\(\'㇕\󠤹󏶍\.񵧳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇜𞓇-򒬁.4Ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\󠇜𞓇\-򒬁\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇜𞓇-򒬁.4ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\󠇜𞓇\-򒬁\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫ß\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ。\󠫫ß\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫ß\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ\。\󠫫ß\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫SS\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ\。\󠫫SS\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫ss\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ\。\󠫫ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫Ss\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ\。\󠫫Ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫SS\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ。\󠫫SS\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫ss\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ。\󠫫ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫Ss\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ。\󠫫Ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1221\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("₁。ᠻ\x{063D}", %p)}, undef, "to_ascii\(\'₁。ᠻ\\u063D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1222\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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("1。ᠻ\x{063D}", %p)}, undef, "to_ascii\(\'1\。ᠻ\\u063D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1223\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("􎑪\x{200C}.\x{FE7E}񵐊𥏫", %p)}, undef, "to_ascii\(\'􎑪\\u200C\.\\uFE7E񵐊𥏫\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􎑪\x{200C}.\x{0020}\x{0652}񵐊𥏫", %p)}, undef, "to_ascii\(\'􎑪\\u200C\.\\u0020\\u0652񵐊𥏫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝪤≯。╎", %p)}, undef, "to_ascii\(\'𝪤\≯。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝪤>\x{0338}。╎", %p)}, undef, "to_ascii\(\'𝪤\>\\u0338。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝪤≯。╎", %p)}, undef, "to_ascii\(\'𝪤\≯\。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝪤>\x{0338}。╎", %p)}, undef, "to_ascii\(\'𝪤\>\\u0338\。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴋ≮􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_ascii\(\'Ⴋ\≮􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴋ<\x{0338}􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_ascii\(\'Ⴋ\<\\u0338􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1234\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴋ<\x{0338}􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_ascii\(\'ⴋ\<\\u0338􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴋ≮􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_ascii\(\'ⴋ\≮􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪.򕱀≯", %p)}, undef, "to_ascii\(\'𑋪\.򕱀\≯\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪.򕱀>\x{0338}", %p)}, undef, "to_ascii\(\'𑋪\.򕱀\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}É\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D.\\uA802É\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}E\x{0301}\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D.\\uA802E\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}É\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D\.\\uA802É\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}E\x{0301}\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D\.\\uA802E\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}e\x{0301}\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D\.\\uA802e\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}é\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D\.\\uA802é\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}e\x{0301}\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D.\\uA802e\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}é\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D.\\uA802é\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡶ\x{200D}𑖿。︒ꡒ", %p)}, undef, "to_ascii\(\'ᡶ\\u200D𑖿。︒ꡒ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1250\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᡶ\x{200D}𑖿。。ꡒ", %p)}, undef, "to_ascii\(\'ᡶ\\u200D𑖿\。\。ꡒ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:1252\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}≮", %p)}, undef, "to_ascii\(\'𐵞񱐾\\u1BF3\\u200C。ᡏ\\uFE0B\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}<\x{0338}", %p)}, undef, "to_ascii\(\'𐵞񱐾\\u1BF3\\u200C。ᡏ\\uFE0B\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}≮", %p)}, undef, "to_ascii\(\'𐵞񱐾\\u1BF3\\u200C\。ᡏ\\uFE0B\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}<\x{0338}", %p)}, undef, "to_ascii\(\'𐵞񱐾\\u1BF3\\u200C\。ᡏ\\uFE0B\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ.\x{0325}ꡇ", %p)}, undef, "to_ascii\(\'Ⴣ.\\u0325ꡇ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ.\x{0325}ꡇ", %p)}, undef, "to_ascii\(\'Ⴣ\.\\u0325ꡇ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1259\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0325}ꡇ", %p)}, undef, "to_ascii\(\'ⴣ\.\\u0325ꡇ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1260\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0325}ꡇ", %p)}, undef, "to_ascii\(\'ⴣ.\\u0325ꡇ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1261\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⟯𐮙.󂮼𫜏Ⴤ񨋴", %p)}, undef, "to_ascii\(\'\⟯𐮙.󂮼𫜏Ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⟯𐮙.󂮼𫜏Ⴤ񨋴", %p)}, undef, "to_ascii\(\'\⟯𐮙\.󂮼𫜏Ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⟯𐮙.󂮼𫜏ⴤ񨋴", %p)}, undef, "to_ascii\(\'\⟯𐮙\.󂮼𫜏ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⟯𐮙.󂮼𫜏ⴤ񨋴", %p)}, undef, "to_ascii\(\'\⟯𐮙.󂮼𫜏ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DCD}𝨮≮.🀴", %p)}, undef, "to_ascii\(\'\\u1DCD𝨮\≮.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DCD}𝨮<\x{0338}.🀴", %p)}, undef, "to_ascii\(\'\\u1DCD𝨮\<\\u0338.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DCD}𝨮≮.🀴", %p)}, undef, "to_ascii\(\'\\u1DCD𝨮\≮\.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DCD}𝨮<\x{0338}.🀴", %p)}, undef, "to_ascii\(\'\\u1DCD𝨮\<\\u0338\.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1280\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1281\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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}。-", %p)}, undef, "to_ascii\(\'\\uA8E7\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1282\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑋪𽣟󠽐。饈≠𐹻", %p)}, undef, "to_ascii\(\'𑋪𽣟\󠽐。饈\≠𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪𽣟󠽐。饈=\x{0338}𐹻", %p)}, undef, "to_ascii\(\'𑋪𽣟\󠽐。饈\=\\u0338𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪𽣟󠽐。饈≠𐹻", %p)}, undef, "to_ascii\(\'𑋪𽣟\󠽐\。饈\≠𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪𽣟󠽐。饈=\x{0338}𐹻", %p)}, undef, "to_ascii\(\'𑋪𽣟\󠽐\。饈\=\\u0338𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1286\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067A}𐫫⁷。≯邅󠃞4", %p)}, undef, "to_ascii\(\'\\u067A𐫫⁷。\≯邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067A}𐫫⁷。>\x{0338}邅󠃞4", %p)}, undef, "to_ascii\(\'\\u067A𐫫⁷。\>\\u0338邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067A}𐫫7。≯邅󠃞4", %p)}, undef, "to_ascii\(\'\\u067A𐫫7\。\≯邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067A}𐫫7。>\x{0338}邅󠃞4", %p)}, undef, "to_ascii\(\'\\u067A𐫫7\。\>\\u0338邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1290\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񱙏ᡇ-𝨊.\x{0665}𐋫𐹶򍙹", %p)}, undef, "to_ascii\(\'񱙏ᡇ\-𝨊\.\\u0665𐋫𐹶򍙹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1291\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹶ᠴ\x{0B41}.넨-󶗾", %p)}, undef, "to_ascii\(\'񎹶ᠴ\\u0B41\.넨\-󶗾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1292\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹶ᠴ\x{0B41}.넨-󶗾", %p)}, undef, "to_ascii\(\'񎹶ᠴ\\u0B41\.넨\-󶗾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{076E}\x{06CC}\x{200D}⒈。𐋣-", %p)}, undef, "to_ascii\(\'\\u076E\\u06CC\\u200D⒈\。𐋣\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1294\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{076E}\x{06CC}\x{200D}1.。𐋣-", %p)}, undef, "to_ascii\(\'\\u076E\\u06CC\\u200D1\.\。𐋣\-\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:1296\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴌ。󭾖𞥉", %p)}, undef, "to_ascii\(\'Ⴌ\。󭾖𞥉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ。󭾖𞥉", %p)}, undef, "to_ascii\(\'ⴌ\。󭾖𞥉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ𐠗.\x{17D2}󠄓-󩚨", %p)}, undef, "to_ascii\(\'ᡒ𐠗\.\\u17D2\󠄓\-󩚨\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈󊻊\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈󊻊\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1303\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.󊻊\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.󊻊\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1307\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--m9j.xn--wkk6036d", "to_ascii\(\'て\。\\u200C㇎𐨸\'\)\ \[data\/IdnaTest\.txt\:1309\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--m9j.xn--wkk6036d", %p)}, "xn--m9j.xn--wkk6036d", "to_ascii\(\'xn\-\-m9j\.xn\-\-wkk6036d\'\)\ \[data\/IdnaTest\.txt\:1311\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--m9j.xn--wkk6036d", "to_ascii\(\'て\.㇎𐨸\'\)\ \[data\/IdnaTest\.txt\:1312\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'ς。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1313\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'ς\。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1314\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'Σ\。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1315\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'σ\。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1316\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'Σ。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1317\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'σ。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1318\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑈵󡚑񟺼.ႢႵ", %p)}, undef, "to_ascii\(\'𑈵󡚑񟺼\.ႢႵ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵󡚑񟺼.ⴂⴕ", %p)}, undef, "to_ascii\(\'𑈵󡚑񟺼\.ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵󡚑񟺼.Ⴂⴕ", %p)}, undef, "to_ascii\(\'𑈵󡚑񟺼\.Ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀾🄈⾛\x{0741}.\x{200D}󡉠\x{068D}", %p)}, undef, "to_ascii\(\'🀾🄈⾛\\u0741.\\u200D󡉠\\u068D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀾7,走\x{0741}.\x{200D}󡉠\x{068D}", %p)}, undef, "to_ascii\(\'🀾7\,走\\u0741\.\\u200D󡉠\\u068D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ。Ӏ򧥽", %p)}, undef, "to_ascii\(\'ᡙ。Ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ。Ӏ򧥽", %p)}, undef, "to_ascii\(\'ᡙ\。Ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1327\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ。ӏ򧥽", %p)}, undef, "to_ascii\(\'ᡙ\。ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1328\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ。ӏ򧥽", %p)}, undef, "to_ascii\(\'ᡙ。ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}-。񅭣⺖ᄾ", %p)}, undef, "to_ascii\(\'\\u0666\-\。񅭣⺖ᄾ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1330\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𐋷󠇐。\x{07EF}", %p)}, undef, "to_ascii\(\'\-𐋷\󠇐\。\\u07EF\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1331\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}𐹴󠴚멈.\x{2D7F}􍼶", %p)}, undef, "to_ascii\(\'\\u200C𐹴\󠴚멈\.\\u2D7F􍼶\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}𐹴󠴚멈.\x{2D7F}􍼶", %p)}, undef, "to_ascii\(\'\\u200C𐹴\󠴚멈\.\\u2D7F􍼶\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1334\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.ᢣ𐹵", %p)}, undef, "to_ascii\(\'\≮\.ᢣ𐹵\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1336\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.ᢣ𐹵", %p)}, undef, "to_ascii\(\'\<\\u0338\.ᢣ𐹵\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1337\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞤴⾆。\x{200C}𑘿񡭠𐲈", %p)}, undef, "to_ascii\(\'𞤴⾆。\\u200C𑘿񡭠𐲈\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1338\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞤴舌。\x{200C}𑘿񡭠𐲈", %p)}, undef, "to_ascii\(\'𞤴舌\。\\u200C𑘿񡭠𐲈\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.𝟷ς𞷼ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.𝟷ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.1ς𞷼ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.1ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.1ς𞷼ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.1ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.1Σ𞷼Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.1Σ𞷼Σ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1348\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.1σ𞷼σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.1σ𞷼σ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1350\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.𝟷ς𞷼ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.𝟷ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.𝟷Σ𞷼Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.𝟷Σ𞷼Σ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.𝟷σ𞷼σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.𝟷σ𞷼σ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4C}\x{18A9}󸥿。𝟪Ⴜ", %p)}, undef, "to_ascii\(\'\\u0E4C\\u18A9󸥿。𝟪Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4C}\x{18A9}󸥿。8Ⴜ", %p)}, undef, "to_ascii\(\'\\u0E4C\\u18A9󸥿\。8Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4C}\x{18A9}󸥿。8ⴜ", %p)}, undef, "to_ascii\(\'\\u0E4C\\u18A9󸥿\。8ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4C}\x{18A9}󸥿。𝟪ⴜ", %p)}, undef, "to_ascii\(\'\\u0E4C\\u18A9󸥿。𝟪ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1361\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_ascii\(\'䪏\\u0640᠇𑓀。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1362\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_ascii\(\'䪏\\u0640᠇𑓀。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1363\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_ascii\(\'䪏\\u0640᠇𑓀\。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1364\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_ascii\(\'䪏\\u0640᠇𑓀\。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1365\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑍍。󠙉󠇂", %p)}, undef, "to_ascii\(\'𑍍。\󠙉\󠇂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍍。󠙉󠇂", %p)}, undef, "to_ascii\(\'𑍍\。\󠙉\󠇂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𙞤󠁧。ς\x{200D}\x{0600}𑄴", %p)}, undef, "to_ascii\(\'𙞤\󠁧\。ς\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𙞤󠁧。Σ\x{200D}\x{0600}𑄴", %p)}, undef, "to_ascii\(\'𙞤\󠁧\。Σ\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𙞤󠁧。σ\x{200D}\x{0600}𑄴", %p)}, undef, "to_ascii\(\'𙞤\󠁧\。σ\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1372\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0842}\x{07CB}𑄳.\x{0DCA}", %p)}, undef, "to_ascii\(\'\\u0842\\u07CB𑄳.\\u0DCA\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1374\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0842}\x{07CB}𑄳.\x{0DCA}", %p)}, undef, "to_ascii\(\'\\u0842\\u07CB𑄳\.\\u0DCA\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1375\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󋮸󑧠񛎑-。\x{200C}", %p)}, undef, "to_ascii\(\'󋮸󑧠񛎑\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1376\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹵.𞡮", %p)}, undef, "to_ascii\(\'𐹵.𞡮\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1378\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹵.𞡮", %p)}, undef, "to_ascii\(\'𐹵\.𞡮\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1379\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-ᢉ。Ↄ", %p)}, undef, "to_ascii\(\'\-ᢉ。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᢉ。Ↄ", %p)}, undef, "to_ascii\(\'\-ᢉ\。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1381\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:1382\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:1383\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}-︒\x{0817}。ß哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\u0817\。ß哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{0817}。ß哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\u0817\。ß哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{0817}。SS哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\u0817\。SS哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{0817}。ss哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\u0817\。ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{0817}。Ss哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\u0817\。Ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{0817}。SS哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\u0817\。SS哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{0817}。ss哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\u0817\。ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{0817}。Ss哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\u0817\。Ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.𑂵\x{1BAB}", %p)}, undef, "to_ascii\(\'︒.𑂵\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1400\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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\:1401\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07AB}。\x{200D}", %p)}, undef, "to_ascii\(\'\\u07AB\。\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1402\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}⥤。𞶣", %p)}, undef, "to_ascii\(\'\\u200D\⥤。𞶣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}⥤。𞶣", %p)}, undef, "to_ascii\(\'\\u200D\⥤\。𞶣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ𝟢\x{0669}.\x{1C32}ς", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟢\\u0669.\\u1C32ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ0\x{0669}.\x{1C32}ς", %p)}, undef, "to_ascii\(\'\-Ⴄ0\\u0669\.\\u1C32ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1409\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}ς", %p)}, undef, "to_ascii\(\'\-ⴄ0\\u0669\.\\u1C32ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1410\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-Ⴄ0\x{0669}.\x{1C32}Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ0\\u0669\.\\u1C32Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1411\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}σ", %p)}, undef, "to_ascii\(\'\-ⴄ0\\u0669\.\\u1C32σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1412\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}ς", %p)}, undef, "to_ascii\(\'\-ⴄ𝟢\\u0669.\\u1C32ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1413\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-Ⴄ𝟢\x{0669}.\x{1C32}Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟢\\u0669.\\u1C32Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1414\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}σ", %p)}, undef, "to_ascii\(\'\-ⴄ𝟢\\u0669.\\u1C32σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1415\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򟣀。-", %p)}, undef, "to_ascii\(\'򟣀\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴ß≯", %p)}, undef, "to_ascii\(\'\⋠𐋮.񓓍𑖴ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1417\]") 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\:1418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴ß≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.񓓍𑖴ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1419\]") 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\:1420\]") 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\:1421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴SS≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.񓓍𑖴SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1422\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.񓓍𑖴ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1423\]") 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\:1424\]") 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\:1425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴Ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.񓓍𑖴Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1426\]") 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\:1427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴SS≯", %p)}, undef, "to_ascii\(\'\⋠𐋮.񓓍𑖴SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1428\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮.񓓍𑖴ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1429\]") 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\:1430\]") 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\:1431\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴Ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮.񓓍𑖴Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𐋸\x{0662}。𑋥\x{08DE}򫰮", %p)}, undef, "to_ascii\(\'1𐋸\\u0662。𑋥\\u08DE򫰮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1433\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𐋸\x{0662}。𑋥\x{08DE}򫰮", %p)}, undef, "to_ascii\(\'1𐋸\\u0662\。𑋥\\u08DE򫰮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1434\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{0663}Ⴢ򈡄\x{200C}", %p)}, undef, "to_ascii\(\'儭\-。\\u0663Ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1435\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{0663}Ⴢ򈡄\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。\\u0663Ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1437\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{0663}ⴢ򈡄\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。\\u0663ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1439\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{0663}ⴢ򈡄\x{200C}", %p)}, undef, "to_ascii\(\'儭\-。\\u0663ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟺𐋷\x{0845}.ᡀ𚎑", %p)}, undef, "to_ascii\(\'𝟺𐋷\\u0845.ᡀ𚎑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4𐋷\x{0845}.ᡀ𚎑", %p)}, undef, "to_ascii\(\'4𐋷\\u0845\.ᡀ𚎑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯-\x{06BE}\x{20D4}.⒈𐹱", %p)}, undef, "to_ascii\(\'\≯\-\\u06BE\\u20D4\.⒈𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}-\x{06BE}\x{20D4}.⒈𐹱", %p)}, undef, "to_ascii\(\'\>\\u0338\-\\u06BE\\u20D4\.⒈𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯-\x{06BE}\x{20D4}.1.𐹱", %p)}, undef, "to_ascii\(\'\≯\-\\u06BE\\u20D4\.1\.𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}-\x{06BE}\x{20D4}.1.𐹱", %p)}, undef, "to_ascii\(\'\>\\u0338\-\\u06BE\\u20D4\.1\.𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩔.󚝷蚀", %p)}, undef, "to_ascii\(\'𝩔.󚝷蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩔.󚝷蚀", %p)}, undef, "to_ascii\(\'𝩔\.󚝷蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1450\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}Ⴘ.𞮸\x{0F84}ß\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867Ⴘ\.𞮸\\u0F84ß\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1451\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}ⴘ.𞮸\x{0F84}ß\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867ⴘ\.𞮸\\u0F84ß\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}Ⴘ.𞮸\x{0F84}SS\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867Ⴘ\.𞮸\\u0F84SS\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}ⴘ.𞮸\x{0F84}ss\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867ⴘ\.𞮸\\u0F84ss\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}Ⴘ.𞮸\x{0F84}Ss\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867Ⴘ\.𞮸\\u0F84Ss\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAD}\x{0605}󋧄。凬", %p)}, undef, "to_ascii\(\'\\u0FAD\\u0605󋧄。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAD}\x{0605}󋧄。凬", %p)}, undef, "to_ascii\(\'\\u0FAD\\u0605󋧄\。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⇿🄈\x{200D}𐮀。\x{1734}", %p)}, undef, "to_ascii\(\'\⇿🄈\\u200D𐮀。\\u1734\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⇿7,\x{200D}𐮀。\x{1734}", %p)}, undef, "to_ascii\(\'\⇿7\,\\u200D𐮀\。\\u1734\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1460\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{08A3}。𑋪\x{062B}", %p)}, undef, "to_ascii\(\'\\u08A3\。𑋪\\u062B\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1462\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0743}≮.\x{0E36}", %p)}, undef, "to_ascii\(\'\\u0743\≮\.\\u0E36\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0743}<\x{0338}.\x{0E36}", %p)}, undef, "to_ascii\(\'\\u0743\<\\u0338\.\\u0E36\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ≯褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ≯褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦\.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦\.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦\.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ≯褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦\.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ≯褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񔻃\x{1B3C}\x{200C}\x{2D7F}。\x{0760}ᡟ\x{0778}", %p)}, undef, "to_ascii\(\'񔻃\\u1B3C\\u200C\\u2D7F\。\\u0760ᡟ\\u0778\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1473\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.≯", %p)}, undef, "to_ascii\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1477\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𣴟𽙙-.𑇀-悜", %p)}, undef, "to_ascii\(\'𣴟𽙙\-.𑇀\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𣴟𽙙-.𑇀-悜", %p)}, undef, "to_ascii\(\'𣴟𽙙\-\.𑇀\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫀𐿓➻ᢗ.-\x{200D}\x{0FA1}\x{1B42}", %p)}, undef, "to_ascii\(\'𐫀𐿓\➻ᢗ\.\-\\u200D\\u0FA1\\u1B42\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1481\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐\x{200C}衃Ⴝ.\x{067F}Ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃Ⴝ\.\\u067FႴ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9.\x{200C}衃Ⴝ.\x{067F}Ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃Ⴝ\.\\u067FႴ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1485\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("9.\x{200C}衃ⴝ.\x{067F}ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1487\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("9.\x{200C}衃Ⴝ.\x{067F}ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃Ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐\x{200C}衃ⴝ.\x{067F}ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1491\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐\x{200C}衃Ⴝ.\x{067F}ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃Ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1493\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0756}\x{200C}。--🞞", %p)}, undef, "to_ascii\(\'\\u0756\\u200C\。\-\-🞞\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1495\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FD74}.\x{062E}", %p)}, "xn--2gb2ap.xn--tgb", "to_ascii\(\'\\uFD74.\\u062E\'\)\ \[data\/IdnaTest\.txt\:1497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0637}\x{0645}\x{064A}.\x{062E}", %p)}, "xn--2gb2ap.xn--tgb", "to_ascii\(\'\\u0637\\u0645\\u064A\.\\u062E\'\)\ \[data\/IdnaTest\.txt\:1498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--2gb2ap.xn--tgb", %p)}, "xn--2gb2ap.xn--tgb", "to_ascii\(\'xn\-\-2gb2ap\.xn\-\-tgb\'\)\ \[data\/IdnaTest\.txt\:1499\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1DE4}-.-\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u1DE4\-.\-\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1500\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1DE4}-.-\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u1DE4\-\.\-\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1501\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{030C}\x{06A7}-.𝩦", %p)}, undef, "to_ascii\(\'\\u030C\\u06A7\-\.𝩦\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1502\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07E3}\x{FB1E}\x{1AB8}𐹯.\x{A953}⒌򕠠", %p)}, undef, "to_ascii\(\'\\u07E3\\uFB1E\\u1AB8𐹯\.\\uA953⒌򕠠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E3}\x{FB1E}\x{1AB8}𐹯.\x{A953}5.򕠠", %p)}, undef, "to_ascii\(\'\\u07E3\\uFB1E\\u1AB8𐹯\.\\uA9535\.򕠠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D7}₀。󠀠\x{200C}𐻼\x{200D}", %p)}, undef, "to_ascii\(\'\\u06D7₀\。\󠀠\\u200C𐻼\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1505\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D7}0。󠀠\x{200C}𐻼\x{200D}", %p)}, undef, "to_ascii\(\'\\u06D70\。\󠀠\\u200C𐻼\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴚ𐋸\x{2060}。𝟝󋷳\x{0D4D}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\\u2060\。𝟝󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴚ𐋸\x{2060}。5󋷳\x{0D4D}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\\u2060\。5󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴚ𐋸\x{2060}。5󋷳\x{0D4D}", %p)}, undef, "to_ascii\(\'ⴚ𐋸\\u2060\。5󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴚ𐋸\x{2060}。𝟝󋷳\x{0D4D}", %p)}, undef, "to_ascii\(\'ⴚ𐋸\\u2060\。𝟝󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1512\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}-\x{0645}\x{1AB4}.\x{0D62}\x{0F9F}", %p)}, undef, "to_ascii\(\'\\u200D\-\\u0645\\u1AB4\.\\u0D62\\u0F9F\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1513\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠.ꡝ", %p)}, undef, "to_ascii\(\'\≠\.ꡝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}.ꡝ", %p)}, undef, "to_ascii\(\'\=\\u0338\.ꡝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1516\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{1A1B}。㌪", %p)}, "xn--fbf49e.xn--eck4c5a", "to_ascii\(\'ᢕ\\u1A1B。㌪\'\)\ \[data\/IdnaTest\.txt\:1517\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{1A1B}。ハイツ", %p)}, "xn--fbf49e.xn--eck4c5a", "to_ascii\(\'ᢕ\\u1A1B\。ハイツ\'\)\ \[data\/IdnaTest\.txt\:1518\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--fbf49e.xn--eck4c5a", %p)}, "xn--fbf49e.xn--eck4c5a", "to_ascii\(\'xn\-\-fbf49e\.xn\-\-eck4c5a\'\)\ \[data\/IdnaTest\.txt\:1519\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{1A1B}.ハイツ", %p)}, "xn--fbf49e.xn--eck4c5a", "to_ascii\(\'ᢕ\\u1A1B\.ハイツ\'\)\ \[data\/IdnaTest\.txt\:1520\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0757}\x{0366}≮.\x{AAF6}-", %p)}, undef, "to_ascii\(\'\\u0757\\u0366\≮\.\\uAAF6\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0757}\x{0366}<\x{0338}.\x{AAF6}-", %p)}, undef, "to_ascii\(\'\\u0757\\u0366\<\\u0338\.\\uAAF6\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆榎𑤮\x{094D}。᠇\x{034B}𞻖󠳶", %p)}, undef, "to_ascii\(\'₆榎𑤮\\u094D。᠇\\u034B𞻖\󠳶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6榎𑤮\x{094D}。᠇\x{034B}𞻖󠳶", %p)}, undef, "to_ascii\(\'6榎𑤮\\u094D\。᠇\\u034B𞻖\󠳶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󺸫.󆺙", %p)}, undef, "to_ascii\(\'󺸫.󆺙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󺸫.󆺙", %p)}, undef, "to_ascii\(\'󺸫\.󆺙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}︒。ᢟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D︒。ᢟ\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。。ᢟ\x{200C}", %p)}, "xn--pbf", "to_ascii\(\'\\u200D\。\。ᢟ\\u200C\'\)\ \[data\/IdnaTest\.txt\:1529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--pbf", %p)}, "xn--pbf", "to_ascii\(\'xn\-\-pbf\'\)\ \[data\/IdnaTest\.txt\:1531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢟ", %p)}, "xn--pbf", "to_ascii\(\'ᢟ\'\)\ \[data\/IdnaTest\.txt\:1532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0604}\x{200C}𐹬。≩", %p)}, undef, "to_ascii\(\'\\u0604\\u200C𐹬\。\≩\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1533\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A9C0}𖬳\x{0F74}𝟭。-⋎", %p)}, undef, "to_ascii\(\'\\uA9C0𖬳\\u0F74𝟭\。\-\⋎\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1535\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A9C0}\x{0F74}𖬳𝟭。-⋎", %p)}, undef, "to_ascii\(\'\\uA9C0\\u0F74𖬳𝟭\。\-\⋎\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1536\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A9C0}\x{0F74}𖬳1。-⋎", %p)}, undef, "to_ascii\(\'\\uA9C0\\u0F74𖬳1\。\-\⋎\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1537\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񃬫。뙏", %p)}, undef, "to_ascii\(\'񃬫\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񃬫。뙏", %p)}, undef, "to_ascii\(\'񃬫\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󋢒\x{A948}󇽘ᢉ.\x{074F}", %p)}, undef, "to_ascii\(\'󋢒\\uA948󇽘ᢉ\.\\u074F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。溑", %p)}, "xn--c9w", "to_ascii\(\'\\u200D。溑\'\)\ \[data\/IdnaTest\.txt\:1541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。溑", %p)}, "xn--c9w", "to_ascii\(\'\\u200D\。溑\'\)\ \[data\/IdnaTest\.txt\:1543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--c9w", %p)}, "xn--c9w", "to_ascii\(\'xn\-\-c9w\'\)\ \[data\/IdnaTest\.txt\:1545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("溑", %p)}, "xn--c9w", "to_ascii\(\'溑\'\)\ \[data\/IdnaTest\.txt\:1546\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{075F}皥.-", %p)}, undef, "to_ascii\(\'\\u075F皥.\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1547\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{075F}皥.-", %p)}, undef, "to_ascii\(\'\\u075F皥\.\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1548\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞡍󠅛ᠫ.⒈\x{06B4}", %p)}, undef, "to_ascii\(\'𞡍\󠅛ᠫ.⒈\\u06B4\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1549\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞡍󠅛ᠫ.1.\x{06B4}", %p)}, undef, "to_ascii\(\'𞡍\󠅛ᠫ\.1\.\\u06B4\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1550\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}ā\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0ā\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}a\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}ā\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160ā\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}a\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}𝨬\x{200D}。\x{1160}a\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C𝨬\\u200D\。\\u1160a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}𝨬\x{200D}。\x{1160}ā\x{0600}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C𝨬\\u200D\。\\u1160ā\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}Ā\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160Ā\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}A\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160A\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}a\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C𝨬\\u200D\。\\uFFA0a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}ā\x{0600}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C𝨬\\u200D\。\\uFFA0ā\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}Ā\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0Ā\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}A\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0A\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FDEB}\x{200C}。曳⾑𐋰≯", %p)}, undef, "to_ascii\(\'\\uFDEB\\u200C。曳⾑𐋰\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1575\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FDEB}\x{200C}。曳⾑𐋰>\x{0338}", %p)}, undef, "to_ascii\(\'\\uFDEB\\u200C。曳⾑𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1577\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FDEB}\x{200C}。曳襾𐋰≯", %p)}, undef, "to_ascii\(\'\\uFDEB\\u200C\。曳襾𐋰\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1579\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FDEB}\x{200C}。曳襾𐋰>\x{0338}", %p)}, undef, "to_ascii\(\'\\uFDEB\\u200C\。曳襾𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1581\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯⒈。ß", %p)}, undef, "to_ascii\(\'\≯⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}⒈。ß", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯1.。ß", %p)}, undef, "to_ascii\(\'\≯1\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1585\]") 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\:1586\]") 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\:1587\]") 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\:1588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}⒈。SS", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯⒈。SS", %p)}, undef, "to_ascii\(\'\≯⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1590\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{200D}𐣙。\x{067D}-₆Ⴙ", %p)}, undef, "to_ascii\(\'\\u0603\\u200D𐣙。\\u067D\-₆Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1591\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{200D}𐣙。\x{067D}-6Ⴙ", %p)}, undef, "to_ascii\(\'\\u0603\\u200D𐣙\。\\u067D\-6Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{200D}𐣙。\x{067D}-6ⴙ", %p)}, undef, "to_ascii\(\'\\u0603\\u200D𐣙\。\\u067D\-6ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{200D}𐣙。\x{067D}-₆ⴙ", %p)}, undef, "to_ascii\(\'\\u0603\\u200D𐣙。\\u067D\-₆ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C。\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1599\]") 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\:1601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1603\]") 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\:1605\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{A953}𝪥.\x{076F}𑈵\x{05C1}\x{200C}", %p)}, undef, "to_ascii\(\'\\uA953𝪥\.\\u076F𑈵\\u05C1\\u200C\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1607\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𻠷\x{200D}򑄕.\x{2DE1}Ↄ≠-", %p)}, undef, "to_ascii\(\'𻠷\\u200D򑄕\.\\u2DE1Ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠷\x{200D}򑄕.\x{2DE1}Ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'𻠷\\u200D򑄕\.\\u2DE1Ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠷\x{200D}򑄕.\x{2DE1}ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'𻠷\\u200D򑄕\.\\u2DE1ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠷\x{200D}򑄕.\x{2DE1}ↄ≠-", %p)}, undef, "to_ascii\(\'𻠷\\u200D򑄕\.\\u2DE1ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:1615\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}ς\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDς\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}ς\x{200D}7。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDς\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}Σ\x{200D}7。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDΣ\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}σ\x{200D}7。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDσ\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}Σ\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDΣ\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}σ\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDσ\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1627\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹶.𐹹", %p)}, undef, "to_ascii\(\'𐹶\.𐹹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1629\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{06A1}.񝧄", %p)}, undef, "to_ascii\(\'\-\\u06A1\.񝧄\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯𐪳𑒵。誆⒈", %p)}, undef, "to_ascii\(\'\≯𐪳𑒵\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}𐪳𑒵。誆⒈", %p)}, undef, "to_ascii\(\'\>\\u0338𐪳𑒵\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯𐪳𑒵。誆1.", %p)}, undef, "to_ascii\(\'\≯𐪳𑒵\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}𐪳𑒵。誆1.", %p)}, undef, "to_ascii\(\'\>\\u0338𐪳𑒵\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F79}\x{FC74}䐊\x{1BA5}.︒𐲞💫\x{0647}", %p)}, undef, "to_ascii\(\'\\u0F79\\uFC74䐊\\u1BA5.︒𐲞💫\\u0647\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1635\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0FB3}\x{0F71}\x{0F80}\x{062A}\x{0649}䐊\x{1BA5}.。𐲞💫\x{0647}", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80\\u062A\\u0649䐊\\u1BA5\.\。𐲞💫\\u0647\'\)\ throws\ error\ V5\ B1\ A4_2\ \[data\/IdnaTest\.txt\:1636\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("퀬-\x{DF7E}񒆢.\x{200C}𞣕򷤗۴", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E񒆢\.\\u200C𞣕򷤗۴\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:1637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}񒆢.\x{200C}𞣕򷤗۴", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E񒆢\.\\u200C𞣕򷤗۴\'\)\ throws\ error\ P1\ V6\ V5\ A3\ \[data\/IdnaTest\.txt\:1639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬", %p)}, "xn--8n7b", "to_ascii\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬", %p)}, "xn--8n7b", "to_ascii\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--8n7b", %p)}, "xn--8n7b", "to_ascii\(\'xn\-\-8n7b\'\)\ \[data\/IdnaTest\.txt\:1643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ.\x{0664}︒\x{0F84}𞴌", %p)}, undef, "to_ascii\(\'Ⴌ\.\\u0664︒\\u0F84𞴌\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ.\x{0664}。\x{0F84}𞴌", %p)}, undef, "to_ascii\(\'Ⴌ\.\\u0664\。\\u0F84𞴌\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ.\x{0664}。\x{0F84}𞴌", %p)}, undef, "to_ascii\(\'ⴌ\.\\u0664\。\\u0F84𞴌\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ.\x{0664}︒\x{0F84}𞴌", %p)}, undef, "to_ascii\(\'ⴌ\.\\u0664︒\\u0F84𞴌\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򻖲󠬬。𞸙\x{A927}", %p)}, undef, "to_ascii\(\'򻖲\󠬬\。𞸙\\uA927\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򻖲󠬬。\x{0636}\x{A927}", %p)}, undef, "to_ascii\(\'򻖲\󠬬\。\\u0636\\uA927\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󠜤\x{0362}.\x{0F7B}󠅑\x{1A60}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\󠜤\\u0362.\\u0F7B\󠅑\\u1A60\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󠜤\x{0362}.\x{0F7B}󠅑\x{1A60}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\󠜤\\u0362\.\\u0F7B\󠅑\\u1A60\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵫶。🄂", %p)}, undef, "to_ascii\(\'񵫶。🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵫶。1,", %p)}, undef, "to_ascii\(\'񵫶\。1\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1655\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{036E}刍.🠗", %p)}, undef, "to_ascii\(\'\\u036E刍\.🠗\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1656\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⺄3。\x{0FA9}𝟒", %p)}, undef, "to_ascii\(\'⺄3。\\u0FA9𝟒\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⺄3。\x{0FA9}4", %p)}, undef, "to_ascii\(\'⺄3\。\\u0FA94\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫡6Ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_ascii\(\'𐫡6Ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1659\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫡6Ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_ascii\(\'𐫡6Ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1661\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫡6ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_ascii\(\'𐫡6ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1663\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫡6ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_ascii\(\'𐫡6ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑘷.ᡱ\x{06C6}򵶨۹", %p)}, undef, "to_ascii\(\'𑘷\.ᡱ\\u06C6򵶨۹\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}≯.󁛲𳎟", %p)}, undef, "to_ascii\(\'\\uA87D\≯.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.󁛲𳎟", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}≯.󁛲𳎟", %p)}, undef, "to_ascii\(\'\\uA87D\≯\.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1670\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.󁛲𳎟", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338\.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1671\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ςო\x{072D}.ς𐫟", %p)}, undef, "to_ascii\(\'ςო\\u072D\.ς𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1672\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σო\x{072D}.Σ𐫟", %p)}, undef, "to_ascii\(\'Σო\\u072D\.Σ𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1673\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σო\x{072D}.σ𐫟", %p)}, undef, "to_ascii\(\'σო\\u072D\.σ𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1674\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σო\x{072D}.σ𐫟", %p)}, undef, "to_ascii\(\'Σო\\u072D\.σ𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1675\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σო\x{072D}.ς𐫟", %p)}, undef, "to_ascii\(\'Σო\\u072D\.ς𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1676\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σო\x{072D}.ς𐫟", %p)}, undef, "to_ascii\(\'σო\\u072D\.ς𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1677\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_ascii\(\'򇋓\\uA67C쐮𐮭。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_ascii\(\'򇋓\\uA67C쐮𐮭。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_ascii\(\'򇋓\\uA67C쐮𐮭\。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_ascii\(\'򇋓\\uA67C쐮𐮭\。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\﹅.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\﹅.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\﹅\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\﹅\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\﹅\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\﹅\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\﹅.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\﹅.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱎𑄴.𐹱▟", %p)}, undef, "to_ascii\(\'𐱎𑄴.𐹱\▟\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱎𑄴.𐹱▟", %p)}, undef, "to_ascii\(\'𐱎𑄴\.𐹱\▟\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒊⒈󠅵。9", %p)}, undef, "to_ascii\(\'⒊⒈\󠅵\。9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3.1.󠅵。9", %p)}, undef, "to_ascii\(\'3\.1\.\󠅵\。9\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:1701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}𑄫≮.𐹾𴙜4₉", %p)}, undef, "to_ascii\(\'\-\\u200C𑄫\≮.𐹾𴙜4₉\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}𑄫<\x{0338}.𐹾𴙜4₉", %p)}, undef, "to_ascii\(\'\-\\u200C𑄫\<\\u0338.𐹾𴙜4₉\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}𑄫≮.𐹾𴙜49", %p)}, undef, "to_ascii\(\'\-\\u200C𑄫\≮\.𐹾𴙜49\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}𑄫<\x{0338}.𐹾𴙜49", %p)}, undef, "to_ascii\(\'\-\\u200C𑄫\<\\u0338\.𐹾𴙜49\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≯딾。\x{08B4}", %p)}, undef, "to_ascii\(\'\-\≯딾。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("->\x{0338}딾。\x{08B4}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≯딾。\x{08B4}", %p)}, undef, "to_ascii\(\'\-\≯딾\。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1712\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("->\x{0338}딾。\x{08B4}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾\。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⪽⒈𐹢-。󠗪\x{200C}", %p)}, undef, "to_ascii\(\'\⪽⒈𐹢\-。\󠗪\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⪽1.𐹢-。󠗪\x{200C}", %p)}, undef, "to_ascii\(\'\⪽1\.𐹢\-\。\󠗪\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1716\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{1A73}.\x{031D}", %p)}, undef, "to_ascii\(\'\\u1A73.\\u031D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1718\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{1A73}.\x{031D}", %p)}, undef, "to_ascii\(\'\\u1A73\.\\u031D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1719\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("훉≮。\x{FE00}", %p)}, undef, "to_ascii\(\'훉\≮。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉<\x{0338}。\x{FE00}", %p)}, undef, "to_ascii\(\'훉\<\\u0338。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉≮。\x{FE00}", %p)}, undef, "to_ascii\(\'훉\≮\。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉<\x{0338}。\x{FE00}", %p)}, undef, "to_ascii\(\'훉\<\\u0338\。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0AC3}񂔠⭤.򬚵𝟸𑚫\x{08A4}", %p)}, undef, "to_ascii\(\'\\u0AC3񂔠\⭤.򬚵𝟸𑚫\\u08A4\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0AC3}񂔠⭤.򬚵2𑚫\x{08A4}", %p)}, undef, "to_ascii\(\'\\u0AC3񂔠\⭤\.򬚵2𑚫\\u08A4\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󨭺ß𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_ascii\(\'󨭺ß𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1726\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󨭺SS𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_ascii\(\'󨭺SS𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1728\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󨭺ss𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_ascii\(\'󨭺ss𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1730\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󨭺Ss𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_ascii\(\'󨭺Ss𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C6}。Ↄ🙣놮-", %p)}, undef, "to_ascii\(\'\\u06C6\。Ↄ🙣놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C6}。Ↄ🙣놮-", %p)}, undef, "to_ascii\(\'\\u06C6\。Ↄ🙣놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1735\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06C6}。ↄ🙣놮-", %p)}, undef, "to_ascii\(\'\\u06C6\。ↄ🙣놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1736\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06C6}。ↄ🙣놮-", %p)}, undef, "to_ascii\(\'\\u06C6\。ↄ🙣놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1737\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐶗\x{200D}.𘎮\x{06A3}", %p)}, undef, "to_ascii\(\'𐶗\\u200D\.𘎮\\u06A3\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ\x{08ED}𞫅≯。𖾏\x{0304}𝨨", %p)}, undef, "to_ascii\(\'Ⴜ\\u08ED𞫅\≯\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1740\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ\x{08ED}𞫅>\x{0338}。𖾏\x{0304}𝨨", %p)}, undef, "to_ascii\(\'Ⴜ\\u08ED𞫅\>\\u0338\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1741\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ\x{08ED}𞫅>\x{0338}。𖾏\x{0304}𝨨", %p)}, undef, "to_ascii\(\'ⴜ\\u08ED𞫅\>\\u0338\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1742\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ\x{08ED}𞫅≯。𖾏\x{0304}𝨨", %p)}, undef, "to_ascii\(\'ⴜ\\u08ED𞫅\≯\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1743\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐋵。𐳜", %p)}, "xn--p97c.xn--4c0d", "to_ascii\(\'𐋵\。𐳜\'\)\ \[data\/IdnaTest\.txt\:1744\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--p97c.xn--4c0d", %p)}, "xn--p97c.xn--4c0d", "to_ascii\(\'xn\-\-p97c\.xn\-\-4c0d\'\)\ \[data\/IdnaTest\.txt\:1745\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐋵.𐳜", %p)}, "xn--p97c.xn--4c0d", "to_ascii\(\'𐋵\.𐳜\'\)\ \[data\/IdnaTest\.txt\:1746\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_ascii\(\'\≮\󠁽.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_ascii\(\'\<\\u0338\󠁽.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_ascii\(\'\≮\󠁽\.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_ascii\(\'\<\\u0338\󠁽\.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1750\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𖬲\x{031F}ꡍ.\x{A947}\x{0664}⎈", %p)}, undef, "to_ascii\(\'𖬲\\u031Fꡍ.\\uA947\\u0664\⎈\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1751\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{031F}𖬲ꡍ.\x{A947}\x{0664}⎈", %p)}, undef, "to_ascii\(\'\\u031F𖬲ꡍ.\\uA947\\u0664\⎈\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1752\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{031F}𖬲ꡍ.\x{A947}\x{0664}⎈", %p)}, undef, "to_ascii\(\'\\u031F𖬲ꡍ\.\\uA947\\u0664\⎈\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1753\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞶅ᡣ\x{200C}\x{07E7}.𑂹\x{20E5}", %p)}, undef, "to_ascii\(\'𞶅ᡣ\\u200C\\u07E7.𑂹\\u20E5\'\)\ throws\ error\ P1\ V6\ V5\ B2\ \[data\/IdnaTest\.txt\:1754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞶅ᡣ\x{200C}\x{07E7}.\x{20E5}𑂹", %p)}, undef, "to_ascii\(\'𞶅ᡣ\\u200C\\u07E7.\\u20E5𑂹\'\)\ throws\ error\ P1\ V6\ V5\ B2\ \[data\/IdnaTest\.txt\:1755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞶅ᡣ\x{200C}\x{07E7}.\x{20E5}𑂹", %p)}, undef, "to_ascii\(\'𞶅ᡣ\\u200C\\u07E7\.\\u20E5𑂹\'\)\ throws\ error\ P1\ V6\ V5\ B2\ \[data\/IdnaTest\.txt\:1756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑄴。\x{200D}󙤲⮡񤩻", %p)}, undef, "to_ascii\(\'𑄴。\\u200D󙤲\⮡񤩻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1757\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑄴。\x{200D}󙤲⮡񤩻", %p)}, undef, "to_ascii\(\'𑄴\。\\u200D󙤲\⮡񤩻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𞶌。⒚", %p)}, undef, "to_ascii\(\'\-𞶌\。⒚\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𞶌。19.", %p)}, undef, "to_ascii\(\'\-𞶌\。19\.\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󙭿\x{0638}\x{200C}。\x{074E}\x{200D}", %p)}, undef, "to_ascii\(\'󙭿\\u0638\\u200C。\\u074E\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󙭿\x{0638}\x{200C}。\x{074E}\x{200D}", %p)}, undef, "to_ascii\(\'󙭿\\u0638\\u200C\。\\u074E\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1765\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{033E}𑍰。ᡣ8₅", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'ß\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1767\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{033E}𑍰。ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'ß\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1769\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{033E}𑍰。ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'SS\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1771\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{033E}𑍰。ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'ss\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1772\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{033E}𑍰。ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'Ss\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1773\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ss-izb2489y.xn--85-f8o", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'xn\-\-ss\-izb2489y\.xn\-\-85\-f8o\'\)\ \[data\/IdnaTest\.txt\:1774\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{033E}𑍰.ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'ss\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1775\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{033E}𑍰.ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'SS\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1776\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{033E}𑍰.ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'Ss\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1777\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--zca82j0w93b.xn--85-f8o", %p)}, "xn--zca82j0w93b.xn--85-f8o", "to_ascii\(\'xn\-\-zca82j0w93b\.xn\-\-85\-f8o\'\)\ \[data\/IdnaTest\.txt\:1778\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{033E}𑍰.ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'ß\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1779\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{033E}𑍰。ᡣ8₅", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'SS\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1781\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{033E}𑍰。ᡣ8₅", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'ss\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1782\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{033E}𑍰。ᡣ8₅", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'Ss\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1783\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅𝟣.₃\x{066C}ß", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅𝟣.₃\\u066Cß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1784\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅1.3\x{066C}ß", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅1\.3\\u066Cß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1785\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅1.3\x{066C}SS", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅1\.3\\u066CSS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1786\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅1.3\x{066C}ss", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅1\.3\\u066Css\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1787\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅1.3\x{066C}Ss", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅1\.3\\u066CSs\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1788\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅𝟣.₃\x{066C}SS", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅𝟣.₃\\u066CSS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1789\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅𝟣.₃\x{066C}ss", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅𝟣.₃\\u066Css\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1790\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅𝟣.₃\x{066C}Ss", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅𝟣.₃\\u066CSs\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1791\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐫖。𑈵⒈\x{1039}⚺", %p)}, undef, "to_ascii\(\'𐫖。𑈵⒈\\u1039\⚺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1792\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫖。𑈵1.\x{1039}⚺", %p)}, undef, "to_ascii\(\'𐫖\。𑈵1\.\\u1039\⚺\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1793\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑘸છ。嵨", %p)}, undef, "to_ascii\(\'𑘸છ\。嵨\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1794\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴔ≠Ⴀ.𐹶𐹱", %p)}, undef, "to_ascii\(\'Ⴔ\≠Ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ=\x{0338}Ⴀ.𐹶𐹱", %p)}, undef, "to_ascii\(\'Ⴔ\=\\u0338Ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ=\x{0338}ⴀ.𐹶𐹱", %p)}, undef, "to_ascii\(\'ⴔ\=\\u0338ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ≠ⴀ.𐹶𐹱", %p)}, undef, "to_ascii\(\'ⴔ\≠ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}⒙\x{0A47}。\x{0656}", %p)}, undef, "to_ascii\(\'\-\\u200C⒙\\u0A47。\\u0656\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}18.\x{0A47}。\x{0656}", %p)}, undef, "to_ascii\(\'\-\\u200C18\.\\u0A47\。\\u0656\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1801\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.ʌ\x{07DF}-𐹲", %p)}, undef, "to_ascii\(\'︒\.ʌ\\u07DF\-𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1803\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("。.ʌ\x{07DF}-𐹲", %p)}, undef, "to_ascii\(\'\。\.ʌ\\u07DF\-𐹲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1804\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("。.Ʌ\x{07DF}-𐹲", %p)}, undef, "to_ascii\(\'\。\.Ʌ\\u07DF\-𐹲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1805\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒.Ʌ\x{07DF}-𐹲", %p)}, undef, "to_ascii\(\'︒\.Ʌ\\u07DF\-𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A41}︒。􋔒󠄻", %p)}, undef, "to_ascii\(\'\\u0A41︒\。􋔒\󠄻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A41}。。􋔒󠄻", %p)}, undef, "to_ascii\(\'\\u0A41\。\。􋔒\󠄻\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0632}ß􈠸。ꡄ", %p)}, undef, "to_ascii\(\'\\u0632ß􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0632}SS􈠸。ꡄ", %p)}, undef, "to_ascii\(\'\\u0632SS􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0632}ss􈠸。ꡄ", %p)}, undef, "to_ascii\(\'\\u0632ss􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0632}Ss􈠸。ꡄ", %p)}, undef, "to_ascii\(\'\\u0632Ss􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}\x{200D}\x{0723}𐹹。򲑃󬗝\x{200C}\x{0F79}", %p)}, undef, "to_ascii\(\'\\u2D7F\\u200D\\u0723𐹹\。򲑃󬗝\\u200C\\u0F79\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}\x{200D}\x{0723}𐹹。򲑃󬗝\x{200C}\x{0FB3}\x{0F71}\x{0F80}", %p)}, undef, "to_ascii\(\'\\u2D7F\\u200D\\u0723𐹹\。򲑃󬗝\\u200C\\u0FB3\\u0F71\\u0F80\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1831\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1835\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1837\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1841\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1843\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1845\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1847\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DF}\x{200C}。≯𐋲≠", %p)}, undef, "to_ascii\(\'\\u07DF\\u200C。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1849\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DF}\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_ascii\(\'\\u07DF\\u200C。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DF}\x{200C}。≯𐋲≠", %p)}, undef, "to_ascii\(\'\\u07DF\\u200C\。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1853\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DF}\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_ascii\(\'\\u07DF\\u200C\。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1855\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹩\x{088E}\x{031C}􊧭。\x{20E9}🄀", %p)}, undef, "to_ascii\(\'𐹩\\u088E\\u031C􊧭\。\\u20E9🄀\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1857\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹩\x{088E}\x{031C}􊧭。\x{20E9}0.", %p)}, undef, "to_ascii\(\'𐹩\\u088E\\u031C􊧭\。\\u20E90\.\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_ascii\(\'Ⴄ.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1861\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_ascii\(\'ⴄ\.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1863\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0767}󙄁Σ", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200D\\u0767󙄁Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0767}󙄁σ", %p)}, undef, "to_ascii\(\'ⴄ\.\\u200D\\u0767󙄁σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_ascii\(\'ⴄ.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0767}󙄁Σ", %p)}, undef, "to_ascii\(\'Ⴄ.\\u200D\\u0767󙄁Σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0767}󙄁σ", %p)}, undef, "to_ascii\(\'ⴄ.\\u200D\\u0767󙄁σ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󐠫\x{0365}.Ⴕ", %p)}, undef, "to_ascii\(\'󐠫\\u0365\.Ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󐠫\x{0365}.ⴕ", %p)}, undef, "to_ascii\(\'󐠫\\u0365\.ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0AC3}𞨮。\x{200C}𑘿󠔹\x{200D}", %p)}, undef, "to_ascii\(\'\≯\\u0AC3𞨮\。\\u200C𑘿\󠔹\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0AC3}𞨮。\x{200C}𑘿󠔹\x{200D}", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0AC3𞨮\。\\u200C𑘿\󠔹\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1DF0}。񊩧", %p)}, undef, "to_ascii\(\'\\u200C\\u1DF0。񊩧\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1DF0}。񊩧", %p)}, undef, "to_ascii\(\'\\u200C\\u1DF0\。񊩧\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈𑁅焅.񖠲\x{200D}\x{06D1}", %p)}, undef, "to_ascii\(\'⒈𑁅焅\.񖠲\\u200D\\u06D1\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.𑁅焅.񖠲\x{200D}\x{06D1}", %p)}, undef, "to_ascii\(\'1\.𑁅焅\.񖠲\\u200D\\u06D1\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐ς≮.ς\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐ς\≮\.ς\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐ς<\x{0338}.ς\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐ς\<\\u0338\.ς\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐Σ<\x{0338}.Σ\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐Σ\<\\u0338\.Σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐Σ≮.Σ\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐Σ\≮\.Σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐σ≮.σ\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐σ\≮\.σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐σ<\x{0338}.σ\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐σ\<\\u0338\.σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򎲖ß𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_ascii\(\'򎲖ß𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򎲖SS𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_ascii\(\'򎲖SS𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򎲖ss𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_ascii\(\'򎲖ss𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򎲖Ss𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_ascii\(\'򎲖Ss𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0717}。⒈", %p)}, undef, "to_ascii\(\'\-\\u0717。⒈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0717}。1.", %p)}, undef, "to_ascii\(\'\-\\u0717\。1\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1900\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0BCD}", %p)}, "xn--9-rdkz5694a.xn--xmc994d", "to_ascii\(\'𨇆ᢪ𝟡\。ᡆ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:1901\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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("𨇆ᢪ9。ᡆ\x{0BCD}", %p)}, "xn--9-rdkz5694a.xn--xmc994d", "to_ascii\(\'𨇆ᢪ9\。ᡆ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:1902\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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--9-rdkz5694a.xn--xmc994d", %p)}, "xn--9-rdkz5694a.xn--xmc994d", "to_ascii\(\'xn\-\-9\-rdkz5694a\.xn\-\-xmc994d\'\)\ \[data\/IdnaTest\.txt\:1903\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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("𨇆ᢪ9.ᡆ\x{0BCD}", %p)}, "xn--9-rdkz5694a.xn--xmc994d", "to_ascii\(\'𨇆ᢪ9\.ᡆ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:1904\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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}", %p)}, undef, "to_ascii\(\'𐹨𞺸𐹽\󠆼\.\\u200D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1905\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹨\x{0630}𐹽󠆼.\x{200D}", %p)}, undef, "to_ascii\(\'𐹨\\u0630𐹽\󠆼\.\\u200D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1907\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟘.Ⴇ񜚙𞸀򋝟", %p)}, undef, "to_ascii\(\'𝟘.Ⴇ񜚙𞸀򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.Ⴇ񜚙\x{0627}򋝟", %p)}, undef, "to_ascii\(\'0\.Ⴇ񜚙\\u0627򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.ⴇ񜚙\x{0627}򋝟", %p)}, undef, "to_ascii\(\'0\.ⴇ񜚙\\u0627򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟘.ⴇ񜚙𞸀򋝟", %p)}, undef, "to_ascii\(\'𝟘.ⴇ񜚙𞸀򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}😅.󠂱ᠨ", %p)}, undef, "to_ascii\(\'\\u1734😅\.\󠂱ᠨ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-ᠺ.򀬭", %p)}, undef, "to_ascii\(\'\\u200D\-ᠺ\.򀬭\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1914\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡖ\x{0767}\x{06D5}寐。\x{200C}≯⩓", %p)}, undef, "to_ascii\(\'ᡖ\\u0767\\u06D5寐。\\u200C\≯\⩓\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1916\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡖ\x{0767}\x{06D5}寐。\x{200C}>\x{0338}⩓", %p)}, undef, "to_ascii\(\'ᡖ\\u0767\\u06D5寐。\\u200C\>\\u0338\⩓\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1918\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡖ\x{0767}\x{06D5}寐。\x{200C}≯⩓", %p)}, undef, "to_ascii\(\'ᡖ\\u0767\\u06D5寐\。\\u200C\≯\⩓\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡖ\x{0767}\x{06D5}寐。\x{200C}>\x{0338}⩓", %p)}, undef, "to_ascii\(\'ᡖ\\u0767\\u06D5寐\。\\u200C\>\\u0338\⩓\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ႺႴ\x{FE85}", %p)}, undef, "to_ascii\(\'\\u200D。򧯞ႺႴ\\uFE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ႺႴ\x{0624}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞ႺႴ\\u0624\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ႺႴ\x{0648}\x{0654}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞ႺႴ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ⴚⴔ\x{0648}\x{0654}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞ⴚⴔ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ⴚⴔ\x{0624}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞ⴚⴔ\\u0624\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞Ⴚⴔ\x{0624}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞Ⴚⴔ\\u0624\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞Ⴚⴔ\x{0648}\x{0654}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞Ⴚⴔ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ⴚⴔ\x{FE85}", %p)}, undef, "to_ascii\(\'\\u200D。򧯞ⴚⴔ\\uFE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞Ⴚⴔ\x{FE85}", %p)}, undef, "to_ascii\(\'\\u200D。򧯞Ⴚⴔ\\uFE85\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-3.\x{200D}ヌᡰ", %p)}, undef, "to_ascii\(\'\-3\.\\u200Dヌᡰ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⑰\x{0665}ß\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_ascii\(\'⑰\\u0665ß\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("17\x{0665}ß\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_ascii\(\'17\\u0665ß\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("17\x{0665}SS\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_ascii\(\'17\\u0665SS\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("17\x{0665}ss\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_ascii\(\'17\\u0665ss\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1950\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("17\x{0665}Ss\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_ascii\(\'17\\u0665Ss\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⑰\x{0665}SS\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_ascii\(\'⑰\\u0665SS\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⑰\x{0665}ss\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_ascii\(\'⑰\\u0665ss\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⑰\x{0665}Ss\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_ascii\(\'⑰\\u0665Ss\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1958\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꇟ-\x{07D5}𐫠。񛳊\x{200C}", %p)}, undef, "to_ascii\(\'ꇟ\-\\u07D5𐫠\。񛳊\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1960\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{066C}.\x{0FA3}\x{FB58}𐨿蟵", %p)}, undef, "to_ascii\(\'\\u066C\.\\u0FA3\\uFB58𐨿蟵\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1962\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{066C}.\x{0FA3}\x{067E}𐨿蟵", %p)}, undef, "to_ascii\(\'\\u066C\.\\u0FA3\\u067E𐨿蟵\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1963\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-.򟊕\x{0756}\x{0C4D}", %p)}, undef, "to_ascii\(\'\-\.򟊕\\u0756\\u0C4D\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀ς.\x{FDC8}녫ß", %p)}, undef, "to_ascii\(\'󆕀ς\.\\uFDC8녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀ς.\x{FDC8}녫ß", %p)}, undef, "to_ascii\(\'󆕀ς\.\\uFDC8녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀Σ.\x{FDC8}녫SS", %p)}, undef, "to_ascii\(\'󆕀Σ\.\\uFDC8녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀Σ.\x{FDC8}녫SS", %p)}, undef, "to_ascii\(\'󆕀Σ\.\\uFDC8녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀σ.\x{FDC8}녫ss", %p)}, undef, "to_ascii\(\'󆕀σ\.\\uFDC8녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀σ.\x{FDC8}녫ss", %p)}, undef, "to_ascii\(\'󆕀σ\.\\uFDC8녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀Σ.\x{FDC8}녫Ss", %p)}, undef, "to_ascii\(\'󆕀Σ\.\\uFDC8녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀Σ.\x{FDC8}녫Ss", %p)}, undef, "to_ascii\(\'󆕀Σ\.\\uFDC8녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ𑖿\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1973\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ𑖿\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1975\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ𑖿\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ𑖿\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1979\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ𑖿\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ𑖿\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ𑖿\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ𑖿\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1987\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋺\x{09CD}\x{0BCD}򽕵.\x{200C}\x{1BF2}\x{0719}", %p)}, undef, "to_ascii\(\'𐋺\\u09CD\\u0BCD򽕵.\\u200C\\u1BF2\\u0719\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋺\x{09CD}\x{0BCD}򽕵.\x{200C}\x{1BF2}\x{0719}", %p)}, undef, "to_ascii\(\'𐋺\\u09CD\\u0BCD򽕵\.\\u200C\\u1BF2\\u0719\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񶪗𑍰.≯", %p)}, undef, "to_ascii\(\'񶪗𑍰.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񶪗𑍰.>\x{0338}", %p)}, undef, "to_ascii\(\'񶪗𑍰.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񶪗𑍰.≯", %p)}, undef, "to_ascii\(\'񶪗𑍰\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1995\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񶪗𑍰.>\x{0338}", %p)}, undef, "to_ascii\(\'񶪗𑍰\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐱼Ⴓ.\x{3099}", %p)}, undef, "to_ascii\(\'\\u200D𐱼Ⴓ.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐱼Ⴓ.\x{3099}", %p)}, undef, "to_ascii\(\'\\u200D𐱼Ⴓ\.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:1999\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐱼ⴓ.\x{3099}", %p)}, undef, "to_ascii\(\'\\u200D𐱼ⴓ\.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐱼ⴓ.\x{3099}", %p)}, undef, "to_ascii\(\'\\u200D𐱼ⴓ.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2003\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮ß\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮ß\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2005\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮ß\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮ß\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2006\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮SS\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮SS\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2007\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮ss\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮ss\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2008\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮Ss\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮Ss\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2009\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮SS\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮SS\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2010\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮ss\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮ss\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2011\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮Ss\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮Ss\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2012\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A806}\x{2DE4}鸮\x{1714}.ς", %p)}, undef, "to_ascii\(\'\\uA806\\u2DE4鸮\\u1714\.ς\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2013\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A806}\x{2DE4}鸮\x{1714}.Σ", %p)}, undef, "to_ascii\(\'\\uA806\\u2DE4鸮\\u1714\.Σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2014\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A806}\x{2DE4}鸮\x{1714}.σ", %p)}, undef, "to_ascii\(\'\\uA806\\u2DE4鸮\\u1714\.σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2015\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒗𐫤。-\x{A806}", %p)}, undef, "to_ascii\(\'⒗𐫤\。\-\\uA806\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2016\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("16.𐫤。-\x{A806}", %p)}, undef, "to_ascii\(\'16\.𐫤\。\-\\uA806\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2017\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᠤ\x{0855}🎮。𐹡ꡛ⒈", %p)}, undef, "to_ascii\(\'ᠤ\\u0855🎮。𐹡ꡛ⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2018\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0855}🎮。𐹡ꡛ1.", %p)}, undef, "to_ascii\(\'ᠤ\\u0855🎮\。𐹡ꡛ1\.\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2019\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{2433}𕔫𝟧𐹶.\x{0679}8\x{1DC2}𐹻", %p)}, undef, "to_ascii\(\'\\u2433𕔫𝟧𐹶\.\\u06798\\u1DC2𐹻\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B4\ \[data\/IdnaTest\.txt\:2020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2433}𕔫5𐹶.\x{0679}8\x{1DC2}𐹻", %p)}, undef, "to_ascii\(\'\\u2433𕔫5𐹶\.\\u06798\\u1DC2𐹻\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B4\ \[data\/IdnaTest\.txt\:2021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹺.🄀⒒-򹉒", %p)}, undef, "to_ascii\(\'𐹺\.🄀⒒\-򹉒\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2022\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹺.0.11.-򹉒", %p)}, undef, "to_ascii\(\'𐹺\.0\.11\.\-򹉒\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2023\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς-。\x{200C}1-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C1\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ-。\x{200C}1-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ-。\x{200C}1-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}-\x{1BAB}.\x{1DEB}Ⴄ", %p)}, undef, "to_ascii\(\'\\u0ACD\-\\u1BAB.\\u1DEBႤ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}-\x{1BAB}.\x{1DEB}Ⴄ", %p)}, undef, "to_ascii\(\'\\u0ACD\-\\u1BAB\.\\u1DEBႤ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2037\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0ACD}-\x{1BAB}.\x{1DEB}ⴄ", %p)}, undef, "to_ascii\(\'\\u0ACD\-\\u1BAB\.\\u1DEBⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2038\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0ACD}-\x{1BAB}.\x{1DEB}ⴄ", %p)}, undef, "to_ascii\(\'\\u0ACD\-\\u1BAB.\\u1DEBⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2039\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񢒷℟ᢨ\x{FD05}。⦟⒈", %p)}, undef, "to_ascii\(\'񢒷℟ᢨ\\uFD05。\⦟⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񢒷℟ᢨ\x{0635}\x{0649}。⦟1.", %p)}, undef, "to_ascii\(\'񢒷℟ᢨ\\u0635\\u0649\。\⦟1\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁂.ᡇ\x{0348}\x{200C}", %p)}, undef, "to_ascii\(\'\󠁂.ᡇ\\u0348\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁂.ᡇ\x{0348}\x{200C}", %p)}, undef, "to_ascii\(\'\󠁂\.ᡇ\\u0348\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("慹ᢏ≮\x{0DCA}.\x{FE8E}", %p)}, undef, "to_ascii\(\'慹ᢏ\≮\\u0DCA.\\uFE8E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("慹ᢏ<\x{0338}\x{0DCA}.\x{FE8E}", %p)}, undef, "to_ascii\(\'慹ᢏ\<\\u0338\\u0DCA.\\uFE8E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("慹ᢏ≮\x{0DCA}.\x{0627}", %p)}, undef, "to_ascii\(\'慹ᢏ\≮\\u0DCA\.\\u0627\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("慹ᢏ<\x{0338}\x{0DCA}.\x{0627}", %p)}, undef, "to_ascii\(\'慹ᢏ\<\\u0338\\u0DCA\.\\u0627\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。𖬵⒈ꡍ󨮞", %p)}, undef, "to_ascii\(\'\\u200D\。𖬵⒈ꡍ󨮞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。𖬵1.ꡍ󨮞", %p)}, undef, "to_ascii\(\'\\u200D\。𖬵1\.ꡍ󨮞\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₈ᠥ.𞤤≠", %p)}, undef, "to_ascii\(\'₈ᠥ.𞤤\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₈ᠥ.𞤤=\x{0338}", %p)}, undef, "to_ascii\(\'₈ᠥ.𞤤\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ᠥ.𞤤≠", %p)}, undef, "to_ascii\(\'8ᠥ\.𞤤\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ᠥ.𞤤=\x{0338}", %p)}, undef, "to_ascii\(\'8ᠥ\.𞤤\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2057\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A7}\x{069F}񰍸.⒒\x{0680}\x{2DF0}", %p)}, undef, "to_ascii\(\'\\u06A7\\u069F񰍸\.⒒\\u0680\\u2DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2058\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A7}\x{069F}񰍸.11.\x{0680}\x{2DF0}", %p)}, undef, "to_ascii\(\'\\u06A7\\u069F񰍸\.11\.\\u0680\\u2DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2059\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀-𐹢𝟜.󠔸𝩜⒏", %p)}, undef, "to_ascii\(\'𑍀\-𐹢𝟜\.\󠔸𝩜⒏\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2060\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀-𐹢4.󠔸𝩜8.", %p)}, undef, "to_ascii\(\'𑍀\-𐹢4\.\󠔸𝩜8\.\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2061\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。Ⴠ-򏐆", %p)}, undef, "to_ascii\(\'\⫐。Ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2062\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。Ⴠ-򏐆", %p)}, undef, "to_ascii\(\'\⫐\。Ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。ⴠ-򏐆", %p)}, undef, "to_ascii\(\'\⫐\。ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。ⴠ-򏐆", %p)}, undef, "to_ascii\(\'\⫐。ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2065\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{17D2}⟃.⦟⋫", %p)}, undef, "to_ascii\(\'\\u17D2\⟃.\⦟\⋫\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2066\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{17D2}⟃.⦟⊳\x{0338}", %p)}, undef, "to_ascii\(\'\\u17D2\⟃.\⦟\⊳\\u0338\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2067\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{17D2}⟃.⦟⋫", %p)}, undef, "to_ascii\(\'\\u17D2\⟃\.\⦟\⋫\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2068\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{17D2}⟃.⦟⊳\x{0338}", %p)}, undef, "to_ascii\(\'\\u17D2\⟃\.\⦟\⊳\\u0338\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2069\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򣎳-𐹦。󓽪ᠹ", %p)}, undef, "to_ascii\(\'򣎳\-𐹦\。󓽪ᠹ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072A}。󠑏𞣒𐿦𐹦", %p)}, undef, "to_ascii\(\'\\u072A\。\󠑏𞣒𐿦𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2071\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0790}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'\\u0790ꌄ。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2072\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0790}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'\\u0790ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2074\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("₀𐹧。򾂚≯-", %p)}, undef, "to_ascii\(\'₀𐹧\。򾂚\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2076\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₀𐹧。򾂚>\x{0338}-", %p)}, undef, "to_ascii\(\'₀𐹧\。򾂚\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0𐹧。򾂚≯-", %p)}, undef, "to_ascii\(\'0𐹧\。򾂚\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0𐹧。򾂚>\x{0338}-", %p)}, undef, "to_ascii\(\'0𐹧\。򾂚\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠣖𐹨-\x{08DF}.𐋤\x{0766}", %p)}, undef, "to_ascii\(\'\󠣖𐹨\-\\u08DF\.𐋤\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\≠。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\=\\u0338。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\≠\。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\≠\。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\=\\u0338。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\≠。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0335}≠.Ⴀ𐫓", %p)}, undef, "to_ascii\(\'\\u0335\≠\.Ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2089\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0335}=\x{0338}.Ⴀ𐫓", %p)}, undef, "to_ascii\(\'\\u0335\=\\u0338\.Ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2090\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0335}=\x{0338}.ⴀ𐫓", %p)}, undef, "to_ascii\(\'\\u0335\=\\u0338\.ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2091\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0335}≠.ⴀ𐫓", %p)}, undef, "to_ascii\(\'\\u0335\≠\.ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2092\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("󠇌\x{08F6}\x{069F}.\x{06EE}閪𐹺\x{1CD2}", %p)}, undef, "to_ascii\(\'\󠇌\\u08F6\\u069F.\\u06EE閪𐹺\\u1CD2\'\)\ throws\ error\ V5\ B1\ B2\ \[data\/IdnaTest\.txt\:2093\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("󠇌\x{08F6}\x{069F}.\x{06EE}閪𐹺\x{1CD2}", %p)}, undef, "to_ascii\(\'\󠇌\\u08F6\\u069F\.\\u06EE閪𐹺\\u1CD2\'\)\ throws\ error\ V5\ B1\ B2\ \[data\/IdnaTest\.txt\:2094\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}󠄪𞢊\x{1C2F}。󠇂\x{0953}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\󠄪𞢊\\u1C2F。\󠇂\\u0953\-ᛟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2095\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}󠄪𞢊\x{1C2F}。󠇂\x{0953}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\󠄪𞢊\\u1C2F\。\󠇂\\u0953\-ᛟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2097\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("헁񿙡\x{1A60}򁰰。\x{071C}𝟜", %p)}, undef, "to_ascii\(\'헁񿙡\\u1A60򁰰\。\\u071C𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("헁񿙡\x{1A60}򁰰。\x{071C}𝟜", %p)}, undef, "to_ascii\(\'헁񿙡\\u1A60򁰰\。\\u071C𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("헁񿙡\x{1A60}򁰰。\x{071C}4", %p)}, undef, "to_ascii\(\'헁񿙡\\u1A60򁰰\。\\u071C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("헁񿙡\x{1A60}򁰰。\x{071C}4", %p)}, undef, "to_ascii\(\'헁񿙡\\u1A60򁰰\。\\u071C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹻。񫡍\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'𐹻。񫡍\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2103\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹻。񫡍\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'𐹻\。񫡍\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2105\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹻。񫡍\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'𐹻\。񫡍\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2107\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹻。񫡍\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'𐹻。񫡍\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2109\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.\x{06DA}\x{0F84}馋", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\u06DA\\u0F84馋\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2111\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.\x{0F84}\x{06DA}馋", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\u0F84\\u06DA馋\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򿒓򔸨\x{200D}。󱾁", %p)}, undef, "to_ascii\(\'򿒓򔸨\\u200D。󱾁\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򿒓򔸨\x{200D}。󱾁", %p)}, undef, "to_ascii\(\'򿒓򔸨\\u200D\。󱾁\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0626}󠞂姶🄉.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_ascii\(\'\\u0626\󠞂姶🄉.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:2117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{064A}\x{0654}󠞂姶🄉.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_ascii\(\'\\u064A\\u0654\󠞂姶🄉.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:2119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0626}󠞂姶8,.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_ascii\(\'\\u0626\󠞂姶8\,\.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2121\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{064A}\x{0654}󠞂姶8,.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_ascii\(\'\\u064A\\u0654\󠞂姶8\,\.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2123\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{FCCB}.𐹴⿆\x{A8C4}", %p)}, undef, "to_ascii\(\'\\uFCCB\.𐹴⿆\\uA8C4\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2125\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0644}\x{062E}.𐹴麥\x{A8C4}", %p)}, undef, "to_ascii\(\'\\u0644\\u062E\.𐹴麥\\uA8C4\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2126\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_ascii\(\'Ⴔ\\u0724。𐹼\\u0C48۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_ascii\(\'Ⴔ\\u0724。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_ascii\(\'Ⴔ\\u0724\。𐹼\\u0C48۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_ascii\(\'Ⴔ\\u0724\。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2130\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_ascii\(\'ⴔ\\u0724\。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2131\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_ascii\(\'ⴔ\\u0724\。𐹼\\u0C48۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2132\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_ascii\(\'ⴔ\\u0724。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2133\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_ascii\(\'ⴔ\\u0724。𐹼\\u0C48۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2134\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠏬𐫂\x{200C}.︒-󠇕-", %p)}, undef, "to_ascii\(\'\󠏬𐫂\\u200C.︒\-\󠇕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠏬𐫂\x{200C}.。-󠇕-", %p)}, undef, "to_ascii\(\'\󠏬𐫂\\u200C\.\。\-\󠇕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:2137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{0661}⒖\x{200C}.𝪩\x{FBD9}", %p)}, undef, "to_ascii\(\'⒈\\u0661⒖\\u200C\.𝪩\\uFBD9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2139\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("1.\x{0661}15.\x{200C}.𝪩\x{06C6}", %p)}, undef, "to_ascii\(\'1\.\\u066115\.\\u200C\.𝪩\\u06C6\'\)\ throws\ error\ V5\ B1\ A4_2\ \[data\/IdnaTest\.txt\:2141\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{20ED}。-\x{1734}Ⴋ", %p)}, undef, "to_ascii\(\'\\u20ED\。\-\\u1734Ⴋ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:2143\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{20ED}。-\x{1734}ⴋ", %p)}, undef, "to_ascii\(\'\\u20ED\。\-\\u1734ⴋ\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:2144\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ßჀ.\x{07CD}刯Ⴝ", %p)}, undef, "to_ascii\(\'ßჀ\.\\u07CD刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2145\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07CD}刯ⴝ", %p)}, undef, "to_ascii\(\'ßⴠ\.\\u07CD刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2146\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SSჀ.\x{07CD}刯Ⴝ", %p)}, undef, "to_ascii\(\'SSჀ\.\\u07CD刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2147\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07CD}刯ⴝ", %p)}, undef, "to_ascii\(\'ssⴠ\.\\u07CD刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2148\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ssⴠ.\x{07CD}刯Ⴝ", %p)}, undef, "to_ascii\(\'Ssⴠ\.\\u07CD刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2149\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣℲ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣℲ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣℲ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2152\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣℲ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4Dⴃⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4Dⴃⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4Dⴃⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2158\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4Dⴃⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2159\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2161\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{07E7}𐹫ᢏ", %p)}, undef, "to_ascii\(\'🝞\.\\u07E7𐹫ᢏ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2162\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0845}𝪩。₇𑚶", %p)}, "xn--3vb6099u.xn--7-4j0j", "to_ascii\(\'\\u0845𝪩\。₇𑚶\'\)\ \[data\/IdnaTest\.txt\:2163\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0845}𝪩。7𑚶", %p)}, "xn--3vb6099u.xn--7-4j0j", "to_ascii\(\'\\u0845𝪩\。7𑚶\'\)\ \[data\/IdnaTest\.txt\:2164\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--3vb6099u.xn--7-4j0j", %p)}, "xn--3vb6099u.xn--7-4j0j", "to_ascii\(\'xn\-\-3vb6099u\.xn\-\-7\-4j0j\'\)\ \[data\/IdnaTest\.txt\:2165\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0845}𝪩.7𑚶", %p)}, "xn--3vb6099u.xn--7-4j0j", "to_ascii\(\'\\u0845𝪩\.7𑚶\'\)\ \[data\/IdnaTest\.txt\:2166\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴣ\x{0663}.\x{200C}\x{A672}≮\x{FDE2}", %p)}, undef, "to_ascii\(\'Ⴣ\\u0663\.\\u200C\\uA672\≮\\uFDE2\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ\x{0663}.\x{200C}\x{A672}<\x{0338}\x{FDE2}", %p)}, undef, "to_ascii\(\'Ⴣ\\u0663\.\\u200C\\uA672\<\\u0338\\uFDE2\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴣ\x{0663}.\x{200C}\x{A672}<\x{0338}\x{FDE2}", %p)}, undef, "to_ascii\(\'ⴣ\\u0663\.\\u200C\\uA672\<\\u0338\\uFDE2\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴣ\x{0663}.\x{200C}\x{A672}≮\x{FDE2}", %p)}, undef, "to_ascii\(\'ⴣ\\u0663\.\\u200C\\uA672\≮\\uFDE2\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2173\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟵隁⽷.𖬰\x{200C}", %p)}, undef, "to_ascii\(\'𝟵隁⽷.𖬰\\u200C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2175\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("9隁糸.𖬰\x{200C}", %p)}, undef, "to_ascii\(\'9隁糸\.𖬰\\u200C\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2177\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒏𐹷。Ⴣ𑘿彦", %p)}, undef, "to_ascii\(\'⒏𐹷。Ⴣ𑘿彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8.𐹷。Ⴣ𑘿彦", %p)}, undef, "to_ascii\(\'8\.𐹷\。Ⴣ𑘿彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2180\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("8.𐹷。ⴣ𑘿彦", %p)}, undef, "to_ascii\(\'8\.𐹷\。ⴣ𑘿彦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2181\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒏𐹷。ⴣ𑘿彦", %p)}, undef, "to_ascii\(\'⒏𐹷。ⴣ𑘿彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-问󕀙⒛。\x{0664}-󘖶橬", %p)}, undef, "to_ascii\(\'\-问󕀙⒛\。\\u0664\-󘖶橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-问󕀙20.。\x{0664}-󘖶橬", %p)}, undef, "to_ascii\(\'\-问󕀙20\.\。\\u0664\-󘖶橬\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DFE}Ⴌ\x{200C}𐫥。𝟸", %p)}, undef, "to_ascii\(\'\\u1DFEႬ\\u200C𐫥\。𝟸\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DFE}Ⴌ\x{200C}𐫥。2", %p)}, undef, "to_ascii\(\'\\u1DFEႬ\\u200C𐫥\。2\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2187\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DFE}ⴌ\x{200C}𐫥。2", %p)}, undef, "to_ascii\(\'\\u1DFEⴌ\\u200C𐫥\。2\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2189\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DFE}ⴌ\x{200C}𐫥。𝟸", %p)}, undef, "to_ascii\(\'\\u1DFEⴌ\\u200C𐫥\。𝟸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2191\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{DC5F}。\x{1BF2}𐹫󠇷", %p)}, undef, "to_ascii\(\'\\uDC5F\。\\u1BF2𐹫\󠇷\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ A3\ \[data\/IdnaTest\.txt\:2193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE28}\x{135D}⾶。₇︒눇≮", %p)}, undef, "to_ascii\(\'\\uFE28\\u135D⾶。₇︒눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE28}\x{135D}⾶。₇︒눇<\x{0338}", %p)}, undef, "to_ascii\(\'\\uFE28\\u135D⾶。₇︒눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE28}\x{135D}飛。7。눇≮", %p)}, undef, "to_ascii\(\'\\uFE28\\u135D飛\。7\。눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE28}\x{135D}飛。7。눇<\x{0338}", %p)}, undef, "to_ascii\(\'\\uFE28\\u135D飛\。7\。눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2197\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{2DFD}𐹽\x{200D}.\x{200C}⿃", %p)}, undef, "to_ascii\(\'\\u200C\\u2DFD𐹽\\u200D.\\u200C⿃\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2198\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{2DFD}𐹽\x{200D}.\x{200C}鳥", %p)}, undef, "to_ascii\(\'\\u200C\\u2DFD𐹽\\u200D\.\\u200C鳥\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2200\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠶡.\x{200D}🜮𐥮󠇠", %p)}, undef, "to_ascii\(\'\󠶡.\\u200D🜮𐥮\󠇠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠶡.\x{200D}🜮𐥮󠇠", %p)}, undef, "to_ascii\(\'\󠶡\.\\u200D🜮𐥮\󠇠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2204\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᡉ𑇊.\x{0726}\x{200D}", %p)}, "xn--87e0688j.xn--wnb", "to_ascii\(\'ᡉ𑇊\.\\u0726\\u200D\'\)\ \[data\/IdnaTest\.txt\:2206\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--87e0688j.xn--wnb", %p)}, "xn--87e0688j.xn--wnb", "to_ascii\(\'xn\-\-87e0688j\.xn\-\-wnb\'\)\ \[data\/IdnaTest\.txt\:2208\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᡉ𑇊.\x{0726}", %p)}, "xn--87e0688j.xn--wnb", "to_ascii\(\'ᡉ𑇊\.\\u0726\'\)\ \[data\/IdnaTest\.txt\:2209\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0662}\x{103A}-.򡕻\x{09CD}𞜎", %p)}, undef, "to_ascii\(\'\\u0662\\u103A\-.򡕻\\u09CD𞜎\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0662}\x{103A}-.򡕻\x{09CD}𞜎", %p)}, undef, "to_ascii\(\'\\u0662\\u103A\-\.򡕻\\u09CD𞜎\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢≮", %p)}, undef, "to_ascii\(\'4\\u1A60\-\\u0664。𝉄\\u200C𐹢\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢<\x{0338}", %p)}, undef, "to_ascii\(\'4\\u1A60\-\\u0664。𝉄\\u200C𐹢\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢≮", %p)}, undef, "to_ascii\(\'4\\u1A60\-\\u0664\。𝉄\\u200C𐹢\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢<\x{0338}", %p)}, undef, "to_ascii\(\'4\\u1A60\-\\u0664\。𝉄\\u200C𐹢\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{FFA0}\x{0F84}\x{0342}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uFFA0\\u0F84\\u0342\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{1160}\x{0F84}\x{0342}", %p)}, undef, "to_ascii\(\'\\u200C\。\\u1160\\u0F84\\u0342\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2222\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯񙛤.\x{200D}䷕񆡚", %p)}, undef, "to_ascii\(\'\≯񙛤.\\u200D䷕񆡚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2224\]") 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\:2226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯񙛤.\x{200D}䷕񆡚", %p)}, undef, "to_ascii\(\'\≯񙛤\.\\u200D䷕񆡚\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2228\]") 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\:2230\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦß\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2232\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦß\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2233\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0635}\x{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦSS\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2234\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0635}\x{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦss\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2235\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0635}\x{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦSs\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2236\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦSS\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2237\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦss\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2238\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦSs\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2239\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ß\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'ß\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'ß\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_ascii\(\'ß\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_ascii\(\'SS\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_ascii\(\'ss\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_ascii\(\'Ss\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'SS\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'ss\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'Ss\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'SS\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'ss\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'Ss\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。🗦⒌\x{076B}", %p)}, undef, "to_ascii\(\'\-。🗦⒌\\u076B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2252\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-。🗦5.\x{076B}", %p)}, undef, "to_ascii\(\'\-\。🗦5\.\\u076B\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2253\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𓯃ς.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃ς.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃ς.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃ς.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃ς.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃ς\.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃ς.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃ς\.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃Σ.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃Σ\.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃Σ.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃Σ\.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃σ.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃σ\.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃σ.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃σ\.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃Σ.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃Σ.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃Σ.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃Σ.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃σ.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃σ.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃σ.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃σ.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠣ\x{0697}ꡜ.񪁡⎩\x{17D2}𞶊", %p)}, undef, "to_ascii\(\'ᠣ\\u0697ꡜ.񪁡\⎩\\u17D2𞶊\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠣ\x{0697}ꡜ.񪁡⎩\x{17D2}𞶊", %p)}, undef, "to_ascii\(\'ᠣ\\u0697ꡜ\.񪁡\⎩\\u17D2𞶊\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2267\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪟\x{06AA}\x{0757}\x{0761}。𐋦𝅼󠄧", %p)}, "xn--dkb06a4a7332t.xn--987cj167a", "to_ascii\(\'𐪟\\u06AA\\u0757\\u0761\。𐋦𝅼\󠄧\'\)\ \[data\/IdnaTest\.txt\:2268\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--dkb06a4a7332t.xn--987cj167a", %p)}, "xn--dkb06a4a7332t.xn--987cj167a", "to_ascii\(\'xn\-\-dkb06a4a7332t\.xn\-\-987cj167a\'\)\ \[data\/IdnaTest\.txt\:2269\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪟\x{06AA}\x{0757}\x{0761}.𐋦𝅼", %p)}, "xn--dkb06a4a7332t.xn--987cj167a", "to_ascii\(\'𐪟\\u06AA\\u0757\\u0761\.𐋦𝅼\'\)\ \[data\/IdnaTest\.txt\:2270\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("₂󘈲--。ᢢ\x{200C}𞾰\x{1BAA}", %p)}, undef, "to_ascii\(\'₂󘈲\-\-\。ᢢ\\u200C𞾰\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:2271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2󘈲--。ᢢ\x{200C}𞾰\x{1BAA}", %p)}, undef, "to_ascii\(\'2󘈲\-\-\。ᢢ\\u200C𞾰\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:2273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-􆒿.ᢖ\x{0853}-", %p)}, undef, "to_ascii\(\'\-􆒿.ᢖ\\u0853\-\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-􆒿.ᢖ\x{0853}-", %p)}, undef, "to_ascii\(\'\-􆒿\.ᢖ\\u0853\-\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2276\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-ß。ᡪ𐹥\\u07DE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2277\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-ß\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2279\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-SS。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-SS\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2281\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-ss\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2283\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-Ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2285\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-SS。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-SS。ᡪ𐹥\\u07DE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2287\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-ss。ᡪ𐹥\\u07DE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2289\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-Ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss。ᡪ𐹥\\u07DE\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2291\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1039\\u1DEF.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1039\\u1DEF.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1039\\u1DEF\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1039\\u1DEF\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2296\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1039\\u1DEF\.눵\'\)\ \[data\/IdnaTest\.txt\:2297\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1039\\u1DEF\.눵\'\)\ \[data\/IdnaTest\.txt\:2298\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--s5a859c44knm0l.xn--2e1b", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'xn\-\-s5a859c44knm0l\.xn\-\-2e1b\'\)\ \[data\/IdnaTest\.txt\:2299\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1039\\u1DEF.눵\'\)\ \[data\/IdnaTest\.txt\:2300\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1039\\u1DEF.눵\'\)\ \[data\/IdnaTest\.txt\:2301\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0FBC}。鞯𐫦\x{17CB}", %p)}, undef, "to_ascii\(\'\\u0FBC。鞯𐫦\\u17CB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2302\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0FBC}。鞯𐫦\x{17CB}", %p)}, undef, "to_ascii\(\'\\u0FBC\。鞯𐫦\\u17CB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2303\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𹺛🕢。񶐎≯⾇", %p)}, undef, "to_ascii\(\'𹺛🕢\。񶐎\≯⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𹺛🕢。񶐎>\x{0338}⾇", %p)}, undef, "to_ascii\(\'𹺛🕢\。񶐎\>\\u0338⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𹺛🕢。񶐎≯舛", %p)}, undef, "to_ascii\(\'𹺛🕢\。񶐎\≯舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𹺛🕢。񶐎>\x{0338}舛", %p)}, undef, "to_ascii\(\'𹺛🕢\。񶐎\>\\u0338舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2307\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062F}\x{066B}\x{200C}.\x{200D}\x{200C}", %p)}, "xn--ugb4j.", "to_ascii\(\'\\u062F\\u066B\\u200C.\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:2308\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062F}\x{066B}\x{200C}.\x{200D}\x{200C}", %p)}, "xn--ugb4j.", "to_ascii\(\'\\u062F\\u066B\\u200C\.\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:2310\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ugb4j.", %p)}, "xn--ugb4j.", "to_ascii\(\'xn\-\-ugb4j\.\'\)\ \[data\/IdnaTest\.txt\:2312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062F}\x{066B}.", %p)}, "xn--ugb4j.", "to_ascii\(\'\\u062F\\u066B\.\'\)\ \[data\/IdnaTest\.txt\:2313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹄砪≯𐫉。≯\x{17BA}󣺋\x{200C}", %p)}, undef, "to_ascii\(\'񎹄砪\≯𐫉。\≯\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹄砪>\x{0338}𐫉。>\x{0338}\x{17BA}󣺋\x{200C}", %p)}, undef, "to_ascii\(\'񎹄砪\>\\u0338𐫉。\>\\u0338\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹄砪≯𐫉。≯\x{17BA}󣺋\x{200C}", %p)}, undef, "to_ascii\(\'񎹄砪\≯𐫉\。\≯\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹄砪>\x{0338}𐫉。>\x{0338}\x{17BA}󣺋\x{200C}", %p)}, undef, "to_ascii\(\'񎹄砪\>\\u0338𐫉\。\>\\u0338\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ.\x{094D}㊸", %p)}, undef, "to_ascii\(\'Ⴥ\.\\u094D㊸\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ.\x{094D}43", %p)}, undef, "to_ascii\(\'Ⴥ\.\\u094D43\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2323\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{094D}43", %p)}, undef, "to_ascii\(\'ⴥ\.\\u094D43\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2324\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{094D}㊸", %p)}, undef, "to_ascii\(\'ⴥ\.\\u094D㊸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2325\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟎\x{066C}。Ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_ascii\(\'𝟎\\u066C\。Ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{066C}。Ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_ascii\(\'0\\u066C\。Ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[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("0\x{066C}。ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_ascii\(\'0\\u066C\。ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2328\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟎\x{066C}。ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_ascii\(\'𝟎\\u066C\。ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2329\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󝆆\x{20EB}\x{FFA0}\x{1DE1}.򼇅𑓂", %p)}, undef, "to_ascii\(\'󝆆\\u20EB\\uFFA0\\u1DE1\.򼇅𑓂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󝆆\x{20EB}\x{1160}\x{1DE1}.򼇅𑓂", %p)}, undef, "to_ascii\(\'󝆆\\u20EB\\u1160\\u1DE1\.򼇅𑓂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2331\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{AA31}.۳\x{200C}\x{0C4D}", %p)}, undef, "to_ascii\(\'\\uAA31\.۳\\u200C\\u0C4D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2332\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐫜.︒ᠦ", %p)}, undef, "to_ascii\(\'𐫜.︒ᠦ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2334\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫜.。ᠦ", %p)}, undef, "to_ascii\(\'𐫜\.\。ᠦ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2335\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0C4D}\x{0FB3}。𐦽", %p)}, undef, "to_ascii\(\'\\u0C4D\\u0FB3。𐦽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2336\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0C4D}\x{0FB3}。𐦽", %p)}, undef, "to_ascii\(\'\\u0C4D\\u0FB3\。𐦽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2337\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞯟。𐫒񥂰", %p)}, undef, "to_ascii\(\'𞯟\。𐫒񥂰\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2338\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}㴼.\x{200C}\x{0669}\x{FE29}񅋵", %p)}, undef, "to_ascii\(\'\\u0BCD㴼.\\u200C\\u0669\\uFE29񅋵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}㴼.\x{200C}\x{0669}\x{FE29}񅋵", %p)}, undef, "to_ascii\(\'\\u0BCD㴼\.\\u200C\\u0669\\uFE29񅋵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𬙭\x{0600}👙。\x{0955}", %p)}, undef, "to_ascii\(\'𬙭\\u0600👙。\\u0955\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𬙭\x{0600}👙。\x{0955}", %p)}, undef, "to_ascii\(\'𬙭\\u0600👙\。\\u0955\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢔ뾜󠛸\x{09CD}。\x{089D}\x{0600}", %p)}, undef, "to_ascii\(\'ᢔ뾜\󠛸\\u09CD\。\\u089D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢔ뾜󠛸\x{09CD}。\x{089D}\x{0600}", %p)}, undef, "to_ascii\(\'ᢔ뾜\󠛸\\u09CD\。\\u089D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹷≠。𐋲󠱲\x{200C}", %p)}, undef, "to_ascii\(\'𐹷\≠。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2347\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹷=\x{0338}。𐋲󠱲\x{200C}", %p)}, undef, "to_ascii\(\'𐹷\=\\u0338。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2349\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹷≠。𐋲󠱲\x{200C}", %p)}, undef, "to_ascii\(\'𐹷\≠\。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2351\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹷=\x{0338}。𐋲󠱲\x{200C}", %p)}, undef, "to_ascii\(\'𐹷\=\\u0338\。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}򯏪\x{0ACD}.\x{200D}\x{0D4D}𞩪", %p)}, undef, "to_ascii\(\'\\u115F򯏪\\u0ACD.\\u200D\\u0D4D𞩪\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}򯏪\x{0ACD}.\x{200D}\x{0D4D}𞩪", %p)}, undef, "to_ascii\(\'\\u115F򯏪\\u0ACD\.\\u200D\\u0D4D𞩪\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񦞷\x{1714}󠄄\x{0F19}。≮", %p)}, undef, "to_ascii\(\'񦞷\\u1714\󠄄\\u0F19\。\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񦞷\x{1714}󠄄\x{0F19}。<\x{0338}", %p)}, undef, "to_ascii\(\'񦞷\\u1714\󠄄\\u0F19\。\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨬.󠅙暀≠", %p)}, undef, "to_ascii\(\'𝨬\.\󠅙暀\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2361\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨬.󠅙暀=\x{0338}", %p)}, undef, "to_ascii\(\'𝨬\.\󠅙暀\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2362\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{068E}\x{0CCD}。𞮆𿵧󠁶", %p)}, undef, "to_ascii\(\'\\u068E\\u0CCD。𞮆𿵧\󠁶\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{068E}\x{0CCD}。𞮆𿵧󠁶", %p)}, undef, "to_ascii\(\'\\u068E\\u0CCD\。𞮆𿵧\󠁶\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A92A}\x{200D}⒈。Ⴌ𐢐", %p)}, undef, "to_ascii\(\'\\uA92A\\u200D⒈。Ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A92A}\x{200D}1.。Ⴌ𐢐", %p)}, undef, "to_ascii\(\'\\uA92A\\u200D1\.\。Ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2367\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A92A}\x{200D}1.。ⴌ𐢐", %p)}, undef, "to_ascii\(\'\\uA92A\\u200D1\.\。ⴌ𐢐\'\)\ throws\ error\ V5\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2369\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A92A}\x{200D}⒈。ⴌ𐢐", %p)}, undef, "to_ascii\(\'\\uA92A\\u200D⒈。ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠾸𐨿񃰂\x{0691}.ς𡛬󵼸", %p)}, undef, "to_ascii\(\'\󠾸𐨿񃰂\\u0691\.ς𡛬󵼸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠾸𐨿񃰂\x{0691}.Σ𡛬󵼸", %p)}, undef, "to_ascii\(\'\󠾸𐨿񃰂\\u0691\.Σ𡛬󵼸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠾸𐨿񃰂\x{0691}.σ𡛬󵼸", %p)}, undef, "to_ascii\(\'\󠾸𐨿񃰂\\u0691\.σ𡛬󵼸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢛ。\x{200C}ᠳ񩿹", %p)}, undef, "to_ascii\(\'ᢛ\。\\u200Cᠳ񩿹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2376\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06DA}\x{20E2}.\x{A672}ꡋ𐫉𝅿", %p)}, undef, "to_ascii\(\'\\u06DA\\u20E2\.\\uA672ꡋ𐫉𝅿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2378\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("䂹򪾥𐋦.\x{200D}", %p)}, undef, "to_ascii\(\'䂹򪾥𐋦.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䂹򪾥𐋦.\x{200D}", %p)}, undef, "to_ascii\(\'䂹򪾥𐋦\.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}\x{200C}\x{0667}\x{200C}。𐲟🄉", %p)}, undef, "to_ascii\(\'\\u0BCD\\u200C\\u0667\\u200C。𐲟🄉\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}\x{200C}\x{0667}\x{200C}。𐲟8,", %p)}, undef, "to_ascii\(\'\\u0BCD\\u200C\\u0667\\u200C\。𐲟8\,\'\)\ throws\ error\ P1\ V5\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。Ⴃ≯", %p)}, undef, "to_ascii\(\'︒。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。Ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。ⴃ≯", %p)}, undef, "to_ascii\(\'︒。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡。󠁙\x{200D}", %p)}, undef, "to_ascii\(\'𐹡。\󠁙\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡。󠁙\x{200D}", %p)}, undef, "to_ascii\(\'𐹡\。\󠁙\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ𐹮。︒𐫁\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ𐹮。︒𐫁\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ𐹮。。𐫁\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ𐹮\。\。𐫁\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:2401\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴞ𐹮。。𐫁\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ𐹮\。\。𐫁\\u200Dⴏ\'\)\ throws\ error\ B5\ B6\ A4_2\ B2\ B3\ \[data\/IdnaTest\.txt\:2403\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ⴞ𐹮。︒𐫁\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ𐹮。︒𐫁\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴆ𝟹。-\x{1DF1}-𐫝", %p)}, undef, "to_ascii\(\'\\u200CႦ𝟹\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴆ3。-\x{1DF1}-𐫝", %p)}, undef, "to_ascii\(\'\\u200CႦ3\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2409\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}ⴆ3。-\x{1DF1}-𐫝", %p)}, undef, "to_ascii\(\'\\u200Cⴆ3\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2411\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}ⴆ𝟹。-\x{1DF1}-𐫝", %p)}, undef, "to_ascii\(\'\\u200Cⴆ𝟹\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2413\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("箃Ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\u0342。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\u0342。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\u0342\。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\u0342\。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\u0342\。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2419\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\u0342\。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2420\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\u0342。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\u0342。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2422\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07DC}.ꡜ", %p)}, "xn--3sb.xn--1c9a", "to_ascii\(\'\\u07DC\.ꡜ\'\)\ \[data\/IdnaTest\.txt\:2423\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--3sb.xn--1c9a", %p)}, "xn--3sb.xn--1c9a", "to_ascii\(\'xn\-\-3sb\.xn\-\-1c9a\'\)\ \[data\/IdnaTest\.txt\:2424\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{200D}.ᢏ", %p)}, "xn--89e", "to_ascii\(\'\\u200C\\u200D\.ᢏ\'\)\ \[data\/IdnaTest\.txt\:2425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--89e", %p)}, "xn--89e", "to_ascii\(\'xn\-\-89e\'\)\ \[data\/IdnaTest\.txt\:2427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢏ", %p)}, "xn--89e", "to_ascii\(\'ᢏ\'\)\ \[data\/IdnaTest\.txt\:2428\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("≤𐹮ᡱ.ς\x{1BAA}蜹", %p)}, undef, "to_ascii\(\'\≤𐹮ᡱ\.ς\\u1BAA蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2429\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("≤𐹮ᡱ.Σ\x{1BAA}蜹", %p)}, undef, "to_ascii\(\'\≤𐹮ᡱ\.Σ\\u1BAA蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2430\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("≤𐹮ᡱ.σ\x{1BAA}蜹", %p)}, undef, "to_ascii\(\'\≤𐹮ᡱ\.σ\\u1BAA蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2431\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򩎰ス􅲆𐹡.򉬄", %p)}, undef, "to_ascii\(\'򩎰ス􅲆𐹡.򉬄\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򩎰ス􅲆𐹡.򉬄", %p)}, undef, "to_ascii\(\'򩎰ス􅲆𐹡\.򉬄\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2433\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𜖴.\x{05BB}\x{D850}ꡢ", %p)}, undef, "to_ascii\(\'\\u05C7𜖴.\\u05BB\\uD850ꡢ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:2434\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𜖴.\x{05BB}\x{D850}ꡢ", %p)}, undef, "to_ascii\(\'\\u05C7𜖴\.\\u05BB\\uD850ꡢ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:2435\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0662}󤺆\x{200C}。ᢡ", %p)}, undef, "to_ascii\(\'\\u0662󤺆\\u200C\。ᢡ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2436\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑋪\x{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_ascii\(\'𑋪\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:2438\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒。\x{1039}\x{0720}", %p)}, undef, "to_ascii\(\'︒。\\u1039\\u0720\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。\x{1039}\x{0720}", %p)}, undef, "to_ascii\(\'\。\。\\u1039\\u0720\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇß。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_ascii\(\'ᢇß\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇß。ጫᡏ\x{068C}2", %p)}, undef, "to_ascii\(\'ᢇß\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇSS。ጫᡏ\x{068C}2", %p)}, undef, "to_ascii\(\'ᢇSS\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇss。ጫᡏ\x{068C}2", %p)}, undef, "to_ascii\(\'ᢇss\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇSs。ጫᡏ\x{068C}2", %p)}, undef, "to_ascii\(\'ᢇSs\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇSS。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_ascii\(\'ᢇSS\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇss。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_ascii\(\'ᢇss\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇSs。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_ascii\(\'ᢇSs\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞾰\x{FCDE}ᚲ.\x{0F83}󠀥𝟚\x{AAF6}", %p)}, undef, "to_ascii\(\'𞾰\\uFCDEᚲ\.\\u0F83\󠀥𝟚\\uAAF6\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2450\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞾰\x{064A}\x{0647}ᚲ.\x{0F83}󠀥2\x{AAF6}", %p)}, undef, "to_ascii\(\'𞾰\\u064A\\u0647ᚲ\.\\u0F83\󠀥2\\uAAF6\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2451\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1B44}︒\x{200D}.𑕮𬺥", %p)}, undef, "to_ascii\(\'\-\\u1B44︒\\u200D\.𑕮𬺥\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1B44}。\x{200D}.𑕮𬺥", %p)}, undef, "to_ascii\(\'\-\\u1B44\。\\u200D\.𑕮𬺥\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠖺.≯\x{1AB5}", %p)}, undef, "to_ascii\(\'\󠖺\.\≯\\u1AB5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠖺.>\x{0338}\x{1AB5}", %p)}, undef, "to_ascii\(\'\󠖺\.\>\\u0338\\u1AB5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{09CD}‡\x{0601}。𞴅", %p)}, undef, "to_ascii\(\'\-\\u09CD\‡\\u0601\。𞴅\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A2}.\x{0717}\x{115F}", %p)}, undef, "to_ascii\(\'\\u06A2.\\u0717\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A2}.\x{0717}\x{115F}", %p)}, undef, "to_ascii\(\'\\u06A2\.\\u0717\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨛񻘅.︒𝟕𑜨", %p)}, undef, "to_ascii\(\'㨛񻘅\.︒𝟕𑜨\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨛񻘅.。7𑜨", %p)}, undef, "to_ascii\(\'㨛񻘅\.\。7𑜨\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0663}񥐑-。𐦱𐍷\x{0764}≮", %p)}, undef, "to_ascii\(\'\\u0663񥐑\-。𐦱𐍷\\u0764\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0663}񥐑-。𐦱𐍷\x{0764}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0663񥐑\-。𐦱𐍷\\u0764\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0663}񥐑-。𐦱𐍷\x{0764}≮", %p)}, undef, "to_ascii\(\'\\u0663񥐑\-\。𐦱𐍷\\u0764\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0663}񥐑-。𐦱𐍷\x{0764}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0663񥐑\-\。𐦱𐍷\\u0764\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{0FA2}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA2\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750\.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2471\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750\.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2473\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\u0FA1\\u0FB7\\u0750\.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2475\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\u0FA1\\u0FB7\\u0750\.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2477\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ss\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\u0FA1\\u0FB7\\u0750\.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2479\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2481\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\u0FA1\\u0FB7\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2483\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\u0FA1\\u0FB7\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2485\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ss\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\u0FA1\\u0FB7\\u0750.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2487\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FA2}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA2\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2489\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{0FA2}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\u0FA2\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2491\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}\x{0FA2}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\u0FA2\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2493\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ss\x{200C}\x{0FA2}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\u0FA2\\u0750.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。ς󠁳", %p)}, undef, "to_ascii\(\'\\u200D\。ς\󠁳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。Σ󠁳", %p)}, undef, "to_ascii\(\'\\u200D\。Σ\󠁳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。σ󠁳", %p)}, undef, "to_ascii\(\'\\u200D\。σ\󠁳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮧ß.𐮍\x{200D}ᠨ-", %p)}, undef, "to_ascii\(\'𐮧ß\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮧SS.𐮍\x{200D}ᠨ-", %p)}, undef, "to_ascii\(\'𐮧SS\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2505\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮧ss.𐮍\x{200D}ᠨ-", %p)}, undef, "to_ascii\(\'𐮧ss\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮧Ss.𐮍\x{200D}ᠨ-", %p)}, undef, "to_ascii\(\'𐮧Ss\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:2509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0816}\x{200D}𐮭.\x{0662}󔿾-", %p)}, undef, "to_ascii\(\'\\u0816\\u200D𐮭.\\u0662󔿾\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0816}\x{200D}𐮭.\x{0662}󔿾-", %p)}, undef, "to_ascii\(\'\\u0816\\u200D𐮭\.\\u0662󔿾\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒒񷻕򨢣𑍫.-򌀇", %p)}, undef, "to_ascii\(\'⒒񷻕򨢣𑍫\.\-򌀇\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("11.񷻕򨢣𑍫.-򌀇", %p)}, undef, "to_ascii\(\'11\.񷻕򨢣𑍫\.\-򌀇\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-。\\u200D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2517\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2519\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.ς¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776.ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.ς¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776.ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.ς1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.ς1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.Σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.Σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.Σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776.Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.Σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776.Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776.σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776.σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ቬ񊱈󙪶。\x{07B9}𝟠", %p)}, undef, "to_ascii\(\'ቬ񊱈󙪶。\\u07B9𝟠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ቬ񊱈󙪶。\x{07B9}8", %p)}, undef, "to_ascii\(\'ቬ񊱈󙪶\。\\u07B98\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2534\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𞺯。蔫\x{068A}", %p)}, undef, "to_ascii\(\'𞺯\。蔫\\u068A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2535\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0639}。蔫\x{068A}", %p)}, undef, "to_ascii\(\'\\u0639\。蔫\\u068A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򰡪₃。ꡤ󤪓\x{0FAA}\x{067B}", %p)}, undef, "to_ascii\(\'򰡪₃。ꡤ󤪓\\u0FAA\\u067B\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򰡪3。ꡤ󤪓\x{0FAA}\x{067B}", %p)}, undef, "to_ascii\(\'򰡪3\。ꡤ󤪓\\u0FAA\\u067B\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊧧𐮅≠.ß", %p)}, undef, "to_ascii\(\'󊧧𐮅\≠\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊧧𐮅=\x{0338}.ß", %p)}, undef, "to_ascii\(\'󊧧𐮅\=\\u0338\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊧧𐮅=\x{0338}.SS", %p)}, undef, "to_ascii\(\'󊧧𐮅\=\\u0338\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊧧𐮅≠.SS", %p)}, undef, "to_ascii\(\'󊧧𐮅\≠\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0770}\x{08AA}𑍴⒊.\x{0666}𞤵\x{05AE}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0770\\u08AA𑍴⒊\.\\u0666𞤵\\u05AE\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0770}\x{08AA}𑍴3..\x{0666}𞤵\x{05AE}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0770\\u08AA𑍴3\.\.\\u0666𞤵\\u05AE\\u200C\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{200D}-.Ⴣ󰬳", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.Ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{200D}-.ⴣ󰬳", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{200D}-.Ⴣ󰬳", %p)}, undef, "to_ascii\(\'Σ\\u200D\-\.Ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{200D}-.ⴣ󰬳", %p)}, undef, "to_ascii\(\'σ\\u200D\-\.ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:2553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。󠷆𝟲", %p)}, undef, "to_ascii\(\'\≠\。\󠷆𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。󠷆𝟲", %p)}, undef, "to_ascii\(\'\=\\u0338\。\󠷆𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。󠷆6", %p)}, undef, "to_ascii\(\'\≠\。\󠷆6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。󠷆6", %p)}, undef, "to_ascii\(\'\=\\u0338\。\󠷆6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򉄵.蠔", %p)}, undef, "to_ascii\(\'򉄵\.蠔\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u0FAE\\u200D.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u0FAE\\u200D.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2562\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u0FAE\\u200D\.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u0FAE\\u200D\.뼽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₇𑄳򯨓𐸬。⬅\x{0685}-\x{FD46}", %p)}, undef, "to_ascii\(\'₇𑄳򯨓𐸬\。\⬅\\u0685\-\\uFD46\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7𑄳򯨓𐸬。⬅\x{0685}-\x{FD46}", %p)}, undef, "to_ascii\(\'7𑄳򯨓𐸬\。\⬅\\u0685\-\\uFD46\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2569\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07E0}", %p)}, undef, "to_ascii\(\'\-。\\u07E0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2570\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07E0}", %p)}, undef, "to_ascii\(\'\-\。\\u07E0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2571\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1B6B}򪃩。-⒈\x{075C}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u1B6B򪃩。\-⒈\\u075C\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B6B}򪃩。-1.\x{075C}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u1B6B򪃩\。\-1\.\\u075C\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:2573\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0677}.-", %p)}, undef, "to_ascii\(\'璛\\u2D7F\\u0677\.\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2574\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{06C7}\x{0674}.-", %p)}, undef, "to_ascii\(\'璛\\u2D7F\\u06C7\\u0674\.\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2575\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_ascii\(\'\\u0596ꡜ\\uA806샕.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2576\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_ascii\(\'\\u0596ꡜ\\uA806샕.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2577\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_ascii\(\'\\u0596ꡜ\\uA806샕\.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2578\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_ascii\(\'\\u0596ꡜ\\uA806샕\.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2579\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󌥊.󔾋", %p)}, undef, "to_ascii\(\'󌥊.󔾋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󌥊.󔾋", %p)}, undef, "to_ascii\(\'󌥊\.󔾋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2581\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06B3}𐺰。\x{ABED}𐮇Ⴍ-", %p)}, undef, "to_ascii\(\'\\u06B3𐺰。\\uABED𐮇Ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06B3}𐺰。\x{ABED}𐮇Ⴍ-", %p)}, undef, "to_ascii\(\'\\u06B3𐺰\。\\uABED𐮇Ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06B3}𐺰。\x{ABED}𐮇ⴍ-", %p)}, undef, "to_ascii\(\'\\u06B3𐺰\。\\uABED𐮇ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06B3}𐺰。\x{ABED}𐮇ⴍ-", %p)}, undef, "to_ascii\(\'\\u06B3𐺰。\\uABED𐮇ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹥𐧞\x{FE99}。򴶪₄Ⴋ𷮑", %p)}, undef, "to_ascii\(\'𞹥𐧞\\uFE99\。򴶪₄Ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2586\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹥𐧞\x{062B}。򴶪4Ⴋ𷮑", %p)}, undef, "to_ascii\(\'𞹥𐧞\\u062B\。򴶪4Ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2587\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹥𐧞\x{062B}。򴶪4ⴋ𷮑", %p)}, undef, "to_ascii\(\'𞹥𐧞\\u062B\。򴶪4ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹥𐧞\x{FE99}。򴶪₄ⴋ𷮑", %p)}, undef, "to_ascii\(\'𞹥𐧞\\uFE99\。򴶪₄ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{066E}︒󠚂.≠", %p)}, undef, "to_ascii\(\'4\\u066E︒\󠚂\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2590\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{066E}︒󠚂.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u066E︒\󠚂\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2591\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{066E}。󠚂.≠", %p)}, undef, "to_ascii\(\'4\\u066E\。\󠚂\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{066E}。󠚂.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u066E\。\󠚂\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟓。\x{1920}", %p)}, undef, "to_ascii\(\'𝟓\。\\u1920\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5。\x{1920}", %p)}, undef, "to_ascii\(\'5\。\\u1920\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񩈣.⾕", %p)}, undef, "to_ascii\(\'\\u200C񩈣\.⾕\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񩈣.谷", %p)}, undef, "to_ascii\(\'\\u200C񩈣\.谷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒򖒱\x{200D}.-󠄫\x{200C}", %p)}, undef, "to_ascii\(\'︒򖒱\\u200D\.\-\󠄫\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。򖒱\x{200D}.-󠄫\x{200C}", %p)}, undef, "to_ascii\(\'\。򖒱\\u200D\.\-\󠄫\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{06A5}。ꡖ", %p)}, undef, "to_ascii\(\'\≯\\u06A5\。ꡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{06A5}。ꡖ", %p)}, undef, "to_ascii\(\'\>\\u0338\\u06A5\。ꡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1C36}󷠎𐅓。ᡕ\x{0600}", %p)}, undef, "to_ascii\(\'\\u1C36󷠎𐅓\。ᡕ\\u0600\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2606\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DF3}\x{084F}⁷𝟹。𝟬", %p)}, undef, "to_ascii\(\'\\u1DF3\\u084F⁷𝟹。𝟬\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2607\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DF3}\x{084F}73。0", %p)}, undef, "to_ascii\(\'\\u1DF3\\u084F73\。0\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2608\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}.𝟗", %p)}, "9", "to_ascii\(\'\\u200D.𝟗\'\)\ \[data\/IdnaTest\.txt\:2609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.9", %p)}, "9", "to_ascii\(\'\\u200D\.9\'\)\ \[data\/IdnaTest\.txt\:2611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9", %p)}, "9", "to_ascii\(\'9\'\)\ \[data\/IdnaTest\.txt\:2613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡬ\x{072F}𔾦。ᢚ\x{1039}", %p)}, undef, "to_ascii\(\'ᡬ\\u072F𔾦\。ᢚ\\u1039\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2614\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_ascii\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2615\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_ascii\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2616\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_ascii\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2617\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_ascii\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2618\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴍ𖮿ᡎ\x{0F7C}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ𖮿ᡎ\\u0F7C\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴍ𖮿ᡎ\x{0F7C}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ𖮿ᡎ\\u0F7C\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋰。򒠍", %p)}, undef, "to_ascii\(\'𐋰\。򒠍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚡜\x{17B4}\x{0D4D}.𐹴", %p)}, undef, "to_ascii\(\'𚡜\\u17B4\\u0D4D\.𐹴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}Ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059FႫ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}Ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059FႫ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}Ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059FႫ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}Ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059FႫ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059Fⴋ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059Fⴋ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059Fⴋ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059Fⴋ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐦲.𐼰𐹴", %p)}, undef, "to_ascii\(\'𐦲.𐼰𐹴\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐦲.𐼰𐹴", %p)}, undef, "to_ascii\(\'𐦲\.𐼰𐹴\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09CD}₃.8\x{1B44}\x{200D}󠲑", %p)}, undef, "to_ascii\(\'\\u09CD₃\.8\\u1B44\\u200D\󠲑\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09CD}3.8\x{1B44}\x{200D}󠲑", %p)}, undef, "to_ascii\(\'\\u09CD3\.8\\u1B44\\u200D\󠲑\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝃⩷\x{0FC6}。𐤒󠁖\x{1A1B}", %p)}, undef, "to_ascii\(\'\󠝃\⩷\\u0FC6\。𐤒\󠁖\\u1A1B\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡟ≠\x{0E3A}򑒮。𞯴𝩗\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡟ\≠\\u0E3A򑒮。𞯴𝩗\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡟ=\x{0338}\x{0E3A}򑒮。𞯴𝩗\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡟ\=\\u0338\\u0E3A򑒮。𞯴𝩗\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡟ≠\x{0E3A}򑒮。𞯴𝩗\x{1160}", %p)}, undef, "to_ascii\(\'ꡟ\≠\\u0E3A򑒮\。𞯴𝩗\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡟ=\x{0338}\x{0E3A}򑒮。𞯴𝩗\x{1160}", %p)}, undef, "to_ascii\(\'ꡟ\=\\u0338\\u0E3A򑒮\。𞯴𝩗\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("鱊。\x{200C}", %p)}, "xn--rt6a.", "to_ascii\(\'鱊\。\\u200C\'\)\ \[data\/IdnaTest\.txt\:2642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--rt6a.", %p)}, "xn--rt6a.", "to_ascii\(\'xn\-\-rt6a\.\'\)\ \[data\/IdnaTest\.txt\:2644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("鱊.", %p)}, "xn--rt6a.", "to_ascii\(\'鱊\.\'\)\ \[data\/IdnaTest\.txt\:2645\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("8𐹽.𑚲", %p)}, undef, "to_ascii\(\'8𐹽.𑚲\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2646\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("8𐹽.𑚲", %p)}, undef, "to_ascii\(\'8𐹽\.𑚲\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2647\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⤴𞨡.ᡆ", %p)}, undef, "to_ascii\(\'\⤴𞨡.ᡆ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⤴𞨡.ᡆ", %p)}, undef, "to_ascii\(\'\⤴𞨡\.ᡆ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2649\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}ᡐ4.\x{200D}", %p)}, undef, "to_ascii\(\'\\u07CFᡐ4.\\u200D\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:2650\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}ᡐ4.\x{200D}", %p)}, undef, "to_ascii\(\'\\u07CFᡐ4\.\\u200D\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:2652\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒗\x{FE02}\x{1B6B}-.𐹧󠑍", %p)}, undef, "to_ascii\(\'⒗\\uFE02\\u1B6B\-\.𐹧\󠑍\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("16.\x{FE02}\x{1B6B}-.𐹧󠑍", %p)}, undef, "to_ascii\(\'16\.\\uFE02\\u1B6B\-\.𐹧\󠑍\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2656\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-\。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}烴.\x{200D}", %p)}, "xn--srx.", "to_ascii\(\'\\u200C烴.\\u200D\'\)\ \[data\/IdnaTest\.txt\:2658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}烴.\x{200D}", %p)}, "xn--srx.", "to_ascii\(\'\\u200C烴\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:2660\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--srx.", %p)}, "xn--srx.", "to_ascii\(\'xn\-\-srx\.\'\)\ \[data\/IdnaTest\.txt\:2662\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("烴.", %p)}, "xn--srx.", "to_ascii\(\'烴\.\'\)\ \[data\/IdnaTest\.txt\:2663\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈₠򝇵。𐹫\x{200D}򃦻Ⴕ", %p)}, undef, "to_ascii\(\'⒈₠򝇵。𐹫\\u200D򃦻Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2664\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.₠򝇵。𐹫\x{200D}򃦻Ⴕ", %p)}, undef, "to_ascii\(\'1\.₠򝇵\。𐹫\\u200D򃦻Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.₠򝇵。𐹫\x{200D}򃦻ⴕ", %p)}, undef, "to_ascii\(\'1\.₠򝇵\。𐹫\\u200D򃦻ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈₠򝇵。𐹫\x{200D}򃦻ⴕ", %p)}, undef, "to_ascii\(\'⒈₠򝇵。𐹫\\u200D򃦻ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2670\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-ß。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-ß。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2672\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-ß。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-ß\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2673\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-SS。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-SS\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2674\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-ss。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-ss\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2675\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-Ss。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-Ss\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2676\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-SS。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-SS。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2677\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-ss。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-ss。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2678\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-Ss。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-Ss。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2679\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𑄳.🐜", %p)}, undef, "to_ascii\(\'𑄳\.🐜\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2680\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠉙3𞱢。𝟘𑍍𐷥", %p)}, undef, "to_ascii\(\'\󠉙3𞱢。𝟘𑍍𐷥\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠉙3𞱢。0𑍍𐷥", %p)}, undef, "to_ascii\(\'\󠉙3𞱢\。0𑍍𐷥\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2682\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0679}6\x{A8EE}ᡮ。\x{0592}", %p)}, undef, "to_ascii\(\'\\u06796\\uA8EEᡮ\。\\u0592\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2683\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0679}6\x{A8EE}ᡮ。\x{0592}", %p)}, undef, "to_ascii\(\'\\u06796\\uA8EEᡮ\。\\u0592\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2684\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐹾-𠥔Ⴂ。򝾣\x{200D}", %p)}, undef, "to_ascii\(\'𐹾\-𠥔Ⴂ\。򝾣\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹾-𠥔ⴂ。򝾣\x{200D}", %p)}, undef, "to_ascii\(\'𐹾\-𠥔ⴂ\。򝾣\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5≯ß", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5>\x{0338}ß", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5≯ß", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5>\x{0338}ß", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5>\x{0338}SS", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5≯SS", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5≯ss", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5>\x{0338}ss", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5>\x{0338}Ss", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5≯Ss", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5>\x{0338}SS", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5≯SS", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5≯ss", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5>\x{0338}ss", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5>\x{0338}Ss", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5≯Ss", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}8\x{200D}.򉈡ꡂ", %p)}, undef, "to_ascii\(\'\\uA9C08\\u200D.򉈡ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}8\x{200D}.򉈡ꡂ", %p)}, undef, "to_ascii\(\'\\uA9C08\\u200D\.򉈡ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󡆸\x{1A69}≮񀹄.񁆗⁷\x{0355}𐫎", %p)}, undef, "to_ascii\(\'󡆸\\u1A69\≮񀹄.񁆗⁷\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󡆸\x{1A69}<\x{0338}񀹄.񁆗⁷\x{0355}𐫎", %p)}, undef, "to_ascii\(\'󡆸\\u1A69\<\\u0338񀹄.񁆗⁷\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󡆸\x{1A69}≮񀹄.񁆗7\x{0355}𐫎", %p)}, undef, "to_ascii\(\'󡆸\\u1A69\≮񀹄\.񁆗7\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󡆸\x{1A69}<\x{0338}񀹄.񁆗7\x{0355}𐫎", %p)}, undef, "to_ascii\(\'󡆸\\u1A69\<\\u0338񀹄\.񁆗7\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2712\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2713\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2715\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2716\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2717\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2718\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ。ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2721\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2723\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2725\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2727\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2729\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2730\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.Σ", %p)}, undef, "to_ascii\(\'Ⴚ\.Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2731\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2732\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.ς", %p)}, undef, "to_ascii\(\'Ⴚ\.ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2734\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2735\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.σ", %p)}, undef, "to_ascii\(\'Ⴚ\.σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2736\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2737\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ。Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2739\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\: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("ᡆ.𐹹", %p)}, undef, "to_ascii\(\'ᡆ.𐹹\'\)\ throws\ error\ B1\ \[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("ᡆ.𐹹", %p)}, undef, "to_ascii\(\'ᡆ\.𐹹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2744\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{0E38}\x{AAF6}ᠳ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\u0E38\\uAAF6ᠳ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2745\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{AAF6}\x{0E38}ᠳ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\uAAF6\\u0E38ᠳ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2747\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{AAF6}\x{0E38}ᠳ", %p)}, undef, "to_ascii\(\'\\u200D谷\。\\u200C\\uAAF6\\u0E38ᠳ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2749\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0683\-뉔.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2751\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0683\-뉔.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2753\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0683\-뉔\.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2755\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0683\-뉔\.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2757\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𻠅5ᦛς.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛς\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛς.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛς\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛΣ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛΣ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛσ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛσ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛΣ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛΣ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛσ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛσ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2764\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0852}", %p)}, "xn--34w.xn--hwb", "to_ascii\(\'淽\。\\u0852\'\)\ \[data\/IdnaTest\.txt\:2765\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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--34w.xn--hwb", %p)}, "xn--34w.xn--hwb", "to_ascii\(\'xn\-\-34w\.xn\-\-hwb\'\)\ \[data\/IdnaTest\.txt\:2766\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0852}", %p)}, "xn--34w.xn--hwb", "to_ascii\(\'淽\.\\u0852\'\)\ \[data\/IdnaTest\.txt\:2767\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹳\x{05BC}。-", %p)}, undef, "to_ascii\(\'𐹳\\u05BC\。\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2768\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򟓒Ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_ascii\(\'򟓒Ⴓ\󠒾。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2769\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟓒Ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_ascii\(\'򟓒Ⴓ\󠒾\。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟓒ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_ascii\(\'򟓒ⴓ\󠒾\。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟓒ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_ascii\(\'򟓒ⴓ\󠒾。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2775\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0668}\x{062E}ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062Eⴇ\。ßⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2777\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2779\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0668}\x{062E}ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062Eⴇ\。ssⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2781\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2783\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0668}\x{062E}ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062Eⴇ。ßⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2785\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2787\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0668}\x{062E}ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062Eⴇ。ssⴃ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2789\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2791\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󤚠。𞷿", %p)}, undef, "to_ascii\(\'󤚠。𞷿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󤚠。𞷿", %p)}, undef, "to_ascii\(\'󤚠\。𞷿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2794\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{A953}\x{A8EE}", %p)}, undef, "to_ascii\(\'\󠅤\\u200D。\\uA953\\uA8EE\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2795\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{A953}\x{A8EE}", %p)}, undef, "to_ascii\(\'\󠅤\\u200D\。\\uA953\\uA8EE\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2797\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-≠\x{0755}.ꡝ\x{084C}≮𿹕", %p)}, undef, "to_ascii\(\'\-\≠\\u0755.ꡝ\\u084C\≮𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{0755}.ꡝ\x{084C}<\x{0338}𿹕", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u0755.ꡝ\\u084C\<\\u0338𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2800\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{0755}.ꡝ\x{084C}≮𿹕", %p)}, undef, "to_ascii\(\'\-\≠\\u0755\.ꡝ\\u084C\≮𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2801\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{0755}.ꡝ\x{084C}<\x{0338}𿹕", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u0755\.ꡝ\\u084C\<\\u0338𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2802\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠃐≯\x{FC69}𞠷.񯫡≮𑖿ꡨ", %p)}, undef, "to_ascii\(\'\󠃐\≯\\uFC69𞠷.񯫡\≮𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2803\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠃐>\x{0338}\x{FC69}𞠷.񯫡<\x{0338}𑖿ꡨ", %p)}, undef, "to_ascii\(\'\󠃐\>\\u0338\\uFC69𞠷.񯫡\<\\u0338𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠃐≯\x{0626}\x{064A}𞠷.񯫡≮𑖿ꡨ", %p)}, undef, "to_ascii\(\'\󠃐\≯\\u0626\\u064A𞠷\.񯫡\≮𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2805\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠃐>\x{0338}\x{064A}\x{0654}\x{064A}𞠷.񯫡<\x{0338}𑖿ꡨ", %p)}, undef, "to_ascii\(\'\󠃐\>\\u0338\\u064A\\u0654\\u064A𞠷\.񯫡\<\\u0338𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠񠄐.𐹧𑈵-𞥋", %p)}, undef, "to_ascii\(\'\≠񠄐\.𐹧𑈵\-𞥋\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}񠄐.𐹧𑈵-𞥋", %p)}, undef, "to_ascii\(\'\=\\u0338񠄐\.𐹧𑈵\-𞥋\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆇\x{1CD7}≠。\x{06DD}𐋤", %p)}, undef, "to_ascii\(\'\󠆇\\u1CD7\≠。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆇\x{1CD7}=\x{0338}。\x{06DD}𐋤", %p)}, undef, "to_ascii\(\'\󠆇\\u1CD7\=\\u0338。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆇\x{1CD7}≠。\x{06DD}𐋤", %p)}, undef, "to_ascii\(\'\󠆇\\u1CD7\≠\。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆇\x{1CD7}=\x{0338}。\x{06DD}𐋤", %p)}, undef, "to_ascii\(\'\󠆇\\u1CD7\=\\u0338\。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß򓍟𺖭。\x{07AF}󠢂ß", %p)}, undef, "to_ascii\(\'ß򓍟𺖭。\\u07AF\󠢂ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß򓍟𺖭。\x{07AF}󠢂ß", %p)}, undef, "to_ascii\(\'ß򓍟𺖭\。\\u07AF\󠢂ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS򓍟𺖭。\x{07AF}󠢂SS", %p)}, undef, "to_ascii\(\'SS򓍟𺖭\。\\u07AF\󠢂SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss򓍟𺖭。\x{07AF}󠢂ss", %p)}, undef, "to_ascii\(\'ss򓍟𺖭\。\\u07AF\󠢂ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss򓍟𺖭。\x{07AF}󠢂Ss", %p)}, undef, "to_ascii\(\'Ss򓍟𺖭\。\\u07AF\󠢂Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS򓍟𺖭。\x{07AF}󠢂SS", %p)}, undef, "to_ascii\(\'SS򓍟𺖭。\\u07AF\󠢂SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss򓍟𺖭。\x{07AF}󠢂ss", %p)}, undef, "to_ascii\(\'ss򓍟𺖭。\\u07AF\󠢂ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss򓍟𺖭。\x{07AF}󠢂Ss", %p)}, undef, "to_ascii\(\'Ss򓍟𺖭。\\u07AF\󠢂Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2820\]") 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\:2821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1713}𐱍\x{200D}.𝩔𞡿񴥼", %p)}, undef, "to_ascii\(\'\\u1713𐱍\\u200D\.𝩔𞡿񴥼\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FE98}\x{200C}临。ᢗ򁣒ⶏ\x{066B}", %p)}, undef, "to_ascii\(\'\\u200C\\uFE98\\u200C临\。ᢗ򁣒ⶏ\\u066B\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062A}\x{200C}临。ᢗ򁣒ⶏ\x{066B}", %p)}, undef, "to_ascii\(\'\\u200C\\u062A\\u200C临\。ᢗ򁣒ⶏ\\u066B\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:2827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠿴.\x{0363}", %p)}, undef, "to_ascii\(\'\󠿴.\\u0363\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠿴.\x{0363}", %p)}, undef, "to_ascii\(\'\󠿴\.\\u0363\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2830\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{07EA}𑘿.𑍍", %p)}, undef, "to_ascii\(\'\\u07EA𑘿.𑍍\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2831\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{07EA}𑘿.𑍍", %p)}, undef, "to_ascii\(\'\\u07EA𑘿\.𑍍\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2832\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑖼򬆟멹。⒛⧪", %p)}, undef, "to_ascii\(\'𑖼򬆟멹\。⒛\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖼򬆟멹。⒛⧪", %p)}, undef, "to_ascii\(\'𑖼򬆟멹\。⒛\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖼򬆟멹。20.⧪", %p)}, undef, "to_ascii\(\'𑖼򬆟멹\。20\.\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2835\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖼򬆟멹。20.⧪", %p)}, undef, "to_ascii\(\'𑖼򬆟멹\。20\.\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2836\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_ascii\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2837\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_ascii\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2838\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_ascii\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_ascii\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2840\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_ascii\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2841\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_ascii\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2842\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_ascii\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2843\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_ascii\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2844\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。︒", %p)}, undef, "to_ascii\(\'\\u200C。︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2845\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。。", %p)}, undef, "to_ascii\(\'\\u200C\。\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2847\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{075F}.₄", %p)}, undef, "to_ascii\(\'\≯\\u075F.₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2849\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{075F}.₄", %p)}, undef, "to_ascii\(\'\>\\u0338\\u075F.₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{075F}.4", %p)}, undef, "to_ascii\(\'\≯\\u075F\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{075F}.4", %p)}, undef, "to_ascii\(\'\>\\u0338\\u075F\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2852\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-𝟹.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-𝟹\.ß\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2853\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-3.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-3\.ß\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2855\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-3.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-3\.SS\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2857\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-3.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-3\.ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-3.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-3\.Ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2861\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-𝟹.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-𝟹\.SS\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2863\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-𝟹.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-𝟹\.ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-𝟹.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-𝟹\.Ss\-\\u200C\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:2867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠𝟦\x{0626}󎅯。Ӏ", %p)}, undef, "to_ascii\(\'𐰠𝟦\\u0626󎅯。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠𝟦\x{064A}\x{0654}󎅯。Ӏ", %p)}, undef, "to_ascii\(\'𐰠𝟦\\u064A\\u0654󎅯。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠4\x{0626}󎅯。Ӏ", %p)}, undef, "to_ascii\(\'𐰠4\\u0626󎅯\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠4\x{064A}\x{0654}󎅯。Ӏ", %p)}, undef, "to_ascii\(\'𐰠4\\u064A\\u0654󎅯\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠4\x{064A}\x{0654}󎅯。ӏ", %p)}, undef, "to_ascii\(\'𐰠4\\u064A\\u0654󎅯\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠4\x{0626}󎅯。ӏ", %p)}, undef, "to_ascii\(\'𐰠4\\u0626󎅯\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠𝟦\x{064A}\x{0654}󎅯。ӏ", %p)}, undef, "to_ascii\(\'𐰠𝟦\\u064A\\u0654󎅯。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠𝟦\x{0626}󎅯。ӏ", %p)}, undef, "to_ascii\(\'𐰠𝟦\\u0626󎅯。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.𐹪𞦭\x{0F91}󠥢", %p)}, undef, "to_ascii\(\'\-\.𐹪𞦭\\u0F91\󠥢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򷈞ᢕ。󠀬󠢬", %p)}, undef, "to_ascii\(\'򷈞ᢕ\。\󠀬\󠢬\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠ႷꡩႫ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷꡩႫ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠ႷꡩႫ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷꡩႫ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2890\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹶.\x{FD12}", %p)}, undef, "to_ascii\(\'𐹶\.\\uFD12\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2891\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹶.\x{0637}\x{064A}", %p)}, undef, "to_ascii\(\'𐹶\.\\u0637\\u064A\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2892\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1714}𝟯。\x{200D}񹒧𐹡\x{A953}", %p)}, undef, "to_ascii\(\'\\u1714𝟯。\\u200D񹒧𐹡\\uA953\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:2893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1714}3。\x{200D}񹒧𐹡\x{A953}", %p)}, undef, "to_ascii\(\'\\u17143\。\\u200D񹒧𐹡\\uA953\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:2895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򷠯4𱂩.≯𐹡\x{1932}󠇶", %p)}, undef, "to_ascii\(\'򷠯4𱂩\.\≯𐹡\\u1932\󠇶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򷠯4𱂩.>\x{0338}𐹡\x{1932}󠇶", %p)}, undef, "to_ascii\(\'򷠯4𱂩\.\>\\u0338𐹡\\u1932\󠇶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵲚𝟯。⒈\x{A94A}𝟚񰩭", %p)}, undef, "to_ascii\(\'񵲚𝟯\。⒈\\uA94A𝟚񰩭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵲚3。1.\x{A94A}2񰩭", %p)}, undef, "to_ascii\(\'񵲚3\。1\.\\uA94A2񰩭\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2900\]") 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\:2901\]") 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\:2903\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}51.。≯8\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D51\.\。\≯8\\u200D\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2905\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}51.。>\x{0338}8\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D51\.\。\>\\u03388\\u200D\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2907\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}𐮍\x{1B37}.𳵷ᠺ≠\x{200C}", %p)}, undef, "to_ascii\(\'\\u06BE𐮍\\u1B37.𳵷ᠺ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}𐮍\x{1B37}.𳵷ᠺ=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06BE𐮍\\u1B37.𳵷ᠺ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}𐮍\x{1B37}.𳵷ᠺ≠\x{200C}", %p)}, undef, "to_ascii\(\'\\u06BE𐮍\\u1B37\.𳵷ᠺ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}𐮍\x{1B37}.𳵷ᠺ=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06BE𐮍\\u1B37\.𳵷ᠺ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2915\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{073F}。𺘼𐹪", %p)}, undef, "to_ascii\(\'\\u073F。𺘼𐹪\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2917\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{073F}。𺘼𐹪", %p)}, undef, "to_ascii\(\'\\u073F\。𺘼𐹪\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[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{0669}。\x{AAB3}", %p)}, undef, "to_ascii\(\'𝟥\\u0669\。\\uAAB3\'\)\ throws\ error\ V5\ B1\ \[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_ascii("3\x{0669}。\x{AAB3}", %p)}, undef, "to_ascii\(\'3\\u0669\。\\uAAB3\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2920\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ᢖ\x{066B}𐹸.\x{063E}긷", %p)}, undef, "to_ascii\(\'ᢖ\\u066B𐹸\.\\u063E긷\'\)\ throws\ error\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:2921\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ᢖ\x{066B}𐹸.\x{063E}긷", %p)}, undef, "to_ascii\(\'ᢖ\\u066B𐹸\.\\u063E긷\'\)\ throws\ error\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:2922\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒Ↄ\x{1DC7}򍐳.Ⴗ𞢍", %p)}, undef, "to_ascii\(\'︒Ↄ\\u1DC7򍐳.Ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。Ↄ\x{1DC7}򍐳.Ⴗ𞢍", %p)}, undef, "to_ascii\(\'\。Ↄ\\u1DC7򍐳\.Ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。ↄ\x{1DC7}򍐳.ⴗ𞢍", %p)}, undef, "to_ascii\(\'\。ↄ\\u1DC7򍐳\.ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒ↄ\x{1DC7}򍐳.ⴗ𞢍", %p)}, undef, "to_ascii\(\'︒ↄ\\u1DC7򍐳.ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2926\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹵.\x{1AB2}", %p)}, undef, "to_ascii\(\'𐹵\.\\u1AB2\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2927\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς≯。\x{06DD}", %p)}, undef, "to_ascii\(\'ς\≯。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'ς\>\\u0338。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς≯。\x{06DD}", %p)}, undef, "to_ascii\(\'ς\≯\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'ς\>\\u0338\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'Σ\>\\u0338\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ≯。\x{06DD}", %p)}, undef, "to_ascii\(\'Σ\≯\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ≯。\x{06DD}", %p)}, undef, "to_ascii\(\'σ\≯\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'σ\>\\u0338\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'Σ\>\\u0338。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ≯。\x{06DD}", %p)}, undef, "to_ascii\(\'Σ\≯。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ≯。\x{06DD}", %p)}, undef, "to_ascii\(\'σ\≯。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'σ\>\\u0338。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{103A}\x{200D}\x{064A}。\x{0600}", %p)}, undef, "to_ascii\(\'\\u103A\\u200D\\u064A\。\\u0600\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅭎\x{0A42}Ⴊ򼸑.≮", %p)}, undef, "to_ascii\(\'􅭎\\u0A42Ⴊ򼸑\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅭎\x{0A42}Ⴊ򼸑.<\x{0338}", %p)}, undef, "to_ascii\(\'􅭎\\u0A42Ⴊ򼸑\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅭎\x{0A42}ⴊ򼸑.<\x{0338}", %p)}, undef, "to_ascii\(\'􅭎\\u0A42ⴊ򼸑\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅭎\x{0A42}ⴊ򼸑.≮", %p)}, undef, "to_ascii\(\'􅭎\\u0A42ⴊ򼸑\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}.۲", %p)}, "xn--1nb.xn--fmb", "to_ascii\(\'\\u072B.۲\'\)\ \[data\/IdnaTest\.txt\:2945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}.۲", %p)}, "xn--1nb.xn--fmb", "to_ascii\(\'\\u072B\.۲\'\)\ \[data\/IdnaTest\.txt\:2946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--1nb.xn--fmb", %p)}, "xn--1nb.xn--fmb", "to_ascii\(\'xn\-\-1nb\.xn\-\-fmb\'\)\ \[data\/IdnaTest\.txt\:2947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹩𾤨。ᢕ🄄", %p)}, undef, "to_ascii\(\'𐹩𾤨。ᢕ🄄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹩𾤨。ᢕ3,", %p)}, undef, "to_ascii\(\'𐹩𾤨\。ᢕ3\,\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2949\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{200D}\x{A953}", %p)}, undef, "to_ascii\(\'\-\\uA953𐡃\󠇀。\\u200D\\uA953\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2950\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{200D}\x{A953}", %p)}, undef, "to_ascii\(\'\-\\uA953𐡃\󠇀\。\\u200D\\uA953\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2952\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑄰\x{200C}𒻝🄆。\x{200C}\x{09CD}󠄟", %p)}, undef, "to_ascii\(\'𑄰\\u200C𒻝🄆。\\u200C\\u09CD\󠄟\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑄰\x{200C}𒻝5,。\x{200C}\x{09CD}󠄟", %p)}, undef, "to_ascii\(\'𑄰\\u200C𒻝5\,\。\\u200C\\u09CD\󠄟\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("兎。\x{07E0}󠵲𑇀\x{ABED}", %p)}, undef, "to_ascii\(\'兎。\\u07E0\󠵲𑇀\\uABED\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2958\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("兎。\x{07E0}󠵲𑇀\x{ABED}", %p)}, undef, "to_ascii\(\'兎\。\\u07E0\󠵲𑇀\\uABED\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2959\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟙。\x{200D}𝟸\x{200D}⁷", %p)}, "1.27", "to_ascii\(\'𝟙。\\u200D𝟸\\u200D⁷\'\)\ \[data\/IdnaTest\.txt\:2960\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1。\x{200D}2\x{200D}7", %p)}, "1.27", "to_ascii\(\'1\。\\u200D2\\u200D7\'\)\ \[data\/IdnaTest\.txt\:2962\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.27", %p)}, "1.27", "to_ascii\(\'1\.27\'\)\ \[data\/IdnaTest\.txt\:2964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮮-。,𝟷", %p)}, undef, "to_ascii\(\'𐮮\-。\,𝟷\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮮-。,1", %p)}, undef, "to_ascii\(\'𐮮\-\。\,1\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{20EA}񋹂𞴌.𐹬⁹", %p)}, undef, "to_ascii\(\'\\u20EA񋹂𞴌.𐹬⁹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{20EA}񋹂𞴌.𐹬9", %p)}, undef, "to_ascii\(\'\\u20EA񋹂𞴌\.𐹬9\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ񹃏\x{1DD8}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ񹃏\\u1DD8⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ񹃏\x{1DD8}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ񹃏\\u1DD8舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ񹃏\x{1DD8}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ񹃏\\u1DD8舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2973\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ񹃏\x{1DD8}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ񹃏\\u1DD8⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2975\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}𝟰.\x{200D}", %p)}, undef, "to_ascii\(\'\\u1734𝟰\.\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}4.\x{200D}", %p)}, undef, "to_ascii\(\'\\u17344\.\\u200D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2979\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛Ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛Ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛Ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛Ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2987\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2995\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󙧵-𑜫。ᠽ", %p)}, undef, "to_ascii\(\'󙧵\-𑜫\。ᠽ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡕ𝟧≯ꡊ.氁𻖋ꁫ", %p)}, undef, "to_ascii\(\'ꡕ𝟧\≯ꡊ.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡕ𝟧>\x{0338}ꡊ.氁𻖋ꁫ", %p)}, undef, "to_ascii\(\'ꡕ𝟧\>\\u0338ꡊ.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2999\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡕ5≯ꡊ.氁𻖋ꁫ", %p)}, undef, "to_ascii\(\'ꡕ5\≯ꡊ\.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3000\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡕ5>\x{0338}ꡊ.氁𻖋ꁫ", %p)}, undef, "to_ascii\(\'ꡕ5\>\\u0338ꡊ\.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}\x{0650}.\x{05A9}", %p)}, undef, "to_ascii\(\'\\u0660\\u0650.\\u05A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}\x{0650}.\x{05A9}", %p)}, undef, "to_ascii\(\'\\u0660\\u0650\.\\u05A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𝨱⒏.⒎𶇻󠠁", %p)}, undef, "to_ascii\(\'\-𝨱⒏.⒎𶇻\󠠁\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𝨱8..7.𶇻󠠁", %p)}, undef, "to_ascii\(\'\-𝨱8\.\.7\.𶇻\󠠁\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3005\]") 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\:3006\]") 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\:3008\]") 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\:3010\]") 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\:3012\]") 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\:3014\]") 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\:3016\]") 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\:3018\]") 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\:3020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{0660}≯󧓻\x{200D}", %p)}, undef, "to_ascii\(\'歷。\\u0660\≯󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3022\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{0660}>\x{0338}󧓻\x{200D}", %p)}, undef, "to_ascii\(\'歷。\\u0660\>\\u0338󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{0660}≯󧓻\x{200D}", %p)}, undef, "to_ascii\(\'歷\。\\u0660\≯󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{0660}>\x{0338}󧓻\x{200D}", %p)}, undef, "to_ascii\(\'歷\。\\u0660\>\\u0338󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}\x{200D}.󱉀󠛓", %p)}, undef, "to_ascii\(\'\\u0732\\u200D.󱉀\󠛓\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}\x{200D}.󱉀󠛓", %p)}, undef, "to_ascii\(\'\\u0732\\u200D\.󱉀\󠛓\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}ꡎ。񔟅𐽯", %p)}, undef, "to_ascii\(\'\\u200D\\u200Cꡎ。񔟅𐽯\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}ꡎ。񔟅𐽯", %p)}, undef, "to_ascii\(\'\\u200D\\u200Cꡎ\。񔟅𐽯\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠𝟫-.ς⒍\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠𝟫\-\.ς⒍\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}𝟫-.ς⒍\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u0338𝟫\-\.ς⒍\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠9-.ς6.\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠9\-\.ς6\.\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}9-.ς6.\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u03389\-\.ς6\.\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}9-.Σ6.\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u03389\-\.Σ6\.\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠9-.Σ6.\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠9\-\.Σ6\.\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠9-.σ6.\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠9\-\.σ6\.\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}9-.σ6.\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u03389\-\.σ6\.\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}𝟫-.Σ⒍\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u0338𝟫\-\.Σ⒍\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠𝟫-.Σ⒍\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠𝟫\-\.Σ⒍\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠𝟫-.σ⒍\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠𝟫\-\.σ⒍\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}𝟫-.σ⒍\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u0338𝟫\-\.σ⒍\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵥬.-\x{0682}\x{1CD1}\x{1B39}", %p)}, undef, "to_ascii\(\'񵥬\.\-\\u0682\\u1CD1\\u1B39\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ⒈ß\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ⒈ß\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ1.ß\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ1\.ß\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ1.SS\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ1\.SS\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ1.ss\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ1\.ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ1.Ss\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ1\.Ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ⒈SS\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ⒈SS\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ⒈ss\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ⒈ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3057\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ⒈Ss\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ⒈Ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3058\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3059\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3061\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3075\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆𐹬.󠻍", %p)}, undef, "to_ascii\(\'⾆𐹬\.\󠻍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌𐹬.󠻍", %p)}, undef, "to_ascii\(\'舌𐹬\.\󠻍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠘿𐹭𝩛。⦣⒈", %p)}, undef, "to_ascii\(\'\󠘿𐹭𝩛\。\⦣⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠘿𐹭𝩛。⦣1.", %p)}, undef, "to_ascii\(\'\󠘿𐹭𝩛\。\⦣1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{200C}\x{0348}︒.\x{094D}", %p)}, undef, "to_ascii\(\'⒈\\u200C\\u0348︒.\\u094D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{200C}\x{0348}。.\x{094D}", %p)}, undef, "to_ascii\(\'1\.\\u200C\\u0348\。\.\\u094D\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:3085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0823}。䰀\x{06DD}𐶡\x{A980}", %p)}, undef, "to_ascii\(\'\\u0823\。䰀\\u06DD𐶡\\uA980\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200D}.𑚶𯞬", %p)}, undef, "to_ascii\(\'ß\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{200D}.𑚶𯞬", %p)}, undef, "to_ascii\(\'SS\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3090\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}.𑚶𯞬", %p)}, undef, "to_ascii\(\'ss\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3092\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}.𑚶𯞬", %p)}, undef, "to_ascii\(\'Ss\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3094\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{200C}≮.≮", %p)}, undef, "to_ascii\(\'\\u0CCD\\u200C\≮\.\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3096\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{200C}<\x{0338}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0CCD\\u200C\<\\u0338\.\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3097\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A69F}.\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uA69F.\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3098\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A69F}.\x{1160}", %p)}, undef, "to_ascii\(\'\\uA69F\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡯ𞱺。𰞔", %p)}, undef, "to_ascii\(\'ꡯ𞱺\。𰞔\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("爕򾉋.𝟰気", %p)}, undef, "to_ascii\(\'爕򾉋.𝟰気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("爕򾉋.4気", %p)}, undef, "to_ascii\(\'爕򾉋\.4気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒋𑚶Ⴝ-.\x{FD67}\x{1B44}󠄕", %p)}, undef, "to_ascii\(\'⒋𑚶Ⴝ\-.\\uFD67\\u1B44\󠄕\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3103\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.𑚶Ⴝ-.\x{0634}\x{062D}\x{0645}\x{1B44}󠄕", %p)}, undef, "to_ascii\(\'4\.𑚶Ⴝ\-\.\\u0634\\u062D\\u0645\\u1B44\󠄕\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3104\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or 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{0634}\x{062D}\x{0645}\x{1B44}󠄕", %p)}, undef, "to_ascii\(\'4\.𑚶ⴝ\-\.\\u0634\\u062D\\u0645\\u1B44\󠄕\'\)\ throws\ error\ V3\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:3105\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒋𑚶ⴝ-.\x{FD67}\x{1B44}󠄕", %p)}, undef, "to_ascii\(\'⒋𑚶ⴝ\-.\\uFD67\\u1B44\󠄕\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򊼓。񎊯󘙦--", %p)}, undef, "to_ascii\(\'򊼓\。񎊯󘙦\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:3107\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}𐨿", %p)}, undef, "to_ascii\(\'\\u200Dᡲ。\\u200C𐨿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3108\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}𐨿", %p)}, undef, "to_ascii\(\'\\u200Dᡲ\。\\u200C𐨿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3110\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐴟𐿖\x{07D2}。\x{0842}񡖿ᡨ", %p)}, undef, "to_ascii\(\'𐴟𐿖\\u07D2。\\u0842񡖿ᡨ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐴟𐿖\x{07D2}。\x{0842}񡖿ᡨ", %p)}, undef, "to_ascii\(\'𐴟𐿖\\u07D2\。\\u0842񡖿ᡨ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F8E}𐬓􎖤\x{1BAB}.\x{071D}\x{0630}", %p)}, undef, "to_ascii\(\'\\u0F8E𐬓􎖤\\u1BAB\.\\u071D\\u0630\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3120\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3121\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3124\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3126\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("蔰。󠄣\x{031A}-\x{0B4D}", %p)}, undef, "to_ascii\(\'蔰\。\󠄣\\u031A\-\\u0B4D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ςჅ。ꡫ", %p)}, undef, "to_ascii\(\'ςჅ\。ꡫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3140\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'ςⴥ\。ꡫ\'\)\ \[data\/IdnaTest\.txt\:3141\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ΣჅ。ꡫ", %p)}, undef, "to_ascii\(\'ΣჅ\。ꡫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3143\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'σⴥ\。ꡫ\'\)\ \[data\/IdnaTest\.txt\:3144\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'Σⴥ\。ꡫ\'\)\ \[data\/IdnaTest\.txt\:3145\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", %p)}, "xn--4xa203s.xn--hd9a", "to_ascii\(\'xn\-\-4xa203s\.xn\-\-hd9a\'\)\ \[data\/IdnaTest\.txt\:3146\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'σⴥ\.ꡫ\'\)\ \[data\/IdnaTest\.txt\:3147\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ΣჅ.ꡫ", %p)}, undef, "to_ascii\(\'ΣჅ\.ꡫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3148\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'Σⴥ\.ꡫ\'\)\ \[data\/IdnaTest\.txt\:3149\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--3xa403s.xn--hd9a", %p)}, "xn--3xa403s.xn--hd9a", "to_ascii\(\'xn\-\-3xa403s\.xn\-\-hd9a\'\)\ \[data\/IdnaTest\.txt\:3150\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'ςⴥ\.ꡫ\'\)\ \[data\/IdnaTest\.txt\:3151\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A4D}Ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_ascii\(\'\\u0A4DႩ𐯩.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A4D}Ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_ascii\(\'\\u0A4DႩ𐯩\.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A4D}ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_ascii\(\'\\u0A4Dⴉ𐯩\.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A4D}ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_ascii\(\'\\u0A4Dⴉ𐯩.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("💧≮񰐇\x{0AC2}。𞦞", %p)}, undef, "to_ascii\(\'💧\≮񰐇\\u0AC2\。𞦞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("💧<\x{0338}񰐇\x{0AC2}。𞦞", %p)}, undef, "to_ascii\(\'💧\<\\u0338񰐇\\u0AC2\。𞦞\'\)\ throws\ error\ P1\ V6\ \[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_ascii("\x{0689}。\x{200D}ẏ\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689。\\u200Dẏ\\u200C\\u0757\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3159\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689。\\u200Dy\\u0307\\u200C\\u0757\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3161\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}ẏ\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689\。\\u200Dẏ\\u200C\\u0757\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3163\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689\。\\u200Dy\\u0307\\u200C\\u0757\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3165\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}Y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689\。\\u200DY\\u0307\\u200C\\u0757\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3167\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}Ẏ\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689\。\\u200DẎ\\u200C\\u0757\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3169\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}Y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689。\\u200DY\\u0307\\u200C\\u0757\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3171\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}Ẏ\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689。\\u200DẎ\\u200C\\u0757\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3173\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0661}\x{0E39}。𕄦\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u0661\\u0E39\。𕄦\\u0B4D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_ascii\(\'\-\≠\\u1039。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3176\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u1039。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_ascii\(\'\-\≠\\u1039\。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u1039\。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C񖚂𐹯\\u062D.\\u077F\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C񖚂𐹯\\u062D.\\u077F\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C񖚂𐹯\\u062D\.\\u077F\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C񖚂𐹯\\u062D\.\\u077F\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_ascii\(\'\≮.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_ascii\(\'\<\\u0338.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_ascii\(\'\≮\.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3191\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞠎\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'𞠎\\u200D。ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3192\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞠎\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'𞠎\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3194\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞠎\x{200D}。ⴉⴕ", %p)}, "xn--e55h.xn--0kjya", "to_ascii\(\'𞠎\\u200D\。ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3196\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞠎\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'𞠎\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3198\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--e55h.xn--0kjya", %p)}, "xn--e55h.xn--0kjya", "to_ascii\(\'xn\-\-e55h\.xn\-\-0kjya\'\)\ \[data\/IdnaTest\.txt\:3200\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞠎.ⴉⴕ", %p)}, "xn--e55h.xn--0kjya", "to_ascii\(\'𞠎\.ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3201\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞠎.ႩႵ", %p)}, undef, "to_ascii\(\'𞠎\.ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞠎.Ⴉⴕ", %p)}, undef, "to_ascii\(\'𞠎\.Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3203\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞠎\x{200D}。ⴉⴕ", %p)}, "xn--e55h.xn--0kjya", "to_ascii\(\'𞠎\\u200D。ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3204\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞠎\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'𞠎\\u200D。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.𝨣򾭅󠆻", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ.𝨣򾭅\󠆻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3208\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.𝨣򾭅󠆻", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ\.𝨣򾭅\󠆻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋻。-\x{200C}ꡋႷ", %p)}, undef, "to_ascii\(\'𐋻。\-\\u200CꡋႷ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋻。-\x{200C}ꡋႷ", %p)}, undef, "to_ascii\(\'𐋻\。\-\\u200CꡋႷ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3214\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋻。-\x{200C}ꡋⴗ", %p)}, undef, "to_ascii\(\'𐋻\。\-\\u200Cꡋⴗ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3216\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋻。-\x{200C}ꡋⴗ", %p)}, undef, "to_ascii\(\'𐋻。\-\\u200Cꡋⴗ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3218\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⋉\x{FBF6}.≠\x{200C}", %p)}, undef, "to_ascii\(\'\⋉\\uFBF6.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋉\x{FBF6}.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\⋉\\uFBF6.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3222\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋉\x{0626}\x{06D0}.≠\x{200C}", %p)}, undef, "to_ascii\(\'\⋉\\u0626\\u06D0\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋉\x{064A}\x{0654}\x{06D0}.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\⋉\\u064A\\u0654\\u06D0\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DEE}\x{0366}。\x{FCC7}\x{1BF3}󠼨", %p)}, undef, "to_ascii\(\'\\u1DEE\\u0366。\\uFCC7\\u1BF3\󠼨\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DEE}\x{0366}。\x{0643}\x{0644}\x{1BF3}󠼨", %p)}, undef, "to_ascii\(\'\\u1DEE\\u0366\。\\u0643\\u0644\\u1BF3\󠼨\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0AC5}₃󠁸.𝟳\x{1DE4}𝆈", %p)}, undef, "to_ascii\(\'Ⴔ\\u0AC5₃\󠁸.𝟳\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0AC5}3󠁸.7\x{1DE4}𝆈", %p)}, undef, "to_ascii\(\'Ⴔ\\u0AC53\󠁸\.7\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ\x{0AC5}3󠁸.7\x{1DE4}𝆈", %p)}, undef, "to_ascii\(\'ⴔ\\u0AC53\󠁸\.7\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ\x{0AC5}₃󠁸.𝟳\x{1DE4}𝆈", %p)}, undef, "to_ascii\(\'ⴔ\\u0AC5₃\󠁸.𝟳\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}⒈𲱳", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C⒈𲱳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3234\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}1.𲱳", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C1\.𲱳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆ß\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆ß\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆ß\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆ß\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆SS\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆SS\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆ss\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆ss\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆Ss\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆Ss\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆SS\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆SS\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆ss\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆ss\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆Ss\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆Ss\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}򠙛𞭯\x{A806}。ᡮ⒈", %p)}, undef, "to_ascii\(\'\\u200D򠙛𞭯\\uA806。ᡮ⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}򠙛𞭯\x{A806}。ᡮ1.", %p)}, undef, "to_ascii\(\'\\u200D򠙛𞭯\\uA806\。ᡮ1\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇙.𞾾󢲮򜠀𐫘", %p)}, undef, "to_ascii\(\'\󠇙.𞾾󢲮򜠀𐫘\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇙.𞾾󢲮򜠀𐫘", %p)}, undef, "to_ascii\(\'\󠇙\.𞾾󢲮򜠀𐫘\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071B}𞭈⒈.⛊8򀄷\x{08AA}", %p)}, undef, "to_ascii\(\'\\u071B𞭈⒈.\⛊8򀄷\\u08AA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071B}𞭈1..⛊8򀄷\x{08AA}", %p)}, undef, "to_ascii\(\'\\u071B𞭈1\.\.\⛊8򀄷\\u08AA\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠅄\x{07E9}𑈯\x{06D0}。-󠓉󙒛", %p)}, undef, "to_ascii\(\'\󠅄\\u07E9𑈯\\u06D0\。\-\󠓉󙒛\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1734}剘ß\x{06B0}", %p)}, undef, "to_ascii\(\'\-\.\\u1734剘ß\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1734}剘SS\x{06B0}", %p)}, undef, "to_ascii\(\'\-\.\\u1734剘SS\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1734}剘ss\x{06B0}", %p)}, undef, "to_ascii\(\'\-\.\\u1734剘ss\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1734}剘Ss\x{06B0}", %p)}, undef, "to_ascii\(\'\-\.\\u1734剘Ss\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🌞𞿦。-", %p)}, undef, "to_ascii\(\'🌞𞿦。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🌞𞿦。-", %p)}, undef, "to_ascii\(\'🌞𞿦\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈󠽆𐹸。≠𐹻𐹦", %p)}, undef, "to_ascii\(\'⒈\󠽆𐹸。\≠𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈󠽆𐹸。=\x{0338}𐹻𐹦", %p)}, undef, "to_ascii\(\'⒈\󠽆𐹸。\=\\u0338𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.󠽆𐹸。≠𐹻𐹦", %p)}, undef, "to_ascii\(\'1\.\󠽆𐹸\。\≠𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.󠽆𐹸。=\x{0338}𐹻𐹦", %p)}, undef, "to_ascii\(\'1\.\󠽆𐹸\。\=\\u0338𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹠󠬾Ⴎ\x{200C}.㖾\x{0669}", %p)}, undef, "to_ascii\(\'𐹠\󠬾Ⴎ\\u200C\.㖾\\u0669\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹠󠬾ⴎ\x{200C}.㖾\x{0669}", %p)}, undef, "to_ascii\(\'𐹠\󠬾ⴎ\\u200C\.㖾\\u0669\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:3267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_ascii\(\'𱅿.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_ascii\(\'𱅿\.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_ascii\(\'𱅿\.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_ascii\(\'𱅿\.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_ascii\(\'𱅿.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_ascii\(\'𱅿.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󊝻.𞠞𐭫", %p)}, undef, "to_ascii\(\'\\u200D󊝻\.𞠞𐭫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󲔏⒛󠊁.ᠯ⒈", %p)}, undef, "to_ascii\(\'󲔏⒛\󠊁.ᠯ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󲔏20.󠊁.ᠯ1.", %p)}, undef, "to_ascii\(\'󲔏20\.\󠊁\.ᠯ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075E}8𻪑-。񅴬𑇀𐪞\x{09CD}", %p)}, undef, "to_ascii\(\'\\u075E8𻪑\-。񅴬𑇀𐪞\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075E}8𻪑-。񅴬𑇀𐪞\x{09CD}", %p)}, undef, "to_ascii\(\'\\u075E8𻪑\-\。񅴬𑇀𐪞\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3280\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰≮ß𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3281\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}ß𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3282\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。۰<\x{0338}ß𐨍", %p)}, undef, "to_ascii\(\'ⴕ\。۰\<\\u0338ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。۰≮ß𐨍", %p)}, undef, "to_ascii\(\'ⴕ\。۰\≮ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰≮SS𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮SS𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}SS𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338SS𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3286\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。۰<\x{0338}ss𐨍", %p)}, undef, "to_ascii\(\'ⴕ\。۰\<\\u0338ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。۰≮ss𐨍", %p)}, undef, "to_ascii\(\'ⴕ\。۰\≮ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰≮Ss𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮Ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}Ss𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338Ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3290\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0F19}꒱\x{0FA4}", %p)}, undef, "to_ascii\(\'\\u076F\-\.\\u0F19꒱\\u0FA4\'\)\ throws\ error\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:3291\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{06FC}\x{200C}.≯䕵🍀", %p)}, undef, "to_ascii\(\'\\u06FC\\u200C\.\≯䕵🍀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3292\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06FC}\x{200C}.>\x{0338}䕵🍀", %p)}, undef, "to_ascii\(\'\\u06FC\\u200C\.\>\\u0338䕵🍀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}ß\x{FD90}.𐫚۳︒", %p)}, undef, "to_ascii\(\'\\u034Fß\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}ß\x{FD90}.𐫚۳。", %p)}, undef, "to_ascii\(\'\\u034Fß\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3297\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}SS\x{FD90}.𐫚۳。", %p)}, undef, "to_ascii\(\'\\u034FSS\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}ss\x{FD90}.𐫚۳。", %p)}, undef, "to_ascii\(\'\\u034Fss\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}Ss\x{FD90}.𐫚۳。", %p)}, undef, "to_ascii\(\'\\u034FSs\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}SS\x{FD90}.𐫚۳︒", %p)}, undef, "to_ascii\(\'\\u034FSS\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}ss\x{FD90}.𐫚۳︒", %p)}, undef, "to_ascii\(\'\\u034Fss\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3302\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}Ss\x{FD90}.𐫚۳︒", %p)}, undef, "to_ascii\(\'\\u034FSs\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3303\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≮⤨\x{1DD8}.󠴭Ⴁᡓ", %p)}, undef, "to_ascii\(\'\-\≮\⤨\\u1DD8\.\󠴭Ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-<\x{0338}⤨\x{1DD8}.󠴭Ⴁᡓ", %p)}, undef, "to_ascii\(\'\-\<\\u0338\⤨\\u1DD8\.\󠴭Ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-<\x{0338}⤨\x{1DD8}.󠴭ⴁᡓ", %p)}, undef, "to_ascii\(\'\-\<\\u0338\⤨\\u1DD8\.\󠴭ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≮⤨\x{1DD8}.󠴭ⴁᡓ", %p)}, undef, "to_ascii\(\'\-\≮\⤨\\u1DD8\.\󠴭ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3307\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮉。ᢟ\x{200D}\x{200C}", %p)}, "xn--g29c.xn--pbf", "to_ascii\(\'𐮉。ᢟ\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:3308\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮉。ᢟ\x{200D}\x{200C}", %p)}, "xn--g29c.xn--pbf", "to_ascii\(\'𐮉\。ᢟ\\u200D\\u200C\'\)\ \[data\/IdnaTest\.txt\:3310\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--g29c.xn--pbf", %p)}, "xn--g29c.xn--pbf", "to_ascii\(\'xn\-\-g29c\.xn\-\-pbf\'\)\ \[data\/IdnaTest\.txt\:3312\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮉.ᢟ", %p)}, "xn--g29c.xn--pbf", "to_ascii\(\'𐮉\.ᢟ\'\)\ \[data\/IdnaTest\.txt\:3313\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𝩑𑍲.ꡣ\x{1DFF}𐹢", %p)}, undef, "to_ascii\(\'𝩑𑍲.ꡣ\\u1DFF𐹢\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3314\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𝩑𑍲.ꡣ\x{1DFF}𐹢", %p)}, undef, "to_ascii\(\'𝩑𑍲\.ꡣ\\u1DFF𐹢\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3315\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⅎ󠀽𵭘。≯⾑", %p)}, undef, "to_ascii\(\'Ⅎ\󠀽𵭘\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ󠀽𵭘。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'Ⅎ\󠀽𵭘\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ󠀽𵭘。≯襾", %p)}, undef, "to_ascii\(\'Ⅎ\󠀽𵭘\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ󠀽𵭘。>\x{0338}襾", %p)}, undef, "to_ascii\(\'Ⅎ\󠀽𵭘\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ󠀽𵭘。>\x{0338}襾", %p)}, undef, "to_ascii\(\'ⅎ\󠀽𵭘\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ󠀽𵭘。≯襾", %p)}, undef, "to_ascii\(\'ⅎ\󠀽𵭘\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ󠀽𵭘。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'ⅎ\󠀽𵭘\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ󠀽𵭘。≯⾑", %p)}, undef, "to_ascii\(\'ⅎ\󠀽𵭘\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3323\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3324\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3326\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3328\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3330\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3332\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3334\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}.ßႩ-", %p)}, undef, "to_ascii\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3336\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:3338\]") 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\:3340\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:3342\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:3344\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󆎶ᡄ㓱。⾑", %p)}, undef, "to_ascii\(\'󆎶ᡄ㓱\。⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆎶ᡄ㓱。襾", %p)}, undef, "to_ascii\(\'󆎶ᡄ㓱\。襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3347\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡥ\x{06D5}\x{0665}≮。≯⯯\x{200D}", %p)}, undef, "to_ascii\(\'ꡥ\\u06D5\\u0665\≮\。\≯\⯯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3348\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡥ\x{06D5}\x{0665}<\x{0338}。>\x{0338}⯯\x{200D}", %p)}, undef, "to_ascii\(\'ꡥ\\u06D5\\u0665\<\\u0338\。\>\\u0338\⯯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3350\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟞。󛼏ꡛᠪ⩋", %p)}, undef, "to_ascii\(\'𝟞。󛼏ꡛᠪ\⩋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。󛼏ꡛᠪ⩋", %p)}, undef, "to_ascii\(\'6\。󛼏ꡛᠪ\⩋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3353\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𐣴。\x{2DE5}\x{2D7F}", %p)}, undef, "to_ascii\(\'\-𐣴\。\\u2DE5\\u2D7F\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3354\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𐣴。\x{2D7F}\x{2DE5}", %p)}, undef, "to_ascii\(\'\-𐣴\。\\u2D7F\\u2DE5\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3355\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}⼨𝟏.𝨨񊚚\x{0665}򤝋", %p)}, undef, "to_ascii\(\'\\u200C⼨𝟏\.𝨨񊚚\\u0665򤝋\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}寸1.𝨨񊚚\x{0665}򤝋", %p)}, undef, "to_ascii\(\'\\u200C寸1\.𝨨񊚚\\u0665򤝋\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--𝟰.ß", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-𝟰\.ß\'\)\ \[data\/IdnaTest\.txt\:3360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--4.ß", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-4\.ß\'\)\ \[data\/IdnaTest\.txt\:3362\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--4.SS", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-4\.SS\'\)\ \[data\/IdnaTest\.txt\:3364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn----4-p16k.ss", %p)}, "xn----4-p16k.ss", "to_ascii\(\'xn\-\-\-\-4\-p16k\.ss\'\)\ \[data\/IdnaTest\.txt\:3365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn----4-p16k.xn--zca", %p)}, "xn----4-p16k.xn--zca", "to_ascii\(\'xn\-\-\-\-4\-p16k\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:3366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--𝟰.SS", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-𝟰\.SS\'\)\ \[data\/IdnaTest\.txt\:3367\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0B4D}.\x{0660}𐨌\x{200C}", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\u0660𐨌\\u200C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3368\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{AB27}𑖼。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\\uAB27𑖼。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ A3\ \[data\/IdnaTest\.txt\:3370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB27}𑖼。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\\uAB27𑖼\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ A3\ \[data\/IdnaTest\.txt\:3372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB27}𑖼", %p)}, undef, "to_ascii\(\'\\uAB27𑖼\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3374\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0ACD}.\x{08A3}-\x{0591}悎", %p)}, undef, "to_ascii\(\'\\u0ACD.\\u08A3\-\\u0591悎\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:3375\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0ACD}.\x{08A3}-\x{0591}悎", %p)}, undef, "to_ascii\(\'\\u0ACD\.\\u08A3\-\\u0591悎\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:3376\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񹭻󠗀.\x{067B}􆘢", %p)}, undef, "to_ascii\(\'񹭻\󠗀.\\u067B􆘢\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3377\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹭻󠗀.\x{067B}􆘢", %p)}, undef, "to_ascii\(\'񹭻\󠗀\.\\u067B􆘢\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3378\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᡨ𞺲\x{07D1}.𐋲", %p)}, undef, "to_ascii\(\'ᡨ𞺲\\u07D1\.𐋲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3379\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᡨ\x{0642}\x{07D1}.𐋲", %p)}, undef, "to_ascii\(\'ᡨ\\u0642\\u07D1\.𐋲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3380\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐰿ꡏ\x{06BB}\x{0668}.\x{DF56}", %p)}, undef, "to_ascii\(\'𐰿ꡏ\\u06BB\\u0668\.\\uDF56\'\)\ throws\ error\ P1\ V6\ B2\ A3\ \[data\/IdnaTest\.txt\:3381\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐰿ꡏ\x{06BB}\x{0668}", %p)}, undef, "to_ascii\(\'𐰿ꡏ\\u06BB\\u0668\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:3382\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ↄ。\x{1734}\x{0E47}𞻻", %p)}, undef, "to_ascii\(\'Ↄ\。\\u1734\\u0E47𞻻\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ↄ。\x{1734}\x{0E47}𞻻", %p)}, undef, "to_ascii\(\'ↄ\。\\u1734\\u0E47𞻻\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⭂-。𭨲≮𑚶", %p)}, undef, "to_ascii\(\'\⭂\-\。𭨲\≮𑚶\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⭂-。𭨲<\x{0338}𑚶", %p)}, undef, "to_ascii\(\'\⭂\-\。𭨲\<\\u0338𑚶\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3386\]") 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\:3387\]") 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\:3389\]") 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\:3391\]") 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\:3393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡-\x{AAF6}ꡨ。︒䖐⾆", %p)}, undef, "to_ascii\(\'𐹡\-\\uAAF6ꡨ\。︒䖐⾆\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3395\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐹡-\x{AAF6}ꡨ。。䖐舌", %p)}, undef, "to_ascii\(\'𐹡\-\\uAAF6ꡨ\。\。䖐舌\'\)\ throws\ error\ B1\ A4_2\ \[data\/IdnaTest\.txt\:3396\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0F79}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0F79Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F79}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0F79Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FB3}\x{0F71}\x{0F80}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FB3}\x{0F71}\x{0F80}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3400\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FB3}\x{0F71}\x{0F80}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3401\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FB3}\x{0F71}\x{0F80}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3402\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0F79}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0F79ⴐ。쪡\'\)\ throws\ error\ V5\ \[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{0F79}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0F79ⴐ。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3404\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0ACD}쩁𐹡.󿍹", %p)}, undef, "to_ascii\(\'\\u0ACD쩁𐹡\.󿍹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}쩁𐹡.󿍹", %p)}, undef, "to_ascii\(\'\\u0ACD쩁𐹡\.󿍹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡐ0\x{200C}。󠴚𕎃", %p)}, undef, "to_ascii\(\'ꡐ0\\u200C。\󠴚𕎃\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡐ0\x{200C}。󠴚𕎃", %p)}, undef, "to_ascii\(\'ꡐ0\\u200C\。\󠴚𕎃\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3409\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ß", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9.\\u200Dß\'\)\ \[data\/IdnaTest\.txt\:3411\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ß", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9\.\\u200Dß\'\)\ \[data\/IdnaTest\.txt\:3413\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}SS", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9\.\\u200DSS\'\)\ \[data\/IdnaTest\.txt\:3415\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ss", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9\.\\u200Dss\'\)\ \[data\/IdnaTest\.txt\:3417\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}Ss", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9\.\\u200DSs\'\)\ \[data\/IdnaTest\.txt\:3419\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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--9-9pl2595ado0c.ss", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'xn\-\-9\-9pl2595ado0c\.ss\'\)\ \[data\/IdnaTest\.txt\:3421\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.ss", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9\.ss\'\)\ \[data\/IdnaTest\.txt\:3422\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}SS", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9.\\u200DSS\'\)\ \[data\/IdnaTest\.txt\:3423\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ss", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9.\\u200Dss\'\)\ \[data\/IdnaTest\.txt\:3425\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}Ss", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9.\\u200DSs\'\)\ \[data\/IdnaTest\.txt\:3427\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ꗷ\x{1BAB}.\x{069C}𞣶", %p)}, undef, "to_ascii\(\'ꗷ\\u1BAB\.\\u069C𞣶\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3429\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐≯-。︒򐇻-񍘎", %p)}, undef, "to_ascii\(\'⒐\≯\-\。︒򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3430\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐>\x{0338}-。︒򐇻-񍘎", %p)}, undef, "to_ascii\(\'⒐\>\\u0338\-\。︒򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3431\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9.≯-。。򐇻-񍘎", %p)}, undef, "to_ascii\(\'9\.\≯\-\。\。򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9.>\x{0338}-。。򐇻-񍘎", %p)}, undef, "to_ascii\(\'9\.\>\\u0338\-\。\。򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3433\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񌜃\x{A8EB}Ⴡ󠣼.\x{0847}", %p)}, undef, "to_ascii\(\'񌜃\\uA8EBჁ\󠣼.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3434\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񌜃\x{A8EB}Ⴡ󠣼.\x{0847}", %p)}, undef, "to_ascii\(\'񌜃\\uA8EBჁ\󠣼\.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3435\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񌜃\x{A8EB}ⴡ󠣼.\x{0847}", %p)}, undef, "to_ascii\(\'񌜃\\uA8EBⴡ\󠣼\.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3436\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񌜃\x{A8EB}ⴡ󠣼.\x{0847}", %p)}, undef, "to_ascii\(\'񌜃\\uA8EBⴡ\󠣼.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3437\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DCB}。𐋩ᢥ-ᡕ", %p)}, undef, "to_ascii\(\'\\u1DCB\。𐋩ᢥ\-ᡕ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3438\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("싇。⾇𐼓Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3439\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇𐼓Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛𐼓Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛𐼓Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛𐼓ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛𐼓ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇𐼓ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇𐼓ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹮ς。\x{200C}\x{07D4}Ⴠ", %p)}, undef, "to_ascii\(\'𐹮ς\。\\u200C\\u07D4Ⴠ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3447\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹮ς。\x{200C}\x{07D4}ⴠ", %p)}, undef, "to_ascii\(\'𐹮ς\。\\u200C\\u07D4ⴠ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3449\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐹮Σ。\x{200C}\x{07D4}Ⴠ", %p)}, undef, "to_ascii\(\'𐹮Σ\。\\u200C\\u07D4Ⴠ\'\)\ throws\ error\ P1\ V6\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3451\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07D4}ⴠ", %p)}, undef, "to_ascii\(\'𐹮σ\。\\u200C\\u07D4ⴠ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:3453\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򗡮\x{200C}𐹲.\x{067A}-ß", %p)}, undef, "to_ascii\(\'򗡮\\u200C𐹲\.\\u067A\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򗡮\x{200C}𐹲.\x{067A}-SS", %p)}, undef, "to_ascii\(\'򗡮\\u200C𐹲\.\\u067A\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򗡮\x{200C}𐹲.\x{067A}-ss", %p)}, undef, "to_ascii\(\'򗡮\\u200C𐹲\.\\u067A\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򗡮\x{200C}𐹲.\x{067A}-Ss", %p)}, undef, "to_ascii\(\'򗡮\\u200C𐹲\.\\u067A\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}ᢠ.-𞳲𰞝\x{FEEF}", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5ᢠ\.\-𞳲𰞝\\uFEEF\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}ᢠ.-𞳲𰞝\x{0649}", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5ᢠ\.\-𞳲𰞝\\u0649\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹸓。\x{0633}≠", %p)}, undef, "to_ascii\(\'񹸓。\\u0633\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹸓。\x{0633}=\x{0338}", %p)}, undef, "to_ascii\(\'񹸓。\\u0633\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹸓。\x{0633}≠", %p)}, undef, "to_ascii\(\'񹸓\。\\u0633\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹸓。\x{0633}=\x{0338}", %p)}, undef, "to_ascii\(\'񹸓\。\\u0633\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_ascii\(\'𑍱𞦝。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_ascii\(\'𑍱𞦝。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_ascii\(\'𑍱𞦝\。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3473\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_ascii\(\'𑍱𞦝\。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴏ󠄭-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\󠄭\-.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴏ󠄭-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\󠄭\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3477\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴏ󠄭-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\󠄭\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3479\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴏ󠄭-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\󠄭\-.\\u200Dⴉ\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3481\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠌣\x{1B6C}¤񼀤。𐹼\x{2063}𝩑", %p)}, undef, "to_ascii\(\'\󠌣\\u1B6C\¤񼀤\。𐹼\\u2063𝩑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ᡞ.𐅥🄇⒈", %p)}, undef, "to_ascii\(\'\≠ᡞ\.𐅥🄇⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3484\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ᡞ.𐅥🄇⒈", %p)}, undef, "to_ascii\(\'\=\\u0338ᡞ\.𐅥🄇⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3485\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ᡞ.𐅥6,1.", %p)}, undef, "to_ascii\(\'\≠ᡞ\.𐅥6\,1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3486\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ᡞ.𐅥6,1.", %p)}, undef, "to_ascii\(\'\=\\u0338ᡞ\.𐅥6\,1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3487\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9B8}⩩ß.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_ascii\(\'\\uA9B8\⩩ß\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3488\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9B8}⩩SS.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_ascii\(\'\\uA9B8\⩩SS\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9B8}⩩ss.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_ascii\(\'\\uA9B8\⩩ss\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3492\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9B8}⩩Ss.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_ascii\(\'\\uA9B8\⩩Ss\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{0678}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ß\\u0678𮓵Ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{064A}\x{0674}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ß\\u064A\\u0674𮓵Ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{064A}\x{0674}𮓵ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ß\\u064A\\u0674𮓵ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{064A}\x{0674}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'SS\\u064A\\u0674𮓵Ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{064A}\x{0674}𮓵ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ss\\u064A\\u0674𮓵ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{064A}\x{0674}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'Ss\\u064A\\u0674𮓵Ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{0678}𮓵ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ß\\u0678𮓵ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0678}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'SS\\u0678𮓵Ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0678}𮓵ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ss\\u0678𮓵ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0678}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'Ss\\u0678𮓵Ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3505\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{ABED}。𝨁-𑁆", %p)}, undef, "to_ascii\(\'\\uABED\。𝨁\-𑁆\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3506\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⮉-.𒿏󠁼ß", %p)}, undef, "to_ascii\(\'\⮉\-.𒿏\󠁼ß\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼ß", %p)}, undef, "to_ascii\(\'\⮉\-\.𒿏\󠁼ß\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼SS", %p)}, undef, "to_ascii\(\'\⮉\-\.𒿏\󠁼SS\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼ss", %p)}, undef, "to_ascii\(\'\⮉\-\.𒿏\󠁼ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼Ss", %p)}, undef, "to_ascii\(\'\⮉\-\.𒿏\󠁼Ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼SS", %p)}, undef, "to_ascii\(\'\⮉\-.𒿏\󠁼SS\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼ss", %p)}, undef, "to_ascii\(\'\⮉\-.𒿏\󠁼ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼Ss", %p)}, undef, "to_ascii\(\'\⮉\-.𒿏\󠁼Ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}-≮。𐹽\x{FE29}\x{0724}", %p)}, undef, "to_ascii\(\'\\u0775\-\≮\。𐹽\\uFE29\\u0724\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}-<\x{0338}。𐹽\x{FE29}\x{0724}", %p)}, undef, "to_ascii\(\'\\u0775\-\<\\u0338\。𐹽\\uFE29\\u0724\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟥󠳮\x{0CCD}\x{0347}.𑖿\x{0F84}8󠇩", %p)}, undef, "to_ascii\(\'𝟥\󠳮\\u0CCD\\u0347.𑖿\\u0F848\󠇩\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3517\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3󠳮\x{0CCD}\x{0347}.𑖿\x{0F84}8󠇩", %p)}, undef, "to_ascii\(\'3\󠳮\\u0CCD\\u0347\.𑖿\\u0F848\󠇩\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3518\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。񃲑\x{200D}\x{0E4C}", %p)}, undef, "to_ascii\(\'\-。񃲑\\u200D\\u0E4C\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3519\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。񃲑\x{200D}\x{0E4C}", %p)}, undef, "to_ascii\(\'\-\。񃲑\\u200D\\u0E4C\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟓➲𝟐񱬭。𝩎򮖚", %p)}, undef, "to_ascii\(\'𝟓\➲𝟐񱬭。𝩎򮖚\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5➲2񱬭。𝩎򮖚", %p)}, undef, "to_ascii\(\'5\➲2񱬭\。𝩎򮖚\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.-├񷏳", %p)}, undef, "to_ascii\(\'\-\.\-\├񷏳\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3525\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{059D}ᢝ。\x{200D}🔘", %p)}, undef, "to_ascii\(\'\\u059Dᢝ。\\u200D🔘\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3526\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{059D}ᢝ。\x{200D}🔘", %p)}, undef, "to_ascii\(\'\\u059Dᢝ\。\\u200D🔘\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3528\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("쥥󂿯Ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯Ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯Ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯Ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯Ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯Ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯Ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯Ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀲𝟶\x{067C}-。\x{0B4D}", %p)}, undef, "to_ascii\(\'\󠀲𝟶\\u067C\-\。\\u0B4D\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀲0\x{067C}-。\x{0B4D}", %p)}, undef, "to_ascii\(\'\󠀲0\\u067C\-\。\\u0B4D\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς.𐸹ꜘ⒈", %p)}, undef, "to_ascii\(\'ς.𐸹ꜘ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς.𐸹ꜘ1.", %p)}, undef, "to_ascii\(\'ς\.𐸹ꜘ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.𐸹ꜘ1.", %p)}, undef, "to_ascii\(\'Σ\.𐸹ꜘ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.𐸹ꜘ1.", %p)}, undef, "to_ascii\(\'σ\.𐸹ꜘ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.𐸹ꜘ⒈", %p)}, undef, "to_ascii\(\'Σ.𐸹ꜘ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.𐸹ꜘ⒈", %p)}, undef, "to_ascii\(\'σ.𐸹ꜘ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠳘-。𐹹򐴥򻚗", %p)}, undef, "to_ascii\(\'\󠳘\-。𐹹򐴥򻚗\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠳘-。𐹹򐴥򻚗", %p)}, undef, "to_ascii\(\'\󠳘\-\。𐹹򐴥򻚗\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞵆-󠔪。𝟻\x{200C}\x{05F7}", %p)}, undef, "to_ascii\(\'𞵆\-\󠔪。𝟻\\u200C\\u05F7\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞵆-󠔪。5\x{200C}\x{05F7}", %p)}, undef, "to_ascii\(\'𞵆\-\󠔪\。5\\u200C\\u05F7\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3558\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dß.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3560\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dß.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3562\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dß\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3564\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dß\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3566\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSS\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3568\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSS\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3570\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dss\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3572\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dss\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3574\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSs\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3576\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSs\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3578\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSS.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3580\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSS.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3582\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dss.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3584\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dss.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3586\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSs.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3588\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSs.\\u074E0\\u135D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3590\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("9\x{0C3E}.󡇎\x{0722}", %p)}, undef, "to_ascii\(\'9\\u0C3E.󡇎\\u0722\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9\x{0C3E}.󡇎\x{0722}", %p)}, undef, "to_ascii\(\'9\\u0C3E\.󡇎\\u0722\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐱇󠽵ß⺀", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐱇\󠽵ß⺀\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐱇󠽵ß⺀", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐱇\󠽵ß⺀\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐱇󠽵SS⺀", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐱇\󠽵SS⺀\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐱇󠽵ss⺀", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐱇\󠽵ss⺀\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐱇󠽵Ss⺀", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐱇\󠽵Ss⺀\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐱇󠽵SS⺀", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐱇\󠽵SS⺀\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐱇󠽵ss⺀", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐱇\󠽵ss⺀\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐱇󠽵Ss⺀", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐱇\󠽵Ss⺀\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒Ⴖ𝅷.\x{200C}", %p)}, undef, "to_ascii\(\'︒Ⴖ\𝅷.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。Ⴖ𝅷.\x{200C}", %p)}, undef, "to_ascii\(\'\。Ⴖ\𝅷\.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。ⴖ𝅷.\x{200C}", %p)}, undef, "to_ascii\(\'\。ⴖ\𝅷\.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3614\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒ⴖ𝅷.\x{200C}", %p)}, undef, "to_ascii\(\'︒ⴖ\𝅷.\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠸ.\x{200C}Ⴃ\x{0F90}", %p)}, undef, "to_ascii\(\'ᠸ.\\u200CႣ\\u0F90\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠸ.\x{200C}Ⴃ\x{0F90}", %p)}, undef, "to_ascii\(\'ᠸ\.\\u200CႣ\\u0F90\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3620\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0F90}", %p)}, "xn--r7e.xn--gfd191m", "to_ascii\(\'ᠸ\.\\u200Cⴃ\\u0F90\'\)\ \[data\/IdnaTest\.txt\:3622\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--r7e.xn--gfd191m", %p)}, "xn--r7e.xn--gfd191m", "to_ascii\(\'xn\-\-r7e\.xn\-\-gfd191m\'\)\ \[data\/IdnaTest\.txt\:3624\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0F90}", %p)}, "xn--r7e.xn--gfd191m", "to_ascii\(\'ᠸ\.ⴃ\\u0F90\'\)\ \[data\/IdnaTest\.txt\:3625\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᠸ.Ⴃ\x{0F90}", %p)}, undef, "to_ascii\(\'ᠸ\.Ⴃ\\u0F90\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3626\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0F90}", %p)}, "xn--r7e.xn--gfd191m", "to_ascii\(\'ᠸ.\\u200Cⴃ\\u0F90\'\)\ \[data\/IdnaTest\.txt\:3627\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}\x{200C}。2䫷⋻", %p)}, "xn--2-poow91p", "to_ascii\(\'\\u200D\\u200C\。2䫷\⋻\'\)\ \[data\/IdnaTest\.txt\:3629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}。2䫷⋻", %p)}, "xn--2-poow91p", "to_ascii\(\'\\u200D\\u200C\。2䫷\⋻\'\)\ \[data\/IdnaTest\.txt\:3631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--2-poow91p", %p)}, "xn--2-poow91p", "to_ascii\(\'xn\-\-2\-poow91p\'\)\ \[data\/IdnaTest\.txt\:3633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2䫷⋻", %p)}, "xn--2-poow91p", "to_ascii\(\'2䫷\⋻\'\)\ \[data\/IdnaTest\.txt\:3634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-󠅾󥘨。򻀠", %p)}, undef, "to_ascii\(\'\-\󠅾󥘨\。򻀠\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󝺜︒\x{200C}㟀.\x{07E7}⒈", %p)}, undef, "to_ascii\(\'󝺜︒\\u200C㟀.\\u07E7⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󝺜。\x{200C}㟀.\x{07E7}1.", %p)}, undef, "to_ascii\(\'󝺜\。\\u200C㟀\.\\u07E71\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3638\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05AA}。-\x{200D}", %p)}, undef, "to_ascii\(\'\󠆮ꡬ\\u05AA\。\-\\u200D\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:3640\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠𐬉", %p)}, undef, "to_ascii\(\'\\u200C.Ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}𐬉", %p)}, undef, "to_ascii\(\'\\u200C.Ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠𐬉", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}𐬉", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}𐬉", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ≠𐬉", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}𐬉", %p)}, undef, "to_ascii\(\'\\u200C.ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ≠𐬉", %p)}, undef, "to_ascii\(\'\\u200C.ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3656\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。≯ς", %p)}, undef, "to_ascii\(\'𐮈\。\≯ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。>\x{0338}ς", %p)}, undef, "to_ascii\(\'𐮈\。\>\\u0338ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3659\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。>\x{0338}Σ", %p)}, undef, "to_ascii\(\'𐮈\。\>\\u0338Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3660\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。≯Σ", %p)}, undef, "to_ascii\(\'𐮈\。\≯Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3661\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。≯σ", %p)}, undef, "to_ascii\(\'𐮈\。\≯σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3662\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。>\x{0338}σ", %p)}, undef, "to_ascii\(\'𐮈\。\>\\u0338σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3663\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱸𞴇.𞥂︒򨹓Ⴐ", %p)}, undef, "to_ascii\(\'𐱸𞴇\.𞥂︒򨹓Ⴐ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3664\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱸𞴇.𞥂。򨹓Ⴐ", %p)}, undef, "to_ascii\(\'𐱸𞴇\.𞥂\。򨹓Ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱸𞴇.𞥂。򨹓ⴐ", %p)}, undef, "to_ascii\(\'𐱸𞴇\.𞥂\。򨹓ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱸𞴇.𞥂︒򨹓ⴐ", %p)}, undef, "to_ascii\(\'𐱸𞴇\.𞥂︒򨹓ⴐ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ🠠⸄⧲。󠇠", %p)}, undef, "to_ascii\(\'Ⴥ🠠\⸄\⧲。\󠇠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ🠠⸄⧲。󠇠", %p)}, undef, "to_ascii\(\'Ⴥ🠠\⸄\⧲\。\󠇠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3669\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴥ🠠⸄⧲。󠇠", %p)}, "xn--fxi61ietai923l.", "to_ascii\(\'ⴥ🠠\⸄\⧲\。\󠇠\'\)\ \[data\/IdnaTest\.txt\:3670\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--fxi61ietai923l.", %p)}, "xn--fxi61ietai923l.", "to_ascii\(\'xn\-\-fxi61ietai923l\.\'\)\ \[data\/IdnaTest\.txt\:3671\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴥ🠠⸄⧲.", %p)}, "xn--fxi61ietai923l.", "to_ascii\(\'ⴥ🠠\⸄\⧲\.\'\)\ \[data\/IdnaTest\.txt\:3672\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴥ🠠⸄⧲.", %p)}, undef, "to_ascii\(\'Ⴥ🠠\⸄\⧲\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3673\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴥ🠠⸄⧲。󠇠", %p)}, "xn--fxi61ietai923l.", "to_ascii\(\'ⴥ🠠\⸄\⧲。\󠇠\'\)\ \[data\/IdnaTest\.txt\:3674\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🄈。󠦐ᢙ", %p)}, undef, "to_ascii\(\'🄈\。\󠦐ᢙ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3675\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7,。󠦐ᢙ", %p)}, undef, "to_ascii\(\'7\,\。\󠦐ᢙ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3676\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{063D}。섖쮖ß", %p)}, undef, "to_ascii\(\'\≮\\u063D\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{063D}。섖쮖ß", %p)}, undef, "to_ascii\(\'\<\\u0338\\u063D\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{063D}。섖쮖SS", %p)}, undef, "to_ascii\(\'\<\\u0338\\u063D\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{063D}。섖쮖SS", %p)}, undef, "to_ascii\(\'\≮\\u063D\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{063D}。섖쮖ss", %p)}, undef, "to_ascii\(\'\≮\\u063D\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{063D}。섖쮖ss", %p)}, undef, "to_ascii\(\'\<\\u0338\\u063D\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{063D}。섖쮖Ss", %p)}, undef, "to_ascii\(\'\<\\u0338\\u063D\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{063D}。섖쮖Ss", %p)}, undef, "to_ascii\(\'\≮\\u063D\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A6A}󠍨-。\x{06A2}", %p)}, undef, "to_ascii\(\'\\u1A6A\󠍨\-\。\\u06A2\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞱦\x{06DD}\x{0845}\x{0E3A}。\x{069E}\x{0726}\x{200C}\x{062C}", %p)}, undef, "to_ascii\(\'𞱦\\u06DD\\u0845\\u0E3A\。\\u069E\\u0726\\u200C\\u062C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1AB6}.𞨕򗡺", %p)}, undef, "to_ascii\(\'\\u1AB6\.𞨕򗡺\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("--。󶅄\x{07D9}\x{FD60}\x{FDB5}", %p)}, undef, "to_ascii\(\'\-\-\。󶅄\\u07D9\\uFD60\\uFDB5\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("--。󶅄\x{07D9}\x{0633}\x{0645}\x{062D}\x{0644}\x{062D}\x{0645}", %p)}, undef, "to_ascii\(\'\-\-\。󶅄\\u07D9\\u0633\\u0645\\u062D\\u0644\\u062D\\u0645\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񰋴𐋥𚴢.≯\x{08A2}\x{06C1}򮁎", %p)}, undef, "to_ascii\(\'񰋴𐋥𚴢\.\≯\\u08A2\\u06C1򮁎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񰋴𐋥𚴢.>\x{0338}\x{08A2}\x{06C1}򮁎", %p)}, undef, "to_ascii\(\'񰋴𐋥𚴢\.\>\\u0338\\u08A2\\u06C1򮁎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䔛󠅆󙭅𐹸.-䤷", %p)}, undef, "to_ascii\(\'䔛\󠅆󙭅𐹸.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䔛󠅆󙭅𐹸.-䤷", %p)}, undef, "to_ascii\(\'䔛\󠅆󙭅𐹸\.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0665}.\x{200D}-", %p)}, undef, "to_ascii\(\'\\u0665.\\u200D\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0665}.\x{200D}-", %p)}, undef, "to_ascii\(\'\\u0665\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򳥎帷。≯萺🢓-", %p)}, undef, "to_ascii\(\'򳥎帷。\≯萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򳥎帷。>\x{0338}萺🢓-", %p)}, undef, "to_ascii\(\'򳥎帷。\>\\u0338萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򳥎帷。≯萺🢓-", %p)}, undef, "to_ascii\(\'򳥎帷\。\≯萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򳥎帷。>\x{0338}萺🢓-", %p)}, undef, "to_ascii\(\'򳥎帷\。\>\\u0338萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}攌\x{1BAA}。\x{0641}-Ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\u1BAA\。\\u0641\-Ⴘ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3702\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1BAA}。\x{0641}-ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\u1BAA\。\\u0641\-ⴘ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:3704\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}ꖨ.⒗3􆤫۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ.⒗3􆤫۳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ꖨ.16.3􆤫۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ\.16\.3􆤫۳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈걾6.𞼾\x{06A6}", %p)}, undef, "to_ascii\(\'⒈걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈걾6.𞼾\x{06A6}", %p)}, undef, "to_ascii\(\'⒈걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.걾6.𞼾\x{06A6}", %p)}, undef, "to_ascii\(\'1\.걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3712\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.걾6.𞼾\x{06A6}", %p)}, undef, "to_ascii\(\'1\.걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐭹𝟶≮≮.\x{07EC}\x{063F}", %p)}, undef, "to_ascii\(\'𐭹𝟶\≮\≮\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐭹𝟶<\x{0338}<\x{0338}.\x{07EC}\x{063F}", %p)}, undef, "to_ascii\(\'𐭹𝟶\<\\u0338\<\\u0338\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐭹0≮≮.\x{07EC}\x{063F}", %p)}, undef, "to_ascii\(\'𐭹0\≮\≮\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐭹0<\x{0338}<\x{0338}.\x{07EC}\x{063F}", %p)}, undef, "to_ascii\(\'𐭹0\<\\u0338\<\\u0338\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩎.𐹥\x{115F}", %p)}, undef, "to_ascii\(\'𝩎\.𐹥\\u115F\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3718\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{05A2}\x{0E4B}.\x{200D}", %p)}, "xn--1-efc467d.", "to_ascii\(\'𝟏\\u05A2\\u0E4B\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:3719\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0E4B}\x{05A2}.\x{200D}", %p)}, "xn--1-efc467d.", "to_ascii\(\'𝟏\\u0E4B\\u05A2\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:3721\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0E4B}\x{05A2}.\x{200D}", %p)}, "xn--1-efc467d.", "to_ascii\(\'1\\u0E4B\\u05A2\.\\u200D\'\)\ \[data\/IdnaTest\.txt\:3723\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--1-efc467d.", %p)}, "xn--1-efc467d.", "to_ascii\(\'xn\-\-1\-efc467d\.\'\)\ \[data\/IdnaTest\.txt\:3725\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0E4B}\x{05A2}.", %p)}, "xn--1-efc467d.", "to_ascii\(\'1\\u0E4B\\u05A2\.\'\)\ \[data\/IdnaTest\.txt\:3726\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ꡏ≠\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_ascii\(\'ꡏ\≠\\u07DF\\u103A。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3727\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏ=\x{0338}\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_ascii\(\'ꡏ\=\\u0338\\u07DF\\u103A。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3729\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏ≠\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_ascii\(\'ꡏ\≠\\u07DF\\u103A\。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3731\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏ=\x{0338}\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_ascii\(\'ꡏ\=\\u0338\\u07DF\\u103A\。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3733\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐹹𑜩-\x{08AA}。𐫚", %p)}, undef, "to_ascii\(\'𐹹𑜩\-\\u08AA。𐫚\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3735\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐹹𑜩-\x{08AA}。𐫚", %p)}, undef, "to_ascii\(\'𐹹𑜩\-\\u08AA\。𐫚\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3736\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("F\x{1AB4}。񸃫🌿", %p)}, undef, "to_ascii\(\'F\\u1AB4。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3737\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("F\x{1AB4}。񸃫🌿", %p)}, undef, "to_ascii\(\'F\\u1AB4\。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f\x{1AB4}。񸃫🌿", %p)}, undef, "to_ascii\(\'f\\u1AB4\。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3739\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f\x{1AB4}。񸃫🌿", %p)}, undef, "to_ascii\(\'f\\u1AB4。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3740\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵𑍍\x{05C1}。𝟮Ⴘ\x{1B03}𪌓", %p)}, undef, "to_ascii\(\'𑈵𑍍\\u05C1\。𝟮Ⴘ\\u1B03𪌓\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3741\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵𑍍\x{05C1}。2Ⴘ\x{1B03}𪌓", %p)}, undef, "to_ascii\(\'𑈵𑍍\\u05C1\。2Ⴘ\\u1B03𪌓\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3742\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑈵𑍍\x{05C1}。2ⴘ\x{1B03}𪌓", %p)}, undef, "to_ascii\(\'𑈵𑍍\\u05C1\。2ⴘ\\u1B03𪌓\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3743\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑈵𑍍\x{05C1}。𝟮ⴘ\x{1B03}𪌓", %p)}, undef, "to_ascii\(\'𑈵𑍍\\u05C1\。𝟮ⴘ\\u1B03𪌓\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3744\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󙐃\x{200C}\x{200C}⒈。勉\x{08F6}", %p)}, undef, "to_ascii\(\'󙐃\\u200C\\u200C⒈\。勉\\u08F6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3745\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󙐃\x{200C}\x{200C}1.。勉\x{08F6}", %p)}, undef, "to_ascii\(\'󙐃\\u200C\\u200C1\.\。勉\\u08F6\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DE}.􋧲򆔛򚝌", %p)}, undef, "to_ascii\(\'\\u07DE\.􋧲򆔛򚝌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。⒈≯𝟵", %p)}, undef, "to_ascii\(\'\\u200C\\u200C。⒈\≯𝟵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3750\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。⒈>\x{0338}𝟵", %p)}, undef, "to_ascii\(\'\\u200C\\u200C。⒈\>\\u0338𝟵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3752\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.≯9", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\≯9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.>\x{0338}9", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\>\\u03389\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}󠁔񹨕.񡆍≯ᡱ", %p)}, undef, "to_ascii\(\'\\u115F\󠁔񹨕\.񡆍\≯ᡱ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}󠁔񹨕.񡆍>\x{0338}ᡱ", %p)}, undef, "to_ascii\(\'\\u115F\󠁔񹨕\.񡆍\>\\u0338ᡱ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽛󠇧\x{200D}\x{06A4}.𑆻-\x{20E0}򔔷", %p)}, undef, "to_ascii\(\'⽛\󠇧\\u200D\\u06A4\.𑆻\-\\u20E0򔔷\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("牙󠇧\x{200D}\x{06A4}.𑆻-\x{20E0}򔔷", %p)}, undef, "to_ascii\(\'牙\󠇧\\u200D\\u06A4\.𑆻\-\\u20E0򔔷\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3762\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{035D}.\x{2D7F}-", %p)}, undef, "to_ascii\(\'\\u035D.\\u2D7F\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3764\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{035D}.\x{2D7F}-", %p)}, undef, "to_ascii\(\'\\u035D\.\\u2D7F\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3765\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("䮸ß.┶☍紙\x{0710}", %p)}, undef, "to_ascii\(\'䮸ß\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3766\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸SS.┶☍紙\x{0710}", %p)}, undef, "to_ascii\(\'䮸SS\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3767\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸ss.┶☍紙\x{0710}", %p)}, undef, "to_ascii\(\'䮸ss\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3768\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸Ss.┶☍紙\x{0710}", %p)}, undef, "to_ascii\(\'䮸Ss\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3769\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴞ.-⎟≈𞴈", %p)}, undef, "to_ascii\(\'\-Ⴞ\.\-\⎟\≈𞴈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴞ.-⎟≈𞴈", %p)}, undef, "to_ascii\(\'\-ⴞ\.\-\⎟\≈𞴈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊡝𐹮𑜝。𵘅\x{07EA}𚷖ᠥ", %p)}, undef, "to_ascii\(\'󊡝𐹮𑜝。𵘅\\u07EA𚷖ᠥ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊡝𐹮𑜝。𵘅\x{07EA}𚷖ᠥ", %p)}, undef, "to_ascii\(\'󊡝𐹮𑜝\。𵘅\\u07EA𚷖ᠥ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B02}-\x{200D}\x{1CE8}.\x{067A}\x{200D}񻭁", %p)}, undef, "to_ascii\(\'\\u1B02\-\\u200D\\u1CE8.\\u067A\\u200D񻭁\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B02}-\x{200D}\x{1CE8}.\x{067A}\x{200D}񻭁", %p)}, undef, "to_ascii\(\'\\u1B02\-\\u200D\\u1CE8\.\\u067A\\u200D񻭁\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۱。≠\x{0667}", %p)}, undef, "to_ascii\(\'۱\。\≠\\u0667\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۱。=\x{0338}\x{0667}", %p)}, undef, "to_ascii\(\'۱\。\=\\u0338\\u0667\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3779\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}廊.\x{07D4}", %p)}, undef, "to_ascii\(\'\\uA8C4廊\.\\u07D4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3780\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}\x{17CF}-.-Ⴐ𐹥", %p)}, undef, "to_ascii\(\'\\u200D\\u17CF\-.\-Ⴐ𐹥\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{17CF}-.-Ⴐ𐹥", %p)}, undef, "to_ascii\(\'\\u200D\\u17CF\-\.\-Ⴐ𐹥\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3783\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{17CF}-.-ⴐ𐹥", %p)}, undef, "to_ascii\(\'\\u200D\\u17CF\-\.\-ⴐ𐹥\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3785\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{17CF}-.-ⴐ𐹥", %p)}, undef, "to_ascii\(\'\\u200D\\u17CF\-.\-ⴐ𐹥\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3787\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᡈ𐹯挏򨆦.-", %p)}, undef, "to_ascii\(\'ᡈ𐹯挏򨆦\.\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:3789\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𞸷。𐹪\x{084C}", %p)}, undef, "to_ascii\(\'𞸷。𐹪\\u084C\'\)\ throws\ error\ B1\ \[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{062E}。𐹪\x{084C}", %p)}, undef, "to_ascii\(\'\\u062E\。𐹪\\u084C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3791\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'Ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3792\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'Ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'Ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'Ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("✦󃕌𐮮𐹸。≯\x{200C}\x{A8E5}", %p)}, undef, "to_ascii\(\'\✦󃕌𐮮𐹸。\≯\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3800\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("✦󃕌𐮮𐹸。>\x{0338}\x{200C}\x{A8E5}", %p)}, undef, "to_ascii\(\'\✦󃕌𐮮𐹸。\>\\u0338\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3802\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("✦󃕌𐮮𐹸。≯\x{200C}\x{A8E5}", %p)}, undef, "to_ascii\(\'\✦󃕌𐮮𐹸\。\≯\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("✦󃕌𐮮𐹸。>\x{0338}\x{200C}\x{A8E5}", %p)}, undef, "to_ascii\(\'\✦󃕌𐮮𐹸\。\>\\u0338\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3806\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ᛎ\x{0351}⎛\x{200D}。\x{0662}\x{0668}𐦋-", %p)}, undef, "to_ascii\(\'ᛎ\\u0351\⎛\\u200D。\\u0662\\u0668𐦋\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3808\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ᛎ\x{0351}⎛\x{200D}。\x{0662}\x{0668}𐦋-", %p)}, undef, "to_ascii\(\'ᛎ\\u0351\⎛\\u200D\。\\u0662\\u0668𐦋\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:3810\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0666}.\x{06FB}", %p)}, undef, "to_ascii\(\'\\u0666\.\\u06FB\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200D}𑁆。⒈", %p)}, undef, "to_ascii\(\'ß\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3813\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}𑁆。1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'ß\\u200D𑁆\。1\.\'\)\ \[data\/IdnaTest\.txt\:3815\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("SS\x{200D}𑁆。1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'SS\\u200D𑁆\。1\.\'\)\ \[data\/IdnaTest\.txt\:3817\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ss\x{200D}𑁆。1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'ss\\u200D𑁆\。1\.\'\)\ \[data\/IdnaTest\.txt\:3819\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("Ss\x{200D}𑁆。1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'Ss\\u200D𑁆\。1\.\'\)\ \[data\/IdnaTest\.txt\:3821\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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--ss-tn4o.1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'xn\-\-ss\-tn4o\.1\.\'\)\ \[data\/IdnaTest\.txt\:3823\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ss𑁆.1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'ss𑁆\.1\.\'\)\ \[data\/IdnaTest\.txt\:3824\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("SS𑁆.1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'SS𑁆\.1\.\'\)\ \[data\/IdnaTest\.txt\:3825\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("Ss𑁆.1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'Ss𑁆\.1\.\'\)\ \[data\/IdnaTest\.txt\:3826\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200D}𑁆。⒈", %p)}, undef, "to_ascii\(\'SS\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}𑁆。⒈", %p)}, undef, "to_ascii\(\'ss\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}𑁆。⒈", %p)}, undef, "to_ascii\(\'Ss\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3831\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B44}\x{200C}򦃽𐴮。\x{200D}", %p)}, undef, "to_ascii\(\'\\u1B44\\u200C򦃽𐴮\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3833\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{17BC}", %p)}, "xn--f8e.xn--73e9015e", "to_ascii\(\'ᡏ。ꡂ\\u17BC\'\)\ \[data\/IdnaTest\.txt\:3835\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{17BC}", %p)}, "xn--f8e.xn--73e9015e", "to_ascii\(\'ᡏ\。ꡂ\\u17BC\'\)\ \[data\/IdnaTest\.txt\:3836\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--f8e.xn--73e9015e", %p)}, "xn--f8e.xn--73e9015e", "to_ascii\(\'xn\-\-f8e\.xn\-\-73e9015e\'\)\ \[data\/IdnaTest\.txt\:3837\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{17BC}", %p)}, "xn--f8e.xn--73e9015e", "to_ascii\(\'ᡏ\.ꡂ\\u17BC\'\)\ \[data\/IdnaTest\.txt\:3838\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ᡦ\x{17D2}。\x{071F}\x{0954}\x{200C}𑄴", %p)}, "xn--u4e90a.xn--pnb44if575b", "to_ascii\(\'ᡦ\\u17D2\。\\u071F\\u0954\\u200C𑄴\'\)\ \[data\/IdnaTest\.txt\:3839\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or 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--u4e90a.xn--pnb44if575b", %p)}, "xn--u4e90a.xn--pnb44if575b", "to_ascii\(\'xn\-\-u4e90a\.xn\-\-pnb44if575b\'\)\ \[data\/IdnaTest\.txt\:3841\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ᡦ\x{17D2}.\x{071F}𑄴\x{0954}", %p)}, "xn--u4e90a.xn--pnb44if575b", "to_ascii\(\'ᡦ\\u17D2\.\\u071F𑄴\\u0954\'\)\ \[data\/IdnaTest\.txt\:3842\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A4CE}.𑈶\x{0684}", %p)}, undef, "to_ascii\(\'\\uA4CE\.𑈶\\u0684\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3843\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.ß𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫.ß𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3844\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.ß𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫\.ß𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3846\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.SS𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫\.SS𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3848\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.ss𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫\.ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3849\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.Ss𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫\.Ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3850\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--dnb6240l.xn--ss-jk5o5a", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'xn\-\-dnb6240l\.xn\-\-ss\-jk5o5a\'\)\ \[data\/IdnaTest\.txt\:3851\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--dnb6240l.xn--zca2180lxa", %p)}, "xn--dnb6240l.xn--zca2180lxa", "to_ascii\(\'xn\-\-dnb6240l\.xn\-\-zca2180lxa\'\)\ \[data\/IdnaTest\.txt\:3852\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.SS𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫.SS𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3853\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.ss𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫.ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3854\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.Ss𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫.Ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3855\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟠≮\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_ascii\(\'𝟠\≮\\u200C。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3856\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟠<\x{0338}\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_ascii\(\'𝟠\<\\u0338\\u200C。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8≮\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_ascii\(\'8\≮\\u200C\。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3860\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8<\x{0338}\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_ascii\(\'8\<\\u0338\\u200C\。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3862\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ≯︒𫅍.Ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\≯︒𫅍.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3864\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ>\x{0338}︒𫅍.Ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\>\\u0338︒𫅍.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ≯。𫅍.Ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\≯\。𫅍\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ>\x{0338}。𫅍.Ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\>\\u0338\。𫅍\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ>\x{0338}。𫅍.ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\>\\u0338\。𫅍\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ≯。𫅍.ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\≯\。𫅍\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ>\x{0338}︒𫅍.ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\>\\u0338︒𫅍.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ≯︒𫅍.ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\≯︒𫅍.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3871\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{17D1}.-\x{08FE}", %p)}, undef, "to_ascii\(\'\\u17D1.\-\\u08FE\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3872\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{17D1}.-\x{08FE}", %p)}, undef, "to_ascii\(\'\\u17D1\.\-\\u08FE\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3873\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᵬ󠅳.핒⒒⒈󍤢", %p)}, undef, "to_ascii\(\'ᵬ\󠅳.핒⒒⒈󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ󠅳.핒⒒⒈󍤢", %p)}, undef, "to_ascii\(\'ᵬ\󠅳.핒⒒⒈󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ󠅳.핒11.1.󍤢", %p)}, undef, "to_ascii\(\'ᵬ\󠅳\.핒11\.1\.󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ󠅳.핒11.1.󍤢", %p)}, undef, "to_ascii\(\'ᵬ\󠅳\.핒11\.1\.󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3877\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'ς\\u0ACD𐋢.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3878\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'ς\\u0ACD𐋢\.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3879\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'Σ\\u0ACD𐋢\.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3880\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'σ\\u0ACD𐋢\.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3881\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'Σ\\u0ACD𐋢.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3882\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'σ\\u0ACD𐋢.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3883\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A806}\x{200C}𐋻\x{200D}.\x{2DE3}\x{072B}𐹥", %p)}, undef, "to_ascii\(\'\\uA806\\u200C𐋻\\u200D\.\\u2DE3\\u072B𐹥\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3884\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝍕。𸻞\x{08A2}", %p)}, undef, "to_ascii\(\'𝍕\。𸻞\\u08A2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐬨􆧪。򨳋", %p)}, undef, "to_ascii\(\'𐬨􆧪\。򨳋\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹾\x{1DC7}ꡔ。ς񶞒󠤤\x{17B5}", %p)}, undef, "to_ascii\(\'𐹾\\u1DC7ꡔ\。ς񶞒\󠤤\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹾\x{1DC7}ꡔ。Σ񶞒󠤤\x{17B5}", %p)}, undef, "to_ascii\(\'𐹾\\u1DC7ꡔ\。Σ񶞒\󠤤\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹾\x{1DC7}ꡔ。σ񶞒󠤤\x{17B5}", %p)}, undef, "to_ascii\(\'𐹾\\u1DC7ꡔ\。σ񶞒\󠤤\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐯽\x{074E}\x{0819}。\x{0CCD}𝟥", %p)}, undef, "to_ascii\(\'\-𐯽\\u074E\\u0819\。\\u0CCD𝟥\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐯽\x{074E}\x{0819}。\x{0CCD}3", %p)}, undef, "to_ascii\(\'\-𐯽\\u074E\\u0819\。\\u0CCD3\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󠔟。򡵱≮𐽨", %p)}, undef, "to_ascii\(\'\\u200C\󠔟。򡵱\≮𐽨\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󠔟。򡵱<\x{0338}𐽨", %p)}, undef, "to_ascii\(\'\\u200C\󠔟。򡵱\<\\u0338𐽨\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󠔟。򡵱≮𐽨", %p)}, undef, "to_ascii\(\'\\u200C\󠔟\。򡵱\≮𐽨\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󠔟。򡵱<\x{0338}𐽨", %p)}, undef, "to_ascii\(\'\\u200C\󠔟\。򡵱\<\\u0338𐽨\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈꘍𿅦.𝟡𓕹", %p)}, undef, "to_ascii\(\'⒈꘍𿅦.𝟡𓕹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3901\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.꘍𿅦.9𓕹", %p)}, undef, "to_ascii\(\'1\.꘍𿅦\.9𓕹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3902\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AAED}\x{06CC}𐪆.𐹷󠁈", %p)}, undef, "to_ascii\(\'\\uAAED\\u06CC𐪆\.𐹷\󠁈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3903\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ς.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'ς.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3904\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ς.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'ς\.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3905\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("Σ.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'Σ\.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3906\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("σ.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'σ\.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3907\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("Σ.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'Σ.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3908\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("σ.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'σ.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3909\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1073}\x{200C}≯𐼸.󠅛", %p)}, undef, "to_ascii\(\'\\u1073\\u200C\≯𐼸.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1073}\x{200C}>\x{0338}𐼸.󠅛", %p)}, undef, "to_ascii\(\'\\u1073\\u200C\>\\u0338𐼸.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1073}\x{200C}≯𐼸.󠅛", %p)}, undef, "to_ascii\(\'\\u1073\\u200C\≯𐼸\.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3914\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1073}\x{200C}>\x{0338}𐼸.󠅛", %p)}, undef, "to_ascii\(\'\\u1073\\u200C\>\\u0338𐼸\.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3916\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。≯", %p)}, undef, "to_ascii\(\'羚。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3918\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。>\x{0338}", %p)}, undef, "to_ascii\(\'羚。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。≯", %p)}, undef, "to_ascii\(\'羚\。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。>\x{0338}", %p)}, undef, "to_ascii\(\'羚\。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A953}\x{1759}.\x{0850}", %p)}, undef, "to_ascii\(\'\\uA953\\u1759.\\u0850\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A953}\x{1759}.\x{0850}", %p)}, undef, "to_ascii\(\'\\uA953\\u1759\.\\u0850\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡ҠჀ𝟑", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D。𐹡ҠჀ𝟑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡ҠჀ3", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D\。𐹡ҠჀ3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡ҡⴠ3", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D\。𐹡ҡⴠ3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡Ҡⴠ3", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D\。𐹡Ҡⴠ3\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡ҡⴠ𝟑", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D。𐹡ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡Ҡⴠ𝟑", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D。𐹡Ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3934\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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}。\x{0661}\x{17D3}", %p)}, undef, "to_ascii\(\'\\u063F\。\\u0661\\u17D3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3936\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀ß", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4。𐹾𒜸𑇀ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀ß", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4\。𐹾𒜸𑇀ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀SS", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4\。𐹾𒜸𑇀SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀ss", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4\。𐹾𒜸𑇀ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀Ss", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4\。𐹾𒜸𑇀Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀SS", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4。𐹾𒜸𑇀SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀ss", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4。𐹾𒜸𑇀ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀Ss", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4。𐹾𒜸𑇀Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹨򏝨\x{17B4}.󠪅︒≠", %p)}, undef, "to_ascii\(\'𐹨򏝨\\u17B4\.\󠪅︒\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹨򏝨\x{17B4}.󠪅︒=\x{0338}", %p)}, undef, "to_ascii\(\'𐹨򏝨\\u17B4\.\󠪅︒\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹨򏝨\x{17B4}.󠪅。≠", %p)}, undef, "to_ascii\(\'𐹨򏝨\\u17B4\.\󠪅\。\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹨򏝨\x{17B4}.󠪅。=\x{0338}", %p)}, undef, "to_ascii\(\'𐹨򏝨\\u17B4\.\󠪅\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍ỗ⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_ascii\(\'\󠬩񲜍ỗ⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3949\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍o\x{0302}\x{0303}⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_ascii\(\'\󠬩񲜍o\\u0302\\u0303⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3950\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍ỗ1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_ascii\(\'\󠬩񲜍ỗ1\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3951\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍o\x{0302}\x{0303}1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_ascii\(\'\󠬩񲜍o\\u0302\\u03031\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍O\x{0302}\x{0303}1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_ascii\(\'\󠬩񲜍O\\u0302\\u03031\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3953\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍Ỗ1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_ascii\(\'\󠬩񲜍Ỗ1\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍O\x{0302}\x{0303}⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_ascii\(\'\󠬩񲜍O\\u0302\\u0303⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍Ỗ⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_ascii\(\'\󠬩񲜍Ỗ⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。ᡅ", %p)}, "xn--47e", "to_ascii\(\'\\u200D。ᡅ\'\)\ \[data\/IdnaTest\.txt\:3957\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。ᡅ", %p)}, "xn--47e", "to_ascii\(\'\\u200D\。ᡅ\'\)\ \[data\/IdnaTest\.txt\:3959\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--47e", %p)}, "xn--47e", "to_ascii\(\'xn\-\-47e\'\)\ \[data\/IdnaTest\.txt\:3961\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡅ", %p)}, "xn--47e", "to_ascii\(\'ᡅ\'\)\ \[data\/IdnaTest\.txt\:3962\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𑌀ꡫ.\x{07D8}", %p)}, undef, "to_ascii\(\'𑌀ꡫ\.\\u07D8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3963\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝆋\x{200C}-。󚇠ß", %p)}, undef, "to_ascii\(\'𝆋\\u200C\-\。󚇠ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝆋\x{200C}-。󚇠SS", %p)}, undef, "to_ascii\(\'𝆋\\u200C\-\。󚇠SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝆋\x{200C}-。󚇠ss", %p)}, undef, "to_ascii\(\'𝆋\\u200C\-\。󚇠ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝆋\x{200C}-。󚇠Ss", %p)}, undef, "to_ascii\(\'𝆋\\u200C\-\。󚇠Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ς🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200Cς🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ς🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200Cς🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3974\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Σ🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200CΣ🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}σ🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200Cσ🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3978\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Σ🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200CΣ🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}σ🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200Cσ🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.𐿙", %p)}, undef, "to_ascii\(\'\-\.𐿙\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񜲳\x{076D}.\x{0FA2}\x{0758}", %p)}, undef, "to_ascii\(\'񜲳\\u076D\.\\u0FA2\\u0758\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񜲳\x{076D}.\x{0FA1}\x{0FB7}\x{0758}", %p)}, undef, "to_ascii\(\'񜲳\\u076D\.\\u0FA1\\u0FB7\\u0758\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3986\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FE6}ᠬ񃣈.𐫯", %p)}, undef, "to_ascii\(\'\\u0FE6ᠬ񃣈\.𐫯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3987\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2𭡦\x{077B}ß。\x{07DE}", %p)}, undef, "to_ascii\(\'2𭡦\\u077Bß\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3988\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2𭡦\x{077B}SS。\x{07DE}", %p)}, undef, "to_ascii\(\'2𭡦\\u077BSS\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2𭡦\x{077B}ss。\x{07DE}", %p)}, undef, "to_ascii\(\'2𭡦\\u077Bss\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2𭡦\x{077B}Ss。\x{07DE}", %p)}, undef, "to_ascii\(\'2𭡦\\u077BSs\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮\.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338\.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:3998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338\.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4000\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮\.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮\.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338\.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338\.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮\.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4012\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4014\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4016\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4018\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4022\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-򍯄\x{0FA3}\x{081E}.\x{AAEC}-︒", %p)}, undef, "to_ascii\(\'\-򍯄\\u0FA3\\u081E\.\\uAAEC\-︒\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-򍯄\x{0FA3}\x{081E}.\x{AAEC}-。", %p)}, undef, "to_ascii\(\'\-򍯄\\u0FA3\\u081E\.\\uAAEC\-\。\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.񴻫𝨖", %p)}, undef, "to_ascii\(\'︒\.񴻫𝨖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。.񴻫𝨖", %p)}, undef, "to_ascii\(\'\。\.񴻫𝨖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠄻󠄙。\x{200C}⓾\x{200C}\x{074D}", %p)}, undef, "to_ascii\(\'\󠄻\󠄙\。\\u200C⓾\\u200C\\u074D\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞼸ᠷ\x{066B}。\x{08F4}\x{07E5}𝩞", %p)}, undef, "to_ascii\(\'𞼸ᠷ\\u066B。\\u08F4\\u07E5𝩞\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞼸ᠷ\x{066B}。\x{08F4}\x{07E5}𝩞", %p)}, undef, "to_ascii\(\'𞼸ᠷ\\u066B\。\\u08F4\\u07E5𝩞\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A69F}.-񛴭", %p)}, undef, "to_ascii\(\'\\uA69F\.\-񛴭\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:4032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠦠.赏", %p)}, undef, "to_ascii\(\'\󠦠.赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠦠.赏", %p)}, undef, "to_ascii\(\'\󠦠\.赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0630}。Ⴁ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0630。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0630}。Ⴁ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0630\。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4036\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0630}。ⴁ", %p)}, "xn--vgb74f.xn--skj", "to_ascii\(\'\\u07D1\\u0630\。ⴁ\'\)\ \[data\/IdnaTest\.txt\:4037\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--vgb74f.xn--skj", %p)}, "xn--vgb74f.xn--skj", "to_ascii\(\'xn\-\-vgb74f\.xn\-\-skj\'\)\ \[data\/IdnaTest\.txt\:4038\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0630}.ⴁ", %p)}, "xn--vgb74f.xn--skj", "to_ascii\(\'\\u07D1\\u0630\.ⴁ\'\)\ \[data\/IdnaTest\.txt\:4039\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07D1}\x{0630}.Ⴁ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0630\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4040\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0630}。ⴁ", %p)}, "xn--vgb74f.xn--skj", "to_ascii\(\'\\u07D1\\u0630。ⴁ\'\)\ \[data\/IdnaTest\.txt\:4041\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}Ⴊᡨς。-", %p)}, undef, "to_ascii\(\'\\u0A01Ⴊᡨς。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A01}Ⴊᡨς。-", %p)}, undef, "to_ascii\(\'\\u0A01Ⴊᡨς\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[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{0A01}ⴊᡨς。-", %p)}, undef, "to_ascii\(\'\\u0A01ⴊᡨς\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4044\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}ႪᡨΣ。-", %p)}, undef, "to_ascii\(\'\\u0A01ႪᡨΣ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4045\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0A01}ⴊᡨσ。-", %p)}, undef, "to_ascii\(\'\\u0A01ⴊᡨσ\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4046\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}Ⴊᡨσ。-", %p)}, undef, "to_ascii\(\'\\u0A01Ⴊᡨσ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4047\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0A01}ⴊᡨς。-", %p)}, undef, "to_ascii\(\'\\u0A01ⴊᡨς。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4048\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}ႪᡨΣ。-", %p)}, undef, "to_ascii\(\'\\u0A01ႪᡨΣ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4049\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0A01}ⴊᡨσ。-", %p)}, undef, "to_ascii\(\'\\u0A01ⴊᡨσ。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4050\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}Ⴊᡨσ。-", %p)}, undef, "to_ascii\(\'\\u0A01Ⴊᡨσ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴍ.𦛀\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ.𦛀\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴍ.𦛀\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\.𦛀\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4054\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--4kj.xn--2m2k", "to_ascii\(\'ⴍ\.𦛀\\u200C\'\)\ \[data\/IdnaTest\.txt\:4056\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--4kj.xn--2m2k", %p)}, "xn--4kj.xn--2m2k", "to_ascii\(\'xn\-\-4kj\.xn\-\-2m2k\'\)\ \[data\/IdnaTest\.txt\:4058\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--4kj.xn--2m2k", "to_ascii\(\'ⴍ\.𦛀\'\)\ \[data\/IdnaTest\.txt\:4059\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴍ.𦛀", %p)}, undef, "to_ascii\(\'Ⴍ\.𦛀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4060\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴍ.𦛀\x{200C}", %p)}, "xn--4kj.xn--2m2k", "to_ascii\(\'ⴍ.𦛀\\u200C\'\)\ \[data\/IdnaTest\.txt\:4061\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󈯇𐆔.\x{07E6}\x{1A60}󆫚𑓂", %p)}, undef, "to_ascii\(\'󈯇𐆔\.\\u07E6\\u1A60󆫚𑓂\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_ascii\(\'\≯\\u0F8F\\u06B5。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0F8F\\u06B5。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_ascii\(\'\≯\\u0F8F\\u06B5\。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0F8F\\u06B5\。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{FC34}\x{0666}。ႨꡍႯ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\uFC34\\u0666\。ႨꡍႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{0642}\x{0645}\x{0666}。ႨꡍႯ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\u0642\\u0645\\u0666\。ႨꡍႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{0642}\x{0645}\x{0666}。ⴈꡍⴏ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\u0642\\u0645\\u0666\。ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{0642}\x{0645}\x{0666}。Ⴈꡍⴏ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\u0642\\u0645\\u0666\。Ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{FC34}\x{0666}。ⴈꡍⴏ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\uFC34\\u0666\。ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{FC34}\x{0666}。Ⴈꡍⴏ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\uFC34\\u0666\。Ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐤺。𑖼", %p)}, undef, "to_ascii\(\'𐤺\。𑖼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4074\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𝟔𐹽.\x{AAEC}⎤9\x{075F}", %p)}, undef, "to_ascii\(\'𝟔𐹽.\\uAAEC\⎤9\\u075F\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4075\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("6𐹽.\x{AAEC}⎤9\x{075F}", %p)}, undef, "to_ascii\(\'6𐹽\.\\uAAEC\⎤9\\u075F\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4076\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐫐𐹾𞽂.𝩏", %p)}, undef, "to_ascii\(\'𐫐𐹾𞽂.𝩏\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫐𐹾𞽂.𝩏", %p)}, undef, "to_ascii\(\'𐫐𐹾𞽂\.𝩏\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("❫󥖿ᠠ.𞲻\x{200D}𞤙", %p)}, undef, "to_ascii\(\'\❫󥖿ᠠ.𞲻\\u200D𞤙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("❫󥖿ᠠ.𞲻\x{200D}𞤙", %p)}, undef, "to_ascii\(\'\❫󥖿ᠠ\.𞲻\\u200D𞤙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072E}󈐓\x{FBD4}-.≠𹔭\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u072E󈐓\\uFBD4\-.\≠𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072E}󈐓\x{FBD4}-.=\x{0338}𹔭\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u072E󈐓\\uFBD4\-.\=\\u0338𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072E}󈐓\x{06AD}-.≠𹔭\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u072E󈐓\\u06AD\-\.\≠𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072E}󈐓\x{06AD}-.=\x{0338}𹔭\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u072E󈐓\\u06AD\-\.\=\\u0338𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛.󗹙", %p)}, undef, "to_ascii\(\'𝟛.󗹙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3.󗹙", %p)}, undef, "to_ascii\(\'3\.󗹙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}.Ⴞ𐋷", %p)}, undef, "to_ascii\(\'\-\\u200D\.Ⴞ𐋷\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4089\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{200D}.ⴞ𐋷", %p)}, undef, "to_ascii\(\'\-\\u200D\.ⴞ𐋷\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4091\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}ςß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dςß\\uA675.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4093\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}ςß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dςß\\uA675\.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4095\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}ΣSS\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\uA675\.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4097\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}σss\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dσss\\uA675\.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4099\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}Σss\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣss\\uA675\.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4101\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}Σß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣß\\uA675\.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4103\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}σß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dσß\\uA675\.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4105\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}ΣSS\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\uA675.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4107\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}σss\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dσss\\uA675.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4109\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}Σss\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣss\\uA675.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4111\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}Σß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣß\\uA675.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4113\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}σß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dσß\\uA675.𑘿\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4115\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4117\]") 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\:4119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4121\]") 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\:4123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐦽。\x{070F}\x{0643}󠳠򲯕", %p)}, undef, "to_ascii\(\'𐦽。\\u070F\\u0643\󠳠򲯕\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐦽。\x{070F}\x{0643}󠳠򲯕", %p)}, undef, "to_ascii\(\'𐦽\。\\u070F\\u0643\󠳠򲯕\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4126\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}ς.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dς.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}ς.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dς\.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.Σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ\.Σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}σ.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dσ\.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}σ.σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dσ\.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ\.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ\.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.Σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ.Σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}σ.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dσ.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}σ.σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dσ.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{FEFA}\x{0BCD}񣨧Ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3。\\uFEFA\\u0BCD񣨧Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0625}\x{0BCD}񣨧Ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0625\\u0BCD񣨧Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4140\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0627}\x{0BCD}\x{0655}񣨧Ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0627\\u0BCD\\u0655񣨧Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4141\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0627}\x{0BCD}\x{0655}񣨧ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0627\\u0BCD\\u0655񣨧ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4142\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0625}\x{0BCD}񣨧ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0625\\u0BCD񣨧ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4143\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{FEFA}\x{0BCD}񣨧ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3。\\uFEFA\\u0BCD񣨧ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4144\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EA0B}。륧", %p)}, undef, "to_ascii\(\'\\uEA0B。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4145\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EA0B}。륧", %p)}, undef, "to_ascii\(\'\\uEA0B。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4146\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EA0B}。륧", %p)}, undef, "to_ascii\(\'\\uEA0B\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4147\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EA0B}。륧", %p)}, undef, "to_ascii\(\'\\uEA0B\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4148\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹱\x{200D}。򠊑", %p)}, undef, "to_ascii\(\'𐹱\\u200D\。򠊑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4149\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴘꡁ𑚰。-", %p)}, undef, "to_ascii\(\'Ⴘꡁ𑚰。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴘꡁ𑚰。-", %p)}, undef, "to_ascii\(\'Ⴘꡁ𑚰\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4152\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ⴘꡁ𑚰。-", %p)}, undef, "to_ascii\(\'ⴘꡁ𑚰\。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4153\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ⴘꡁ𑚰。-", %p)}, undef, "to_ascii\(\'ⴘꡁ𑚰。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4154\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1714}ꡊ₆\x{06B5}。󠢀𐶳", %p)}, undef, "to_ascii\(\'\\u1714ꡊ₆\\u06B5\。\󠢀𐶳\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1714}ꡊ6\x{06B5}。󠢀𐶳", %p)}, undef, "to_ascii\(\'\\u1714ꡊ6\\u06B5\。\󠢀𐶳\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򄘈.🂹ᡯ\x{0772}\x{072A}", %p)}, undef, "to_ascii\(\'򄘈\.🂹ᡯ\\u0772\\u072A\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{076F}񰱲。-ꡀ", %p)}, undef, "to_ascii\(\'\\u076F񰱲\。\-ꡀ\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4158\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_ascii\(\'ς\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4159\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_ascii\(\'ς\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4161\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_ascii\(\'Σ\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4163\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_ascii\(\'σ\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4165\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Σ\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_ascii\(\'Σ\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4167\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_ascii\(\'σ\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4169\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡤ󐿐.𐦞", %p)}, undef, "to_ascii\(\'ꡤ󐿐.𐦞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡤ󐿐.𐦞", %p)}, undef, "to_ascii\(\'ꡤ󐿐\.𐦞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}󿉛\x{1C32}。\x{200C}\x{0645}򱧗", %p)}, undef, "to_ascii\(\'\\uA9C0󿉛\\u1C32。\\u200C\\u0645򱧗\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4173\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}󿉛\x{1C32}。\x{200C}\x{0645}򱧗", %p)}, undef, "to_ascii\(\'\\uA9C0󿉛\\u1C32\。\\u200C\\u0645򱧗\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡘ\\u0E4C𾎮\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡘ\\u0E4C𾎮\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡘ\\u0E4C𾎮\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡘ\\u0E4C𾎮\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅬜。ᡖ", %p)}, undef, "to_ascii\(\'􅬜。ᡖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅬜。ᡖ", %p)}, undef, "to_ascii\(\'􅬜\。ᡖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("嬃\x{009A}.\x{200D}\x{05AA}", %p)}, undef, "to_ascii\(\'嬃\\u009A.\\u200D\\u05AA\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("嬃\x{009A}.\x{200D}\x{05AA}", %p)}, undef, "to_ascii\(\'嬃\\u009A\.\\u200D\\u05AA\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹤󠱎≯.󣎔򅋾", %p)}, undef, "to_ascii\(\'𐹤\󠱎\≯.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4191\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹤󠱎>\x{0338}.󣎔򅋾", %p)}, undef, "to_ascii\(\'𐹤\󠱎\>\\u0338.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4192\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹤󠱎≯.󣎔򅋾", %p)}, undef, "to_ascii\(\'𐹤\󠱎\≯\.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹤󠱎>\x{0338}.󣎔򅋾", %p)}, undef, "to_ascii\(\'𐹤\󠱎\>\\u0338\.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񂩳\x{07D6}\x{0659}\x{1BAB}.𞶀", %p)}, undef, "to_ascii\(\'񂩳\\u07D6\\u0659\\u1BAB\.𞶀\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񂩳\x{07D6}\x{1BAB}\x{0659}.𞶀", %p)}, undef, "to_ascii\(\'񂩳\\u07D6\\u1BAB\\u0659\.𞶀\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.򴈶", %p)}, undef, "to_ascii\(\'\\u200C\.򴈶\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򠪓Ⴃ䠅.\x{FB65}", %p)}, undef, "to_ascii\(\'򠪓Ⴃ䠅.\\uFB65\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򠪓Ⴃ䠅.\x{067F}", %p)}, undef, "to_ascii\(\'򠪓Ⴃ䠅\.\\u067F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򠪓ⴃ䠅.\x{067F}", %p)}, undef, "to_ascii\(\'򠪓ⴃ䠅\.\\u067F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򠪓ⴃ䠅.\x{FB65}", %p)}, undef, "to_ascii\(\'򠪓ⴃ䠅.\\uFB65\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0741}\x{0662}𐹮𐮑。𝟨Ⴅ", %p)}, undef, "to_ascii\(\'\\u0741\\u0662𐹮𐮑。𝟨Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0741}\x{0662}𐹮𐮑。6Ⴅ", %p)}, undef, "to_ascii\(\'\\u0741\\u0662𐹮𐮑\。6Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4204\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0741}\x{0662}𐹮𐮑。6ⴅ", %p)}, undef, "to_ascii\(\'\\u0741\\u0662𐹮𐮑\。6ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4205\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0741}\x{0662}𐹮𐮑。𝟨ⴅ", %p)}, undef, "to_ascii\(\'\\u0741\\u0662𐹮𐮑。𝟨ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4206\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-。︒", %p)}, undef, "to_ascii\(\'\-。︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。。", %p)}, undef, "to_ascii\(\'\-\。\。\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:4208\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊჀ。-⁵--", %p)}, undef, "to_ascii\(\'ꡊჀ。\-⁵\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:4209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊჀ。-5--", %p)}, undef, "to_ascii\(\'ꡊჀ\。\-5\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:4210\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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("ꡊⴠ。-5--", %p)}, undef, "to_ascii\(\'ꡊⴠ\。\-5\-\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:4211\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\ V2\ V3\ \[data\/IdnaTest\.txt\:4212\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{D8DD}󠍣。\x{066C}𐹣≯𞡾", %p)}, undef, "to_ascii\(\'\≯\\uD8DD\󠍣。\\u066C𐹣\≯𞡾\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}󠍣。\x{066C}𐹣>\x{0338}𞡾", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD\󠍣。\\u066C𐹣\>\\u0338𞡾\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{D8DD}󠍣。\x{066C}𐹣≯𞡾", %p)}, undef, "to_ascii\(\'\≯\\uD8DD\󠍣\。\\u066C𐹣\≯𞡾\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}󠍣。\x{066C}𐹣>\x{0338}𞡾", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD\󠍣\。\\u066C𐹣\>\\u0338𞡾\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㍔\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_ascii\(\'㍔\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ルーブル\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_ascii\(\'ルーブル\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ルーフ\x{3099}ル\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_ascii\(\'ルーフ\\u3099ル\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4221\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.F", %p)}, "f", "to_ascii\(\'\\u200D\.F\'\)\ \[data\/IdnaTest\.txt\:4223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f", %p)}, "f", "to_ascii\(\'f\'\)\ \[data\/IdnaTest\.txt\:4225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲。ß\'\)\ \[data\/IdnaTest\.txt\:4226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲\。ß\'\)\ \[data\/IdnaTest\.txt\:4228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲\。SS\'\)\ \[data\/IdnaTest\.txt\:4230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--9bm.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'xn\-\-9bm\.ss\'\)\ \[data\/IdnaTest\.txt\:4232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨲.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'㨲\.ss\'\)\ \[data\/IdnaTest\.txt\:4233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, "xn--9bm.ss", "to_ascii\(\'\\u200D㨲。SS\'\)\ \[data\/IdnaTest\.txt\:4234\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹲ᠵ。ᡡ", %p)}, undef, "to_ascii\(\'𐹲ᠵ。ᡡ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4236\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹲ᠵ。ᡡ", %p)}, undef, "to_ascii\(\'𐹲ᠵ\。ᡡ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4237\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("⾑\x{06CC}\x{0646}。𐹻ᡘ", %p)}, undef, "to_ascii\(\'⾑\\u06CC\\u0646\。𐹻ᡘ\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4238\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("襾\x{06CC}\x{0646}。𐹻ᡘ", %p)}, undef, "to_ascii\(\'襾\\u06CC\\u0646\。𐹻ᡘ\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4239\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񞭓ς-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓ς\-𝍆。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓ς-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓ς\-𝍆\。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓Σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓Σ\-𝍆\。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓σ\-𝍆\。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓Σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓Σ\-𝍆。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓σ\-𝍆。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.󅘺", %p)}, undef, "to_ascii\(\'\\u200D.󅘺\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.󅘺", %p)}, undef, "to_ascii\(\'\\u200D\.󅘺\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲻩\x{EC0E}。≠𝟲", %p)}, undef, "to_ascii\(\'𲻩\\uEC0E。\≠𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲻩\x{EC0E}。=\x{0338}𝟲", %p)}, undef, "to_ascii\(\'𲻩\\uEC0E。\=\\u0338𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲻩\x{EC0E}。≠6", %p)}, undef, "to_ascii\(\'𲻩\\uEC0E\。\≠6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲻩\x{EC0E}。=\x{0338}6", %p)}, undef, "to_ascii\(\'𲻩\\uEC0E\。\=\\u03386\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F8F}ᠯ\x{200D}.\x{088C}", %p)}, undef, "to_ascii\(\'\\u0F8Fᠯ\\u200D\.\\u088C\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FE}ꡔ𞨰\x{0B4D}.󣢅", %p)}, undef, "to_ascii\(\'\\u08FEꡔ𞨰\\u0B4D.󣢅\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FE}ꡔ𞨰\x{0B4D}.󣢅", %p)}, undef, "to_ascii\(\'\\u08FEꡔ𞨰\\u0B4D\.󣢅\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0848}。\x{302C}\x{200C}≯🌐", %p)}, undef, "to_ascii\(\'\\u0848\。\\u302C\\u200C\≯🌐\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0848}。\x{302C}\x{200C}>\x{0338}🌐", %p)}, undef, "to_ascii\(\'\\u0848\。\\u302C\\u200C\>\\u0338🌐\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨪𝟕.\x{063A}󯏭Ⴉ", %p)}, undef, "to_ascii\(\'𝨪𝟕\.\\u063A󯏭Ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨪7.\x{063A}󯏭Ⴉ", %p)}, undef, "to_ascii\(\'𝨪7\.\\u063A󯏭Ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨪7.\x{063A}󯏭ⴉ", %p)}, undef, "to_ascii\(\'𝨪7\.\\u063A󯏭ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨪𝟕.\x{063A}󯏭ⴉ", %p)}, undef, "to_ascii\(\'𝨪𝟕\.\\u063A󯏭ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("閃9\x{0F77}。Ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_ascii\(\'閃9\\u0F77\。Ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("閃9\x{0FB2}\x{0F71}\x{0F80}。Ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_ascii\(\'閃9\\u0FB2\\u0F71\\u0F80\。Ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4267\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("閃9\x{0FB2}\x{0F71}\x{0F80}。ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_ascii\(\'閃9\\u0FB2\\u0F71\\u0F80\。ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4268\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("閃9\x{0F77}。ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_ascii\(\'閃9\\u0F77\。ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4269\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1734}\x{06A9}𑄴2.𐋢\x{AA2E}\x{0F18}︒", %p)}, undef, "to_ascii\(\'\\u1734\\u06A9𑄴2\.𐋢\\uAA2E\\u0F18︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4270\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1734}\x{06A9}𑄴2.𐋢\x{AA2E}\x{0F18}。", %p)}, undef, "to_ascii\(\'\\u1734\\u06A9𑄴2\.𐋢\\uAA2E\\u0F18\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4271\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𱛛。≠-󠬇⾛", %p)}, undef, "to_ascii\(\'𱛛。\≠\-\󠬇⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱛛。=\x{0338}-󠬇⾛", %p)}, undef, "to_ascii\(\'𱛛。\=\\u0338\-\󠬇⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱛛。≠-󠬇走", %p)}, undef, "to_ascii\(\'𱛛\。\≠\-\󠬇走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱛛。=\x{0338}-󠬇走", %p)}, undef, "to_ascii\(\'𱛛\。\=\\u0338\-\󠬇走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ𐹵Ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'ᡊ𐹵Ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ𐹵Ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'ᡊ𐹵Ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ𐹵ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'ᡊ𐹵ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ𐹵ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'ᡊ𐹵ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐥳𐹶𝟒≯。\x{200C}", %p)}, undef, "to_ascii\(\'𐥳𐹶𝟒\≯。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4280\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐥳𐹶𝟒>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'𐥳𐹶𝟒\>\\u0338。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4282\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐥳𐹶4≯。\x{200C}", %p)}, undef, "to_ascii\(\'𐥳𐹶4\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐥳𐹶4>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'𐥳𐹶4\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ \[data\/IdnaTest\.txt\:4286\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟎。甯", %p)}, "0.xn--qny", "to_ascii\(\'𝟎\。甯\'\)\ \[data\/IdnaTest\.txt\:4288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0。甯", %p)}, "0.xn--qny", "to_ascii\(\'0\。甯\'\)\ \[data\/IdnaTest\.txt\:4289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.xn--qny", %p)}, "0.xn--qny", "to_ascii\(\'0\.xn\-\-qny\'\)\ \[data\/IdnaTest\.txt\:4290\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.甯", %p)}, "0.xn--qny", "to_ascii\(\'0\.甯\'\)\ \[data\/IdnaTest\.txt\:4291\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A953}", %p)}, undef, "to_ascii\(\'\-⾆.\\uA953\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4292\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A953}", %p)}, undef, "to_ascii\(\'\-舌\.\\uA953\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4293\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-。\x{06BB}", %p)}, undef, "to_ascii\(\'\-。\\u06BB\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{06BB}", %p)}, undef, "to_ascii\(\'\-\。\\u06BB\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⧴Ⴋ.≮", %p)}, undef, "to_ascii\(\'\⧴Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⧴Ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'\⧴Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4297\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⧴ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'\⧴ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⧴ⴋ.≮", %p)}, undef, "to_ascii\(\'\⧴ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}\x{0345}", %p)}, undef, "to_ascii\(\'璼\󠋇。\\u200C\\u0345\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}\x{0345}", %p)}, undef, "to_ascii\(\'璼\󠋇\。\\u200C\\u0345\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4302\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}Ι", %p)}, undef, "to_ascii\(\'璼\󠋇\。\\u200CΙ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}ι", %p)}, undef, "to_ascii\(\'璼\󠋇\。\\u200Cι\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}Ι", %p)}, undef, "to_ascii\(\'璼\󠋇。\\u200CΙ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4308\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}ι", %p)}, undef, "to_ascii\(\'璼\󠋇。\\u200Cι\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4310\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹥8󶁡。-5\x{030A}", %p)}, undef, "to_ascii\(\'𐹥8󶁡。\-5\\u030A\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹥8󶁡。-5\x{030A}", %p)}, undef, "to_ascii\(\'𐹥8󶁡\。\-5\\u030A\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4313\]") 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\:4314\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--pc9a", "to_ascii\(\'\\u200D튛\.ꡐ\'\)\ \[data\/IdnaTest\.txt\:4316\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--pc9a", "to_ascii\(\'\\u200D튛\.ꡐ\'\)\ \[data\/IdnaTest\.txt\:4318\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--pc9a", %p)}, "xn--157b.xn--pc9a", "to_ascii\(\'xn\-\-157b\.xn\-\-pc9a\'\)\ \[data\/IdnaTest\.txt\:4320\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--pc9a", "to_ascii\(\'튛\.ꡐ\'\)\ \[data\/IdnaTest\.txt\:4321\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--pc9a", "to_ascii\(\'튛\.ꡐ\'\)\ \[data\/IdnaTest\.txt\:4322\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ꡀ𐹥𞯍.ᡟⴞ", %p)}, undef, "to_ascii\(\'ꡀ𐹥𞯍\.ᡟⴞ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡀ𐹥𞯍.ᡟႾ", %p)}, undef, "to_ascii\(\'ꡀ𐹥𞯍\.ᡟႾ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹰𐹦\x{2DE7}𝟧.\x{0662}\x{0663}Ⴇ", %p)}, undef, "to_ascii\(\'𞹰𐹦\\u2DE7𝟧.\\u0662\\u0663Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}𐹦\x{2DE7}5.\x{0662}\x{0663}Ⴇ", %p)}, undef, "to_ascii\(\'\\u0641𐹦\\u2DE75\.\\u0662\\u0663Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4326\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0641}𐹦\x{2DE7}5.\x{0662}\x{0663}ⴇ", %p)}, undef, "to_ascii\(\'\\u0641𐹦\\u2DE75\.\\u0662\\u0663ⴇ\'\)\ throws\ error\ B4\ B1\ \[data\/IdnaTest\.txt\:4327\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𞹰𐹦\x{2DE7}𝟧.\x{0662}\x{0663}ⴇ", %p)}, undef, "to_ascii\(\'𞹰𐹦\\u2DE7𝟧.\\u0662\\u0663ⴇ\'\)\ throws\ error\ B4\ B1\ \[data\/IdnaTest\.txt\:4328\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_ascii\(\'Ⴗ.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_ascii\(\'Ⴗ\.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_ascii\(\'ⴗ\.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4331\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_ascii\(\'ⴗ.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟾򱚉.򱗯𐹮", %p)}, undef, "to_ascii\(\'𝟾򱚉.򱗯𐹮\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8򱚉.򱗯𐹮", %p)}, undef, "to_ascii\(\'8򱚉\.򱗯𐹮\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4334\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈酫︒。𝨂", %p)}, undef, "to_ascii\(\'⒈酫︒\。𝨂\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4335\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("1.酫。。𝨂", %p)}, undef, "to_ascii\(\'1\.酫\。\。𝨂\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:4336\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝩑\x{200C}≮𝩆.\x{200C}𑄴", %p)}, undef, "to_ascii\(\'𝩑\\u200C\≮𝩆\.\\u200C𑄴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4337\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩑\x{200C}<\x{0338}𝩆.\x{200C}𑄴", %p)}, undef, "to_ascii\(\'𝩑\\u200C\<\\u0338𝩆\.\\u200C𑄴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。ႷႽ¹\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。ႷႽ¹\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。ႷႽ1\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。ႷႽ1\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。ⴗⴝ1\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。Ⴗⴝ1\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。Ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4347\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。ⴗⴝ¹\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4349\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。Ⴗⴝ¹\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。Ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4351\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{1734}\x{1BF2}2.𐩬󠆅-", %p)}, undef, "to_ascii\(\'\\u1734\\u1BF22\.𐩬\󠆅\-\'\)\ throws\ error\ V5\ V3\ B3\ \[data\/IdnaTest\.txt\:4353\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠭮򔘮\x{0663}。𼈛𑄳\x{07D1}ꡠ", %p)}, undef, "to_ascii\(\'\󠭮򔘮\\u0663。𼈛𑄳\\u07D1ꡠ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:4354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠭮򔘮\x{0663}。𼈛𑄳\x{07D1}ꡠ", %p)}, undef, "to_ascii\(\'\󠭮򔘮\\u0663\。𼈛𑄳\\u07D1ꡠ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:4355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。ςᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41。ςᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。ςᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41\。ςᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。Σᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41\。Σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。σᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41\。σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4362\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。Σᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41。Σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。σᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41。σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}--≮。𐹯", %p)}, undef, "to_ascii\(\'\\u200D\-\-\≮\。𐹯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}--<\x{0338}。𐹯", %p)}, undef, "to_ascii\(\'\\u200D\-\-\<\\u0338\。𐹯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑓂。𶕹\x{FE2E}⒕", %p)}, undef, "to_ascii\(\'𑓂\。𶕹\\uFE2E⒕\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑓂。𶕹\x{FE2E}14.", %p)}, undef, "to_ascii\(\'𑓂\。𶕹\\uFE2E14\.\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򍑒\x{0765}.\x{1AB3}\x{0666}", %p)}, undef, "to_ascii\(\'򍑒\\u0765.\\u1AB3\\u0666\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򍑒\x{0765}.\x{1AB3}\x{0666}", %p)}, undef, "to_ascii\(\'򍑒\\u0765\.\\u1AB3\\u0666\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4375\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠅆𐮅-。ᢉ", %p)}, undef, "to_ascii\(\'\󠅆𐮅\-\。ᢉ\'\)\ throws\ error\ V3\ B3\ \[data\/IdnaTest\.txt\:4376\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟠4󠅊⥄.\x{200D}𐋵\x{06E0}\x{200D}", %p)}, "xn--84-utz.xn--wlb9710k", "to_ascii\(\'𝟠4\󠅊\⥄.\\u200D𐋵\\u06E0\\u200D\'\)\ \[data\/IdnaTest\.txt\:4377\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("84󠅊⥄.\x{200D}𐋵\x{06E0}\x{200D}", %p)}, "xn--84-utz.xn--wlb9710k", "to_ascii\(\'84\󠅊\⥄\.\\u200D𐋵\\u06E0\\u200D\'\)\ \[data\/IdnaTest\.txt\:4379\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--84-utz.xn--wlb9710k", %p)}, "xn--84-utz.xn--wlb9710k", "to_ascii\(\'xn\-\-84\-utz\.xn\-\-wlb9710k\'\)\ \[data\/IdnaTest\.txt\:4381\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("84⥄.𐋵\x{06E0}", %p)}, "xn--84-utz.xn--wlb9710k", "to_ascii\(\'84\⥄\.𐋵\\u06E0\'\)\ \[data\/IdnaTest\.txt\:4382\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{0660}。𐮁", %p)}, undef, "to_ascii\(\'\-\\u0660。𐮁\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4383\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{0660}。𐮁", %p)}, undef, "to_ascii\(\'\-\\u0660\。𐮁\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4384\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮𝟕.謖ß≯", %p)}, undef, "to_ascii\(\'\≮𝟕.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4385\]") 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\:4386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮7.謖ß≯", %p)}, undef, "to_ascii\(\'\≮7\.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}7.謖ß>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}7.謖SS>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮7.謖SS≯", %p)}, undef, "to_ascii\(\'\≮7\.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮7.謖ss≯", %p)}, undef, "to_ascii\(\'\≮7\.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}7.謖ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}7.謖Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮7.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮7\.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4394\]") 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\:4395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟕.謖SS≯", %p)}, undef, "to_ascii\(\'\≮𝟕.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟕.謖ss≯", %p)}, undef, "to_ascii\(\'\≮𝟕.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4397\]") 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\:4398\]") 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\:4399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟕.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮𝟕.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4400\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶Ⴉ𐣶.\x{FE0F}\x{1BA2}🞚-", %p)}, undef, "to_ascii\(\'朶Ⴉ𐣶\.\\uFE0F\\u1BA2🞚\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶ⴉ𐣶.\x{FE0F}\x{1BA2}🞚-", %p)}, undef, "to_ascii\(\'朶ⴉ𐣶\.\\uFE0F\\u1BA2🞚\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4402\]") 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\:4403\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞶐。󪅒\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'𞶐\。󪅒\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򨰆⒈。\x{200C}𝟤", %p)}, undef, "to_ascii\(\'򨰆⒈。\\u200C𝟤\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򨰆1.。\x{200C}2", %p)}, undef, "to_ascii\(\'򨰆1\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠚄\x{0661}\x{200D}.𐹦񭳐\x{0604}", %p)}, undef, "to_ascii\(\'\󠚄\\u0661\\u200D.𐹦񭳐\\u0604\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠚄\x{0661}\x{200D}.𐹦񭳐\x{0604}", %p)}, undef, "to_ascii\(\'\󠚄\\u0661\\u200D\.𐹦񭳐\\u0604\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0760}\x{0662}\x{0A4D}𐪑.\x{094D}󠆠󨚹", %p)}, undef, "to_ascii\(\'\\u0760\\u0662\\u0A4D𐪑.\\u094D\󠆠󨚹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0760}\x{0662}\x{0A4D}𐪑.\x{094D}󠆠󨚹", %p)}, undef, "to_ascii\(\'\\u0760\\u0662\\u0A4D𐪑\.\\u094D\󠆠󨚹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0669}。𐹥\x{0662}񔂚", %p)}, undef, "to_ascii\(\'\\u0669。𐹥\\u0662񔂚\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0669}。𐹥\x{0662}񔂚", %p)}, undef, "to_ascii\(\'\\u0669\。𐹥\\u0662񔂚\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}󠊾.8󃜔\x{06FA}", %p)}, undef, "to_ascii\(\'\\u1160\󠊾\.8󃜔\\u06FA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4419\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。ß\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37。ß\\uA671\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4420\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。ß\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37\。ß\\uA671\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4422\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。SS\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37\。SS\\uA671\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4424\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。ss\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37\。ss\\uA671\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4426\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。Ss\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37\。Ss\\uA671\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4428\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。SS\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37。SS\\uA671\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4430\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。ss\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37。ss\\uA671\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4432\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。Ss\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37。Ss\\uA671\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4434\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒\x{200C}ヶ䒩.\x{076A}", %p)}, undef, "to_ascii\(\'︒\\u200Cヶ䒩\.\\u076A\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4436\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{076A}", %p)}, "xn--qekw60d.xn--upb", "to_ascii\(\'\。\\u200Cヶ䒩\.\\u076A\'\)\ \[data\/IdnaTest\.txt\:4438\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--qekw60d.xn--upb", %p)}, "xn--qekw60d.xn--upb", "to_ascii\(\'xn\-\-qekw60d\.xn\-\-upb\'\)\ \[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{076A}", %p)}, "xn--qekw60d.xn--upb", "to_ascii\(\'ヶ䒩\.\\u076A\'\)\ \[data\/IdnaTest\.txt\:4441\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}⒈󣡃.񈸴\x{A9C0}", %p)}, undef, "to_ascii\(\'\\u200C⒈󣡃\.񈸴\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}1.󣡃.񈸴\x{A9C0}", %p)}, undef, "to_ascii\(\'\\u200C1\.󣡃\.񈸴\\uA9C0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{200C}ᢍ🃑。\x{0CCD}򏔌\x{200D}", %p)}, undef, "to_ascii\(\'⒈\\u200Cᢍ🃑\。\\u0CCD򏔌\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{200C}ᢍ🃑。\x{0CCD}򏔌\x{200D}", %p)}, undef, "to_ascii\(\'1\.\\u200Cᢍ🃑\。\\u0CCD򏔌\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035E}。𝟫\x{1B72}䬺⒈", %p)}, undef, "to_ascii\(\'\\u035E。𝟫\\u1B72䬺⒈\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4450\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{035E}。9\x{1B72}䬺1.", %p)}, undef, "to_ascii\(\'\\u035E\。9\\u1B72䬺1\.\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4451\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𲈷≯。盚ꡨ", %p)}, undef, "to_ascii\(\'𲈷\≯\。盚ꡨ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲈷>\x{0338}。盚ꡨ", %p)}, undef, "to_ascii\(\'𲈷\>\\u0338\。盚ꡨ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񃟯󠄯。-𑚲𐫳≯", %p)}, undef, "to_ascii\(\'\-񃟯\󠄯\。\-𑚲𐫳\≯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񃟯󠄯。-𑚲𐫳>\x{0338}", %p)}, undef, "to_ascii\(\'\-񃟯\󠄯\。\-𑚲𐫳\>\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󲓝\x{1BF3}\x{200C}\x{09CD}.\x{FD59}񄳨", %p)}, undef, "to_ascii\(\'󲓝\\u1BF3\\u200C\\u09CD.\\uFD59񄳨\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󲓝\x{1BF3}\x{200C}\x{09CD}.\x{062C}\x{0645}\x{062D}񄳨", %p)}, undef, "to_ascii\(\'󲓝\\u1BF3\\u200C\\u09CD\.\\u062C\\u0645\\u062D񄳨\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4457\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("⾇.𐫍ᢊᢐ\x{200D}", %p)}, undef, "to_ascii\(\'⾇\.𐫍ᢊᢐ\\u200D\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4458\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("舛.𐫍ᢊᢐ\x{200D}", %p)}, undef, "to_ascii\(\'舛\.𐫍ᢊᢐ\\u200D\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4460\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("4񠡉。ᡔ≯", %p)}, undef, "to_ascii\(\'4񠡉\。ᡔ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4񠡉。ᡔ>\x{0338}", %p)}, undef, "to_ascii\(\'4񠡉\。ᡔ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕔢\x{0625}򃁪硲.\x{0688}", %p)}, undef, "to_ascii\(\'󕔢\\u0625򃁪硲.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕔢\x{0627}\x{0655}򃁪硲.\x{0688}", %p)}, undef, "to_ascii\(\'󕔢\\u0627\\u0655򃁪硲.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕔢\x{0625}򃁪硲.\x{0688}", %p)}, undef, "to_ascii\(\'󕔢\\u0625򃁪硲\.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕔢\x{0627}\x{0655}򃁪硲.\x{0688}", %p)}, undef, "to_ascii\(\'󕔢\\u0627\\u0655򃁪硲\.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{1A78}𐹴Ⴆ\x{032C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\u1A78𐹴Ⴆ\\u032C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4468\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{1A78}𐹴ⴆ\x{032C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\u1A78𐹴ⴆ\\u032C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4470\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫁.\x{0C4D}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'𐫁.\\u0C4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4472\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫁.\x{0C4D}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'𐫁\.\\u0C4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4473\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫁.\x{0C4D}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'𐫁\.\\u0C4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4474\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫁.\x{0C4D}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'𐫁.\\u0C4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4475\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{FD8E}𑁆。\x{0724}ꡜ-腍", %p)}, undef, "to_ascii\(\'\\u200C\\uFD8E𑁆\。\\u0724ꡜ\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4476\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0645}\x{062E}\x{062C}𑁆。\x{0724}ꡜ-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u0645\\u062E\\u062C𑁆\。\\u0724ꡜ\-腍\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:4478\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-򤨓𐹮󰫾。𝟛񔡰🄅", %p)}, undef, "to_ascii\(\'\-򤨓𐹮󰫾。𝟛񔡰🄅\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-򤨓𐹮󰫾。3񔡰4,", %p)}, undef, "to_ascii\(\'\-򤨓𐹮󰫾\。3񔡰4\,\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4481\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⌮.Ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_ascii\(\'\⌮.Ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⌮.Ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_ascii\(\'\⌮\.Ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4483\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("⌮.ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_ascii\(\'\⌮\.ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4484\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("⌮.ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_ascii\(\'\⌮.ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4485\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("軥𐫬.-\x{0AC4}", %p)}, undef, "to_ascii\(\'軥𐫬\.\-\\u0AC4\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4486\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0602}ᡈ\x{06B6}.󠅕-", %p)}, undef, "to_ascii\(\'\\u0602ᡈ\\u06B6\.\󠅕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4487\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{2DE5}\x{1939}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0。\\u2DE5\\u1939톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4488\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4489\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4490\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0\。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4491\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0\。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4492\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᢖ︒--。󠅥靈\x{0604}𖪥", %p)}, undef, "to_ascii\(\'ᢖ︒\-\-。\󠅥靈\\u0604𖪥\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢖ。--。󠅥靈\x{0604}𖪥", %p)}, undef, "to_ascii\(\'ᢖ\。\-\-\。\󠅥靈\\u0604𖪥\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄃𐹣.𐹦\x{0AE2}", %p)}, undef, "to_ascii\(\'🄃𐹣\.𐹦\\u0AE2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2,𐹣.𐹦\x{0AE2}", %p)}, undef, "to_ascii\(\'2\,𐹣\.𐹦\\u0AE2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑴤\x{200C}𞶿.\x{069F}ꡃ𑋪", %p)}, undef, "to_ascii\(\'𑴤\\u200C𞶿.\\u069Fꡃ𑋪\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑴤\x{200C}𞶿.\x{069F}ꡃ𑋪", %p)}, undef, "to_ascii\(\'𑴤\\u200C𞶿\.\\u069Fꡃ𑋪\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4505\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}𐿵\x{200C}。\x{06CD}\x{0A3C}\x{17B5}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D𐿵\\u200C\。\\u06CD\\u0A3C\\u17B5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐢒。󠋴𓟷\x{0BCD}", %p)}, undef, "to_ascii\(\'𐢒\。\󠋴𓟷\\u0BCD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}≠.𞷺𐹶", %p)}, undef, "to_ascii\(\'\\u0B4D\≠.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}=\x{0338}.𞷺𐹶", %p)}, undef, "to_ascii\(\'\\u0B4D\=\\u0338.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}≠.𞷺𐹶", %p)}, undef, "to_ascii\(\'\\u0B4D\≠\.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}=\x{0338}.𞷺𐹶", %p)}, undef, "to_ascii\(\'\\u0B4D\=\\u0338\.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛\x{0F87}\x{1714}。\x{0B82}-", %p)}, undef, "to_ascii\(\'𝟛\\u0F87\\u1714。\\u0B82\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛\x{1714}\x{0F87}。\x{0B82}-", %p)}, undef, "to_ascii\(\'𝟛\\u1714\\u0F87。\\u0B82\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{1714}\x{0F87}。\x{0B82}-", %p)}, undef, "to_ascii\(\'3\\u1714\\u0F87\。\\u0B82\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠫ𝪦𑍍Ⴇ.4", %p)}, undef, "to_ascii\(\'ᠫ𝪦𑍍Ⴇ\.4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4517\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᠫ𝪦𑍍ⴇ.4", %p)}, "xn--e7e497h3m2olwqg.4", "to_ascii\(\'ᠫ𝪦𑍍ⴇ\.4\'\)\ \[data\/IdnaTest\.txt\:4518\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--e7e497h3m2olwqg.4", %p)}, "xn--e7e497h3m2olwqg.4", "to_ascii\(\'xn\-\-e7e497h3m2olwqg\.4\'\)\ \[data\/IdnaTest\.txt\:4519\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᄹ。󠇣󖮆‴", %p)}, undef, "to_ascii\(\'ᄹ。\󠇣󖮆\‴\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᄹ。󠇣󖮆′′′", %p)}, undef, "to_ascii\(\'ᄹ\。\󠇣󖮆\′\′\′\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ򏌭.\x{302C}\x{2DF2}\x{068D}", %p)}, undef, "to_ascii\(\'Ⴆ򏌭.\\u302C\\u2DF2\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_ascii\(\'Ⴆ򏌭.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_ascii\(\'Ⴆ򏌭\.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_ascii\(\'ⴆ򏌭\.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_ascii\(\'ⴆ򏌭.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ򏌭.\x{302C}\x{2DF2}\x{068D}", %p)}, undef, "to_ascii\(\'ⴆ򏌭.\\u302C\\u2DF2\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'ß𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'ß𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß𐥙。𐫃.帼f🠖\x{200C}", %p)}, undef, "to_ascii\(\'ß𐥙\。𐫃\.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'SS𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4534\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss𐥙。𐫃.帼f🠖\x{200C}", %p)}, undef, "to_ascii\(\'ss𐥙\。𐫃\.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'Ss𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß𐥙︒𐫃.帼f🠖\x{200C}", %p)}, undef, "to_ascii\(\'ß𐥙︒𐫃.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'SS𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss𐥙︒𐫃.帼f🠖\x{200C}", %p)}, undef, "to_ascii\(\'ss𐥙︒𐫃.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'Ss𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򽌣。𐹾\x{06A6}\x{200D}", %p)}, undef, "to_ascii\(\'򽌣。𐹾\\u06A6\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򽌣。𐹾\x{06A6}\x{200D}", %p)}, undef, "to_ascii\(\'򽌣\。𐹾\\u06A6\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🡉.񾕀𝟨𐨿", %p)}, undef, "to_ascii\(\'🡉\.񾕀𝟨𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🡉.񾕀6𐨿", %p)}, undef, "to_ascii\(\'🡉\.񾕀6𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0350}𐸌。-۹ႱႨ", %p)}, undef, "to_ascii\(\'\\u0350𐸌\。\-۹ႱႨ\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0350}𐸌。-۹ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u0350𐸌\。\-۹ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0350}𐸌。-۹Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u0350𐸌\。\-۹Ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CE}.-ᢏ︒", %p)}, undef, "to_ascii\(\'\\u07CE.\-ᢏ︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4557\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07CE}.-ᢏ。", %p)}, undef, "to_ascii\(\'\\u07CE\.\-ᢏ\。\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4558\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}𐪙.󠆺--", %p)}, undef, "to_ascii\(\'\\u200C𐪙\.\󠆺\-\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4559\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐋸󃄒Ⴢ.Ⴁ", %p)}, undef, "to_ascii\(\'𐋸󃄒Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋸󃄒ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'𐋸󃄒ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4562\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋸󃄒Ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'𐋸󃄒Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆₄򣚆。󾎹🐶ς", %p)}, undef, "to_ascii\(\'􉿵𑁆₄򣚆。󾎹🐶ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆4򣚆。󾎹🐶ς", %p)}, undef, "to_ascii\(\'􉿵𑁆4򣚆\。󾎹🐶ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆4򣚆。󾎹🐶Σ", %p)}, undef, "to_ascii\(\'􉿵𑁆4򣚆\。󾎹🐶Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆4򣚆。󾎹🐶σ", %p)}, undef, "to_ascii\(\'􉿵𑁆4򣚆\。󾎹🐶σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆₄򣚆。󾎹🐶Σ", %p)}, undef, "to_ascii\(\'􉿵𑁆₄򣚆。󾎹🐶Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆₄򣚆。󾎹🐶σ", %p)}, undef, "to_ascii\(\'􉿵𑁆₄򣚆。󾎹🐶σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4569\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0E39}\x{07CC}。\x{1037}ꡓ", %p)}, undef, "to_ascii\(\'\\u0E39\\u07CC\。\\u1037ꡓ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4570\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0603}\x{062B}𑂁。󦳹Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\u0603\\u062B𑂁。󦳹Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{062B}𑂁。󦳹Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\u0603\\u062B𑂁\。󦳹Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{062B}𑂁。󦳹ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\u0603\\u062B𑂁\。󦳹ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4575\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{062B}𑂁。󦳹ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\u0603\\u062B𑂁。󦳹ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4577\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0ACD}\x{FC5A}𑀾\x{200D}。-𐹥", %p)}, undef, "to_ascii\(\'\\u0ACD\\uFC5A𑀾\\u200D。\-𐹥\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4579\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0ACD}\x{064A}\x{064A}𑀾\x{200D}。-𐹥", %p)}, undef, "to_ascii\(\'\\u0ACD\\u064A\\u064A𑀾\\u200D\。\-𐹥\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4581\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񆥔。\x{0855}︒쯙𝟧", %p)}, undef, "to_ascii\(\'񆥔。\\u0855︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆥔。\x{0855}︒쯙𝟧", %p)}, undef, "to_ascii\(\'񆥔。\\u0855︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆥔。\x{0855}。쯙5", %p)}, undef, "to_ascii\(\'񆥔\。\\u0855\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆥔。\x{0855}。쯙5", %p)}, undef, "to_ascii\(\'񆥔\。\\u0855\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4586\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡮ-。ᡴ≮뻐", %p)}, undef, "to_ascii\(\'ꡮ\-\。ᡴ\≮뻐\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4587\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡮ-。ᡴ<\x{0338}뻐", %p)}, undef, "to_ascii\(\'ꡮ\-\。ᡴ\<\\u0338뻐\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱙-񈞻.\x{07E1}≠", %p)}, undef, "to_ascii\(\'𐱙\-񈞻.\\u07E1\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱙-񈞻.\x{07E1}=\x{0338}", %p)}, undef, "to_ascii\(\'𐱙\-񈞻.\\u07E1\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4590\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱙-񈞻.\x{07E1}≠", %p)}, undef, "to_ascii\(\'𐱙\-񈞻\.\\u07E1\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4591\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱙-񈞻.\x{07E1}=\x{0338}", %p)}, undef, "to_ascii\(\'𐱙\-񈞻\.\\u07E1\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ςႼ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ςႼ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ςႼ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ςႼ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ςⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ςⴜ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ΣႼ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ΣႼ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵σⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵σⴜ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵Σⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵Σⴜ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ςⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ςⴜ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ΣႼ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ΣႼ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵σⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵σⴜ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵Σⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵Σⴜ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠠍.\x{200D}𝟮\x{0F86}", %p)}, undef, "to_ascii\(\'\󠠍\.\\u200D𝟮\\u0F86\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠠍.\x{200D}2\x{0F86}", %p)}, undef, "to_ascii\(\'\󠠍\.\\u200D2\\u0F86\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯𝟖。\x{0D4D}𐮊򔦳", %p)}, undef, "to_ascii\(\'\≯𝟖。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}𝟖。\x{0D4D}𐮊򔦳", %p)}, undef, "to_ascii\(\'\>\\u0338𝟖。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯8。\x{0D4D}𐮊򔦳", %p)}, undef, "to_ascii\(\'\≯8\。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}8。\x{0D4D}𐮊򔦳", %p)}, undef, "to_ascii\(\'\>\\u03388\。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C2}Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05C2Ↄ\\u0664。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C2}Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05C2Ↄ\\u0664\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4613\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05C2}ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05C2ↄ\\u0664\。\\u200C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4615\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05C2}ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05C2ↄ\\u0664。\\u200C\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4617\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0962}𝟵\x{200D}𞺻.\x{200D}\x{06AA}⒈", %p)}, undef, "to_ascii\(\'\\u0962𝟵\\u200D𞺻\.\\u200D\\u06AA⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0962}9\x{200D}\x{063A}.\x{200D}\x{06AA}1.", %p)}, undef, "to_ascii\(\'\\u09629\\u200D\\u063A\.\\u200D\\u06AA1\.\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4621\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿。嬶ß葽", %p)}, undef, "to_ascii\(\'𑖿\。嬶ß葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4623\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿。嬶SS葽", %p)}, undef, "to_ascii\(\'𑖿\。嬶SS葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4624\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿。嬶ss葽", %p)}, undef, "to_ascii\(\'𑖿\。嬶ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4625\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿。嬶Ss葽", %p)}, undef, "to_ascii\(\'𑖿\。嬶Ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4626\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑇀⒈。񔾭𐹲", %p)}, undef, "to_ascii\(\'𑇀⒈\。񔾭𐹲\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑇀1.。񔾭𐹲", %p)}, undef, "to_ascii\(\'𑇀1\.\。񔾭𐹲\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀︒≮.𺅧𐧅\x{06B7}", %p)}, undef, "to_ascii\(\'𑍀︒\≮.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀︒<\x{0338}.𺅧𐧅\x{06B7}", %p)}, undef, "to_ascii\(\'𑍀︒\<\\u0338.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀。≮.𺅧𐧅\x{06B7}", %p)}, undef, "to_ascii\(\'𑍀\。\≮\.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀。<\x{0338}.𺅧𐧅\x{06B7}", %p)}, undef, "to_ascii\(\'𑍀\。\<\\u0338\.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀳𐹫򇬇.󠐊ς𸰟񧋭", %p)}, undef, "to_ascii\(\'\󠀳𐹫򇬇\.\󠐊ς𸰟񧋭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀳𐹫򇬇.󠐊Σ𸰟񧋭", %p)}, undef, "to_ascii\(\'\󠀳𐹫򇬇\.\󠐊Σ𸰟񧋭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀳𐹫򇬇.󠐊σ𸰟񧋭", %p)}, undef, "to_ascii\(\'\󠀳𐹫򇬇\.\󠐊σ𸰟񧋭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'ς\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'ς\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'Σ\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'σ\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'Σ\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'σ\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𱤫。-\x{05F3}𐫯", %p)}, undef, "to_ascii\(\'\-𱤫。\-\\u05F3𐫯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𱤫。-\x{05F3}𐫯", %p)}, undef, "to_ascii\(\'\-𱤫\。\-\\u05F3𐫯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("◗󥆅𝟤。\x{200D}󠍭", %p)}, undef, "to_ascii\(\'\◗󥆅𝟤。\\u200D\󠍭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("◗󥆅2。\x{200D}󠍭", %p)}, undef, "to_ascii\(\'\◗󥆅2\。\\u200D\󠍭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CF8}\x{200D}𑚴\x{0605}。񦯈", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D𑚴\\u0605。񦯈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CF8}\x{200D}𑚴\x{0605}。񦯈", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D𑚴\\u0605\。񦯈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4656\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{066B}.Ⴍ₉⁸", %p)}, undef, "to_ascii\(\'\\u066B.Ⴍ₉⁸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{066B}.Ⴍ98", %p)}, undef, "to_ascii\(\'\\u066B\.Ⴍ98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4659\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{066B}.ⴍ98", %p)}, undef, "to_ascii\(\'\\u066B\.ⴍ98\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4660\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{066B}.ⴍ₉⁸", %p)}, undef, "to_ascii\(\'\\u066B.ⴍ₉⁸\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4661\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ß\x{0600}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。ß\\u0600⒚\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4662\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ß\x{0600}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。ß\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4664\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ß\x{0600}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。ß\\u060019\.\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:4666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ß\x{0600}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。ß\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:4668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。SS\x{0600}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。SS\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:4670\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。SS\x{0600}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。SS\\u060019\.\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:4672\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ss\x{0600}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。ss\\u060019\.\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:4674\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ss\x{0600}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。ss\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:4676\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。Ss\x{0600}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。Ss\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:4678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。Ss\x{0600}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。Ss\\u060019\.\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:4680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。SS\x{0600}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。SS\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。SS\x{0600}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。SS\\u0600⒚\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ss\x{0600}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。ss\\u0600⒚\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ss\x{0600}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。ss\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。Ss\x{0600}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。Ss\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。Ss\x{0600}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。Ss\\u0600⒚\≯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}𐱧𐮆.󽎐", %p)}, undef, "to_ascii\(\'\\u200C𐱧𐮆.󽎐\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}𐱧𐮆.󽎐", %p)}, undef, "to_ascii\(\'\\u200C𐱧𐮆\.󽎐\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫫󎹀-񆊤。󠧥Ⴛ𐼚𖫲", %p)}, undef, "to_ascii\(\'𐫫󎹀\-񆊤\。\󠧥Ⴛ𐼚𖫲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫫󎹀-񆊤。󠧥ⴛ𐼚𖫲", %p)}, undef, "to_ascii\(\'𐫫󎹀\-񆊤\。\󠧥ⴛ𐼚𖫲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE09}。󠎠\x{1BE6}", %p)}, undef, "to_ascii\(\'\\uFE09\。\󠎠\\u1BE6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛ᡤ.Ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_ascii\(\'⾛ᡤ\.Ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走ᡤ.Ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_ascii\(\'走ᡤ\.Ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走ᡤ.ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_ascii\(\'走ᡤ\.ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛ᡤ.ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_ascii\(\'⾛ᡤ\.ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᡱ\x{200C}🄄.\x{AA2E}", %p)}, undef, "to_ascii\(\'\-ᡱ\\u200C🄄\.\\uAA2E\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᡱ\x{200C}3,.\x{AA2E}", %p)}, undef, "to_ascii\(\'\-ᡱ\\u200C3\,\.\\uAA2E\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{FEB2}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_ascii\(\'\≠\\uFEB2󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{FEB2}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_ascii\(\'\=\\u0338\\uFEB2󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{0633}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_ascii\(\'\≠\\u0633󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{0633}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_ascii\(\'\=\\u0338\\u0633󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{0633}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_ascii\(\'\=\\u0338\\u0633󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{0633}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_ascii\(\'\≠\\u0633󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{FEB2}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_ascii\(\'\=\\u0338\\uFEB2󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{FEB2}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_ascii\(\'\≠\\uFEB2󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4727\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐹴。\x{1DE3}\x{08EF}", %p)}, undef, "to_ascii\(\'𐹴。\\u1DE3\\u08EF\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4729\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐹴。\x{08EF}\x{1DE3}", %p)}, undef, "to_ascii\(\'𐹴。\\u08EF\\u1DE3\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4730\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐹴。\x{08EF}\x{1DE3}", %p)}, undef, "to_ascii\(\'𐹴\。\\u08EF\\u1DE3\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4731\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑘴\x{087A}≯⒍。-", %p)}, undef, "to_ascii\(\'𑘴\\u087A\≯⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑘴\x{087A}>\x{0338}⒍。-", %p)}, undef, "to_ascii\(\'𑘴\\u087A\>\\u0338⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑘴\x{087A}≯6.。-", %p)}, undef, "to_ascii\(\'𑘴\\u087A\≯6\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑘴\x{087A}>\x{0338}6.。-", %p)}, undef, "to_ascii\(\'𑘴\\u087A\>\\u03386\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4735\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4736\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4737\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1BF3}。⒈-򻯝", %p)}, undef, "to_ascii\(\'\\u200C\\u1BF3\。⒈\-򻯝\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1BF3}。1.-򻯝", %p)}, undef, "to_ascii\(\'\\u200C\\u1BF3\。1\.\-򻯝\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:4740\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈𞬳\x{200C}。𝩃⓮\x{200C}\x{0323}", %p)}, undef, "to_ascii\(\'⒈𞬳\\u200C\。𝩃⓮\\u200C\\u0323\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4742\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.𞬳\x{200C}。𝩃⓮\x{200C}\x{0323}", %p)}, undef, "to_ascii\(\'1\.𞬳\\u200C\。𝩃⓮\\u200C\\u0323\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4744\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛐙。𝟐\x{081E}\x{0753}", %p)}, undef, "to_ascii\(\'򛐙。𝟐\\u081E\\u0753\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛐙。2\x{081E}\x{0753}", %p)}, undef, "to_ascii\(\'򛐙\。2\\u081E\\u0753\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB68}򇫀.ς\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\uFB68򇫀\.ς\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0679}򇫀.ς\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\u0679򇫀\.ς\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4750\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0679}򇫀.Σ\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\u0679򇫀\.Σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4752\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0679}򇫀.σ\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\u0679򇫀\.σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB68}򇫀.Σ\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\uFB68򇫀\.Σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB68}򇫀.σ\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\uFB68򇫀\.σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:4758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒎\x{074E}𐹰。\x{17D2}۵𛲞", %p)}, undef, "to_ascii\(\'⒎\\u074E𐹰。\\u17D2۵𛲞\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4760\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("7.\x{074E}𐹰。\x{17D2}۵𛲞", %p)}, undef, "to_ascii\(\'7\.\\u074E𐹰\。\\u17D2۵𛲞\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4761\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{075E}᠆򒜝。𐹽\x{2DE4}\x{0600}", %p)}, undef, "to_ascii\(\'\-\\u075E᠆򒜝\。𐹽\\u2DE4\\u0600\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4762\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}.\x{08A1}𐹦𑒳", %p)}, "xn--qyb0415kj7d", "to_ascii\(\'\\u200D\.\\u08A1𐹦𑒳\'\)\ \[data\/IdnaTest\.txt\:4763\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--qyb0415kj7d", %p)}, "xn--qyb0415kj7d", "to_ascii\(\'xn\-\-qyb0415kj7d\'\)\ \[data\/IdnaTest\.txt\:4765\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{08A1}𐹦𑒳", %p)}, "xn--qyb0415kj7d", "to_ascii\(\'\\u08A1𐹦𑒳\'\)\ \[data\/IdnaTest\.txt\:4766\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("㒧۱.Ⴚꡤ\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.Ⴚꡤ\\u200D\'\)\ throws\ error\ P1\ V6\ \[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{200D}", %p)}, "xn--emb715u.xn--ilju850b", "to_ascii\(\'㒧۱\.ⴚꡤ\\u200D\'\)\ \[data\/IdnaTest\.txt\:4769\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--emb715u.xn--ilju850b", %p)}, "xn--emb715u.xn--ilju850b", "to_ascii\(\'xn\-\-emb715u\.xn\-\-ilju850b\'\)\ \[data\/IdnaTest\.txt\:4771\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--emb715u.xn--ilju850b", "to_ascii\(\'㒧۱\.ⴚꡤ\'\)\ \[data\/IdnaTest\.txt\:4772\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("㒧۱.Ⴚꡤ", %p)}, undef, "to_ascii\(\'㒧۱\.Ⴚꡤ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4773\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{1B37}ᠧ-.-\x{036B}", %p)}, undef, "to_ascii\(\'\\u1B37ᠧ\-.\-\\u036B\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4774\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{1B37}ᠧ-.-\x{036B}", %p)}, undef, "to_ascii\(\'\\u1B37ᠧ\-\.\-\\u036B\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4775\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򘤦-⑾\x{200C}.标-", %p)}, undef, "to_ascii\(\'򘤦\-⑾\\u200C.标\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4776\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򘤦-(11)\x{200C}.标-", %p)}, undef, "to_ascii\(\'򘤦\-\(11\)\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4778\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0757}.ς\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757.ς\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4780\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0757}.ς\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757\.ς\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4781\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0757}.Σ\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757\.Σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4782\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0757}.σ\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757\.σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4783\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0757}.Σ\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757.Σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4784\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0757}.σ\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757.σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4785\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𷎐𐹬.𞭁\x{200D}\x{1A60}񳌐", %p)}, undef, "to_ascii\(\'𷎐𐹬.𞭁\\u200D\\u1A60񳌐\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4786\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𷎐𐹬.𞭁\x{200D}\x{1A60}񳌐", %p)}, undef, "to_ascii\(\'𷎐𐹬\.𞭁\\u200D\\u1A60񳌐\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:4788\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹩𐋩\x{FBEF}。𑖿", %p)}, undef, "to_ascii\(\'𐹩𐋩\\uFBEF。𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4790\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹩𐋩\x{0626}\x{0648}。𑖿", %p)}, undef, "to_ascii\(\'𐹩𐋩\\u0626\\u0648\。𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4791\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹩𐋩\x{064A}\x{0654}\x{0648}。𑖿", %p)}, undef, "to_ascii\(\'𐹩𐋩\\u064A\\u0654\\u0648\。𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4792\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("6\x{1160}𝩦󠴳.󣞌锰\x{06EE}ς", %p)}, undef, "to_ascii\(\'6\\u1160𝩦\󠴳\.󣞌锰\\u06EEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6\x{1160}𝩦󠴳.󣞌锰\x{06EE}Σ", %p)}, undef, "to_ascii\(\'6\\u1160𝩦\󠴳\.󣞌锰\\u06EEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6\x{1160}𝩦󠴳.󣞌锰\x{06EE}σ", %p)}, undef, "to_ascii\(\'6\\u1160𝩦\󠴳\.󣞌锰\\u06EEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E0}\x{1DF1}𔡹𝟽。𐹥", %p)}, undef, "to_ascii\(\'\\u07E0\\u1DF1𔡹𝟽。𐹥\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E0}\x{1DF1}𔡹7。𐹥", %p)}, undef, "to_ascii\(\'\\u07E0\\u1DF1𔡹7\。𐹥\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FECB}.\x{200C}󠒫", %p)}, undef, "to_ascii\(\'\\uFECB.\\u200C\󠒫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0639}.\x{200C}󠒫", %p)}, undef, "to_ascii\(\'\\u0639\.\\u200C\󠒫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4800\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-򱉏.\x{1A66}𐫠-", %p)}, undef, "to_ascii\(\'\-򱉏\.\\u1A66𐫠\-\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4802\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜣\x{200D}𑋪.\x{200C}𝟩\x{066C}", %p)}, undef, "to_ascii\(\'🜣\\u200D𑋪.\\u200C𝟩\\u066C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4803\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜣\x{200D}𑋪.\x{200C}7\x{066C}", %p)}, undef, "to_ascii\(\'🜣\\u200D𑋪\.\\u200C7\\u066C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4805\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒𐬮𝩒\x{0759}。岓\x{103A}⩑\x{067D}", %p)}, undef, "to_ascii\(\'︒𐬮𝩒\\u0759\。岓\\u103A\⩑\\u067D\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4807\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("。𐬮𝩒\x{0759}。岓\x{103A}⩑\x{067D}", %p)}, undef, "to_ascii\(\'\。𐬮𝩒\\u0759\。岓\\u103A\⩑\\u067D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4808\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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{1BAA}", %p)}, undef, "to_ascii\(\'𐹵\。8\\u1BAA\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4809\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{A8E6}𝩢.\x{06CE}\x{05B1}𐹤\x{0944}", %p)}, undef, "to_ascii\(\'\\uA8E6𝩢.\\u06CE\\u05B1𐹤\\u0944\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4810\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{A8E6}𝩢.\x{06CE}\x{05B1}𐹤\x{0944}", %p)}, undef, "to_ascii\(\'\\uA8E6𝩢\.\\u06CE\\u05B1𐹤\\u0944\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4811\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򭮟𐿱\x{1753}。󠈱", %p)}, undef, "to_ascii\(\'򭮟𐿱\\u1753。\󠈱\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򭮟𐿱\x{1753}。󠈱", %p)}, undef, "to_ascii\(\'򭮟𐿱\\u1753\。\󠈱\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4813\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07EC}", %p)}, undef, "to_ascii\(\'ᠪ.\-\\u07EC\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4814\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07EC}", %p)}, undef, "to_ascii\(\'ᠪ\.\-\\u07EC\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4815\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󕜉󠉩。𐹰\x{FECD}\x{0A4D}", %p)}, undef, "to_ascii\(\'󕜉\󠉩。𐹰\\uFECD\\u0A4D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕜉󠉩。𐹰\x{063A}\x{0A4D}", %p)}, undef, "to_ascii\(\'󕜉\󠉩\。𐹰\\u063A\\u0A4D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴐ\x{0678}.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐ\\u0678.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴐ\x{064A}\x{0674}.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐ\\u064A\\u0674\.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4820\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴐ\x{064A}\x{0674}.\x{200C}", %p)}, undef, "to_ascii\(\'ⴐ\\u064A\\u0674\.\\u200C\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4822\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴐ\x{0678}.\x{200C}", %p)}, undef, "to_ascii\(\'ⴐ\\u0678.\\u200C\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4824\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🄅󠩺-⒈。\x{200D}ꡨ\x{06D0}", %p)}, undef, "to_ascii\(\'🄅\󠩺\-⒈\。\\u200Dꡨ\\u06D0\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4,󠩺-1.。\x{200D}ꡨ\x{06D0}", %p)}, undef, "to_ascii\(\'4\,\󠩺\-1\.\。\\u200Dꡨ\\u06D0\'\)\ throws\ error\ P1\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򀜧。\x{077B}񶺅", %p)}, undef, "to_ascii\(\'򀜧\。\\u077B񶺅\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4830\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑄰۲。𐫘𐹪\x{0F82}鄨", %p)}, undef, "to_ascii\(\'𑄰۲。𐫘𐹪\\u0F82鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4831\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑄰۲。𐫘𐹪\x{0F82}鄨", %p)}, undef, "to_ascii\(\'𑄰۲\。𐫘𐹪\\u0F82鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4832\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐿊-\x{074E}。𝩘\x{A9C0}-", %p)}, undef, "to_ascii\(\'𐿊\-\\u074E\。𝩘\\uA9C0\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪-󟲏󠉋.ß", %p)}, undef, "to_ascii\(\'𑋪\-󟲏\󠉋.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪-󟲏󠉋.ß", %p)}, undef, "to_ascii\(\'𑋪\-󟲏\󠉋\.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4835\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪-󟲏󠉋.SS", %p)}, undef, "to_ascii\(\'𑋪\-󟲏\󠉋\.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4836\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪-󟲏󠉋.SS", %p)}, undef, "to_ascii\(\'𑋪\-󟲏\󠉋.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4837\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD39}-\x{200C}。Ⴟ\x{200C}℣", %p)}, undef, "to_ascii\(\'\\uFD39\-\\u200C。Ⴟ\\u200C℣\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4838\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0634}\x{062E}-\x{200C}。Ⴟ\x{200C}℣", %p)}, undef, "to_ascii\(\'\\u0634\\u062E\-\\u200C\。Ⴟ\\u200C℣\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0634}\x{062E}-\x{200C}。ⴟ\x{200C}℣", %p)}, undef, "to_ascii\(\'\\u0634\\u062E\-\\u200C\。ⴟ\\u200C℣\'\)\ throws\ error\ V3\ B3\ \[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{FD39}-\x{200C}。ⴟ\x{200C}℣", %p)}, undef, "to_ascii\(\'\\uFD39\-\\u200C。ⴟ\\u200C℣\'\)\ throws\ error\ V3\ B3\ \[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑈵-\x{200D}\x{200C}。𹮼₅≠", %p)}, undef, "to_ascii\(\'𑈵\-\\u200D\\u200C。𹮼₅\≠\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4846\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵-\x{200D}\x{200C}。𹮼₅=\x{0338}", %p)}, undef, "to_ascii\(\'𑈵\-\\u200D\\u200C。𹮼₅\=\\u0338\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4848\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵-\x{200D}\x{200C}。𹮼5≠", %p)}, undef, "to_ascii\(\'𑈵\-\\u200D\\u200C\。𹮼5\≠\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵-\x{200D}\x{200C}。𹮼5=\x{0338}", %p)}, undef, "to_ascii\(\'𑈵\-\\u200D\\u200C\。𹮼5\=\\u0338\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:4852\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󶦄。𑘿󠍐󠩋", %p)}, undef, "to_ascii\(\'󶦄\。𑘿\󠍐\󠩋\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4854\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡗ󠿸.\x{07E8}\x{200D}\x{1CD1}", %p)}, undef, "to_ascii\(\'ᡗ\󠿸.\\u07E8\\u200D\\u1CD1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4855\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡗ󠿸.\x{07E8}\x{200D}\x{1CD1}", %p)}, undef, "to_ascii\(\'ᡗ\󠿸\.\\u07E8\\u200D\\u1CD1\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4857\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹪⁴Ⴅ.𐰁\x{200C}", %p)}, undef, "to_ascii\(\'𐹪⁴Ⴅ.𐰁\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹪4Ⴅ.𐰁\x{200C}", %p)}, undef, "to_ascii\(\'𐹪4Ⴅ\.𐰁\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4861\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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{200C}", %p)}, undef, "to_ascii\(\'𐹪4ⴅ\.𐰁\\u200C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹪⁴ⴅ.𐰁\x{200C}", %p)}, undef, "to_ascii\(\'𐹪⁴ⴅ.𐰁\\u200C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4865\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ6\x{1CD8}。ß\x{A9B9}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u1CD8\。ß\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4867\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴡⴑ6\x{1CD8}。ß\x{A9B9}", %p)}, "xn--6-x3lw34f2b.xn--ss-kd0i", "to_ascii\(\'ⴡⴑ6\\u1CD8\。ß\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4868\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ6\x{1CD8}。SS\x{A9B9}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u1CD8\。SS\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4870\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴡⴑ6\x{1CD8}。ss\x{A9B9}", %p)}, "xn--6-x3lw34f2b.xn--ss-kd0i", "to_ascii\(\'ⴡⴑ6\\u1CD8\。ss\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4871\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴡⴑ6\x{1CD8}。Ss\x{A9B9}", %p)}, undef, "to_ascii\(\'Ⴡⴑ6\\u1CD8\。Ss\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4872\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--6-x3lw34f2b.xn--ss-kd0i", %p)}, "xn--6-x3lw34f2b.xn--ss-kd0i", "to_ascii\(\'xn\-\-6\-x3lw34f2b\.xn\-\-ss\-kd0i\'\)\ \[data\/IdnaTest\.txt\:4873\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴡⴑ6\x{1CD8}.ss\x{A9B9}", %p)}, "xn--6-x3lw34f2b.xn--ss-kd0i", "to_ascii\(\'ⴡⴑ6\\u1CD8\.ss\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4874\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ6\x{1CD8}.SS\x{A9B9}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u1CD8\.SS\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴡⴑ6\x{1CD8}.Ss\x{A9B9}", %p)}, undef, "to_ascii\(\'Ⴡⴑ6\\u1CD8\.Ss\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4876\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--6-x3lw34f2b.xn--zca6657f", %p)}, "xn--6-x3lw34f2b.xn--zca6657f", "to_ascii\(\'xn\-\-6\-x3lw34f2b\.xn\-\-zca6657f\'\)\ \[data\/IdnaTest\.txt\:4877\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴡⴑ6\x{1CD8}.ß\x{A9B9}", %p)}, "xn--6-x3lw34f2b.xn--ss-kd0i", "to_ascii\(\'ⴡⴑ6\\u1CD8\.ß\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4878\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󚒻。≯\x{1734}", %p)}, undef, "to_ascii\(\'󚒻。\≯\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󚒻。>\x{0338}\x{1734}", %p)}, undef, "to_ascii\(\'󚒻。\>\\u0338\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󚒻。≯\x{1734}", %p)}, undef, "to_ascii\(\'󚒻\。\≯\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󚒻。>\x{0338}\x{1734}", %p)}, undef, "to_ascii\(\'󚒻\。\>\\u0338\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4883\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{065A}۲。\x{200C}-\x{0DCA}𐹼", %p)}, undef, "to_ascii\(\'\\u065A۲\。\\u200C\-\\u0DCA𐹼\'\)\ throws\ error\ V5\ V3\ B1\ \[data\/IdnaTest\.txt\:4884\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1CED}󠆃🅪。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\u1CED\󠆃🅪。\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1CED}󠆃MC。\x{1160}", %p)}, undef, "to_ascii\(\'\\u1CED\󠆃MC\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1CED}󠆃mc。\x{1160}", %p)}, undef, "to_ascii\(\'\\u1CED\󠆃mc\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1CED}󠆃Mc。\x{1160}", %p)}, undef, "to_ascii\(\'\\u1CED\󠆃Mc\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'ß⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß1.𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'ß1\.𐫅󃋽\.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS1.𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'SS1\.𐫅󃋽\.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'SS⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'ss⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'Ss⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠻯.𐋱₂", %p)}, undef, "to_ascii\(\'\󠻯\.𐋱₂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠻯.𐋱2", %p)}, undef, "to_ascii\(\'\󠻯\.𐋱2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4897\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{074D}𖾐。-ßᢤ\x{200C}", %p)}, undef, "to_ascii\(\'\\u074D𖾐\。\-ßᢤ\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4898\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{074D}𖾐。-SSᢤ\x{200C}", %p)}, undef, "to_ascii\(\'\\u074D𖾐\。\-SSᢤ\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4900\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{074D}𖾐。-ssᢤ\x{200C}", %p)}, undef, "to_ascii\(\'\\u074D𖾐\。\-ssᢤ\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4902\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{074D}𖾐。-Ssᢤ\x{200C}", %p)}, undef, "to_ascii\(\'\\u074D𖾐\。\-Ssᢤ\\u200C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4904\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}Ⴡ", %p)}, undef, "to_ascii\(\'\\u08FD\\u200Dᡦ󕡛.䷶\\u081CჁ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4906\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}Ⴡ", %p)}, undef, "to_ascii\(\'\\u08FD\\u200Dᡦ󕡛\.䷶\\u081CჁ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}ⴡ", %p)}, undef, "to_ascii\(\'\\u08FD\\u200Dᡦ󕡛\.䷶\\u081Cⴡ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}ⴡ", %p)}, undef, "to_ascii\(\'\\u08FD\\u200Dᡦ󕡛.䷶\\u081Cⴡ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4912\]") 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\:4914\]") 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\:4916\]") 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\:4918\]") 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\:4920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐨿︒.𐮆≯\x{06AB}", %p)}, undef, "to_ascii\(\'𐨿︒\.𐮆\≯\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐨿︒.𐮆>\x{0338}\x{06AB}", %p)}, undef, "to_ascii\(\'𐨿︒\.𐮆\>\\u0338\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐨿。.𐮆≯\x{06AB}", %p)}, undef, "to_ascii\(\'𐨿\。\.𐮆\≯\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐨿。.𐮆>\x{0338}\x{06AB}", %p)}, undef, "to_ascii\(\'𐨿\。\.𐮆\>\\u0338\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮≠񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_ascii\(\'\≮\≠񆇥。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}=\x{0338}񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338񆇥。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮≠񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_ascii\(\'\≮\≠񆇥\。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}=\x{0338}񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338񆇥\。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4929\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0661}\x{0751}。ꡰ", %p)}, undef, "to_ascii\(\'\\u0661\\u0751\。ꡰ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4930\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴉ🕑򸵡\x{0E4E}.ß\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'Ⴉ🕑򸵡\\u0E4E\.ß\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ🕑򸵡\x{0E4E}.ß\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'ⴉ🕑򸵡\\u0E4E\.ß\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ🕑򸵡\x{0E4E}.SS\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'Ⴉ🕑򸵡\\u0E4E\.SS\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ🕑򸵡\x{0E4E}.ss\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'ⴉ🕑򸵡\\u0E4E\.ss\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ🕑򸵡\x{0E4E}.Ss\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'Ⴉ🕑򸵡\\u0E4E\.Ss\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{06BD}\x{FE9B}󠎧.𙃐", %p)}, undef, "to_ascii\(\'\\u200D\\u06BD\\uFE9B\󠎧\.𙃐\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{06BD}\x{062B}󠎧.𙃐", %p)}, undef, "to_ascii\(\'\\u200D\\u06BD\\u062B\󠎧\.𙃐\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:4938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("梉。\x{200C}", %p)}, "xn--7zv.", "to_ascii\(\'梉\。\\u200C\'\)\ \[data\/IdnaTest\.txt\:4940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7zv.", %p)}, "xn--7zv.", "to_ascii\(\'xn\-\-7zv\.\'\)\ \[data\/IdnaTest\.txt\:4942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("梉.", %p)}, "xn--7zv.", "to_ascii\(\'梉\.\'\)\ \[data\/IdnaTest\.txt\:4943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-≠.\x{200D}\x{069D}𑒷Ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\≠\.\\u200D\\u069D𑒷Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-=\x{0338}.\x{200D}\x{069D}𑒷Ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\=\\u0338\.\\u200D\\u069D𑒷Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-=\x{0338}.\x{200D}\x{069D}𑒷ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\=\\u0338\.\\u200D\\u069D𑒷ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-≠.\x{200D}\x{069D}𑒷ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\≠\.\\u200D\\u069D𑒷ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B2\ \[data\/IdnaTest\.txt\:4950\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς⒐\x{1CD2}⸵。𐫬🄊𝟳", %p)}, undef, "to_ascii\(\'ς⒐\\u1CD2\⸵。𐫬🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς9.\x{1CD2}⸵。𐫬9,7", %p)}, undef, "to_ascii\(\'ς9\.\\u1CD2\⸵\。𐫬9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4953\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ9.\x{1CD2}⸵。𐫬9,7", %p)}, undef, "to_ascii\(\'Σ9\.\\u1CD2\⸵\。𐫬9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ9.\x{1CD2}⸵。𐫬9,7", %p)}, undef, "to_ascii\(\'σ9\.\\u1CD2\⸵\。𐫬9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ⒐\x{1CD2}⸵。𐫬🄊𝟳", %p)}, undef, "to_ascii\(\'Σ⒐\\u1CD2\⸵。𐫬🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ⒐\x{1CD2}⸵。𐫬🄊𝟳", %p)}, undef, "to_ascii\(\'σ⒐\\u1CD2\⸵。𐫬🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4957\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}ß", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑.\\u200Cß\'\)\ \[data\/IdnaTest\.txt\:4958\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}ß", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑\.\\u200Cß\'\)\ \[data\/IdnaTest\.txt\:4960\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}SS", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑\.\\u200CSS\'\)\ \[data\/IdnaTest\.txt\:4962\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}ss", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑\.\\u200Css\'\)\ \[data\/IdnaTest\.txt\:4964\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}Ss", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑\.\\u200CSs\'\)\ \[data\/IdnaTest\.txt\:4966\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--o29c.ss", %p)}, "xn--o29c.ss", "to_ascii\(\'xn\-\-o29c\.ss\'\)\ \[data\/IdnaTest\.txt\:4968\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.ss", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑\.ss\'\)\ \[data\/IdnaTest\.txt\:4969\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}SS", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑.\\u200CSS\'\)\ \[data\/IdnaTest\.txt\:4970\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}ss", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑.\\u200Css\'\)\ \[data\/IdnaTest\.txt\:4972\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}Ss", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑.\\u200CSs\'\)\ \[data\/IdnaTest\.txt\:4974\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𣵑-.\x{200D}\x{0629}\x{06D7}󠦙", %p)}, undef, "to_ascii\(\'𣵑\-\.\\u200D\\u0629\\u06D7\󠦙\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:4976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䃚蟥-。-𧵶⒈", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-𧵶⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4978\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䃚蟥-。-𧵶1.", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-𧵶1\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4979\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹺䚵-ᠤ。󠤲", %p)}, undef, "to_ascii\(\'𐹺䚵\-ᠤ\。\󠤲\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}。\x{1ADC}𐹯", %p)}, undef, "to_ascii\(\'\\uA8C4\。\\u1ADC𐹯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𐹩.⒎\x{0A75}ꡤ𐹮", %p)}, undef, "to_ascii\(\'\≮𐹩\.⒎\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}𐹩.⒎\x{0A75}ꡤ𐹮", %p)}, undef, "to_ascii\(\'\<\\u0338𐹩\.⒎\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𐹩.7.\x{0A75}ꡤ𐹮", %p)}, undef, "to_ascii\(\'\≮𐹩\.7\.\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}𐹩.7.\x{0A75}ꡤ𐹮", %p)}, undef, "to_ascii\(\'\<\\u0338𐹩\.7\.\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ≠󍑰.\x{200D}𐋢", %p)}, undef, "to_ascii\(\'ᡊ\≠󍑰\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4986\]") 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\:4988\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐪪≮񐯏≯.𐹽𞹏🔚", %p)}, undef, "to_ascii\(\'𐪪\≮񐯏\≯.𐹽𞹏🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐪪<\x{0338}񐯏>\x{0338}.𐹽𞹏🔚", %p)}, undef, "to_ascii\(\'𐪪\<\\u0338񐯏\>\\u0338.𐹽𞹏🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐪪≮񐯏≯.𐹽\x{0639}🔚", %p)}, undef, "to_ascii\(\'𐪪\≮񐯏\≯\.𐹽\\u0639🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐪪<\x{0338}񐯏>\x{0338}.𐹽\x{0639}🔚", %p)}, undef, "to_ascii\(\'𐪪\<\\u0338񐯏\>\\u0338\.𐹽\\u0639🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4993\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-。🞏", %p)}, undef, "to_ascii\(\'\-。🞏\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4994\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-。🞏", %p)}, undef, "to_ascii\(\'\-\。🞏\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4995\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠓱\x{A8EC}.\x{1DDF}", %p)}, undef, "to_ascii\(\'\󠓱\\uA8EC.\\u1DDF\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠓱\x{A8EC}.\x{1DDF}", %p)}, undef, "to_ascii\(\'\󠓱\\uA8EC\.\\u1DDF\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀦.򂿜\x{200C}", %p)}, undef, "to_ascii\(\'\󠀦\.򂿜\\u200C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4998\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{AA32}", %p)}, undef, "to_ascii\(\'ᡷ\󠅖\.\\uAA32\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5000\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("漦Ⴙς.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦Ⴙς\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ⴙς.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦ⴙς\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ႹΣ.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦ႹΣ\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ⴙσ.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦ⴙσ\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦Ⴙσ.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦Ⴙσ\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5005\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹹踧\x{0A4D}󟵒.󄅏⒈\x{1BE8}", %p)}, undef, "to_ascii\(\'𐹹踧\\u0A4D󟵒\.󄅏⒈\\u1BE8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹹踧\x{0A4D}󟵒.󄅏1.\x{1BE8}", %p)}, undef, "to_ascii\(\'𐹹踧\\u0A4D󟵒\.󄅏1\.\\u1BE8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:5007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≮.󠘆򥷡-", %p)}, undef, "to_ascii\(\'\\u200D\≮.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}<\x{0338}.󠘆򥷡-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5010\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≮.󠘆򥷡-", %p)}, undef, "to_ascii\(\'\\u200D\≮\.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5012\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}<\x{0338}.󠘆򥷡-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338\.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:5014\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。Ⴜ5\x{071D}񈭷", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。Ⴜ5\\u071D񈭷\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:5016\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。ⴜ5\x{071D}񈭷", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。ⴜ5\\u071D񈭷\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:5018\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐣋\x{05A7}\x{200D}.婀", %p)}, undef, "to_ascii\(\'𐣋\\u05A7\\u200D.婀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐣋\x{05A7}\x{200D}.婀", %p)}, undef, "to_ascii\(\'𐣋\\u05A7\\u200D\.婀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5022\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1AB8}︒︒\x{066C}。⮹\x{FE2E}", %p)}, undef, "to_ascii\(\'\\u1AB8︒︒\\u066C。\⮹\\uFE2E\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5024\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{1AB8}。。\x{066C}。⮹\x{FE2E}", %p)}, undef, "to_ascii\(\'\\u1AB8\。\。\\u066C\。\⮹\\uFE2E\'\)\ throws\ error\ V5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:5025\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟖ß.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖ß.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ß.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'8ß\.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ß.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'8ß\.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8SS.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'8SS\.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ss.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'8ss\.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟖ß.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'𝟖ß.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟖SS.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖SS.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟖ss.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'𝟖ss.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟖Ss.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖Ss.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}󠠅.\x{200C}\x{0663}Ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\󠠅\.\\u200C\\u0663Ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:5035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}󠠅.\x{200C}\x{0663}ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\󠠅\.\\u200C\\u0663ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:5037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{030F}\x{200D}큷󵨃。₂", %p)}, undef, "to_ascii\(\'\\u030F\\u200D큷󵨃。₂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{030F}\x{200D}큷󵨃。₂", %p)}, undef, "to_ascii\(\'\\u030F\\u200D큷󵨃。₂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{030F}\x{200D}큷󵨃。2", %p)}, undef, "to_ascii\(\'\\u030F\\u200D큷󵨃\。2\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{030F}\x{200D}큷󵨃。2", %p)}, undef, "to_ascii\(\'\\u030F\\u200D큷󵨃\。2\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DF4D}.🄄\x{FBAF}", %p)}, undef, "to_ascii\(\'\\uDF4D\.🄄\\uFBAF\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DF4D}.3,\x{06D2}", %p)}, undef, "to_ascii\(\'\\uDF4D\.3\,\\u06D2\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07A9}𐱡。\x{0604}󐃜\x{0F9B}⒈", %p)}, undef, "to_ascii\(\'\\u07A9𐱡\。\\u0604󐃜\\u0F9B⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07A9}𐱡。\x{0604}󐃜\x{0F9B}1.", %p)}, undef, "to_ascii\(\'\\u07A9𐱡\。\\u0604󐃜\\u0F9B1\.\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񓸋𞭢\x{0712}。Ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'񓸋𞭢\\u0712\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񓸋𞭢\x{0712}。ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'񓸋𞭢\\u0712\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇷚\x{0366}ᡱ⒈.\x{1DC1}髯\x{200C}", %p)}, undef, "to_ascii\(\'򇷚\\u0366ᡱ⒈.\\u1DC1髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇷚\x{0366}ᡱ1..\x{1DC1}髯\x{200C}", %p)}, undef, "to_ascii\(\'򇷚\\u0366ᡱ1\.\.\\u1DC1髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ A4_2\ \[data\/IdnaTest\.txt\:5057\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071A}.ᢛ\x{17BA}", %p)}, "xn--knb.xn--53e36b", "to_ascii\(\'\\u071A.ᢛ\\u17BA\'\)\ \[data\/IdnaTest\.txt\:5059\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071A}.ᢛ\x{17BA}", %p)}, "xn--knb.xn--53e36b", "to_ascii\(\'\\u071A\.ᢛ\\u17BA\'\)\ \[data\/IdnaTest\.txt\:5060\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--knb.xn--53e36b", %p)}, "xn--knb.xn--53e36b", "to_ascii\(\'xn\-\-knb\.xn\-\-53e36b\'\)\ \[data\/IdnaTest\.txt\:5061\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A953}.𐺛", %p)}, undef, "to_ascii\(\'\\uA953.𐺛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5062\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A953}.𐺛", %p)}, undef, "to_ascii\(\'\\uA953\.𐺛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠膣。\x{0EB4}", %p)}, undef, "to_ascii\(\'\≠膣\。\\u0EB4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}膣。\x{0EB4}", %p)}, undef, "to_ascii\(\'\=\\u0338膣\。\\u0EB4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆔨-ᢜ。ß", %p)}, undef, "to_ascii\(\'񆔨\-ᢜ。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆔨-ᢜ。ß", %p)}, undef, "to_ascii\(\'񆔨\-ᢜ\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆔨-ᢜ。SS", %p)}, undef, "to_ascii\(\'񆔨\-ᢜ\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆔨-ᢜ。SS", %p)}, undef, "to_ascii\(\'񆔨\-ᢜ。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'ς𐹷𐫬\\u17D2.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'ς𐹷𐫬\\u17D2\.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'Σ𐹷𐫬\\u17D2\.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'σ𐹷𐫬\\u17D2\.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'Σ𐹷𐫬\\u17D2.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'σ𐹷𐫬\\u17D2.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5075\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋷。\x{200D}", %p)}, "xn--r97c.", "to_ascii\(\'𐋷\。\\u200D\'\)\ \[data\/IdnaTest\.txt\:5076\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--r97c.", %p)}, "xn--r97c.", "to_ascii\(\'xn\-\-r97c\.\'\)\ \[data\/IdnaTest\.txt\:5078\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋷.", %p)}, "xn--r97c.", "to_ascii\(\'𐋷\.\'\)\ \[data\/IdnaTest\.txt\:5079\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A8E5}𑜣。󠁂", %p)}, undef, "to_ascii\(\'\\uA8E5𑜣\。\󠁂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DF1}䁴񾒲.Ⴕ𝟜\x{200C}𐨹", %p)}, undef, "to_ascii\(\'\\u1DF1䁴񾒲.Ⴕ𝟜\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DF1}䁴񾒲.Ⴕ4\x{200C}𐨹", %p)}, undef, "to_ascii\(\'\\u1DF1䁴񾒲\.Ⴕ4\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DF1}䁴񾒲.ⴕ4\x{200C}𐨹", %p)}, undef, "to_ascii\(\'\\u1DF1䁴񾒲\.ⴕ4\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DF1}䁴񾒲.ⴕ𝟜\x{200C}𐨹", %p)}, undef, "to_ascii\(\'\\u1DF1䁴񾒲.ⴕ𝟜\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5087\]") 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\:5089\]") 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\:5091\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("", %p)}, undef, "to_ascii\(\'\'\)\ throws\ error\ A4_2\ \[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\:5094\]") 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\:5096\]") or ($@ and diag($@)); exit(0); Net-IDN-Encode-2.300/t/uts46_to_ascii.t000444000765000024 321255312552251473 17631 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 => 3769 + 1; use Test::NoWarnings; use Unicode::UCD; use Net::IDN::UTS46 (':all'); no warnings 'utf8'; our $UCD_VERSION = eval('v'.(Unicode::UCD::UnicodeVersion())); my %p = ("TransitionalProcessing" => "0"); is(eval{uts46_to_ascii("fass.de", %p)}, "fass.de", "to_ascii\(\'fass\.de\'\)\ \[data\/IdnaTest\.txt\:61\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("faß.de", %p)}, "xn--fa-hia.de", "to_ascii\(\'faß\.de\'\)\ \[data\/IdnaTest\.txt\:63\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Faß.de", %p)}, "xn--fa-hia.de", "to_ascii\(\'Faß\.de\'\)\ \[data\/IdnaTest\.txt\:65\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--fa-hia.de", %p)}, "xn--fa-hia.de", "to_ascii\(\'xn\-\-fa\-hia\.de\'\)\ \[data\/IdnaTest\.txt\:66\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à\x{05D0}", %p)}, undef, "to_ascii\(\'à\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:70\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:71\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:72\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À\x{05D0}", %p)}, undef, "to_ascii\(\'À\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:73\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0à.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0à\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:74\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0a\x{0300}.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0a\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:75\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A\x{0300}.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0A\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:76\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0À.\x{05D0}", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'0À\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:77\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0-sfa.xn--4db", %p)}, "xn--0-sfa.xn--4db", "to_ascii\(\'xn\-\-0\-sfa\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:78\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'à\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:79\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'a\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:80\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'A\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:81\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À.\x{05D0}\x{0308}", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'À\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:82\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0ca.xn--ssa73l", %p)}, "xn--0ca.xn--ssa73l", "to_ascii\(\'xn\-\-0ca\.xn\-\-ssa73l\'\)\ \[data\/IdnaTest\.txt\:83\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'à\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:84\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:85\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:86\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:87\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}.\x{05D0}", %p)}, undef, "to_ascii\(\'\\u0308\.\\u05D0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:88\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'à\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:89\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'a\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:90\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'A\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:91\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À.\x{05D0}0\x{0660}", %p)}, undef, "to_ascii\(\'À\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:92\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:93\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}ˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'a\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:94\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}ˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'A\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:95\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Àˇ.\x{05D0}", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'Àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:96\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0ca88g.xn--4db", %p)}, "xn--0ca88g.xn--4db", "to_ascii\(\'xn\-\-0ca88g\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:97\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("à\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'à\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:98\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0300}\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'a\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:99\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0300}\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'A\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("À\x{0308}.\x{05D0}", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'À\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0ca81i.xn--4db", %p)}, "xn--0ca81i.xn--4db", "to_ascii\(\'xn\-\-0ca81i\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{200C}b", %p)}, undef, "to_ascii\(\'a\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:107\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200C}B", %p)}, undef, "to_ascii\(\'A\\u200CB\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:109\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200C}b", %p)}, undef, "to_ascii\(\'A\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:111\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ab", %p)}, "ab", "to_ascii\(\'ab\'\)\ \[data\/IdnaTest\.txt\:112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{094D}\x{200C}b", %p)}, "xn--ab-fsf604u", "to_ascii\(\'a\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}\x{200C}B", %p)}, "xn--ab-fsf604u", "to_ascii\(\'A\\u094D\\u200CB\'\)\ \[data\/IdnaTest\.txt\:116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}\x{200C}b", %p)}, "xn--ab-fsf604u", "to_ascii\(\'A\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf", %p)}, "xn--ab-fsf", "to_ascii\(\'xn\-\-ab\-fsf\'\)\ \[data\/IdnaTest\.txt\:119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'a\\u094Db\'\)\ \[data\/IdnaTest\.txt\:120\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}B", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094DB\'\)\ \[data\/IdnaTest\.txt\:121\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}b", %p)}, "xn--ab-fsf", "to_ascii\(\'A\\u094Db\'\)\ \[data\/IdnaTest\.txt\:122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf604u", %p)}, "xn--ab-fsf604u", "to_ascii\(\'xn\-\-ab\-fsf604u\'\)\ \[data\/IdnaTest\.txt\:123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{200D}b", %p)}, undef, "to_ascii\(\'a\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200D}B", %p)}, undef, "to_ascii\(\'A\\u200DB\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{200D}b", %p)}, undef, "to_ascii\(\'A\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:140\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{094D}\x{200D}b", %p)}, "xn--ab-fsf014u", "to_ascii\(\'a\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:142\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}\x{200D}B", %p)}, "xn--ab-fsf014u", "to_ascii\(\'A\\u094D\\u200DB\'\)\ \[data\/IdnaTest\.txt\:144\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{094D}\x{200D}b", %p)}, "xn--ab-fsf014u", "to_ascii\(\'A\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:146\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ab-fsf014u", %p)}, "xn--ab-fsf014u", "to_ascii\(\'xn\-\-ab\-fsf014u\'\)\ \[data\/IdnaTest\.txt\:147\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:149\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'a\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:159\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_ascii\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:161\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("¡", %p)}, "xn--7a", "to_ascii\(\'\¡\'\)\ \[data\/IdnaTest\.txt\:165\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7a", %p)}, "xn--7a", "to_ascii\(\'xn\-\-7a\'\)\ \[data\/IdnaTest\.txt\:166\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("᧚", %p)}, "xn--pkf", "to_ascii\(\'᧚\'\)\ \[data\/IdnaTest\.txt\:167\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("xn--pkf", %p)}, "xn--pkf", "to_ascii\(\'xn\-\-pkf\'\)\ \[data\/IdnaTest\.txt\:168\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("。", %p)}, undef, "to_ascii\(\'\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:169\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ꭠ", %p)}, "xn--3y9a", "to_ascii\(\'ꭠ\'\)\ \[data\/IdnaTest\.txt\:170\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--3y9a", %p)}, "xn--3y9a", "to_ascii\(\'xn\-\-3y9a\'\)\ \[data\/IdnaTest\.txt\:171\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("1234567890ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890a\x{0308}1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890a\\u03081234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:173\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890A\x{0308}1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890A\\u03081234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:174\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1234567890Ä1234567890123456789012345678901234567890123456", %p)}, undef, "to_ascii\(\'1234567890Ä1234567890123456789012345678901234567890123456\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.eXample.cOm", %p)}, "www.example.com", "to_ascii\(\'www\.eXample\.cOm\'\)\ \[data\/IdnaTest\.txt\:176\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bücher\.de\'\)\ \[data\/IdnaTest\.txt\:177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Bu\x{0308}cher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'Bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("bu\x{0308}cher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("bücher.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'bücher\.de\'\)\ \[data\/IdnaTest\.txt\:180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("BÜCHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BÜCHER\.DE\'\)\ \[data\/IdnaTest\.txt\:181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("BU\x{0308}CHER.DE", %p)}, "xn--bcher-kva.de", "to_ascii\(\'BU\\u0308CHER\.DE\'\)\ \[data\/IdnaTest\.txt\:182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bcher-kva.de", %p)}, "xn--bcher-kva.de", "to_ascii\(\'xn\-\-bcher\-kva\.de\'\)\ \[data\/IdnaTest\.txt\:183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ÖBB", %p)}, "xn--bb-eka", "to_ascii\(\'ÖBB\'\)\ \[data\/IdnaTest\.txt\:184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("O\x{0308}BB", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308BB\'\)\ \[data\/IdnaTest\.txt\:185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("o\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'o\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("öbb", %p)}, "xn--bb-eka", "to_ascii\(\'öbb\'\)\ \[data\/IdnaTest\.txt\:187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Öbb", %p)}, "xn--bb-eka", "to_ascii\(\'Öbb\'\)\ \[data\/IdnaTest\.txt\:188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("O\x{0308}bb", %p)}, "xn--bb-eka", "to_ascii\(\'O\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bb-eka", %p)}, "xn--bb-eka", "to_ascii\(\'xn\-\-bb\-eka\'\)\ \[data\/IdnaTest\.txt\:190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:192\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΌΛΟΣ.COM", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'ΒΌΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλοσ.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'Βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmq6b.com", %p)}, "xn--nxasmq6b.com", "to_ascii\(\'xn\-\-nxasmq6b\.com\'\)\ \[data\/IdnaTest\.txt\:201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλος.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:205\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmm1c.com", %p)}, "xn--nxasmm1c.com", "to_ascii\(\'xn\-\-nxasmm1c\.com\'\)\ \[data\/IdnaTest\.txt\:206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmm1c", %p)}, "xn--nxasmm1c", "to_ascii\(\'xn\-\-nxasmm1c\'\)\ \[data\/IdnaTest\.txt\:207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλος", %p)}, "xn--nxasmm1c", "to_ascii\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λος", %p)}, "xn--nxasmm1c", "to_ascii\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΟ\x{0301}ΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΟ\\u0301ΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:212\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ΒΌΛΟΣ", %p)}, "xn--nxasmq6b", "to_ascii\(\'ΒΌΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βόλοσ\'\)\ \[data\/IdnaTest\.txt\:214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("βο\x{0301}λοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλοσ", %p)}, "xn--nxasmq6b", "to_ascii\(\'Βόλοσ\'\)\ \[data\/IdnaTest\.txt\:217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--nxasmq6b", %p)}, "xn--nxasmq6b", "to_ascii\(\'xn\-\-nxasmq6b\'\)\ \[data\/IdnaTest\.txt\:218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βόλος", %p)}, "xn--nxasmm1c", "to_ascii\(\'Βόλος\'\)\ \[data\/IdnaTest\.txt\:220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Βο\x{0301}λος", %p)}, "xn--nxasmm1c", "to_ascii\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:222\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", %p)}, "www.xn--10cl1a0b660p.com", "to_ascii\(\'www\.ශ\\u0DCA\\u200Dර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.xn--10cl1a0b.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.xn\-\-10cl1a0b\.com\'\)\ \[data\/IdnaTest\.txt\:225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.ශ\x{0DCA}ර\x{0DD3}.com", %p)}, "www.xn--10cl1a0b.com", "to_ascii\(\'www\.ශ\\u0DCAර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:226\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("www.xn--10cl1a0b660p.com", %p)}, "www.xn--10cl1a0b660p.com", "to_ascii\(\'www\.xn\-\-10cl1a0b660p\.com\'\)\ \[data\/IdnaTest\.txt\:227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", %p)}, "xn--mgba3gch31f060k", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f", %p)}, "xn--mgba3gch31f", "to_ascii\(\'xn\-\-mgba3gch31f\'\)\ \[data\/IdnaTest\.txt\:230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", %p)}, "xn--mgba3gch31f", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f060k", %p)}, "xn--mgba3gch31f060k", "to_ascii\(\'xn\-\-mgba3gch31f060k\'\)\ \[data\/IdnaTest\.txt\:232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f060k.com", %p)}, "xn--mgba3gch31f060k.com", "to_ascii\(\'xn\-\-mgba3gch31f060k\.com\'\)\ \[data\/IdnaTest\.txt\:233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", %p)}, "xn--mgba3gch31f060k.com", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:235\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--mgba3gch31f.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'xn\-\-mgba3gch31f\.com\'\)\ \[data\/IdnaTest\.txt\:236\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", %p)}, "xn--mgba3gch31f.com", "to_ascii\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.c。d。", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b.c\。d。\'\)\ \[data\/IdnaTest\.txt\:238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.c。d。", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b\.c\。d\。\'\)\ \[data\/IdnaTest\.txt\:239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.c.d.", %p)}, "a.b.c.d.", "to_ascii\(\'a\.b\.c\.d\.\'\)\ \[data\/IdnaTest\.txt\:240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("U\x{0308}.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ü.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("u\x{0308}.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'u\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--tda.xn--tda", %p)}, "xn--tda.xn--tda", "to_ascii\(\'xn\-\-tda\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'ü\.ü\'\)\ \[data\/IdnaTest\.txt\:246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("u\x{0308}.u\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'u\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("U\x{0308}.U\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.U\\u0308\'\)\ \[data\/IdnaTest\.txt\:248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.Ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.Ü\'\)\ \[data\/IdnaTest\.txt\:249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ü.ü", %p)}, "xn--tda.xn--tda", "to_ascii\(\'Ü\.ü\'\)\ \[data\/IdnaTest\.txt\:250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("U\x{0308}.u\x{0308}", %p)}, "xn--tda.xn--tda", "to_ascii\(\'U\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--u-ccb", %p)}, undef, "to_ascii\(\'xn\-\-u\-ccb\'\)\ throws\ error\ V1\ \[data\/IdnaTest\.txt\:252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a⒈com", %p)}, undef, "to_ascii\(\'a⒈com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a1.com", %p)}, "a1.com", "to_ascii\(\'a1\.com\'\)\ \[data\/IdnaTest\.txt\:254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A⒈COM", %p)}, undef, "to_ascii\(\'A⒈COM\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A⒈Com", %p)}, undef, "to_ascii\(\'A⒈Com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-ecp.ru", %p)}, undef, "to_ascii\(\'xn\-\-a\-ecp\.ru\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--0.pt", %p)}, undef, "to_ascii\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\.pt\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-Ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-A\x{0308}.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-a\x{0308}.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-a\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--a-ä.pt", %p)}, undef, "to_ascii\(\'xn\-\-a\-ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("XN--A-Ä.PT", %p)}, undef, "to_ascii\(\'XN\-\-A\-Ä\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("XN--A-A\x{0308}.PT", %p)}, undef, "to_ascii\(\'XN\-\-A\-A\\u0308\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Xn--A-A\x{0308}.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Xn--A-Ä.pt", %p)}, undef, "to_ascii\(\'Xn\-\-A\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。JP", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--wgv71a119e.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'xn\-\-wgv71a119e\.jp\'\)\ \[data\/IdnaTest\.txt\:270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語.jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\.jp\'\)\ \[data\/IdnaTest\.txt\:271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。jp\'\)\ \[data\/IdnaTest\.txt\:272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("日本語。Jp", %p)}, "xn--wgv71a119e.jp", "to_ascii\(\'日本語\。Jp\'\)\ \[data\/IdnaTest\.txt\:273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("☕", %p)}, "xn--53h", "to_ascii\(\'\☕\'\)\ \[data\/IdnaTest\.txt\:274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--53h", %p)}, "xn--53h", "to_ascii\(\'xn\-\-53h\'\)\ \[data\/IdnaTest\.txt\:275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_ascii\(\'1\.aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\x{0302}SSZ", %p)}, undef, "to_ascii\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\\u0302SSZ\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ", %p)}, undef, "to_ascii\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:281\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_ascii\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_ascii\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_ascii\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_ascii\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.Aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_ascii\(\'1\.Aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ A4_2\ \[data\/IdnaTest\.txt\:291\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bß", %p)}, undef, "to_ascii\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}X\x{200D}N\x{200C}-\x{200D}-BSS", %p)}, undef, "to_ascii\(\'\\u200CX\\u200DN\\u200C\-\\u200D\-BSS\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bss", %p)}, undef, "to_ascii\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:297\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bss", %p)}, undef, "to_ascii\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--bss", %p)}, "xn--bss", "to_ascii\(\'xn\-\-bss\'\)\ \[data\/IdnaTest\.txt\:300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("夙", %p)}, "xn--bss", "to_ascii\(\'夙\'\)\ \[data\/IdnaTest\.txt\:301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bß", %p)}, undef, "to_ascii\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:303\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}ſ\x{2064}𝔰󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00ſ\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:304\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:305\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}n\x{200B}-\x{00AD}-\x{180C}b\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034Fn\\u200B\-\\u00AD\-\\u180Cb\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:306\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("X\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}S󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064S\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:307\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("X\x{034F}n\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'X\\u034Fn\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:308\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("xn--bssffl", %p)}, "xn--bssffl", "to_ascii\(\'xn\-\-bssffl\'\)\ \[data\/IdnaTest\.txt\:309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("夡夞夜夙", %p)}, "xn--bssffl", "to_ascii\(\'夡夞夜夙\'\)\ \[data\/IdnaTest\.txt\:310\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}S\x{2064}𝔰󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00S\\u2064𝔰\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:311\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}s󠇯FFL", %p)}, "xn--bssffl", "to_ascii\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064s\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:312\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}s\x{2064}𝔰󠇯ffl", %p)}, "xn--bssffl", "to_ascii\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00s\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:313\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:314\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:315\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'a\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'A\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä1234567890123456789012345678901234567890123456789012345", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'Ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--1234567890123456789012345678901234567890123456789012345-9te", %p)}, "xn--1234567890123456789012345678901234567890123456789012345-9te", "to_ascii\(\'xn\-\-1234567890123456789012345678901234567890123456789012345\-9te\'\)\ \[data\/IdnaTest\.txt\:324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:327\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:328\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:331\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:334\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:335\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:336\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:337\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ throws\ error\ A4_1\ \[data\/IdnaTest\.txt\:338\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:347\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:348\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:349\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, undef, "to_ascii\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ throws\ error\ A4_2\ A4_1\ \[data\/IdnaTest\.txt\:350\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b..-q--a-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-a\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:351\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b..-q--ä-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-ä\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b..-q--a\x{0308}-.e", %p)}, undef, "to_ascii\(\'a\.b\.\.\-q\-\-a\\u0308\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A.B..-Q--A\x{0308}-.E", %p)}, undef, "to_ascii\(\'A\.B\.\.\-Q\-\-A\\u0308\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A.B..-Q--Ä-.E", %p)}, undef, "to_ascii\(\'A\.B\.\.\-Q\-\-Ä\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b..xn---q----jra.e", %p)}, undef, "to_ascii\(\'a\.b\.\.xn\-\-\-q\-\-\-\-jra\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a..c", %p)}, undef, "to_ascii\(\'a\.\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.-b.", %p)}, undef, "to_ascii\(\'a\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b-.c", %p)}, undef, "to_ascii\(\'a\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.-.c", %p)}, undef, "to_ascii\(\'a\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.bc--de.f", %p)}, undef, "to_ascii\(\'a\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:361\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.\x{00AD}.c", %p)}, undef, "to_ascii\(\'ä\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:362\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.\x{00AD}.c", %p)}, undef, "to_ascii\(\'a\\u0308\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.\x{00AD}.C", %p)}, undef, "to_ascii\(\'A\\u0308\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.\x{00AD}.C", %p)}, undef, "to_ascii\(\'Ä\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.-b.", %p)}, undef, "to_ascii\(\'ä\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.-b.", %p)}, undef, "to_ascii\(\'a\\u0308\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.-B.", %p)}, undef, "to_ascii\(\'A\\u0308\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:368\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.-B.", %p)}, undef, "to_ascii\(\'Ä\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:369\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.b-.c", %p)}, undef, "to_ascii\(\'ä\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:370\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.b-.c", %p)}, undef, "to_ascii\(\'a\\u0308\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.B-.C", %p)}, undef, "to_ascii\(\'A\\u0308\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.B-.C", %p)}, undef, "to_ascii\(\'Ä\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.-.c", %p)}, undef, "to_ascii\(\'ä\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.-.c", %p)}, undef, "to_ascii\(\'a\\u0308\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.-.C", %p)}, undef, "to_ascii\(\'A\\u0308\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:376\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.-.C", %p)}, undef, "to_ascii\(\'Ä\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:377\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ä.bc--de.f", %p)}, undef, "to_ascii\(\'ä\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:378\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{0308}.bc--de.f", %p)}, undef, "to_ascii\(\'a\\u0308\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:379\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{0308}.BC--DE.F", %p)}, undef, "to_ascii\(\'A\\u0308\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ä.BC--DE.F", %p)}, undef, "to_ascii\(\'Ä\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:381\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.\x{0308}c.d", %p)}, undef, "to_ascii\(\'a\.b\.\\u0308c\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A.B.\x{0308}C.D", %p)}, undef, "to_ascii\(\'A\.B\.\\u0308C\.D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a.b.xn--c-bcb.d", %p)}, undef, "to_ascii\(\'a\.b\.xn\-\-c\-bcb\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A0", %p)}, "a0", "to_ascii\(\'A0\'\)\ \[data\/IdnaTest\.txt\:385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A", %p)}, "0a", "to_ascii\(\'0A\'\)\ \[data\/IdnaTest\.txt\:386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0A.\x{05D0}", %p)}, "0a.xn--4db", "to_ascii\(\'0A\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0a.xn--4db", %p)}, "0a.xn--4db", "to_ascii\(\'0a\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("c.xn--0-eha.xn--4db", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.xn\-\-0\-eha\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("c.0ü.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.0ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("c.0u\x{0308}.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'c\.0u\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("C.0U\x{0308}.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'C\.0U\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("C.0Ü.\x{05D0}", %p)}, "c.xn--0-eha.xn--4db", "to_ascii\(\'C\.0Ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("b-.\x{05D0}", %p)}, undef, "to_ascii\(\'b\-\.\\u05D0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("d.xn----dha.xn--4db", %p)}, undef, "to_ascii\(\'d\.xn\-\-\-\-dha\.xn\-\-4db\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}", %p)}, undef, "to_ascii\(\'a\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}", %p)}, undef, "to_ascii\(\'A\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:397\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}\x{05C7}", %p)}, "xn--vdbr", "to_ascii\(\'\\u05D0\\u05C7\'\)\ \[data\/IdnaTest\.txt\:398\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--vdbr", %p)}, "xn--vdbr", "to_ascii\(\'xn\-\-vdbr\'\)\ \[data\/IdnaTest\.txt\:399\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}9\x{05C7}", %p)}, "xn--9-ihcz", "to_ascii\(\'\\u05D09\\u05C7\'\)\ \[data\/IdnaTest\.txt\:400\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--9-ihcz", %p)}, "xn--9-ihcz", "to_ascii\(\'xn\-\-9\-ihcz\'\)\ \[data\/IdnaTest\.txt\:401\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}a\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0a\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:402\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{05D0}A\x{05C7}", %p)}, undef, "to_ascii\(\'\\u05D0A\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:403\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{05D0}\x{05EA}", %p)}, "xn--4db6c", "to_ascii\(\'\\u05D0\\u05EA\'\)\ \[data\/IdnaTest\.txt\:404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c", %p)}, "xn--4db6c", "to_ascii\(\'xn\-\-4db6c\'\)\ \[data\/IdnaTest\.txt\:405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}\x{05F3}\x{05EA}", %p)}, "xn--4db6c0a", "to_ascii\(\'\\u05D0\\u05F3\\u05EA\'\)\ \[data\/IdnaTest\.txt\:406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c0a", %p)}, "xn--4db6c0a", "to_ascii\(\'xn\-\-4db6c0a\'\)\ \[data\/IdnaTest\.txt\:407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}Tz", %p)}, undef, "to_ascii\(\'a\\u05D0Tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a\x{05D0}tz", %p)}, undef, "to_ascii\(\'a\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:409\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}TZ", %p)}, undef, "to_ascii\(\'A\\u05D0TZ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:410\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{05D0}tz", %p)}, undef, "to_ascii\(\'A\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:411\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}T\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D0T\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}t\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D0t\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:413\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}7\x{05EA}", %p)}, "xn--7-zhc3f", "to_ascii\(\'\\u05D07\\u05EA\'\)\ \[data\/IdnaTest\.txt\:414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7-zhc3f", %p)}, "xn--7-zhc3f", "to_ascii\(\'xn\-\-7\-zhc3f\'\)\ \[data\/IdnaTest\.txt\:415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}\x{0667}\x{05EA}", %p)}, "xn--4db6c6t", "to_ascii\(\'\\u05D0\\u0667\\u05EA\'\)\ \[data\/IdnaTest\.txt\:416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--4db6c6t", %p)}, "xn--4db6c6t", "to_ascii\(\'xn\-\-4db6c6t\'\)\ \[data\/IdnaTest\.txt\:417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("a7\x{0667}z", %p)}, undef, "to_ascii\(\'a7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A7\x{0667}Z", %p)}, undef, "to_ascii\(\'A7\\u0667Z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:419\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A7\x{0667}z", %p)}, undef, "to_ascii\(\'A7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:420\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05D0}7\x{0667}\x{05EA}", %p)}, undef, "to_ascii\(\'\\u05D07\\u0667\\u05EA\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200D}", %p)}, "xn--dmc4b194h", "to_ascii\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:423\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4b", %p)}, "xn--dmc4b", "to_ascii\(\'xn\-\-dmc4b\'\)\ \[data\/IdnaTest\.txt\:424\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}", %p)}, "xn--dmc4b", "to_ascii\(\'ஹ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4b194h", %p)}, "xn--dmc4b194h", "to_ascii\(\'xn\-\-dmc4b194h\'\)\ \[data\/IdnaTest\.txt\:426\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{200D}", %p)}, undef, "to_ascii\(\'ஹ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:428\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc", %p)}, "xn--dmc", "to_ascii\(\'xn\-\-dmc\'\)\ \[data\/IdnaTest\.txt\:429\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ", %p)}, "xn--dmc", "to_ascii\(\'ஹ\'\)\ \[data\/IdnaTest\.txt\:430\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{0BCD}\x{200C}", %p)}, "xn--dmc4by94h", "to_ascii\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:434\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--dmc4by94h", %p)}, "xn--dmc4by94h", "to_ascii\(\'xn\-\-dmc4by94h\'\)\ \[data\/IdnaTest\.txt\:435\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ஹ\x{200C}", %p)}, undef, "to_ascii\(\'ஹ\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:437\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:439\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", %p)}, "xn--ghb2gxqia7523a", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxqia", %p)}, "xn--ghb2gxqia", "to_ascii\(\'xn\-\-ghb2gxqia\'\)\ \[data\/IdnaTest\.txt\:442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06ED}\x{06EF}", %p)}, "xn--ghb2gxqia", "to_ascii\(\'\\u0644\\u0670\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxqia7523a", %p)}, "xn--ghb2gxqia7523a", "to_ascii\(\'xn\-\-ghb2gxqia7523a\'\)\ \[data\/IdnaTest\.txt\:444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06EF}", %p)}, "xn--ghb2g3qq34f", "to_ascii\(\'\\u0644\\u0670\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2g3q", %p)}, "xn--ghb2g3q", "to_ascii\(\'xn\-\-ghb2g3q\'\)\ \[data\/IdnaTest\.txt\:447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06EF}", %p)}, "xn--ghb2g3q", "to_ascii\(\'\\u0644\\u0670\\u06EF\'\)\ \[data\/IdnaTest\.txt\:448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2g3qq34f", %p)}, "xn--ghb2g3qq34f", "to_ascii\(\'xn\-\-ghb2g3qq34f\'\)\ \[data\/IdnaTest\.txt\:449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{200C}\x{06ED}\x{06EF}", %p)}, "xn--ghb25aga828w", "to_ascii\(\'\\u0644\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:451\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb25aga", %p)}, "xn--ghb25aga", "to_ascii\(\'xn\-\-ghb25aga\'\)\ \[data\/IdnaTest\.txt\:452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{06ED}\x{06EF}", %p)}, "xn--ghb25aga", "to_ascii\(\'\\u0644\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb25aga828w", %p)}, "xn--ghb25aga828w", "to_ascii\(\'xn\-\-ghb25aga828w\'\)\ \[data\/IdnaTest\.txt\:454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{200C}\x{06EF}", %p)}, "xn--ghb65a953d", "to_ascii\(\'\\u0644\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb65a", %p)}, "xn--ghb65a", "to_ascii\(\'xn\-\-ghb65a\'\)\ \[data\/IdnaTest\.txt\:457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{06EF}", %p)}, "xn--ghb65a", "to_ascii\(\'\\u0644\\u06EF\'\)\ \[data\/IdnaTest\.txt\:458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb65a953d", %p)}, "xn--ghb65a953d", "to_ascii\(\'xn\-\-ghb65a953d\'\)\ \[data\/IdnaTest\.txt\:459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{200C}\x{06ED}", %p)}, undef, "to_ascii\(\'\\u0644\\u0670\\u200C\\u06ED\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb2gxq", %p)}, "xn--ghb2gxq", "to_ascii\(\'xn\-\-ghb2gxq\'\)\ \[data\/IdnaTest\.txt\:462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{0670}\x{06ED}", %p)}, "xn--ghb2gxq", "to_ascii\(\'\\u0644\\u0670\\u06ED\'\)\ \[data\/IdnaTest\.txt\:463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EF}\x{200C}\x{06EF}", %p)}, undef, "to_ascii\(\'\\u06EF\\u200C\\u06EF\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--cmba", %p)}, "xn--cmba", "to_ascii\(\'xn\-\-cmba\'\)\ \[data\/IdnaTest\.txt\:466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EF}\x{06EF}", %p)}, "xn--cmba", "to_ascii\(\'\\u06EF\\u06EF\'\)\ \[data\/IdnaTest\.txt\:467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0644\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ghb", %p)}, "xn--ghb", "to_ascii\(\'xn\-\-ghb\'\)\ \[data\/IdnaTest\.txt\:470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0644}", %p)}, "xn--ghb", "to_ascii\(\'\\u0644\'\)\ \[data\/IdnaTest\.txt\:471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒕∝\x{FE0E}񋆨.-󠄠", %p)}, undef, "to_ascii\(\'⒕\∝\\uFE0E񋆨.\-\󠄠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:475\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("14.∝\x{FE0E}񋆨.-󠄠", %p)}, undef, "to_ascii\(\'14\.\∝\\uFE0E񋆨\.\-\󠄠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:476\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{07CE}.\x{076D}", %p)}, "xn--psb.xn--xpb", "to_ascii\(\'\\u07CE\.\\u076D\'\)\ \[data\/IdnaTest\.txt\:477\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("xn--psb.xn--xpb", %p)}, "xn--psb.xn--xpb", "to_ascii\(\'xn\-\-psb\.xn\-\-xpb\'\)\ \[data\/IdnaTest\.txt\:478\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{0600}。-", %p)}, undef, "to_ascii\(\'\≯\\u0600。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0600}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0600。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0600}。-", %p)}, undef, "to_ascii\(\'\≯\\u0600\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:481\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0600}。-", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0600\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}ςႭ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000FςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}ςႭ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000FςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:484\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}ςⴍ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000Fςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:485\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}ΣႭ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000FΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:486\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}σⴍ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000Fσⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:487\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走\x{0602}谷.\x{115F}\x{000F}Σⴍ", %p)}, undef, "to_ascii\(\'走\\u0602谷\.\\u115F\\u000FΣⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:488\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}ςⴍ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000Fςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}ΣႭ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000FΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}σⴍ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000Fσⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:491\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛\x{0602}⾕.\x{115F}\x{000F}Σⴍ", %p)}, undef, "to_ascii\(\'⾛\\u0602⾕\.\\u115F\\u000FΣⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:492\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≠\x{07E0}≯.솣-\x{0692}Ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠\\u07E0\≯\.솣\-\\u0692Ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}=\x{0338}\x{07E0}>\x{0338}.솣-\x{0692}Ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338\\u07E0\>\\u0338\.솣\-\\u0692Ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}=\x{0338}\x{07E0}>\x{0338}.솣-\x{0692}ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\=\\u0338\\u07E0\>\\u0338\.솣\-\\u0692ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≠\x{07E0}≯.솣-\x{0692}ⴀ", %p)}, undef, "to_ascii\(\'\\u200D\≠\\u07E0\≯\.솣\-\\u0692ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򺓺.𐸛\x{1B36}ᠠ\x{0664}", %p)}, undef, "to_ascii\(\'򺓺.𐸛\\u1B36ᠠ\\u0664\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򺓺.𐸛\x{1B36}ᠠ\x{0664}", %p)}, undef, "to_ascii\(\'򺓺\.𐸛\\u1B36ᠠ\\u0664\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{E9D9}\x{302C}.\x{A953}", %p)}, undef, "to_ascii\(\'\\uE9D9\\u302C\.\\uA953\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠷ\x{09CD}𒚉。\x{0732}Ⴣꡐ", %p)}, undef, "to_ascii\(\'ᠷ\\u09CD𒚉\。\\u0732Ⴣꡐ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠷ\x{09CD}𒚉。\x{0732}ⴣꡐ", %p)}, undef, "to_ascii\(\'ᠷ\\u09CD𒚉\。\\u0732ⴣꡐ\'\)\ throws\ error\ P1\ V6\ V5\ \[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{2D7F}ς⋀。\x{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7Fς\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:506\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7Fς\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:507\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7FΣ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:508\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7FΣ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:509\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7Fσ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:510\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_ascii\(\'𐹢\\u2D7Fσ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:511\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{200D}。ᡠ\x{200C}\x{200D}⒈", %p)}, undef, "to_ascii\(\'\-\\u200D\。ᡠ\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}。ᡠ\x{200C}\x{200D}1.", %p)}, undef, "to_ascii\(\'\-\\u200D\。ᡠ\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}򈘂.Ⴒ\x{ABED}", %p)}, undef, "to_ascii\(\'\\u200C򈘂\.Ⴒ\\uABED\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:517\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}򈘂.ⴒ\x{ABED}", %p)}, undef, "to_ascii\(\'\\u200C򈘂\.ⴒ\\uABED\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:519\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{1039}\x{200D}.8︒", %p)}, undef, "to_ascii\(\'繱\\u1039\\u200D\.8︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{1039}\x{200D}.8。", %p)}, "xn--9jd812ffm5e.8.", "to_ascii\(\'繱\\u1039\\u200D\.8\。\'\)\ \[data\/IdnaTest\.txt\:522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--9jd5457c.8.", %p)}, "xn--9jd5457c.8.", "to_ascii\(\'xn\-\-9jd5457c\.8\.\'\)\ \[data\/IdnaTest\.txt\:523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{1039}.8.", %p)}, "xn--9jd5457c.8.", "to_ascii\(\'繱\\u1039\.8\.\'\)\ \[data\/IdnaTest\.txt\:524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--9jd812ffm5e.8.", %p)}, "xn--9jd812ffm5e.8.", "to_ascii\(\'xn\-\-9jd812ffm5e\.8\.\'\)\ \[data\/IdnaTest\.txt\:525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("繱\x{1039}\x{200D}.8.", %p)}, "xn--9jd812ffm5e.8.", "to_ascii\(\'繱\\u1039\\u200D\.8\.\'\)\ \[data\/IdnaTest\.txt\:527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠅕.\x{1927}", %p)}, undef, "to_ascii\(\'\󠅕.\\u1927\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠅕.\x{1927}", %p)}, undef, "to_ascii\(\'\󠅕\.\\u1927\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß󠇦。\x{200D}", %p)}, undef, "to_ascii\(\'ß\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS󠇦。\x{200D}", %p)}, undef, "to_ascii\(\'SS\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss󠇦。\x{200D}", %p)}, undef, "to_ascii\(\'ss\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss󠇦。\x{200D}", %p)}, undef, "to_ascii\(\'Ss\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss.", %p)}, "ss.", "to_ascii\(\'ss\.\'\)\ \[data\/IdnaTest\.txt\:538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠯓\x{200C}⒈.󠅵", %p)}, undef, "to_ascii\(\'\󠯓\\u200C⒈.\󠅵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠯓\x{200C}1..󠅵", %p)}, undef, "to_ascii\(\'\󠯓\\u200C1\.\.\󠅵\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򸕹\x{1072}󠆈ß。󚭹", %p)}, undef, "to_ascii\(\'򸕹\\u1072\󠆈ß\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򸕹\x{1072}󠆈SS。󚭹", %p)}, undef, "to_ascii\(\'򸕹\\u1072\󠆈SS\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򸕹\x{1072}󠆈ss。󚭹", %p)}, undef, "to_ascii\(\'򸕹\\u1072\󠆈ss\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򸕹\x{1072}󠆈Ss。󚭹", %p)}, undef, "to_ascii\(\'򸕹\\u1072\󠆈Ss\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A8}\x{200C}𐮂。󻋜䉜\x{200D}񒑺", %p)}, undef, "to_ascii\(\'\\u06A8\\u200C𐮂\。󻋜䉜\\u200D񒑺\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎ς\x{07DA}⒈.≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎ς\\u07DA⒈\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎ς\x{07DA}⒈.<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎ς\\u07DA⒈\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎ς\x{07DA}1..≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎ς\\u07DA1\.\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎ς\x{07DA}1..<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎ς\\u07DA1\.\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎Σ\x{07DA}1..<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎Σ\\u07DA1\.\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎Σ\x{07DA}1..≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎Σ\\u07DA1\.\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎σ\x{07DA}1..≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎σ\\u07DA1\.\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎σ\x{07DA}1..<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎σ\\u07DA1\.\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎Σ\x{07DA}⒈.<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎Σ\\u07DA⒈\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎Σ\x{07DA}⒈.≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎Σ\\u07DA⒈\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎σ\x{07DA}⒈.≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎σ\\u07DA⒈\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞀎σ\x{07DA}⒈.<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_ascii\(\'񞀎σ\\u07DA⒈\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3164}\x{0CCD}Ⴀ𑇋.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u0CCDႠ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{0CCD}Ⴀ𑇋.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u0CCDႠ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:562\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}\x{0CCD}ⴀ𑇋.\x{180B}", %p)}, undef, "to_ascii\(\'\\u1160\\u0CCDⴀ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{3164}\x{0CCD}ⴀ𑇋.\x{180B}", %p)}, undef, "to_ascii\(\'\\u3164\\u0CCDⴀ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠜈\x{200D}.\x{1BF3}󠄀󠆦\x{1B6D}", %p)}, undef, "to_ascii\(\'\󠜈\\u200D.\\u1BF3\󠄀\󠆦\\u1B6D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠜈\x{200D}.\x{1BF3}󠄀󠆦\x{1B6D}", %p)}, undef, "to_ascii\(\'\󠜈\\u200D\.\\u1BF3\󠄀\󠆦\\u1B6D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𐸧𞶡.≯𼫗ᡖ", %p)}, undef, "to_ascii\(\'\≮𐸧𞶡\.\≯𼫗ᡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:569\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}𐸧𞶡.>\x{0338}𼫗ᡖ", %p)}, undef, "to_ascii\(\'\<\\u0338𐸧𞶡\.\>\\u0338𼫗ᡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𐥴\x{0857}№。\x{1BAA}ꡊ", %p)}, undef, "to_ascii\(\'\\u05C7𐥴\\u0857№。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:571\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𐥴\x{0857}No。\x{1BAA}ꡊ", %p)}, undef, "to_ascii\(\'\\u05C7𐥴\\u0857No\。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𐥴\x{0857}no。\x{1BAA}ꡊ", %p)}, undef, "to_ascii\(\'\\u05C7𐥴\\u0857no\。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:573\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𐥴\x{0857}NO。\x{1BAA}ꡊ", %p)}, undef, "to_ascii\(\'\\u05C7𐥴\\u0857NO\。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F9F}。􃍩", %p)}, undef, "to_ascii\(\'\\u0F9F\。􃍩\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:575\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}\x{1B6B}.\x{1160}", %p)}, undef, "to_ascii\(\'\\uA9C0\\u1B6B.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}\x{1B6B}.\x{1160}", %p)}, undef, "to_ascii\(\'\\uA9C0\\u1B6B\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:577\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{08A7}\x{200D}。󴀴\x{079E}", %p)}, undef, "to_ascii\(\'\-\\u08A7\\u200D\。󴀴\\u079E\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:579\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}\x{1920}≯󞉲。󠇨⾇滸𐹭", %p)}, undef, "to_ascii\(\'\\u072B\\u1920\≯󞉲\。\󠇨⾇滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}\x{1920}>\x{0338}󞉲。󠇨⾇滸𐹭", %p)}, undef, "to_ascii\(\'\\u072B\\u1920\>\\u0338󞉲\。\󠇨⾇滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:581\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}\x{1920}≯󞉲。󠇨舛滸𐹭", %p)}, undef, "to_ascii\(\'\\u072B\\u1920\≯󞉲\。\󠇨舛滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}\x{1920}>\x{0338}󞉲。󠇨舛滸𐹭", %p)}, undef, "to_ascii\(\'\\u072B\\u1920\>\\u0338󞉲\。\󠇨舛滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:583\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("蔏。\x{08FB}", %p)}, undef, "to_ascii\(\'蔏。\\u08FB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:584\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("蔏。\x{08FB}", %p)}, undef, "to_ascii\(\'蔏\。\\u08FB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:585\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟿𐮂。\x{034E}", %p)}, undef, "to_ascii\(\'𝟿𐮂\。\\u034E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:586\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("9𐮂。\x{034E}", %p)}, undef, "to_ascii\(\'9𐮂\。\\u034E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:587\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󧫃-䟖F。\x{069B}⒈𐹣", %p)}, undef, "to_ascii\(\'󧫃\-䟖F\。\\u069B⒈𐹣\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󧫃-䟖F。\x{069B}1.𐹣", %p)}, undef, "to_ascii\(\'󧫃\-䟖F\。\\u069B1\.𐹣\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󧫃-䟖f。\x{069B}1.𐹣", %p)}, undef, "to_ascii\(\'󧫃\-䟖f\。\\u069B1\.𐹣\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:590\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󧫃-䟖f。\x{069B}⒈𐹣", %p)}, undef, "to_ascii\(\'󧫃\-䟖f\。\\u069B⒈𐹣\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:591\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}。𐹣", %p)}, undef, "to_ascii\(\'\\u200C。𐹣\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:593\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}。𐹣", %p)}, undef, "to_ascii\(\'\\u200C\。𐹣\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:595\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞠃.≯\x{200C}-\x{0714}", %p)}, undef, "to_ascii\(\'𞠃\.\≯\\u200C\-\\u0714\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞠃.>\x{0338}\x{200C}-\x{0714}", %p)}, undef, "to_ascii\(\'𞠃\.\>\\u0338\\u200C\-\\u0714\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{036D}-。≠𐾢", %p)}, undef, "to_ascii\(\'\\u036D\-\。\≠𐾢\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{036D}-。=\x{0338}𐾢", %p)}, undef, "to_ascii\(\'\\u036D\-\。\=\\u0338𐾢\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞀪\x{1A60}。\x{200D}𐥚", %p)}, undef, "to_ascii\(\'𞀪\\u1A60\。\\u200D𐥚\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059D}\x{AAF6}2。㧉𱃺", %p)}, undef, "to_ascii\(\'\\u059D\\uAAF62。㧉𱃺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AAF6}\x{059D}2。㧉𱃺", %p)}, undef, "to_ascii\(\'\\uAAF6\\u059D2。㧉𱃺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AAF6}\x{059D}2。㧉𱃺", %p)}, undef, "to_ascii\(\'\\uAAF6\\u059D2\。㧉𱃺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񪨑𐹾𞺉。≯6", %p)}, undef, "to_ascii\(\'\\u200C񪨑𐹾𞺉\。\≯6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񪨑𐹾𞺉。>\x{0338}6", %p)}, undef, "to_ascii\(\'\\u200C񪨑𐹾𞺉\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񪨑𐹾\x{064A}。≯6", %p)}, undef, "to_ascii\(\'\\u200C񪨑𐹾\\u064A\。\≯6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񪨑𐹾\x{064A}。>\x{0338}6", %p)}, undef, "to_ascii\(\'\\u200C񪨑𐹾\\u064A\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:614\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}.𐹹𛂿-\x{200D}", %p)}, undef, "to_ascii\(\'\\u1734.𐹹𛂿\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}.𐹹𛂿-\x{200D}", %p)}, undef, "to_ascii\(\'\\u1734\.𐹹𛂿\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰ς􍵐。\x{FFA0}", %p)}, undef, "to_ascii\(\'🕰ς􍵐。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰ς􍵐。\x{1160}", %p)}, undef, "to_ascii\(\'🕰ς􍵐\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰Σ􍵐。\x{1160}", %p)}, undef, "to_ascii\(\'🕰Σ􍵐\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:621\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰σ􍵐。\x{1160}", %p)}, undef, "to_ascii\(\'🕰σ􍵐\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰Σ􍵐。\x{FFA0}", %p)}, undef, "to_ascii\(\'🕰Σ􍵐。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🕰σ􍵐。\x{FFA0}", %p)}, undef, "to_ascii\(\'🕰σ􍵐。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08B1}󠅲𐫟\x{08A1}.𐸛\x{1BAA}Ⴃ", %p)}, undef, "to_ascii\(\'\\u08B1\󠅲𐫟\\u08A1\.𐸛\\u1BAAႣ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08B1}󠅲𐫟\x{08A1}.𐸛\x{1BAA}ⴃ", %p)}, undef, "to_ascii\(\'\\u08B1\󠅲𐫟\\u08A1\.𐸛\\u1BAAⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡𑓂-킼.\x{ABED}\x{1C33}\x{06DD}≯", %p)}, undef, "to_ascii\(\'𐹡𑓂\-킼\.\\uABED\\u1C33\\u06DD\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡𑓂-킼.\x{ABED}\x{1C33}\x{06DD}>\x{0338}", %p)}, undef, "to_ascii\(\'𐹡𑓂\-킼\.\\uABED\\u1C33\\u06DD\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。ꡇ\x{0667}򹘐\x{0ACD}", %p)}, undef, "to_ascii\(\'\-\。ꡇ\\u0667򹘐\\u0ACD\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󉡂\x{0F96}.\x{0737}󻨮𐫃𐋡", %p)}, undef, "to_ascii\(\'\\u200D󉡂\\u0F96.\\u0737󻨮𐫃𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ \[data\/IdnaTest\.txt\:631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󉡂\x{0F96}.\x{0737}󻨮𐫃𐋡", %p)}, undef, "to_ascii\(\'\\u200D󉡂\\u0F96\.\\u0737󻨮𐫃𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ \[data\/IdnaTest\.txt\:633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒󷫏ς򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'︒󷫏ς򔩯。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。󷫏ς򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'\。󷫏ς򔩯\。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。󷫏Σ򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'\。󷫏Σ򔩯\。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。󷫏σ򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'\。󷫏σ򔩯\。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒󷫏Σ򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'︒󷫏Σ򔩯。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒󷫏σ򔩯。\x{0644}", %p)}, undef, "to_ascii\(\'︒󷫏σ򔩯。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD93}.\x{FB73}򾟛≯\x{0B82}", %p)}, undef, "to_ascii\(\'\\uFD93.\\uFB73򾟛\≯\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD93}.\x{FB73}򾟛>\x{0338}\x{0B82}", %p)}, undef, "to_ascii\(\'\\uFD93.\\uFB73򾟛\>\\u0338\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0647}\x{0645}\x{062C}.\x{0684}򾟛≯\x{0B82}", %p)}, undef, "to_ascii\(\'\\u0647\\u0645\\u062C\.\\u0684򾟛\≯\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0647}\x{0645}\x{062C}.\x{0684}򾟛>\x{0338}\x{0B82}", %p)}, undef, "to_ascii\(\'\\u0647\\u0645\\u062C\.\\u0684򾟛\>\\u0338\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A42}򜖴.𐨝", %p)}, undef, "to_ascii\(\'\\u0A42򜖴\.𐨝\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒉💰≠。Ⴟ□Ⴈ", %p)}, undef, "to_ascii\(\'⒉💰\≠。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒉💰=\x{0338}。Ⴟ□Ⴈ", %p)}, undef, "to_ascii\(\'⒉💰\=\\u0338。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2.💰≠。Ⴟ□Ⴈ", %p)}, undef, "to_ascii\(\'2\.💰\≠\。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2.💰=\x{0338}。Ⴟ□Ⴈ", %p)}, undef, "to_ascii\(\'2\.💰\=\\u0338\。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2.💰=\x{0338}。ⴟ□ⴈ", %p)}, undef, "to_ascii\(\'2\.💰\=\\u0338\。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2.💰≠。ⴟ□ⴈ", %p)}, undef, "to_ascii\(\'2\.💰\≠\。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:650\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒉💰=\x{0338}。ⴟ□ⴈ", %p)}, undef, "to_ascii\(\'⒉💰\=\\u0338。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒉💰≠。ⴟ□ⴈ", %p)}, undef, "to_ascii\(\'⒉💰\≠。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:652\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𑚫\x{0321}Ⴥ。-\x{0660}𐮩\x{035B}", %p)}, undef, "to_ascii\(\'\-𑚫\\u0321Ⴥ\。\-\\u0660𐮩\\u035B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:653\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𑚫\x{0321}ⴥ。-\x{0660}𐮩\x{035B}", %p)}, undef, "to_ascii\(\'\-𑚫\\u0321ⴥ\。\-\\u0660𐮩\\u035B\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:654\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1B3A}。\x{1B44}︒\x{06AF}\x{0695}", %p)}, undef, "to_ascii\(\'\\u1B3A\。\\u1B44︒\\u06AF\\u0695\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:655\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{1B3A}。\x{1B44}。\x{06AF}\x{0695}", %p)}, undef, "to_ascii\(\'\\u1B3A\。\\u1B44\。\\u06AF\\u0695\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:656\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴙᡡ.\x{0FB8}\x{200D}", %p)}, undef, "to_ascii\(\'Ⴙᡡ\.\\u0FB8\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:658\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FB8}\x{200D}", %p)}, undef, "to_ascii\(\'ⴙᡡ\.\\u0FB8\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:660\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{FE05}。₆0𐭧ᠺ", %p)}, undef, "to_ascii\(\'\\uFE05。₆0𐭧ᠺ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:661\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{FE05}。60𐭧ᠺ", %p)}, undef, "to_ascii\(\'\\uFE05\。60𐭧ᠺ\'\)\ throws\ error\ B1\ \[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("6\x{072C}。-\x{20EE}", %p)}, undef, "to_ascii\(\'6\\u072C。\-\\u20EE\'\)\ throws\ error\ V3\ B1\ \[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("6\x{072C}。-\x{20EE}", %p)}, undef, "to_ascii\(\'6\\u072C\。\-\\u20EE\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:664\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}ς\x{FDBF}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662。\\u0A4Dς\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}ς\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662\。\\u0A4Dς\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}Σ\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662\。\\u0A4DΣ\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:670\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}σ\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662\。\\u0A4Dσ\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:672\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}Σ\x{FDBF}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662。\\u0A4DΣ\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:674\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𜳍\x{0662}。\x{0A4D}σ\x{FDBF}\x{2DEA}", %p)}, undef, "to_ascii\(\'\\u200D𜳍\\u0662。\\u0A4Dσ\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:676\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈񊼈Ⴓ⒪.󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'⒈񊼈Ⴓ⒪.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.񊼈Ⴓ(o).󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'1\.񊼈Ⴓ\(o\)\.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.񊼈ⴓ(o).󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'1\.񊼈ⴓ\(o\)\.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.񊼈Ⴓ(O).󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'1\.񊼈Ⴓ\(O\)\.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈񊼈ⴓ⒪.󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_ascii\(\'⒈񊼈ⴓ⒪.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0772}.\x{0855}𞯝𐹰𐫐", %p)}, undef, "to_ascii\(\'\\u0772\.\\u0855𞯝𐹰𐫐\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FC92}-。𐨿񔅥", %p)}, undef, "to_ascii\(\'\\uFC92\-。𐨿񔅥\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{064A}\x{0632}-。𐨿񔅥", %p)}, undef, "to_ascii\(\'\\u064A\\u0632\-\。𐨿񔅥\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-󠧚ꡐ.\x{1DEF}𜒩🄉", %p)}, undef, "to_ascii\(\'\-\󠧚ꡐ.\\u1DEF𜒩🄉\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-󠧚ꡐ.\x{1DEF}𜒩8,", %p)}, undef, "to_ascii\(\'\-\󠧚ꡐ\.\\u1DEF𜒩8\,\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏧󠗑󰭊􋱔.ᡥ𝟝", %p)}, undef, "to_ascii\(\'🏧\󠗑󰭊􋱔\.ᡥ𝟝\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🏧󠗑󰭊􋱔.ᡥ5", %p)}, undef, "to_ascii\(\'🏧\󠗑󰭊􋱔\.ᡥ5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{066C}.\x{FE0F}", %p)}, undef, "to_ascii\(\'\≮\\u066C.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{066C}.\x{FE0F}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u066C.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{066C}.\x{FE0F}", %p)}, undef, "to_ascii\(\'\≮\\u066C\.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{066C}.\x{FE0F}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u066C\.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:692\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}。脥", %p)}, undef, "to_ascii\(\'𐹭ᯛ\\u1BF3。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:693\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}。脥", %p)}, undef, "to_ascii\(\'𐹭ᯛ\\u1BF3\。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:694\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1BF3}\x{115F}𞣱򃜐.-", %p)}, undef, "to_ascii\(\'\\u1BF3\\u115F𞣱򃜐\.\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:695\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{AAED}", %p)}, undef, "to_ascii\(\'\\u200C。\\uAAED\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:697\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{AAED}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uAAED\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:699\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{077A}𑒺.𐫎Ⴎ", %p)}, undef, "to_ascii\(\'\\u077A𑒺.𐫎Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{077A}𑒺.𐫎Ⴎ", %p)}, undef, "to_ascii\(\'\\u077A𑒺\.𐫎Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:701\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{077A}𑒺.𐫎ⴎ", %p)}, undef, "to_ascii\(\'\\u077A𑒺\.𐫎ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:702\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{077A}𑒺.𐫎ⴎ", %p)}, undef, "to_ascii\(\'\\u077A𑒺.𐫎ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:703\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07DD}\x{1921}Ξ.蚗㛨󠫺", %p)}, undef, "to_ascii\(\'\\u07DD\\u1921Ξ.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DD}\x{1921}Ξ.蚗㛨󠫺", %p)}, undef, "to_ascii\(\'\\u07DD\\u1921Ξ\.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DD}\x{1921}ξ.蚗㛨󠫺", %p)}, undef, "to_ascii\(\'\\u07DD\\u1921ξ\.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DD}\x{1921}ξ.蚗㛨󠫺", %p)}, undef, "to_ascii\(\'\\u07DD\\u1921ξ.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{083F}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。Ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{083F}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。Ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{083F}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。Ⴛ\x{083F}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。Ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{083F}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{083F}。", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-\。ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:719\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{083F}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("᠆몆\x{200C}-。ⴛ\x{083F}︒", %p)}, undef, "to_ascii\(\'᠆몆\\u200C\-。ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠵜.︒󠲅\x{200C}𐹽", %p)}, undef, "to_ascii\(\'\󠵜\.︒\󠲅\\u200C𐹽\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠵜.。󠲅\x{200C}𐹽", %p)}, undef, "to_ascii\(\'\󠵜\.\。\󠲅\\u200C𐹽\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:727\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FC48}.𐹢Ⴑ񣞍\x{0765}", %p)}, undef, "to_ascii\(\'\\uFC48\.𐹢Ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:728\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0645}\x{0645}.𐹢Ⴑ񣞍\x{0765}", %p)}, undef, "to_ascii\(\'\\u0645\\u0645\.𐹢Ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:729\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0645}\x{0645}.𐹢ⴑ񣞍\x{0765}", %p)}, undef, "to_ascii\(\'\\u0645\\u0645\.𐹢ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:730\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FC48}.𐹢ⴑ񣞍\x{0765}", %p)}, undef, "to_ascii\(\'\\uFC48\.𐹢ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:731\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁁𼉗.𝟭Ⴛ", %p)}, undef, "to_ascii\(\'\󠁁𼉗.𝟭Ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁁𼉗.1Ⴛ", %p)}, undef, "to_ascii\(\'\󠁁𼉗\.1Ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁁𼉗.1ⴛ", %p)}, undef, "to_ascii\(\'\󠁁𼉗\.1ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁁𼉗.𝟭ⴛ", %p)}, undef, "to_ascii\(\'\󠁁𼉗.𝟭ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:735\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-\x{1A65}齀。릿\x{0637}", %p)}, undef, "to_ascii\(\'\-\\u1A65齀\。릿\\u0637\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:736\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("-\x{1A65}齀。릿\x{0637}", %p)}, undef, "to_ascii\(\'\-\\u1A65齀\。릿\\u0637\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:737\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠇕\x{0687}鹝꾗。񺧞\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\󠇕\\u0687鹝꾗\。񺧞\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:739\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇕\x{0687}鹝꾗。񺧞\x{200D}\x{200D}⏃", %p)}, undef, "to_ascii\(\'\󠇕\\u0687鹝꾗\。񺧞\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:741\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.-𐻡--", %p)}, undef, "to_ascii\(\'\≮.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:742\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.-𐻡--", %p)}, undef, "to_ascii\(\'\<\\u0338.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:743\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.-𐻡--", %p)}, undef, "to_ascii\(\'\≮\.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:744\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.-𐻡--", %p)}, undef, "to_ascii\(\'\<\\u0338\.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:745\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}ς𝟩", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200Dς𝟩\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:747\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}ς7", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200Dς7\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:749\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}Σ7", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200DΣ7\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:751\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}σ7", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200Dσ7\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:753\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}Σ𝟩", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200DΣ𝟩\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:755\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0664}⭼。\x{200D}σ𝟩", %p)}, undef, "to_ascii\(\'\\u0664\⭼\。\\u200Dσ𝟩\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:757\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς񩓤8.𞫘", %p)}, undef, "to_ascii\(\'ς񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς񩓤8.𞫘", %p)}, undef, "to_ascii\(\'ς񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ񩓤8.𞫘", %p)}, undef, "to_ascii\(\'Σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ񩓤8.𞫘", %p)}, undef, "to_ascii\(\'σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ񩓤8.𞫘", %p)}, undef, "to_ascii\(\'Σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ񩓤8.𞫘", %p)}, undef, "to_ascii\(\'σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{07CE}🄀\x{0843}.-\x{07E6}𑌁", %p)}, undef, "to_ascii\(\'\\u200C\\u07CE🄀\\u0843.\-\\u07E6𑌁\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:765\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}\x{07CE}0.\x{0843}.-\x{07E6}𑌁", %p)}, undef, "to_ascii\(\'\\u200C\\u07CE0\.\\u0843\.\-\\u07E6𑌁\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:767\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("􉿃。𞸝넯򆰡", %p)}, undef, "to_ascii\(\'􉿃\。𞸝넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:768\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿃。𞸝넯򆰡", %p)}, undef, "to_ascii\(\'􉿃\。𞸝넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:769\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿃。\x{06BA}넯򆰡", %p)}, undef, "to_ascii\(\'􉿃\。\\u06BA넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿃。\x{06BA}넯򆰡", %p)}, undef, "to_ascii\(\'􉿃\。\\u06BA넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡇႸ。\x{0600}Ⴈ\x{08F9}", %p)}, undef, "to_ascii\(\'ᡇႸ\。\\u0600Ⴈ\\u08F9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡇⴘ。\x{0600}ⴈ\x{08F9}", %p)}, undef, "to_ascii\(\'ᡇⴘ\。\\u0600ⴈ\\u08F9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒚♰\x{08B0}。牣𐹤Ⴜᣥ", %p)}, undef, "to_ascii\(\'⒚\♰\\u08B0\。牣𐹤Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("19.♰\x{08B0}。牣𐹤Ⴜᣥ", %p)}, undef, "to_ascii\(\'19\.\♰\\u08B0\。牣𐹤Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:775\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("19.♰\x{08B0}。牣𐹤ⴜᣥ", %p)}, undef, "to_ascii\(\'19\.\♰\\u08B0\。牣𐹤ⴜᣥ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:776\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒚♰\x{08B0}。牣𐹤ⴜᣥ", %p)}, undef, "to_ascii\(\'⒚\♰\\u08B0\。牣𐹤ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐋱𞧐⒈.Ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𞧐⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐋱𞧐1..Ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𞧐1\.\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:779\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐋱𞧐1..ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𞧐1\.\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:780\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐋱𞧐⒈.ⴓ", %p)}, undef, "to_ascii\(\'\-𐋱𞧐⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:781\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}긃.󰎽-", %p)}, undef, "to_ascii\(\'\\u200C긃\.󰎽\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:783\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}긃.󰎽-", %p)}, undef, "to_ascii\(\'\\u200C긃\.󰎽\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:785\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("뉓泓񢊆.𑘿\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓񢊆\.𑘿\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:786\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("뉓泓񢊆.𑘿\x{200D}", %p)}, undef, "to_ascii\(\'뉓泓񢊆\.𑘿\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾ß。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾ß。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:789\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾ß。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾ß\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:791\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾SS。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾SS\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾ss\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾Ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾Ss\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾SS。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾SS。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾ss。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:801\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹾Ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_ascii\(\'\\u200D𐹾Ss。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:803\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}.𐨿-≮≠", %p)}, undef, "to_ascii\(\'\\u0ACD.𐨿\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}.𐨿-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0ACD.𐨿\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:805\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}.𐨿-≮≠", %p)}, undef, "to_ascii\(\'\\u0ACD\.𐨿\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}.𐨿-<\x{0338}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0ACD\.𐨿\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}Ⴑ\x{115F}.𑖿Ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7FႱ\\u115F.𑖿Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}Ⴑ\x{115F}.𑖿Ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7FႱ\\u115F\.𑖿Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7Fⴑ\\u115F\.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}Ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7FႱ\\u115F\.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7Fⴑ\\u115F.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}Ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_ascii\(\'\\u2D7FႱ\\u115F.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󖗚。Ⴃ𐳖\x{0601}똯", %p)}, undef, "to_ascii\(\'󖗚\。Ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󖗚。Ⴃ𐳖\x{0601}똯", %p)}, undef, "to_ascii\(\'󖗚\。Ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󖗚。ⴃ𐳖\x{0601}똯", %p)}, undef, "to_ascii\(\'󖗚\。ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󖗚。ⴃ𐳖\x{0601}똯", %p)}, undef, "to_ascii\(\'󖗚\。ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢥ。⳻󠷡󠆏\x{3164}", %p)}, undef, "to_ascii\(\'ᢥ。⳻\󠷡\󠆏\\u3164\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢥ。⳻󠷡󠆏\x{1160}", %p)}, undef, "to_ascii\(\'ᢥ\。⳻\󠷡\󠆏\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐼣⾇.ᡙ-𐋰", %p)}, undef, "to_ascii\(\'𐼣⾇.ᡙ\-𐋰\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐼣舛.ᡙ-𐋰", %p)}, undef, "to_ascii\(\'𐼣舛\.ᡙ\-𐋰\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:821\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕󝌩≮.︒", %p)}, undef, "to_ascii\(\'Ⴉ猕󝌩\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕󝌩<\x{0338}.︒", %p)}, undef, "to_ascii\(\'Ⴉ猕󝌩\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:823\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕󝌩≮.。", %p)}, undef, "to_ascii\(\'Ⴉ猕󝌩\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ猕󝌩<\x{0338}.。", %p)}, undef, "to_ascii\(\'Ⴉ猕󝌩\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:825\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕󝌩<\x{0338}.。", %p)}, undef, "to_ascii\(\'ⴉ猕󝌩\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕󝌩≮.。", %p)}, undef, "to_ascii\(\'ⴉ猕󝌩\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕󝌩<\x{0338}.︒", %p)}, undef, "to_ascii\(\'ⴉ猕󝌩\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ猕󝌩≮.︒", %p)}, undef, "to_ascii\(\'ⴉ猕󝌩\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:829\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("🜙。\x{0635}鳳ꡱ\x{08FC}", %p)}, undef, "to_ascii\(\'🜙。\\u0635鳳ꡱ\\u08FC\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:830\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("🜙。\x{0635}鳳ꡱ\x{08FC}", %p)}, undef, "to_ascii\(\'🜙\。\\u0635鳳ꡱ\\u08FC\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:831\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}𐹮。ß", %p)}, undef, "to_ascii\(\'\\u200D𐹮\。ß\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:833\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200D}𐹮。SS", %p)}, undef, "to_ascii\(\'\\u200D𐹮\。SS\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:835\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:837\]") 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\:839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:841\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("A\x{030A}둄-.\x{200C}", %p)}, undef, "to_ascii\(\'A\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ 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("å둄-.\x{200C}", %p)}, undef, "to_ascii\(\'å둄\-.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035F}󪒅󠆬ᢐ.󈌵-\x{A8EB}", %p)}, undef, "to_ascii\(\'\\u035F󪒅\󠆬ᢐ\.󈌵\-\\uA8EB\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:852\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'ς\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:853\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'ς\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:854\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.SS𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.SS𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:855\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:856\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:857\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:858\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:859\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.SS𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.SS𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:860\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:861\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:862\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'Σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_ascii\(\'σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ 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{06EF}󠄚。𐹫𑂁", %p)}, undef, "to_ascii\(\'\\u06EF\󠄚。𐹫𑂁\'\)\ 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{06EF}󠄚。𐹫𑂁", %p)}, undef, "to_ascii\(\'\\u06EF\󠄚\。𐹫𑂁\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:866\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񊧏\x{200C}𞭭。௸񗷞-\x{FD57}", %p)}, undef, "to_ascii\(\'񊧏\\u200C𞭭。௸񗷞\-\\uFD57\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񊧏\x{200C}𞭭。௸񗷞-\x{062A}\x{0645}\x{062E}", %p)}, undef, "to_ascii\(\'񊧏\\u200C𞭭\。௸񗷞\-\\u062A\\u0645\\u062E\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}𞳕\x{200C}。\x{0485}︒", %p)}, undef, "to_ascii\(\'룱\\u200D𞳕\\u200C\。\\u0485︒\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}𞳕\x{200C}。\x{0485}︒", %p)}, undef, "to_ascii\(\'룱\\u200D𞳕\\u200C\。\\u0485︒\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}𞳕\x{200C}。\x{0485}。", %p)}, undef, "to_ascii\(\'룱\\u200D𞳕\\u200C\。\\u0485\。\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("룱\x{200D}𞳕\x{200C}。\x{0485}。", %p)}, undef, "to_ascii\(\'룱\\u200D𞳕\\u200C\。\\u0485\。\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄄.\x{FE03}⒈ß", %p)}, undef, "to_ascii\(\'🄄.\\uFE03⒈ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3,.\x{FE03}1.ß", %p)}, undef, "to_ascii\(\'3\,\.\\uFE031\.ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3,.\x{FE03}1.SS", %p)}, undef, "to_ascii\(\'3\,\.\\uFE031\.SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄄.\x{FE03}⒈SS", %p)}, undef, "to_ascii\(\'🄄.\\uFE03⒈SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄄.\x{FE03}⒈ss", %p)}, undef, "to_ascii\(\'🄄.\\uFE03⒈ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄄.\x{FE03}⒈Ss", %p)}, undef, "to_ascii\(\'🄄.\\uFE03⒈Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򢋻𑄳。𐰕񷒾\x{FEFF}", %p)}, undef, "to_ascii\(\'򢋻𑄳。𐰕񷒾\\uFEFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򢋻𑄳。𐰕񷒾\x{FEFF}", %p)}, undef, "to_ascii\(\'򢋻𑄳\。𐰕񷒾\\uFEFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A73}\x{094D}\x{1BF2}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1A73\\u094D\\u1BF2.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A73}\x{094D}\x{1BF2}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1A73\\u094D\\u1BF2.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A73}\x{094D}\x{1BF2}.≠\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1A73\\u094D\\u1BF2\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A73}\x{094D}\x{1BF2}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_ascii\(\'\\u1A73\\u094D\\u1BF2\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴁ𐋨娤.\x{200D}\x{0981}\x{0601}\x{0A70}", %p)}, undef, "to_ascii\(\'Ⴁ𐋨娤\.\\u200D\\u0981\\u0601\\u0A70\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴁ𐋨娤.\x{200D}\x{0981}\x{0601}\x{0A70}", %p)}, undef, "to_ascii\(\'ⴁ𐋨娤\.\\u200D\\u0981\\u0601\\u0A70\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀Ⴄ𐹾󠅩。⒈\x{0736}ß", %p)}, undef, "to_ascii\(\'🄀Ⴄ𐹾\󠅩\。⒈\\u0736ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.Ⴄ𐹾󠅩。1.\x{0736}ß", %p)}, undef, "to_ascii\(\'0\.Ⴄ𐹾\󠅩\。1\.\\u0736ß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:900\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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.ⴄ𐹾󠅩。1.\x{0736}ß", %p)}, undef, "to_ascii\(\'0\.ⴄ𐹾\󠅩\。1\.\\u0736ß\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:901\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("0.Ⴄ𐹾󠅩。1.\x{0736}SS", %p)}, undef, "to_ascii\(\'0\.Ⴄ𐹾\󠅩\。1\.\\u0736SS\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:902\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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.ⴄ𐹾󠅩。1.\x{0736}ss", %p)}, undef, "to_ascii\(\'0\.ⴄ𐹾\󠅩\。1\.\\u0736ss\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:903\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("0.Ⴄ𐹾󠅩。1.\x{0736}Ss", %p)}, undef, "to_ascii\(\'0\.Ⴄ𐹾\󠅩\。1\.\\u0736Ss\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:904\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀ⴄ𐹾󠅩。⒈\x{0736}ß", %p)}, undef, "to_ascii\(\'🄀ⴄ𐹾\󠅩\。⒈\\u0736ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:905\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀Ⴄ𐹾󠅩。⒈\x{0736}SS", %p)}, undef, "to_ascii\(\'🄀Ⴄ𐹾\󠅩\。⒈\\u0736SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:906\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀ⴄ𐹾󠅩。⒈\x{0736}ss", %p)}, undef, "to_ascii\(\'🄀ⴄ𐹾\󠅩\。⒈\\u0736ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:907\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄀Ⴄ𐹾󠅩。⒈\x{0736}Ss", %p)}, undef, "to_ascii\(\'🄀Ⴄ𐹾\󠅩\。⒈\\u0736Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠.\x{200C}-𐹸", %p)}, undef, "to_ascii\(\'\≠\.\\u200C\-𐹸\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}.\x{200C}-𐹸", %p)}, undef, "to_ascii\(\'\=\\u0338\.\\u200C\-𐹸\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:912\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0665}۱。\x{180B}𐡼\x{0663}", %p)}, undef, "to_ascii\(\'\\u0665۱。\\u180B𐡼\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:913\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0665}۱。\x{180B}𐡼\x{0663}", %p)}, undef, "to_ascii\(\'\\u0665۱\。\\u180B𐡼\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:914\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{066B}⒖。󙀷񅖙\x{0DCA}", %p)}, undef, "to_ascii\(\'\\u200C\\u066B⒖\。󙀷񅖙\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:916\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{066B}15.。󙀷񅖙\x{0DCA}", %p)}, undef, "to_ascii\(\'\\u200C\\u066B15\.\。󙀷񅖙\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:918\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.-逋𰶞򼥘", %p)}, undef, "to_ascii\(\'\\u0B4D\.\-逋𰶞򼥘\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{3164}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0847\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{1160}\x{200D}ς", %p)}, undef, "to_ascii\(\'\\u0847\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{1160}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0847\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{1160}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0847\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{3164}\x{200D}Σ", %p)}, undef, "to_ascii\(\'\\u0847\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0847}。\x{3164}\x{200D}σ", %p)}, undef, "to_ascii\(\'\\u0847\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0843}Ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0843Ⴃ。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0843}Ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0843Ⴃ\。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0843}ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0843ⴃ\。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0843}ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_ascii\(\'\\u0843ⴃ。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.ς\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘.ς\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.ς\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘\.ς\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.Σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘\.Σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘\.σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.Σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘.Σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:949\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㭄\x{200D}ᠯ󠯘.σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_ascii\(\'㭄\\u200Dᠯ\󠯘.σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:951\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B5}。𐳺\x{0845}󠃧", %p)}, undef, "to_ascii\(\'\\u17B5\。𐳺\\u0845\󠃧\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򾏛暑.⾑\x{0662}", %p)}, undef, "to_ascii\(\'򾏛暑.⾑\\u0662\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:953\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򾏛暑.襾\x{0662}", %p)}, undef, "to_ascii\(\'򾏛暑\.襾\\u0662\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17D1}≯\x{08AA}。\x{060D}\x{08EC}", %p)}, undef, "to_ascii\(\'\\u17D1\≯\\u08AA\。\\u060D\\u08EC\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17D1}>\x{0338}\x{08AA}。\x{060D}\x{08EC}", %p)}, undef, "to_ascii\(\'\\u17D1\>\\u0338\\u08AA\。\\u060D\\u08EC\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫹񏔜𑚶\x{103A}.򕔔Ⴗ", %p)}, undef, "to_ascii\(\'𞫹񏔜𑚶\\u103A\.򕔔Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:957\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫹񏔜𑚶\x{103A}.򕔔ⴗ", %p)}, undef, "to_ascii\(\'𞫹񏔜𑚶\\u103A\.򕔔ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:958\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆽。𐨿񃱏񛂙", %p)}, undef, "to_ascii\(\'\󠆽。𐨿񃱏񛂙\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:959\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆽。𐨿񃱏񛂙", %p)}, undef, "to_ascii\(\'\󠆽\。𐨿񃱏񛂙\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:960\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BA9}\x{200C}.𞥖\x{200C}ꡓ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200C.𞥖\\u200Cꡓ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:962\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1BA9}\x{200C}.𞥖\x{200C}ꡓ", %p)}, undef, "to_ascii\(\'\\u1BA9\\u200C\.𞥖\\u200Cꡓ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡉ񥜐ß.ጧ", %p)}, undef, "to_ascii\(\'ᡉ񥜐ß\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡉ񥜐SS.ጧ", %p)}, undef, "to_ascii\(\'ᡉ񥜐SS\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡉ񥜐ss.ጧ", %p)}, undef, "to_ascii\(\'ᡉ񥜐ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡉ񥜐Ss.ጧ", %p)}, undef, "to_ascii\(\'ᡉ񥜐Ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍴\x{200C}.򞞰\x{200C}", %p)}, undef, "to_ascii\(\'𑍴\\u200C\.򞞰\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CC}򶕐\x{0663}。Ⴜ", %p)}, undef, "to_ascii\(\'\\u06CC򶕐\\u0663\。Ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06CC}򶕐\x{0663}。ⴜ", %p)}, undef, "to_ascii\(\'\\u06CC򶕐\\u0663\。ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0600}⮣\x{200C}\x{135F}。󯅪𐠨", %p)}, undef, "to_ascii\(\'\\u0600\⮣\\u200C\\u135F。󯅪𐠨\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:974\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0600}⮣\x{200C}\x{135F}。󯅪𐠨", %p)}, undef, "to_ascii\(\'\\u0600\⮣\\u200C\\u135F\。󯅪𐠨\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。デßꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。デßꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}ßꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099ßꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:978\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ。テ\x{3099}ßꡢ𑂹", %p)}, "xn--9kj.xn--zca146vs88eyh1d", "to_ascii\(\'ⴒ\。テ\\u3099ßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:980\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ。デßꡢ𑂹", %p)}, "xn--9kj.xn--zca146vs88eyh1d", "to_ascii\(\'ⴒ\。デßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:982\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ。デSSꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。デSSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}SSꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099SSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:984\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ。テ\x{3099}ssꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\。テ\\u3099ssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:985\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ。デssꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\。デssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:986\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ。デSsꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。デSsꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:987\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ。テ\x{3099}Ssꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\。テ\\u3099Ssꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:988\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--9kj.xn--ss-mj4a0834c49ue", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'xn\-\-9kj\.xn\-\-ss\-mj4a0834c49ue\'\)\ \[data\/IdnaTest\.txt\:989\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ.デssꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\.デssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:990\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ.テ\x{3099}ssꡢ𑂹", %p)}, "xn--9kj.xn--ss-mj4a0834c49ue", "to_ascii\(\'ⴒ\.テ\\u3099ssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:991\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴒ.テ\x{3099}SSꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\.テ\\u3099SSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ.デSSꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\.デSSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ.デSsꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\.デSsꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴒ.テ\x{3099}Ssꡢ𑂹", %p)}, undef, "to_ascii\(\'Ⴒ\.テ\\u3099Ssꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:995\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--9kj.xn--zca146vs88eyh1d", %p)}, "xn--9kj.xn--zca146vs88eyh1d", "to_ascii\(\'xn\-\-9kj\.xn\-\-zca146vs88eyh1d\'\)\ \[data\/IdnaTest\.txt\:996\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ.デßꡢ𑂹", %p)}, "xn--9kj.xn--zca146vs88eyh1d", "to_ascii\(\'ⴒ\.デßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:998\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴒ.テ\x{3099}ßꡢ𑂹", %p)}, "xn--9kj.xn--zca146vs88eyh1d", "to_ascii\(\'ⴒ\.テ\\u3099ßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:1000\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿\x{0BCD}.7-\x{08A9}", %p)}, undef, "to_ascii\(\'𑖿\\u0BCD.7\-\\u08A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1001\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿\x{0BCD}.7-\x{08A9}", %p)}, undef, "to_ascii\(\'𑖿\\u0BCD\.7\-\\u08A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1002\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{17D2}🟌.\x{1734}񌂒\x{1DC1}\x{0625}", %p)}, undef, "to_ascii\(\'\≯\\u17D2🟌\.\\u1734񌂒\\u1DC1\\u0625\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{17D2}🟌.\x{1734}񌂒\x{1DC1}\x{0627}\x{0655}", %p)}, undef, "to_ascii\(\'\>\\u0338\\u17D2🟌\.\\u1734񌂒\\u1DC1\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖲򠍜Ⴗ쏔。𐴋", %p)}, undef, "to_ascii\(\'𑖲򠍜Ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1005\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖲򠍜Ⴗ쏔。𐴋", %p)}, undef, "to_ascii\(\'𑖲򠍜Ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖲򠍜ⴗ쏔。𐴋", %p)}, undef, "to_ascii\(\'𑖲򠍜ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖲򠍜ⴗ쏔。𐴋", %p)}, undef, "to_ascii\(\'𑖲򠍜ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1008\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'ß。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß。𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'ß\。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1010\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß。𐋳ⴌ\x{0591}", %p)}, "xn--zca.xn--ccb723rvh6l", "to_ascii\(\'ß\。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1012\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS。𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'SS\。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1013\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss。𐋳ⴌ\x{0591}", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ss\。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1014\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss.xn--ccb723rvh6l", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ss\.xn\-\-ccb723rvh6l\'\)\ \[data\/IdnaTest\.txt\:1015\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss.𐋳ⴌ\x{0591}", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ss\.𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1016\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS.𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'SS\.𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1017\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--zca.xn--ccb723rvh6l", %p)}, "xn--zca.xn--ccb723rvh6l", "to_ascii\(\'xn\-\-zca\.xn\-\-ccb723rvh6l\'\)\ \[data\/IdnaTest\.txt\:1018\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß.𐋳ⴌ\x{0591}", %p)}, "xn--zca.xn--ccb723rvh6l", "to_ascii\(\'ß\.𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1020\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß。𐋳ⴌ\x{0591}", %p)}, "xn--zca.xn--ccb723rvh6l", "to_ascii\(\'ß。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1022\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS。𐋳Ⴌ\x{0591}", %p)}, undef, "to_ascii\(\'SS。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1023\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss。𐋳ⴌ\x{0591}", %p)}, "ss.xn--ccb723rvh6l", "to_ascii\(\'ss。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1024\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}", %p)}, undef, "to_ascii\(\'\-ꡝ𐩁\.\\u200C➇\\uABED\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:1026\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0B42}\x{08B4}\x{17CD}\x{0DCA}.󠆇\x{200D}", %p)}, undef, "to_ascii\(\'\\u0B42\\u08B4\\u17CD\\u0DCA\.\󠆇\\u200D\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1028\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠅡\x{200D}󠨿ꡁ.\x{07D3}\x{200C}󠜔", %p)}, undef, "to_ascii\(\'\󠅡\\u200D\󠨿ꡁ\.\\u07D3\\u200C\󠜔\'\)\ throws\ error\ P1\ V6\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴑ.\x{07D1}\x{FB8A}\x{0634}", %p)}, undef, "to_ascii\(\'Ⴑ.\\u07D1\\uFB8A\\u0634\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴑ.\x{07D1}\x{0698}\x{0634}", %p)}, undef, "to_ascii\(\'Ⴑ\.\\u07D1\\u0698\\u0634\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1032\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0698}\x{0634}", %p)}, "xn--8kj.xn--zgb3ro7a", "to_ascii\(\'ⴑ\.\\u07D1\\u0698\\u0634\'\)\ \[data\/IdnaTest\.txt\:1033\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--8kj.xn--zgb3ro7a", %p)}, "xn--8kj.xn--zgb3ro7a", "to_ascii\(\'xn\-\-8kj\.xn\-\-zgb3ro7a\'\)\ \[data\/IdnaTest\.txt\:1034\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{FB8A}\x{0634}", %p)}, "xn--8kj.xn--zgb3ro7a", "to_ascii\(\'ⴑ.\\u07D1\\uFB8A\\u0634\'\)\ \[data\/IdnaTest\.txt\:1035\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝩝玵\x{A9C0}。𕹊𝟵", %p)}, undef, "to_ascii\(\'𝩝玵\\uA9C0\。𕹊𝟵\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩝玵\x{A9C0}。𕹊9", %p)}, undef, "to_ascii\(\'𝩝玵\\uA9C0\。𕹊9\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{06CF}󂎶𝟗。Ⴣꜟ𐰾󄮷", %p)}, undef, "to_ascii\(\'\\u200C\\u06CF󂎶𝟗。Ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{06CF}󂎶9。Ⴣꜟ𐰾󄮷", %p)}, undef, "to_ascii\(\'\\u200C\\u06CF󂎶9\。Ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{06CF}󂎶9。ⴣꜟ𐰾󄮷", %p)}, undef, "to_ascii\(\'\\u200C\\u06CF󂎶9\。ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{06CF}󂎶𝟗。ⴣꜟ𐰾󄮷", %p)}, undef, "to_ascii\(\'\\u200C\\u06CF󂎶𝟗。ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D0}。\x{1B70}𹝗󠇑-", %p)}, undef, "to_ascii\(\'\\u07D0。\\u1B70𹝗\󠇑\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D0}。\x{1B70}𹝗󠇑-", %p)}, undef, "to_ascii\(\'\\u07D0\。\\u1B70𹝗\󠇑\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞧺󨸝。絧\x{0EB7}", %p)}, undef, "to_ascii\(\'𞧺󨸝\。絧\\u0EB7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}Ⴋ.𝟳≯︒\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39Ⴋ.𝟳\≯︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}Ⴋ.𝟳>\x{0338}︒\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39Ⴋ.𝟳\>\\u0338︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}Ⴋ.7≯。\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39Ⴋ\.7\≯\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}Ⴋ.7>\x{0338}。\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39Ⴋ\.7\>\\u0338\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}ⴋ.7>\x{0338}。\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39ⴋ\.7\>\\u0338\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}ⴋ.7≯。\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39ⴋ\.7\≯\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}ⴋ.𝟳>\x{0338}︒\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39ⴋ.𝟳\>\\u0338︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B39}ⴋ.𝟳≯︒\x{17B8}", %p)}, undef, "to_ascii\(\'\\u1B39ⴋ.𝟳\≯︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}F\x{ABED}。⤵︒\x{06AD}𐹸", %p)}, undef, "to_ascii\(\'\\u200DF\\uABED\。\⤵︒\\u06AD𐹸\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1058\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}。⤵。\x{06AD}𐹸", %p)}, undef, "to_ascii\(\'\\u200DF\\uABED\。\⤵\。\\u06AD𐹸\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1060\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}。⤵。\x{06AD}𐹸", %p)}, undef, "to_ascii\(\'\\u200Df\\uABED\。\⤵\。\\u06AD𐹸\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1062\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--f-0w5e.xn--0ri.xn--gkb6716k", %p)}, "xn--f-0w5e.xn--0ri.xn--gkb6716k", "to_ascii\(\'xn\-\-f\-0w5e\.xn\-\-0ri\.xn\-\-gkb6716k\'\)\ \[data\/IdnaTest\.txt\:1063\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("f\x{ABED}.⤵.\x{06AD}𐹸", %p)}, "xn--f-0w5e.xn--0ri.xn--gkb6716k", "to_ascii\(\'f\\uABED\.\⤵\.\\u06AD𐹸\'\)\ \[data\/IdnaTest\.txt\:1064\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("F\x{ABED}.⤵.\x{06AD}𐹸", %p)}, "xn--f-0w5e.xn--0ri.xn--gkb6716k", "to_ascii\(\'F\\uABED\.\⤵\.\\u06AD𐹸\'\)\ \[data\/IdnaTest\.txt\:1065\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}f\x{ABED}。⤵︒\x{06AD}𐹸", %p)}, undef, "to_ascii\(\'\\u200Df\\uABED\。\⤵︒\\u06AD𐹸\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}🄇𐸷︒。𐹰\x{0F84}", %p)}, undef, "to_ascii\(\'\\u0775🄇𐸷︒。𐹰\\u0F84\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:1068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}6,𐸷。。𐹰\x{0F84}", %p)}, undef, "to_ascii\(\'\\u07756\,𐸷\。\。𐹰\\u0F84\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐽜.\x{2DF3}\x{0748}𞬜", %p)}, undef, "to_ascii\(\'𐽜\.\\u2DF3\\u0748𞬜\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐽜.\x{0748}\x{2DF3}𞬜", %p)}, undef, "to_ascii\(\'𐽜\.\\u0748\\u2DF3𞬜\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴂ䠺。\x{084E}旤𺹼\x{0850}", %p)}, undef, "to_ascii\(\'Ⴂ䠺\。\\u084E旤𺹼\\u0850\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴂ䠺。\x{084E}旤𺹼\x{0850}", %p)}, undef, "to_ascii\(\'ⴂ䠺\。\\u084E旤𺹼\\u0850\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄇伐︒.򟳭\x{1039}", %p)}, undef, "to_ascii\(\'🄇伐︒\.򟳭\\u1039\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6,伐。.򟳭\x{1039}", %p)}, undef, "to_ascii\(\'6\,伐\。\.򟳭\\u1039\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1075\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐹤\x{0DCA}⺶。\x{200D}𐫚Ⴚ\x{1B44}", %p)}, undef, "to_ascii\(\'\\u200D𐹤\\u0DCA⺶\。\\u200D𐫚Ⴚ\\u1B44\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1077\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}𐹤\x{0DCA}⺶。\x{200D}𐫚ⴚ\x{1B44}", %p)}, undef, "to_ascii\(\'\\u200D𐹤\\u0DCA⺶\。\\u200D𐫚ⴚ\\u1B44\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1079\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0FAB}.󐓯򑿜", %p)}, undef, "to_ascii\(\'\\u0FAB.󐓯򑿜\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAB}.󐓯򑿜", %p)}, undef, "to_ascii\(\'\\u0FAB\.󐓯򑿜\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}Ⴆ.≠\x{FE8D}", %p)}, undef, "to_ascii\(\'\\u072D\\u200CႦ\.\≠\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}Ⴆ.=\x{0338}\x{FE8D}", %p)}, undef, "to_ascii\(\'\\u072D\\u200CႦ\.\=\\u0338\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}Ⴆ.≠\x{0627}", %p)}, undef, "to_ascii\(\'\\u072D\\u200CႦ\.\≠\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}Ⴆ.=\x{0338}\x{0627}", %p)}, undef, "to_ascii\(\'\\u072D\\u200CႦ\.\=\\u0338\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1089\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}ⴆ.=\x{0338}\x{0627}", %p)}, undef, "to_ascii\(\'\\u072D\\u200Cⴆ\.\=\\u0338\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1091\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}ⴆ.≠\x{0627}", %p)}, undef, "to_ascii\(\'\\u072D\\u200Cⴆ\.\≠\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1093\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}ⴆ.=\x{0338}\x{FE8D}", %p)}, undef, "to_ascii\(\'\\u072D\\u200Cⴆ\.\=\\u0338\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1095\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072D}\x{200C}ⴆ.≠\x{FE8D}", %p)}, undef, "to_ascii\(\'\\u072D\\u200Cⴆ\.\≠\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1097\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07F2}󂉽𝟥ꘌ.\x{07CA}", %p)}, undef, "to_ascii\(\'\\u07F2󂉽𝟥ꘌ.\\u07CA\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1098\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07F2}󂉽3ꘌ.\x{07CA}", %p)}, undef, "to_ascii\(\'\\u07F2󂉽3ꘌ\.\\u07CA\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.󠆌򝒅-", %p)}, undef, "to_ascii\(\'\-\.\󠆌򝒅\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲ς", %p)}, undef, "to_ascii\(\'򲼁\\u200C。\\u200C𐳲ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲ς", %p)}, undef, "to_ascii\(\'򲼁\\u200C\。\\u200C𐳲ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1104\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲Σ", %p)}, undef, "to_ascii\(\'򲼁\\u200C\。\\u200C𐳲Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲σ", %p)}, undef, "to_ascii\(\'򲼁\\u200C\。\\u200C𐳲σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1108\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲Σ", %p)}, undef, "to_ascii\(\'򲼁\\u200C。\\u200C𐳲Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1110\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򲼁\x{200C}。\x{200C}𐳲σ", %p)}, undef, "to_ascii\(\'򲼁\\u200C。\\u200C𐳲σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1112\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("堕𑍍󠇣。ᠻᢕ\x{200C}-", %p)}, undef, "to_ascii\(\'堕𑍍\󠇣\。ᠻᢕ\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1114\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}ς\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077Eς\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1115\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}ς\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077Eς\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1116\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}Σ\x{062A}Σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077EΣ\\u062AΣ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1117\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}σ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077Eσ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1118\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}Σ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077EΣ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1119\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}Σ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077EΣ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1120\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}σ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077Eσ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1121\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}Σ\x{062A}Σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077EΣ\\u062AΣ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1122\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}σ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077Eσ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1123\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}Σ\x{062A}σ", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077EΣ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1124\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}Σ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077EΣ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1125\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}σ\x{062A}ς", %p)}, undef, "to_ascii\(\'𐹥\\u0BCDꡜ\\u0678。\\u077Eσ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1126\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𸷣.-𝟻ß", %p)}, undef, "to_ascii\(\'𸷣.\-𝟻ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-5ß", %p)}, undef, "to_ascii\(\'𸷣\.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-5SS", %p)}, undef, "to_ascii\(\'𸷣\.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-𝟻SS", %p)}, undef, "to_ascii\(\'𸷣.\-𝟻SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-𝟻ss", %p)}, undef, "to_ascii\(\'𸷣.\-𝟻ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𸷣.-𝟻Ss", %p)}, undef, "to_ascii\(\'𸷣.\-𝟻Ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𑄴.𐅾Ⴥ񓴸", %p)}, undef, "to_ascii\(\'\\u200D𑄴\.𐅾Ⴥ񓴸\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𑄴.𐅾ⴥ񓴸", %p)}, undef, "to_ascii\(\'\\u200D𑄴\.𐅾ⴥ񓴸\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򒭷。ß󞑓\x{200D}", %p)}, undef, "to_ascii\(\'򒭷\。ß󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򒭷。SS󞑓\x{200D}", %p)}, undef, "to_ascii\(\'򒭷\。SS󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1140\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򒭷。ss󞑓\x{200D}", %p)}, undef, "to_ascii\(\'򒭷\。ss󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1142\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򒭷。Ss󞑓\x{200D}", %p)}, undef, "to_ascii\(\'򒭷\。Ss󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1144\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󙀇。󠄘䷚𞤛", %p)}, undef, "to_ascii\(\'\\u200C󙀇\。\󠄘䷚𞤛\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1146\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐸾\x{200C}𝪟。𐹾", %p)}, undef, "to_ascii\(\'𐸾\\u200C𝪟\。𐹾\'\)\ throws\ error\ P1\ V6\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1148\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹ς\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹ς\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1152\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹ς\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹ς\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹Σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1158\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹Σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1162\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1164\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹Σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1166\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹Σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ≠", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ=\x{0338}", %p)}, undef, "to_ascii\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒋。⒈\x{200D}򛶪", %p)}, undef, "to_ascii\(\'⒋。⒈\\u200D򛶪\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1174\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.。1.\x{200D}򛶪", %p)}, undef, "to_ascii\(\'4\.\。1\.\\u200D򛶪\'\)\ throws\ error\ P1\ V6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:1176\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ß。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEß。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ß。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEß。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ß。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEß\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}SS。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESS\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEss\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESs\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}SS。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESS。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEss。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESs。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}SS。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESS。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}ss。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EEss。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06EE}Ss。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_ascii\(\'\\u06EESs。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0661}\x{ABED}򚝪.󠀣\x{FE2E}𑁆\x{17D2}", %p)}, undef, "to_ascii\(\'\\u0661\\uABED򚝪\.\󠀣\\uFE2E𑁆\\u17D2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0661}\x{ABED}򚝪.󠀣𑁆\x{17D2}\x{FE2E}", %p)}, undef, "to_ascii\(\'\\u0661\\uABED򚝪\.\󠀣𑁆\\u17D2\\uFE2E\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_ascii\(\'Ⴓ𑂹\\u200D򒾎.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1191\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_ascii\(\'Ⴓ𑂹\\u200D򒾎\.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1192\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_ascii\(\'ⴓ𑂹\\u200D򒾎\.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_ascii\(\'ⴓ𑂹\\u200D򒾎.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}.🄆꡶", %p)}, undef, "to_ascii\(\'\\u0BCD\.🄆꡶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}.5,꡶", %p)}, undef, "to_ascii\(\'\\u0BCD\.5\,꡶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񥛿𴫊۸。󠠾-", %p)}, undef, "to_ascii\(\'񥛿𴫊۸\。\󠠾\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1197\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𷍞\x{06AF}𐹦。\x{0667}\x{0854}\x{084F}", %p)}, undef, "to_ascii\(\'𷍞\\u06AF𐹦\。\\u0667\\u0854\\u084F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ꡀႾ🄂.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DꡀႾ🄂\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ꡀႾ1,.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_ascii\(\'\\u200DꡀႾ1\,\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ꡀⴞ1,.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dꡀⴞ1\,\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1204\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}ꡀⴞ🄂.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_ascii\(\'\\u200Dꡀⴞ🄂\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1206\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0665}ᡙ.\x{1BAA}񒂱⾆", %p)}, undef, "to_ascii\(\'\\u0665ᡙ.\\u1BAA񒂱⾆\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0665}ᡙ.\x{1BAA}񒂱舌", %p)}, undef, "to_ascii\(\'\\u0665ᡙ\.\\u1BAA񒂱舌\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1208\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㇕󠤹󏶍.񵧳", %p)}, undef, "to_ascii\(\'㇕\󠤹󏶍\.񵧳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇜𞓇-򒬁.4Ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\󠇜𞓇\-򒬁\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇜𞓇-򒬁.4ⴄ\x{200C}", %p)}, undef, "to_ascii\(\'\󠇜𞓇\-򒬁\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫ß\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ。\󠫫ß\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫ß\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ\。\󠫫ß\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫SS\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ\。\󠫫SS\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫ss\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ\。\󠫫ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫Ss\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ\。\󠫫Ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫SS\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ。\󠫫SS\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫ss\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ。\󠫫ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᚭ。󠫫Ss\x{0825}", %p)}, undef, "to_ascii\(\'ᚭ。\󠫫Ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1221\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("₁。ᠻ\x{063D}", %p)}, undef, "to_ascii\(\'₁。ᠻ\\u063D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1222\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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("1。ᠻ\x{063D}", %p)}, undef, "to_ascii\(\'1\。ᠻ\\u063D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1223\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("􎑪\x{200C}.\x{FE7E}񵐊𥏫", %p)}, undef, "to_ascii\(\'􎑪\\u200C\.\\uFE7E񵐊𥏫\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􎑪\x{200C}.\x{0020}\x{0652}񵐊𥏫", %p)}, undef, "to_ascii\(\'􎑪\\u200C\.\\u0020\\u0652񵐊𥏫\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝪤≯。╎", %p)}, undef, "to_ascii\(\'𝪤\≯。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝪤>\x{0338}。╎", %p)}, undef, "to_ascii\(\'𝪤\>\\u0338。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝪤≯。╎", %p)}, undef, "to_ascii\(\'𝪤\≯\。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝪤>\x{0338}。╎", %p)}, undef, "to_ascii\(\'𝪤\>\\u0338\。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴋ≮􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_ascii\(\'Ⴋ\≮􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴋ<\x{0338}􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_ascii\(\'Ⴋ\<\\u0338􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1235\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴋ<\x{0338}􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_ascii\(\'ⴋ\<\\u0338􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴋ≮􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_ascii\(\'ⴋ\≮􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪.򕱀≯", %p)}, undef, "to_ascii\(\'𑋪\.򕱀\≯\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪.򕱀>\x{0338}", %p)}, undef, "to_ascii\(\'𑋪\.򕱀\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}É\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D.\\uA802É\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}E\x{0301}\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D.\\uA802E\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}É\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D\.\\uA802É\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}E\x{0301}\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D\.\\uA802E\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}e\x{0301}\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D\.\\uA802e\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}é\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D\.\\uA802é\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}e\x{0301}\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D.\\uA802e\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򁟟\x{0C4D}.\x{A802}é\x{180B}𑘿", %p)}, undef, "to_ascii\(\'򁟟\\u0C4D.\\uA802é\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡶ\x{200D}𑖿。︒ꡒ", %p)}, undef, "to_ascii\(\'ᡶ\\u200D𑖿。︒ꡒ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1251\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᡶ\x{200D}𑖿。。ꡒ", %p)}, undef, "to_ascii\(\'ᡶ\\u200D𑖿\。\。ꡒ\'\)\ throws\ error\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1253\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}≮", %p)}, undef, "to_ascii\(\'𐵞񱐾\\u1BF3\\u200C。ᡏ\\uFE0B\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}<\x{0338}", %p)}, undef, "to_ascii\(\'𐵞񱐾\\u1BF3\\u200C。ᡏ\\uFE0B\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}≮", %p)}, undef, "to_ascii\(\'𐵞񱐾\\u1BF3\\u200C\。ᡏ\\uFE0B\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}<\x{0338}", %p)}, undef, "to_ascii\(\'𐵞񱐾\\u1BF3\\u200C\。ᡏ\\uFE0B\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ.\x{0325}ꡇ", %p)}, undef, "to_ascii\(\'Ⴣ.\\u0325ꡇ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ.\x{0325}ꡇ", %p)}, undef, "to_ascii\(\'Ⴣ\.\\u0325ꡇ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1259\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0325}ꡇ", %p)}, undef, "to_ascii\(\'ⴣ\.\\u0325ꡇ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1260\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0325}ꡇ", %p)}, undef, "to_ascii\(\'ⴣ.\\u0325ꡇ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1261\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⟯𐮙.󂮼𫜏Ⴤ񨋴", %p)}, undef, "to_ascii\(\'\⟯𐮙.󂮼𫜏Ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⟯𐮙.󂮼𫜏Ⴤ񨋴", %p)}, undef, "to_ascii\(\'\⟯𐮙\.󂮼𫜏Ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⟯𐮙.󂮼𫜏ⴤ񨋴", %p)}, undef, "to_ascii\(\'\⟯𐮙\.󂮼𫜏ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⟯𐮙.󂮼𫜏ⴤ񨋴", %p)}, undef, "to_ascii\(\'\⟯𐮙.󂮼𫜏ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DCD}𝨮≮.🀴", %p)}, undef, "to_ascii\(\'\\u1DCD𝨮\≮.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DCD}𝨮<\x{0338}.🀴", %p)}, undef, "to_ascii\(\'\\u1DCD𝨮\<\\u0338.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1267\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DCD}𝨮≮.🀴", %p)}, undef, "to_ascii\(\'\\u1DCD𝨮\≮\.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DCD}𝨮<\x{0338}.🀴", %p)}, undef, "to_ascii\(\'\\u1DCD𝨮\<\\u0338\.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸≮Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\≮Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1280\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹦𞳸<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_ascii\(\'𐹦𞳸\<\\u0338Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1281\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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}。-", %p)}, undef, "to_ascii\(\'\\uA8E7\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1282\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑋪𽣟󠽐。饈≠𐹻", %p)}, undef, "to_ascii\(\'𑋪𽣟\󠽐。饈\≠𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪𽣟󠽐。饈=\x{0338}𐹻", %p)}, undef, "to_ascii\(\'𑋪𽣟\󠽐。饈\=\\u0338𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪𽣟󠽐。饈≠𐹻", %p)}, undef, "to_ascii\(\'𑋪𽣟\󠽐\。饈\≠𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪𽣟󠽐。饈=\x{0338}𐹻", %p)}, undef, "to_ascii\(\'𑋪𽣟\󠽐\。饈\=\\u0338𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1286\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067A}𐫫⁷。≯邅󠃞4", %p)}, undef, "to_ascii\(\'\\u067A𐫫⁷。\≯邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067A}𐫫⁷。>\x{0338}邅󠃞4", %p)}, undef, "to_ascii\(\'\\u067A𐫫⁷。\>\\u0338邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067A}𐫫7。≯邅󠃞4", %p)}, undef, "to_ascii\(\'\\u067A𐫫7\。\≯邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{067A}𐫫7。>\x{0338}邅󠃞4", %p)}, undef, "to_ascii\(\'\\u067A𐫫7\。\>\\u0338邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1290\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񱙏ᡇ-𝨊.\x{0665}𐋫𐹶򍙹", %p)}, undef, "to_ascii\(\'񱙏ᡇ\-𝨊\.\\u0665𐋫𐹶򍙹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1291\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹶ᠴ\x{0B41}.넨-󶗾", %p)}, undef, "to_ascii\(\'񎹶ᠴ\\u0B41\.넨\-󶗾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1292\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹶ᠴ\x{0B41}.넨-󶗾", %p)}, undef, "to_ascii\(\'񎹶ᠴ\\u0B41\.넨\-󶗾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{076E}\x{06CC}\x{200D}⒈。𐋣-", %p)}, undef, "to_ascii\(\'\\u076E\\u06CC\\u200D⒈\。𐋣\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:1295\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{076E}\x{06CC}\x{200D}1.。𐋣-", %p)}, undef, "to_ascii\(\'\\u076E\\u06CC\\u200D1\.\。𐋣\-\'\)\ throws\ error\ V3\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1297\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴌ。󭾖𞥉", %p)}, undef, "to_ascii\(\'Ⴌ\。󭾖𞥉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ。󭾖𞥉", %p)}, undef, "to_ascii\(\'ⴌ\。󭾖𞥉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡒ𐠗.\x{17D2}󠄓-󩚨", %p)}, undef, "to_ascii\(\'ᡒ𐠗\.\\u17D2\󠄓\-󩚨\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈󊻊\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1302\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈󊻊\x{200D}-。웈", %p)}, undef, "to_ascii\(\'⒈󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.󊻊\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.󊻊\x{200D}-。웈", %p)}, undef, "to_ascii\(\'1\.󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1308\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:1310\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--m9j.xn--wkk6036d", %p)}, "xn--m9j.xn--wkk6036d", "to_ascii\(\'xn\-\-m9j\.xn\-\-wkk6036d\'\)\ \[data\/IdnaTest\.txt\:1311\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--m9j.xn--wkk6036d", "to_ascii\(\'て\.㇎𐨸\'\)\ \[data\/IdnaTest\.txt\:1312\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'ς。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1313\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'ς\。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1314\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'Σ\。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1315\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'σ\。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1316\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'Σ。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1317\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_ascii\(\'σ。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1318\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑈵󡚑񟺼.ႢႵ", %p)}, undef, "to_ascii\(\'𑈵󡚑񟺼\.ႢႵ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵󡚑񟺼.ⴂⴕ", %p)}, undef, "to_ascii\(\'𑈵󡚑񟺼\.ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵󡚑񟺼.Ⴂⴕ", %p)}, undef, "to_ascii\(\'𑈵󡚑񟺼\.Ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀾🄈⾛\x{0741}.\x{200D}󡉠\x{068D}", %p)}, undef, "to_ascii\(\'🀾🄈⾛\\u0741.\\u200D󡉠\\u068D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🀾7,走\x{0741}.\x{200D}󡉠\x{068D}", %p)}, undef, "to_ascii\(\'🀾7\,走\\u0741\.\\u200D󡉠\\u068D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ。Ӏ򧥽", %p)}, undef, "to_ascii\(\'ᡙ。Ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ。Ӏ򧥽", %p)}, undef, "to_ascii\(\'ᡙ\。Ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1327\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ。ӏ򧥽", %p)}, undef, "to_ascii\(\'ᡙ\。ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1328\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ。ӏ򧥽", %p)}, undef, "to_ascii\(\'ᡙ。ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0666}-。񅭣⺖ᄾ", %p)}, undef, "to_ascii\(\'\\u0666\-\。񅭣⺖ᄾ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1330\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-𐋷󠇐。\x{07EF}", %p)}, undef, "to_ascii\(\'\-𐋷\󠇐\。\\u07EF\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1331\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}𐹴󠴚멈.\x{2D7F}􍼶", %p)}, undef, "to_ascii\(\'\\u200C𐹴\󠴚멈\.\\u2D7F􍼶\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}𐹴󠴚멈.\x{2D7F}􍼶", %p)}, undef, "to_ascii\(\'\\u200C𐹴\󠴚멈\.\\u2D7F􍼶\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1335\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.ᢣ𐹵", %p)}, undef, "to_ascii\(\'\≮\.ᢣ𐹵\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1336\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.ᢣ𐹵", %p)}, undef, "to_ascii\(\'\<\\u0338\.ᢣ𐹵\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1337\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞤴⾆。\x{200C}𑘿񡭠𐲈", %p)}, undef, "to_ascii\(\'𞤴⾆。\\u200C𑘿񡭠𐲈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1339\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞤴舌。\x{200C}𑘿񡭠𐲈", %p)}, undef, "to_ascii\(\'𞤴舌\。\\u200C𑘿񡭠𐲈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1341\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.𝟷ς𞷼ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.𝟷ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.1ς𞷼ς", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.1ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.1ς𞷼ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.1ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1347\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.1Σ𞷼Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.1Σ𞷼Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1349\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.1σ𞷼σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.1σ𞷼σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1351\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.𝟷ς𞷼ς", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.𝟷ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1353\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴠ-.𝟷Σ𞷼Σ", %p)}, undef, "to_ascii\(\'\\u200CჀ\-\.𝟷Σ𞷼Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ⴠ-.𝟷σ𞷼σ", %p)}, undef, "to_ascii\(\'\\u200Cⴠ\-\.𝟷σ𞷼σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4C}\x{18A9}󸥿。𝟪Ⴜ", %p)}, undef, "to_ascii\(\'\\u0E4C\\u18A9󸥿。𝟪Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4C}\x{18A9}󸥿。8Ⴜ", %p)}, undef, "to_ascii\(\'\\u0E4C\\u18A9󸥿\。8Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4C}\x{18A9}󸥿。8ⴜ", %p)}, undef, "to_ascii\(\'\\u0E4C\\u18A9󸥿\。8ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0E4C}\x{18A9}󸥿。𝟪ⴜ", %p)}, undef, "to_ascii\(\'\\u0E4C\\u18A9󸥿。𝟪ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1361\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_ascii\(\'䪏\\u0640᠇𑓀。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1362\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_ascii\(\'䪏\\u0640᠇𑓀。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1363\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_ascii\(\'䪏\\u0640᠇𑓀\。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1364\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_ascii\(\'䪏\\u0640᠇𑓀\。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1365\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑍍。󠙉󠇂", %p)}, undef, "to_ascii\(\'𑍍。\󠙉\󠇂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍍。󠙉󠇂", %p)}, undef, "to_ascii\(\'𑍍\。\󠙉\󠇂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𙞤󠁧。ς\x{200D}\x{0600}𑄴", %p)}, undef, "to_ascii\(\'𙞤\󠁧\。ς\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1369\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𙞤󠁧。Σ\x{200D}\x{0600}𑄴", %p)}, undef, "to_ascii\(\'𙞤\󠁧\。Σ\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𙞤󠁧。σ\x{200D}\x{0600}𑄴", %p)}, undef, "to_ascii\(\'𙞤\󠁧\。σ\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1373\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0842}\x{07CB}𑄳.\x{0DCA}", %p)}, undef, "to_ascii\(\'\\u0842\\u07CB𑄳.\\u0DCA\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1374\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0842}\x{07CB}𑄳.\x{0DCA}", %p)}, undef, "to_ascii\(\'\\u0842\\u07CB𑄳\.\\u0DCA\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1375\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󋮸󑧠񛎑-。\x{200C}", %p)}, undef, "to_ascii\(\'󋮸󑧠񛎑\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1377\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹵.𞡮", %p)}, undef, "to_ascii\(\'𐹵.𞡮\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1378\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹵.𞡮", %p)}, undef, "to_ascii\(\'𐹵\.𞡮\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1379\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-ᢉ。Ↄ", %p)}, undef, "to_ascii\(\'\-ᢉ。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᢉ。Ↄ", %p)}, undef, "to_ascii\(\'\-ᢉ\。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1381\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:1382\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:1383\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}-︒\x{0817}。ß哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\u0817\。ß哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{0817}。ß哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\u0817\。ß哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{0817}。SS哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\u0817\。SS哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{0817}。ss哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\u0817\。ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-。\x{0817}。Ss哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-\。\\u0817\。Ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{0817}。SS哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\u0817\。SS哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{0817}。ss哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\u0817\。ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-︒\x{0817}。Ss哑\x{200C}𞤆", %p)}, undef, "to_ascii\(\'\\u200D\-︒\\u0817\。Ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.𑂵\x{1BAB}", %p)}, undef, "to_ascii\(\'︒.𑂵\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1400\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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\:1401\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07AB}。\x{200D}", %p)}, undef, "to_ascii\(\'\\u07AB\。\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1403\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}⥤。𞶣", %p)}, undef, "to_ascii\(\'\\u200D\⥤。𞶣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}⥤。𞶣", %p)}, undef, "to_ascii\(\'\\u200D\⥤\。𞶣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1407\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ𝟢\x{0669}.\x{1C32}ς", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟢\\u0669.\\u1C32ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴄ0\x{0669}.\x{1C32}ς", %p)}, undef, "to_ascii\(\'\-Ⴄ0\\u0669\.\\u1C32ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1409\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}ς", %p)}, undef, "to_ascii\(\'\-ⴄ0\\u0669\.\\u1C32ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1410\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-Ⴄ0\x{0669}.\x{1C32}Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ0\\u0669\.\\u1C32Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1411\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}σ", %p)}, undef, "to_ascii\(\'\-ⴄ0\\u0669\.\\u1C32σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1412\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}ς", %p)}, undef, "to_ascii\(\'\-ⴄ𝟢\\u0669.\\u1C32ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1413\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-Ⴄ𝟢\x{0669}.\x{1C32}Σ", %p)}, undef, "to_ascii\(\'\-Ⴄ𝟢\\u0669.\\u1C32Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1414\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}σ", %p)}, undef, "to_ascii\(\'\-ⴄ𝟢\\u0669.\\u1C32σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1415\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򟣀。-", %p)}, undef, "to_ascii\(\'򟣀\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴ß≯", %p)}, undef, "to_ascii\(\'\⋠𐋮.񓓍𑖴ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1417\]") 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\:1418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴ß≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.񓓍𑖴ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1419\]") 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\:1420\]") 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\:1421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴SS≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.񓓍𑖴SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1422\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.񓓍𑖴ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1423\]") 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\:1424\]") 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\:1425\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴Ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮\.񓓍𑖴Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1426\]") 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\:1427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴SS≯", %p)}, undef, "to_ascii\(\'\⋠𐋮.񓓍𑖴SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1428\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮.񓓍𑖴ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1429\]") 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\:1430\]") 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\:1431\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋠𐋮.񓓍𑖴Ss≯", %p)}, undef, "to_ascii\(\'\⋠𐋮.񓓍𑖴Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𐋸\x{0662}。𑋥\x{08DE}򫰮", %p)}, undef, "to_ascii\(\'1𐋸\\u0662。𑋥\\u08DE򫰮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1433\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𐋸\x{0662}。𑋥\x{08DE}򫰮", %p)}, undef, "to_ascii\(\'1𐋸\\u0662\。𑋥\\u08DE򫰮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1434\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{0663}Ⴢ򈡄\x{200C}", %p)}, undef, "to_ascii\(\'儭\-。\\u0663Ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1436\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{0663}Ⴢ򈡄\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。\\u0663Ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1438\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{0663}ⴢ򈡄\x{200C}", %p)}, undef, "to_ascii\(\'儭\-\。\\u0663ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("儭-。\x{0663}ⴢ򈡄\x{200C}", %p)}, undef, "to_ascii\(\'儭\-。\\u0663ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟺𐋷\x{0845}.ᡀ𚎑", %p)}, undef, "to_ascii\(\'𝟺𐋷\\u0845.ᡀ𚎑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4𐋷\x{0845}.ᡀ𚎑", %p)}, undef, "to_ascii\(\'4𐋷\\u0845\.ᡀ𚎑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯-\x{06BE}\x{20D4}.⒈𐹱", %p)}, undef, "to_ascii\(\'\≯\-\\u06BE\\u20D4\.⒈𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}-\x{06BE}\x{20D4}.⒈𐹱", %p)}, undef, "to_ascii\(\'\>\\u0338\-\\u06BE\\u20D4\.⒈𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯-\x{06BE}\x{20D4}.1.𐹱", %p)}, undef, "to_ascii\(\'\≯\-\\u06BE\\u20D4\.1\.𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}-\x{06BE}\x{20D4}.1.𐹱", %p)}, undef, "to_ascii\(\'\>\\u0338\-\\u06BE\\u20D4\.1\.𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩔.󚝷蚀", %p)}, undef, "to_ascii\(\'𝩔.󚝷蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩔.󚝷蚀", %p)}, undef, "to_ascii\(\'𝩔\.󚝷蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1450\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}Ⴘ.𞮸\x{0F84}ß\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867Ⴘ\.𞮸\\u0F84ß\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1451\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}ⴘ.𞮸\x{0F84}ß\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867ⴘ\.𞮸\\u0F84ß\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}Ⴘ.𞮸\x{0F84}SS\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867Ⴘ\.𞮸\\u0F84SS\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}ⴘ.𞮸\x{0F84}ss\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867ⴘ\.𞮸\\u0F84ss\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0867}Ⴘ.𞮸\x{0F84}Ss\x{102D}", %p)}, undef, "to_ascii\(\'\\u0867Ⴘ\.𞮸\\u0F84Ss\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAD}\x{0605}󋧄。凬", %p)}, undef, "to_ascii\(\'\\u0FAD\\u0605󋧄。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAD}\x{0605}󋧄。凬", %p)}, undef, "to_ascii\(\'\\u0FAD\\u0605󋧄\。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⇿🄈\x{200D}𐮀。\x{1734}", %p)}, undef, "to_ascii\(\'\⇿🄈\\u200D𐮀。\\u1734\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⇿7,\x{200D}𐮀。\x{1734}", %p)}, undef, "to_ascii\(\'\⇿7\,\\u200D𐮀\。\\u1734\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1461\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{08A3}。𑋪\x{062B}", %p)}, undef, "to_ascii\(\'\\u08A3\。𑋪\\u062B\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1462\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0743}≮.\x{0E36}", %p)}, undef, "to_ascii\(\'\\u0743\≮\.\\u0E36\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0743}<\x{0338}.\x{0E36}", %p)}, undef, "to_ascii\(\'\\u0743\<\\u0338\.\\u0E36\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ≯褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ≯褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_ascii\(\'Ⴢ\≯褦\.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴢ>\x{0338}褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_ascii\(\'Ⴢ\>\\u0338褦\.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦\.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ≯褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦\.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ>\x{0338}褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_ascii\(\'ⴢ\>\\u0338褦.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴢ≯褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_ascii\(\'ⴢ\≯褦.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񔻃\x{1B3C}\x{200C}\x{2D7F}。\x{0760}ᡟ\x{0778}", %p)}, undef, "to_ascii\(\'񔻃\\u1B3C\\u200C\\u2D7F\。\\u0760ᡟ\\u0778\'\)\ throws\ error\ P1\ V6\ C1\ B2\ \[data\/IdnaTest\.txt\:1474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.≯", %p)}, undef, "to_ascii\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1476\]") 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\:1478\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𣴟𽙙-.𑇀-悜", %p)}, undef, "to_ascii\(\'𣴟𽙙\-.𑇀\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1479\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𣴟𽙙-.𑇀-悜", %p)}, undef, "to_ascii\(\'𣴟𽙙\-\.𑇀\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫀𐿓➻ᢗ.-\x{200D}\x{0FA1}\x{1B42}", %p)}, undef, "to_ascii\(\'𐫀𐿓\➻ᢗ\.\-\\u200D\\u0FA1\\u1B42\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:1482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐\x{200C}衃Ⴝ.\x{067F}Ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃Ⴝ\.\\u067FႴ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1484\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9.\x{200C}衃Ⴝ.\x{067F}Ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃Ⴝ\.\\u067FႴ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1486\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("9.\x{200C}衃ⴝ.\x{067F}ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1488\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("9.\x{200C}衃Ⴝ.\x{067F}ⴔ", %p)}, undef, "to_ascii\(\'9\.\\u200C衃Ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1490\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐\x{200C}衃ⴝ.\x{067F}ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1492\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐\x{200C}衃Ⴝ.\x{067F}ⴔ", %p)}, undef, "to_ascii\(\'⒐\\u200C衃Ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1494\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0756}\x{200C}。--🞞", %p)}, undef, "to_ascii\(\'\\u0756\\u200C\。\-\-🞞\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1496\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{FD74}.\x{062E}", %p)}, "xn--2gb2ap.xn--tgb", "to_ascii\(\'\\uFD74.\\u062E\'\)\ \[data\/IdnaTest\.txt\:1497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0637}\x{0645}\x{064A}.\x{062E}", %p)}, "xn--2gb2ap.xn--tgb", "to_ascii\(\'\\u0637\\u0645\\u064A\.\\u062E\'\)\ \[data\/IdnaTest\.txt\:1498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--2gb2ap.xn--tgb", %p)}, "xn--2gb2ap.xn--tgb", "to_ascii\(\'xn\-\-2gb2ap\.xn\-\-tgb\'\)\ \[data\/IdnaTest\.txt\:1499\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1DE4}-.-\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u1DE4\-.\-\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1500\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1DE4}-.-\x{0E3A}", %p)}, undef, "to_ascii\(\'\\u1DE4\-\.\-\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1501\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{030C}\x{06A7}-.𝩦", %p)}, undef, "to_ascii\(\'\\u030C\\u06A7\-\.𝩦\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1502\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07E3}\x{FB1E}\x{1AB8}𐹯.\x{A953}⒌򕠠", %p)}, undef, "to_ascii\(\'\\u07E3\\uFB1E\\u1AB8𐹯\.\\uA953⒌򕠠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E3}\x{FB1E}\x{1AB8}𐹯.\x{A953}5.򕠠", %p)}, undef, "to_ascii\(\'\\u07E3\\uFB1E\\u1AB8𐹯\.\\uA9535\.򕠠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D7}₀。󠀠\x{200C}𐻼\x{200D}", %p)}, undef, "to_ascii\(\'\\u06D7₀\。\󠀠\\u200C𐻼\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1506\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06D7}0。󠀠\x{200C}𐻼\x{200D}", %p)}, undef, "to_ascii\(\'\\u06D70\。\󠀠\\u200C𐻼\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴚ𐋸\x{2060}。𝟝󋷳\x{0D4D}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\\u2060\。𝟝󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴚ𐋸\x{2060}。5󋷳\x{0D4D}", %p)}, undef, "to_ascii\(\'Ⴚ𐋸\\u2060\。5󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴚ𐋸\x{2060}。5󋷳\x{0D4D}", %p)}, undef, "to_ascii\(\'ⴚ𐋸\\u2060\。5󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴚ𐋸\x{2060}。𝟝󋷳\x{0D4D}", %p)}, undef, "to_ascii\(\'ⴚ𐋸\\u2060\。𝟝󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1512\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}-\x{0645}\x{1AB4}.\x{0D62}\x{0F9F}", %p)}, undef, "to_ascii\(\'\\u200D\-\\u0645\\u1AB4\.\\u0D62\\u0F9F\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1514\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠.ꡝ", %p)}, undef, "to_ascii\(\'\≠\.ꡝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}.ꡝ", %p)}, undef, "to_ascii\(\'\=\\u0338\.ꡝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1516\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{1A1B}。㌪", %p)}, "xn--fbf49e.xn--eck4c5a", "to_ascii\(\'ᢕ\\u1A1B。㌪\'\)\ \[data\/IdnaTest\.txt\:1517\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{1A1B}。ハイツ", %p)}, "xn--fbf49e.xn--eck4c5a", "to_ascii\(\'ᢕ\\u1A1B\。ハイツ\'\)\ \[data\/IdnaTest\.txt\:1518\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--fbf49e.xn--eck4c5a", %p)}, "xn--fbf49e.xn--eck4c5a", "to_ascii\(\'xn\-\-fbf49e\.xn\-\-eck4c5a\'\)\ \[data\/IdnaTest\.txt\:1519\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{1A1B}.ハイツ", %p)}, "xn--fbf49e.xn--eck4c5a", "to_ascii\(\'ᢕ\\u1A1B\.ハイツ\'\)\ \[data\/IdnaTest\.txt\:1520\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0757}\x{0366}≮.\x{AAF6}-", %p)}, undef, "to_ascii\(\'\\u0757\\u0366\≮\.\\uAAF6\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0757}\x{0366}<\x{0338}.\x{AAF6}-", %p)}, undef, "to_ascii\(\'\\u0757\\u0366\<\\u0338\.\\uAAF6\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₆榎𑤮\x{094D}。᠇\x{034B}𞻖󠳶", %p)}, undef, "to_ascii\(\'₆榎𑤮\\u094D。᠇\\u034B𞻖\󠳶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6榎𑤮\x{094D}。᠇\x{034B}𞻖󠳶", %p)}, undef, "to_ascii\(\'6榎𑤮\\u094D\。᠇\\u034B𞻖\󠳶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󺸫.󆺙", %p)}, undef, "to_ascii\(\'󺸫.󆺙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󺸫.󆺙", %p)}, undef, "to_ascii\(\'󺸫\.󆺙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}︒。ᢟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D︒。ᢟ\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。。ᢟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u200D\。\。ᢟ\\u200C\'\)\ throws\ error\ C2\ A4_2\ C1\ \[data\/IdnaTest\.txt\:1530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--pbf", %p)}, "xn--pbf", "to_ascii\(\'xn\-\-pbf\'\)\ \[data\/IdnaTest\.txt\:1531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢟ", %p)}, "xn--pbf", "to_ascii\(\'ᢟ\'\)\ \[data\/IdnaTest\.txt\:1532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0604}\x{200C}𐹬。≩", %p)}, undef, "to_ascii\(\'\\u0604\\u200C𐹬\。\≩\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1534\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A9C0}𖬳\x{0F74}𝟭。-⋎", %p)}, undef, "to_ascii\(\'\\uA9C0𖬳\\u0F74𝟭\。\-\⋎\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1535\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A9C0}\x{0F74}𖬳𝟭。-⋎", %p)}, undef, "to_ascii\(\'\\uA9C0\\u0F74𖬳𝟭\。\-\⋎\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1536\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A9C0}\x{0F74}𖬳1。-⋎", %p)}, undef, "to_ascii\(\'\\uA9C0\\u0F74𖬳1\。\-\⋎\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1537\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񃬫。뙏", %p)}, undef, "to_ascii\(\'񃬫\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񃬫。뙏", %p)}, undef, "to_ascii\(\'񃬫\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󋢒\x{A948}󇽘ᢉ.\x{074F}", %p)}, undef, "to_ascii\(\'󋢒\\uA948󇽘ᢉ\.\\u074F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。溑", %p)}, undef, "to_ascii\(\'\\u200D。溑\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。溑", %p)}, undef, "to_ascii\(\'\\u200D\。溑\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--c9w", %p)}, "xn--c9w", "to_ascii\(\'xn\-\-c9w\'\)\ \[data\/IdnaTest\.txt\:1545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("溑", %p)}, "xn--c9w", "to_ascii\(\'溑\'\)\ \[data\/IdnaTest\.txt\:1546\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{075F}皥.-", %p)}, undef, "to_ascii\(\'\\u075F皥.\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1547\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{075F}皥.-", %p)}, undef, "to_ascii\(\'\\u075F皥\.\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1548\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞡍󠅛ᠫ.⒈\x{06B4}", %p)}, undef, "to_ascii\(\'𞡍\󠅛ᠫ.⒈\\u06B4\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1549\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞡍󠅛ᠫ.1.\x{06B4}", %p)}, undef, "to_ascii\(\'𞡍\󠅛ᠫ\.1\.\\u06B4\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1550\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}ā\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}a\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}ā\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}a\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}𝨬\x{200D}。\x{1160}a\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C𝨬\\u200D\。\\u1160a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1560\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}𝨬\x{200D}。\x{1160}ā\x{0600}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C𝨬\\u200D\。\\u1160ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1562\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}Ā\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160Ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}A\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160A\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}a\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C𝨬\\u200D\。\\uFFA0a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}ā\x{0600}", %p)}, undef, "to_ascii\(\'ⴛ\\u200C𝨬\\u200D\。\\uFFA0ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1570\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}Ā\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0Ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}A\x{0304}\x{0600}", %p)}, undef, "to_ascii\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0A\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FDEB}\x{200C}。曳⾑𐋰≯", %p)}, undef, "to_ascii\(\'\\uFDEB\\u200C。曳⾑𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FDEB}\x{200C}。曳⾑𐋰>\x{0338}", %p)}, undef, "to_ascii\(\'\\uFDEB\\u200C。曳⾑𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1578\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FDEB}\x{200C}。曳襾𐋰≯", %p)}, undef, "to_ascii\(\'\\uFDEB\\u200C\。曳襾𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FDEB}\x{200C}。曳襾𐋰>\x{0338}", %p)}, undef, "to_ascii\(\'\\uFDEB\\u200C\。曳襾𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯⒈。ß", %p)}, undef, "to_ascii\(\'\≯⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}⒈。ß", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯1.。ß", %p)}, undef, "to_ascii\(\'\≯1\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1585\]") 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\:1586\]") 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\:1587\]") 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\:1588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}⒈。SS", %p)}, undef, "to_ascii\(\'\>\\u0338⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯⒈。SS", %p)}, undef, "to_ascii\(\'\≯⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1590\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{200D}𐣙。\x{067D}-₆Ⴙ", %p)}, undef, "to_ascii\(\'\\u0603\\u200D𐣙。\\u067D\-₆Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{200D}𐣙。\x{067D}-6Ⴙ", %p)}, undef, "to_ascii\(\'\\u0603\\u200D𐣙\。\\u067D\-6Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{200D}𐣙。\x{067D}-6ⴙ", %p)}, undef, "to_ascii\(\'\\u0603\\u200D𐣙\。\\u067D\-6ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{200D}𐣙。\x{067D}-₆ⴙ", %p)}, undef, "to_ascii\(\'\\u0603\\u200D𐣙。\\u067D\-₆ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。=\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C。\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。≠", %p)}, undef, "to_ascii\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。=\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1606\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{A953}𝪥.\x{076F}𑈵\x{05C1}\x{200C}", %p)}, undef, "to_ascii\(\'\\uA953𝪥\.\\u076F𑈵\\u05C1\\u200C\'\)\ throws\ error\ V5\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1608\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𻠷\x{200D}򑄕.\x{2DE1}Ↄ≠-", %p)}, undef, "to_ascii\(\'𻠷\\u200D򑄕\.\\u2DE1Ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠷\x{200D}򑄕.\x{2DE1}Ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'𻠷\\u200D򑄕\.\\u2DE1Ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠷\x{200D}򑄕.\x{2DE1}ↄ=\x{0338}-", %p)}, undef, "to_ascii\(\'𻠷\\u200D򑄕\.\\u2DE1ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1614\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠷\x{200D}򑄕.\x{2DE1}ↄ≠-", %p)}, undef, "to_ascii\(\'𻠷\\u200D򑄕\.\\u2DE1ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1616\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}ς\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDς\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1618\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}ς\x{200D}7。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDς\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}Σ\x{200D}7。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDΣ\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}σ\x{200D}7。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDσ\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}Σ\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDΣ\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CD}σ\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_ascii\(\'\\u07CDσ\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1628\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹶.𐹹", %p)}, undef, "to_ascii\(\'𐹶\.𐹹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1629\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{06A1}.񝧄", %p)}, undef, "to_ascii\(\'\-\\u06A1\.񝧄\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯𐪳𑒵。誆⒈", %p)}, undef, "to_ascii\(\'\≯𐪳𑒵\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}𐪳𑒵。誆⒈", %p)}, undef, "to_ascii\(\'\>\\u0338𐪳𑒵\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯𐪳𑒵。誆1.", %p)}, undef, "to_ascii\(\'\≯𐪳𑒵\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}𐪳𑒵。誆1.", %p)}, undef, "to_ascii\(\'\>\\u0338𐪳𑒵\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F79}\x{FC74}䐊\x{1BA5}.︒𐲞💫\x{0647}", %p)}, undef, "to_ascii\(\'\\u0F79\\uFC74䐊\\u1BA5.︒𐲞💫\\u0647\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1635\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0FB3}\x{0F71}\x{0F80}\x{062A}\x{0649}䐊\x{1BA5}.。𐲞💫\x{0647}", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80\\u062A\\u0649䐊\\u1BA5\.\。𐲞💫\\u0647\'\)\ throws\ error\ V5\ B1\ A4_2\ \[data\/IdnaTest\.txt\:1636\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("퀬-\x{DF7E}񒆢.\x{200C}𞣕򷤗۴", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E񒆢\.\\u200C𞣕򷤗۴\'\)\ throws\ error\ P1\ V6\ C1\ A3\ \[data\/IdnaTest\.txt\:1638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬-\x{DF7E}񒆢.\x{200C}𞣕򷤗۴", %p)}, undef, "to_ascii\(\'퀬\-\\uDF7E񒆢\.\\u200C𞣕򷤗۴\'\)\ throws\ error\ P1\ V6\ C1\ A3\ \[data\/IdnaTest\.txt\:1640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬", %p)}, "xn--8n7b", "to_ascii\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("퀬", %p)}, "xn--8n7b", "to_ascii\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1642\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--8n7b", %p)}, "xn--8n7b", "to_ascii\(\'xn\-\-8n7b\'\)\ \[data\/IdnaTest\.txt\:1643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ.\x{0664}︒\x{0F84}𞴌", %p)}, undef, "to_ascii\(\'Ⴌ\.\\u0664︒\\u0F84𞴌\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴌ.\x{0664}。\x{0F84}𞴌", %p)}, undef, "to_ascii\(\'Ⴌ\.\\u0664\。\\u0F84𞴌\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ.\x{0664}。\x{0F84}𞴌", %p)}, undef, "to_ascii\(\'ⴌ\.\\u0664\。\\u0F84𞴌\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1646\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴌ.\x{0664}︒\x{0F84}𞴌", %p)}, undef, "to_ascii\(\'ⴌ\.\\u0664︒\\u0F84𞴌\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򻖲󠬬。𞸙\x{A927}", %p)}, undef, "to_ascii\(\'򻖲\󠬬\。𞸙\\uA927\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򻖲󠬬。\x{0636}\x{A927}", %p)}, undef, "to_ascii\(\'򻖲\󠬬\。\\u0636\\uA927\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󠜤\x{0362}.\x{0F7B}󠅑\x{1A60}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\󠜤\\u0362.\\u0F7B\󠅑\\u1A60\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󠜤\x{0362}.\x{0F7B}󠅑\x{1A60}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D\󠜤\\u0362\.\\u0F7B\󠅑\\u1A60\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵫶。🄂", %p)}, undef, "to_ascii\(\'񵫶。🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵫶。1,", %p)}, undef, "to_ascii\(\'񵫶\。1\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1655\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{036E}刍.🠗", %p)}, undef, "to_ascii\(\'\\u036E刍\.🠗\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1656\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⺄3。\x{0FA9}𝟒", %p)}, undef, "to_ascii\(\'⺄3。\\u0FA9𝟒\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⺄3。\x{0FA9}4", %p)}, undef, "to_ascii\(\'⺄3\。\\u0FA94\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫡6Ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_ascii\(\'𐫡6Ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1660\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫡6Ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_ascii\(\'𐫡6Ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1662\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫡6ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_ascii\(\'𐫡6ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1664\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫡6ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_ascii\(\'𐫡6ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑘷.ᡱ\x{06C6}򵶨۹", %p)}, undef, "to_ascii\(\'𑘷\.ᡱ\\u06C6򵶨۹\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}≯.󁛲𳎟", %p)}, undef, "to_ascii\(\'\\uA87D\≯.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.󁛲𳎟", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}≯.󁛲𳎟", %p)}, undef, "to_ascii\(\'\\uA87D\≯\.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1670\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A87D}>\x{0338}.󁛲𳎟", %p)}, undef, "to_ascii\(\'\\uA87D\>\\u0338\.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1671\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ςო\x{072D}.ς𐫟", %p)}, undef, "to_ascii\(\'ςო\\u072D\.ς𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1672\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σო\x{072D}.Σ𐫟", %p)}, undef, "to_ascii\(\'Σო\\u072D\.Σ𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1673\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σო\x{072D}.σ𐫟", %p)}, undef, "to_ascii\(\'σო\\u072D\.σ𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1674\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σო\x{072D}.σ𐫟", %p)}, undef, "to_ascii\(\'Σო\\u072D\.σ𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1675\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σო\x{072D}.ς𐫟", %p)}, undef, "to_ascii\(\'Σო\\u072D\.ς𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1676\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σო\x{072D}.ς𐫟", %p)}, undef, "to_ascii\(\'σო\\u072D\.ς𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1677\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_ascii\(\'򇋓\\uA67C쐮𐮭。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_ascii\(\'򇋓\\uA67C쐮𐮭。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_ascii\(\'򇋓\\uA67C쐮𐮭\。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_ascii\(\'򇋓\\uA67C쐮𐮭\。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\﹅.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\﹅.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_ascii\(\'\﹅\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_ascii\(\'\﹅\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\﹅\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\﹅\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_ascii\(\'\﹅.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("﹅.\x{200D}䤫≠ⴞ", %p)}, undef, "to_ascii\(\'\﹅.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱎𑄴.𐹱▟", %p)}, undef, "to_ascii\(\'𐱎𑄴.𐹱\▟\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱎𑄴.𐹱▟", %p)}, undef, "to_ascii\(\'𐱎𑄴\.𐹱\▟\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒊⒈󠅵。9", %p)}, undef, "to_ascii\(\'⒊⒈\󠅵\。9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3.1.󠅵。9", %p)}, undef, "to_ascii\(\'3\.1\.\󠅵\。9\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:1701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}𑄫≮.𐹾𴙜4₉", %p)}, undef, "to_ascii\(\'\-\\u200C𑄫\≮.𐹾𴙜4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}𑄫<\x{0338}.𐹾𴙜4₉", %p)}, undef, "to_ascii\(\'\-\\u200C𑄫\<\\u0338.𐹾𴙜4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1705\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}𑄫≮.𐹾𴙜49", %p)}, undef, "to_ascii\(\'\-\\u200C𑄫\≮\.𐹾𴙜49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}𑄫<\x{0338}.𐹾𴙜49", %p)}, undef, "to_ascii\(\'\-\\u200C𑄫\<\\u0338\.𐹾𴙜49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≯딾。\x{08B4}", %p)}, undef, "to_ascii\(\'\-\≯딾。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("->\x{0338}딾。\x{08B4}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≯딾。\x{08B4}", %p)}, undef, "to_ascii\(\'\-\≯딾\。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1712\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("->\x{0338}딾。\x{08B4}", %p)}, undef, "to_ascii\(\'\-\>\\u0338딾\。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⪽⒈𐹢-。󠗪\x{200C}", %p)}, undef, "to_ascii\(\'\⪽⒈𐹢\-。\󠗪\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⪽1.𐹢-。󠗪\x{200C}", %p)}, undef, "to_ascii\(\'\⪽1\.𐹢\-\。\󠗪\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1717\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{1A73}.\x{031D}", %p)}, undef, "to_ascii\(\'\\u1A73.\\u031D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1718\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{1A73}.\x{031D}", %p)}, undef, "to_ascii\(\'\\u1A73\.\\u031D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1719\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("훉≮。\x{FE00}", %p)}, undef, "to_ascii\(\'훉\≮。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉<\x{0338}。\x{FE00}", %p)}, undef, "to_ascii\(\'훉\<\\u0338。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1721\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉≮。\x{FE00}", %p)}, undef, "to_ascii\(\'훉\≮\。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("훉<\x{0338}。\x{FE00}", %p)}, undef, "to_ascii\(\'훉\<\\u0338\。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1723\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0AC3}񂔠⭤.򬚵𝟸𑚫\x{08A4}", %p)}, undef, "to_ascii\(\'\\u0AC3񂔠\⭤.򬚵𝟸𑚫\\u08A4\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0AC3}񂔠⭤.򬚵2𑚫\x{08A4}", %p)}, undef, "to_ascii\(\'\\u0AC3񂔠\⭤\.򬚵2𑚫\\u08A4\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1725\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󨭺ß𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_ascii\(\'󨭺ß𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1727\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󨭺SS𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_ascii\(\'󨭺SS𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1729\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󨭺ss𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_ascii\(\'󨭺ss𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1731\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󨭺Ss𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_ascii\(\'󨭺Ss𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C6}。Ↄ🙣놮-", %p)}, undef, "to_ascii\(\'\\u06C6\。Ↄ🙣놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06C6}。Ↄ🙣놮-", %p)}, undef, "to_ascii\(\'\\u06C6\。Ↄ🙣놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1735\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06C6}。ↄ🙣놮-", %p)}, undef, "to_ascii\(\'\\u06C6\。ↄ🙣놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1736\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06C6}。ↄ🙣놮-", %p)}, undef, "to_ascii\(\'\\u06C6\。ↄ🙣놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1737\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐶗\x{200D}.𘎮\x{06A3}", %p)}, undef, "to_ascii\(\'𐶗\\u200D\.𘎮\\u06A3\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1739\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ\x{08ED}𞫅≯。𖾏\x{0304}𝨨", %p)}, undef, "to_ascii\(\'Ⴜ\\u08ED𞫅\≯\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1740\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ\x{08ED}𞫅>\x{0338}。𖾏\x{0304}𝨨", %p)}, undef, "to_ascii\(\'Ⴜ\\u08ED𞫅\>\\u0338\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1741\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ\x{08ED}𞫅>\x{0338}。𖾏\x{0304}𝨨", %p)}, undef, "to_ascii\(\'ⴜ\\u08ED𞫅\>\\u0338\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1742\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ\x{08ED}𞫅≯。𖾏\x{0304}𝨨", %p)}, undef, "to_ascii\(\'ⴜ\\u08ED𞫅\≯\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1743\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐋵。𐳜", %p)}, "xn--p97c.xn--4c0d", "to_ascii\(\'𐋵\。𐳜\'\)\ \[data\/IdnaTest\.txt\:1744\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--p97c.xn--4c0d", %p)}, "xn--p97c.xn--4c0d", "to_ascii\(\'xn\-\-p97c\.xn\-\-4c0d\'\)\ \[data\/IdnaTest\.txt\:1745\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐋵.𐳜", %p)}, "xn--p97c.xn--4c0d", "to_ascii\(\'𐋵\.𐳜\'\)\ \[data\/IdnaTest\.txt\:1746\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_ascii\(\'\≮\󠁽.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_ascii\(\'\<\\u0338\󠁽.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_ascii\(\'\≮\󠁽\.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_ascii\(\'\<\\u0338\󠁽\.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1750\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𖬲\x{031F}ꡍ.\x{A947}\x{0664}⎈", %p)}, undef, "to_ascii\(\'𖬲\\u031Fꡍ.\\uA947\\u0664\⎈\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1751\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{031F}𖬲ꡍ.\x{A947}\x{0664}⎈", %p)}, undef, "to_ascii\(\'\\u031F𖬲ꡍ.\\uA947\\u0664\⎈\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1752\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{031F}𖬲ꡍ.\x{A947}\x{0664}⎈", %p)}, undef, "to_ascii\(\'\\u031F𖬲ꡍ\.\\uA947\\u0664\⎈\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1753\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞶅ᡣ\x{200C}\x{07E7}.𑂹\x{20E5}", %p)}, undef, "to_ascii\(\'𞶅ᡣ\\u200C\\u07E7.𑂹\\u20E5\'\)\ throws\ error\ P1\ V6\ V5\ B2\ \[data\/IdnaTest\.txt\:1754\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞶅ᡣ\x{200C}\x{07E7}.\x{20E5}𑂹", %p)}, undef, "to_ascii\(\'𞶅ᡣ\\u200C\\u07E7.\\u20E5𑂹\'\)\ throws\ error\ P1\ V6\ V5\ B2\ \[data\/IdnaTest\.txt\:1755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞶅ᡣ\x{200C}\x{07E7}.\x{20E5}𑂹", %p)}, undef, "to_ascii\(\'𞶅ᡣ\\u200C\\u07E7\.\\u20E5𑂹\'\)\ throws\ error\ P1\ V6\ V5\ B2\ \[data\/IdnaTest\.txt\:1756\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑄴。\x{200D}󙤲⮡񤩻", %p)}, undef, "to_ascii\(\'𑄴。\\u200D󙤲\⮡񤩻\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑄴。\x{200D}󙤲⮡񤩻", %p)}, undef, "to_ascii\(\'𑄴\。\\u200D󙤲\⮡񤩻\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𞶌。⒚", %p)}, undef, "to_ascii\(\'\-𞶌\。⒚\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𞶌。19.", %p)}, undef, "to_ascii\(\'\-𞶌\。19\.\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󙭿\x{0638}\x{200C}。\x{074E}\x{200D}", %p)}, undef, "to_ascii\(\'󙭿\\u0638\\u200C。\\u074E\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:1764\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󙭿\x{0638}\x{200C}。\x{074E}\x{200D}", %p)}, undef, "to_ascii\(\'󙭿\\u0638\\u200C\。\\u074E\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:1766\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{033E}𑍰。ᡣ8₅", %p)}, "xn--zca82j0w93b.xn--85-f8o", "to_ascii\(\'ß\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1768\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{033E}𑍰。ᡣ85", %p)}, "xn--zca82j0w93b.xn--85-f8o", "to_ascii\(\'ß\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1770\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{033E}𑍰。ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'SS\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1771\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{033E}𑍰。ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'ss\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1772\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{033E}𑍰。ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'Ss\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1773\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--ss-izb2489y.xn--85-f8o", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'xn\-\-ss\-izb2489y\.xn\-\-85\-f8o\'\)\ \[data\/IdnaTest\.txt\:1774\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{033E}𑍰.ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'ss\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1775\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{033E}𑍰.ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'SS\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1776\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{033E}𑍰.ᡣ85", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'Ss\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1777\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--zca82j0w93b.xn--85-f8o", %p)}, "xn--zca82j0w93b.xn--85-f8o", "to_ascii\(\'xn\-\-zca82j0w93b\.xn\-\-85\-f8o\'\)\ \[data\/IdnaTest\.txt\:1778\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ß\x{033E}𑍰.ᡣ85", %p)}, "xn--zca82j0w93b.xn--85-f8o", "to_ascii\(\'ß\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1780\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("SS\x{033E}𑍰。ᡣ8₅", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'SS\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1781\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ss\x{033E}𑍰。ᡣ8₅", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'ss\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1782\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Ss\x{033E}𑍰。ᡣ8₅", %p)}, "xn--ss-izb2489y.xn--85-f8o", "to_ascii\(\'Ss\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1783\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅𝟣.₃\x{066C}ß", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅𝟣.₃\\u066Cß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1784\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅1.3\x{066C}ß", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅1\.3\\u066Cß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1785\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅1.3\x{066C}SS", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅1\.3\\u066CSS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1786\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅1.3\x{066C}ss", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅1\.3\\u066Css\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1787\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅1.3\x{066C}Ss", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅1\.3\\u066CSs\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1788\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅𝟣.₃\x{066C}SS", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅𝟣.₃\\u066CSS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1789\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅𝟣.₃\x{066C}ss", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅𝟣.₃\\u066Css\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1790\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0D4D}𑘳魅𝟣.₃\x{066C}Ss", %p)}, undef, "to_ascii\(\'\\u0D4D𑘳魅𝟣.₃\\u066CSs\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1791\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐫖。𑈵⒈\x{1039}⚺", %p)}, undef, "to_ascii\(\'𐫖。𑈵⒈\\u1039\⚺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1792\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫖。𑈵1.\x{1039}⚺", %p)}, undef, "to_ascii\(\'𐫖\。𑈵1\.\\u1039\⚺\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1793\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑘸છ。嵨", %p)}, undef, "to_ascii\(\'𑘸છ\。嵨\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1794\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴔ≠Ⴀ.𐹶𐹱", %p)}, undef, "to_ascii\(\'Ⴔ\≠Ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ=\x{0338}Ⴀ.𐹶𐹱", %p)}, undef, "to_ascii\(\'Ⴔ\=\\u0338Ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ=\x{0338}ⴀ.𐹶𐹱", %p)}, undef, "to_ascii\(\'ⴔ\=\\u0338ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ≠ⴀ.𐹶𐹱", %p)}, undef, "to_ascii\(\'ⴔ\≠ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}⒙\x{0A47}。\x{0656}", %p)}, undef, "to_ascii\(\'\-\\u200C⒙\\u0A47。\\u0656\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1800\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200C}18.\x{0A47}。\x{0656}", %p)}, undef, "to_ascii\(\'\-\\u200C18\.\\u0A47\。\\u0656\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:1802\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.ʌ\x{07DF}-𐹲", %p)}, undef, "to_ascii\(\'︒\.ʌ\\u07DF\-𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1803\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("。.ʌ\x{07DF}-𐹲", %p)}, undef, "to_ascii\(\'\。\.ʌ\\u07DF\-𐹲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1804\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("。.Ʌ\x{07DF}-𐹲", %p)}, undef, "to_ascii\(\'\。\.Ʌ\\u07DF\-𐹲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1805\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒.Ʌ\x{07DF}-𐹲", %p)}, undef, "to_ascii\(\'︒\.Ʌ\\u07DF\-𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A41}︒。􋔒󠄻", %p)}, undef, "to_ascii\(\'\\u0A41︒\。􋔒\󠄻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A41}。。􋔒󠄻", %p)}, undef, "to_ascii\(\'\\u0A41\。\。􋔒\󠄻\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0632}ß􈠸。ꡄ", %p)}, undef, "to_ascii\(\'\\u0632ß􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0632}SS􈠸。ꡄ", %p)}, undef, "to_ascii\(\'\\u0632SS􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0632}ss􈠸。ꡄ", %p)}, undef, "to_ascii\(\'\\u0632ss􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0632}Ss􈠸。ꡄ", %p)}, undef, "to_ascii\(\'\\u0632Ss􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}\x{200D}\x{0723}𐹹。򲑃󬗝\x{200C}\x{0F79}", %p)}, undef, "to_ascii\(\'\\u2D7F\\u200D\\u0723𐹹\。򲑃󬗝\\u200C\\u0F79\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2D7F}\x{200D}\x{0723}𐹹。򲑃󬗝\x{200C}\x{0FB3}\x{0F71}\x{0F80}", %p)}, undef, "to_ascii\(\'\\u2D7F\\u200D\\u0723𐹹\。򲑃󬗝\\u200C\\u0FB3\\u0F71\\u0F80\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1820\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ß\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ß\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1830\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1832\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1836\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-SS\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1838\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-SS\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1840\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1842\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1844\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_ascii\(\'\󠝍.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1846\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝍.-Ss\x{200C}≠", %p)}, undef, "to_ascii\(\'\󠝍.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1848\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DF}\x{200C}。≯𐋲≠", %p)}, undef, "to_ascii\(\'\\u07DF\\u200C。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DF}\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_ascii\(\'\\u07DF\\u200C。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1852\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DF}\x{200C}。≯𐋲≠", %p)}, undef, "to_ascii\(\'\\u07DF\\u200C\。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1854\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DF}\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_ascii\(\'\\u07DF\\u200C\。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1856\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹩\x{088E}\x{031C}􊧭。\x{20E9}🄀", %p)}, undef, "to_ascii\(\'𐹩\\u088E\\u031C􊧭\。\\u20E9🄀\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1857\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹩\x{088E}\x{031C}􊧭。\x{20E9}0.", %p)}, undef, "to_ascii\(\'𐹩\\u088E\\u031C􊧭\。\\u20E90\.\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_ascii\(\'Ⴄ.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1860\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1862\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_ascii\(\'ⴄ\.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1864\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0767}󙄁Σ", %p)}, undef, "to_ascii\(\'Ⴄ\.\\u200D\\u0767󙄁Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0767}󙄁σ", %p)}, undef, "to_ascii\(\'ⴄ\.\\u200D\\u0767󙄁σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_ascii\(\'ⴄ.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴄ.\x{200D}\x{0767}󙄁Σ", %p)}, undef, "to_ascii\(\'Ⴄ.\\u200D\\u0767󙄁Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴄ.\x{200D}\x{0767}󙄁σ", %p)}, undef, "to_ascii\(\'ⴄ.\\u200D\\u0767󙄁σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󐠫\x{0365}.Ⴕ", %p)}, undef, "to_ascii\(\'󐠫\\u0365\.Ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󐠫\x{0365}.ⴕ", %p)}, undef, "to_ascii\(\'󐠫\\u0365\.ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0AC3}𞨮。\x{200C}𑘿󠔹\x{200D}", %p)}, undef, "to_ascii\(\'\≯\\u0AC3𞨮\。\\u200C𑘿\󠔹\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0AC3}𞨮。\x{200C}𑘿󠔹\x{200D}", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0AC3𞨮\。\\u200C𑘿\󠔹\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1DF0}。񊩧", %p)}, undef, "to_ascii\(\'\\u200C\\u1DF0。񊩧\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1DF0}。񊩧", %p)}, undef, "to_ascii\(\'\\u200C\\u1DF0\。񊩧\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈𑁅焅.񖠲\x{200D}\x{06D1}", %p)}, undef, "to_ascii\(\'⒈𑁅焅\.񖠲\\u200D\\u06D1\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.𑁅焅.񖠲\x{200D}\x{06D1}", %p)}, undef, "to_ascii\(\'1\.𑁅焅\.񖠲\\u200D\\u06D1\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐ς≮.ς\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐ς\≮\.ς\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐ς<\x{0338}.ς\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐ς\<\\u0338\.ς\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐Σ<\x{0338}.Σ\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐Σ\<\\u0338\.Σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐Σ≮.Σ\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐Σ\≮\.Σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐σ≮.σ\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐σ\≮\.σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁐σ<\x{0338}.σ\x{A9B8}ᡤ0", %p)}, undef, "to_ascii\(\'\󠁐σ\<\\u0338\.σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򎲖ß𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_ascii\(\'򎲖ß𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򎲖SS𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_ascii\(\'򎲖SS𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򎲖ss𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_ascii\(\'򎲖ss𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򎲖Ss𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_ascii\(\'򎲖Ss𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0717}。⒈", %p)}, undef, "to_ascii\(\'\-\\u0717。⒈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{0717}。1.", %p)}, undef, "to_ascii\(\'\-\\u0717\。1\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1900\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0BCD}", %p)}, "xn--9-rdkz5694a.xn--xmc994d", "to_ascii\(\'𨇆ᢪ𝟡\。ᡆ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:1901\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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("𨇆ᢪ9。ᡆ\x{0BCD}", %p)}, "xn--9-rdkz5694a.xn--xmc994d", "to_ascii\(\'𨇆ᢪ9\。ᡆ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:1902\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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--9-rdkz5694a.xn--xmc994d", %p)}, "xn--9-rdkz5694a.xn--xmc994d", "to_ascii\(\'xn\-\-9\-rdkz5694a\.xn\-\-xmc994d\'\)\ \[data\/IdnaTest\.txt\:1903\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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("𨇆ᢪ9.ᡆ\x{0BCD}", %p)}, "xn--9-rdkz5694a.xn--xmc994d", "to_ascii\(\'𨇆ᢪ9\.ᡆ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:1904\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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}", %p)}, undef, "to_ascii\(\'𐹨𞺸𐹽\󠆼\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1906\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹨\x{0630}𐹽󠆼.\x{200D}", %p)}, undef, "to_ascii\(\'𐹨\\u0630𐹽\󠆼\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1908\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟘.Ⴇ񜚙𞸀򋝟", %p)}, undef, "to_ascii\(\'𝟘.Ⴇ񜚙𞸀򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.Ⴇ񜚙\x{0627}򋝟", %p)}, undef, "to_ascii\(\'0\.Ⴇ񜚙\\u0627򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.ⴇ񜚙\x{0627}򋝟", %p)}, undef, "to_ascii\(\'0\.ⴇ񜚙\\u0627򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟘.ⴇ񜚙𞸀򋝟", %p)}, undef, "to_ascii\(\'𝟘.ⴇ񜚙𞸀򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}😅.󠂱ᠨ", %p)}, undef, "to_ascii\(\'\\u1734😅\.\󠂱ᠨ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}-ᠺ.򀬭", %p)}, undef, "to_ascii\(\'\\u200D\-ᠺ\.򀬭\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1915\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡖ\x{0767}\x{06D5}寐。\x{200C}≯⩓", %p)}, undef, "to_ascii\(\'ᡖ\\u0767\\u06D5寐。\\u200C\≯\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1917\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡖ\x{0767}\x{06D5}寐。\x{200C}>\x{0338}⩓", %p)}, undef, "to_ascii\(\'ᡖ\\u0767\\u06D5寐。\\u200C\>\\u0338\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡖ\x{0767}\x{06D5}寐。\x{200C}≯⩓", %p)}, undef, "to_ascii\(\'ᡖ\\u0767\\u06D5寐\。\\u200C\≯\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡖ\x{0767}\x{06D5}寐。\x{200C}>\x{0338}⩓", %p)}, undef, "to_ascii\(\'ᡖ\\u0767\\u06D5寐\。\\u200C\>\\u0338\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ႺႴ\x{FE85}", %p)}, undef, "to_ascii\(\'\\u200D。򧯞ႺႴ\\uFE85\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ႺႴ\x{0624}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞ႺႴ\\u0624\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ႺႴ\x{0648}\x{0654}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞ႺႴ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ⴚⴔ\x{0648}\x{0654}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞ⴚⴔ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ⴚⴔ\x{0624}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞ⴚⴔ\\u0624\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞Ⴚⴔ\x{0624}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞Ⴚⴔ\\u0624\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞Ⴚⴔ\x{0648}\x{0654}", %p)}, undef, "to_ascii\(\'\\u200D\。򧯞Ⴚⴔ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞ⴚⴔ\x{FE85}", %p)}, undef, "to_ascii\(\'\\u200D。򧯞ⴚⴔ\\uFE85\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。򧯞Ⴚⴔ\x{FE85}", %p)}, undef, "to_ascii\(\'\\u200D。򧯞Ⴚⴔ\\uFE85\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-3.\x{200D}ヌᡰ", %p)}, undef, "to_ascii\(\'\-3\.\\u200Dヌᡰ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⑰\x{0665}ß\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_ascii\(\'⑰\\u0665ß\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("17\x{0665}ß\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_ascii\(\'17\\u0665ß\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("17\x{0665}SS\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_ascii\(\'17\\u0665SS\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1949\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("17\x{0665}ss\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_ascii\(\'17\\u0665ss\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1951\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("17\x{0665}Ss\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_ascii\(\'17\\u0665Ss\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1953\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⑰\x{0665}SS\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_ascii\(\'⑰\\u0665SS\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⑰\x{0665}ss\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_ascii\(\'⑰\\u0665ss\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1957\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⑰\x{0665}Ss\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_ascii\(\'⑰\\u0665Ss\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1959\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꇟ-\x{07D5}𐫠。񛳊\x{200C}", %p)}, undef, "to_ascii\(\'ꇟ\-\\u07D5𐫠\。񛳊\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1961\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{066C}.\x{0FA3}\x{FB58}𐨿蟵", %p)}, undef, "to_ascii\(\'\\u066C\.\\u0FA3\\uFB58𐨿蟵\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1962\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{066C}.\x{0FA3}\x{067E}𐨿蟵", %p)}, undef, "to_ascii\(\'\\u066C\.\\u0FA3\\u067E𐨿蟵\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1963\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-.򟊕\x{0756}\x{0C4D}", %p)}, undef, "to_ascii\(\'\-\.򟊕\\u0756\\u0C4D\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀ς.\x{FDC8}녫ß", %p)}, undef, "to_ascii\(\'󆕀ς\.\\uFDC8녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀ς.\x{FDC8}녫ß", %p)}, undef, "to_ascii\(\'󆕀ς\.\\uFDC8녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀Σ.\x{FDC8}녫SS", %p)}, undef, "to_ascii\(\'󆕀Σ\.\\uFDC8녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀Σ.\x{FDC8}녫SS", %p)}, undef, "to_ascii\(\'󆕀Σ\.\\uFDC8녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀σ.\x{FDC8}녫ss", %p)}, undef, "to_ascii\(\'󆕀σ\.\\uFDC8녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀σ.\x{FDC8}녫ss", %p)}, undef, "to_ascii\(\'󆕀σ\.\\uFDC8녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀Σ.\x{FDC8}녫Ss", %p)}, undef, "to_ascii\(\'󆕀Σ\.\\uFDC8녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆕀Σ.\x{FDC8}녫Ss", %p)}, undef, "to_ascii\(\'󆕀Σ\.\\uFDC8녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ𑖿\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1974\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ𑖿\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ𑖿\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1978\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'Ⅎ𑖿\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ𑖿\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ𑖿\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ𑖿\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1986\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'ⅎ𑖿\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1988\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋺\x{09CD}\x{0BCD}򽕵.\x{200C}\x{1BF2}\x{0719}", %p)}, undef, "to_ascii\(\'𐋺\\u09CD\\u0BCD򽕵.\\u200C\\u1BF2\\u0719\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋺\x{09CD}\x{0BCD}򽕵.\x{200C}\x{1BF2}\x{0719}", %p)}, undef, "to_ascii\(\'𐋺\\u09CD\\u0BCD򽕵\.\\u200C\\u1BF2\\u0719\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񶪗𑍰.≯", %p)}, undef, "to_ascii\(\'񶪗𑍰.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񶪗𑍰.>\x{0338}", %p)}, undef, "to_ascii\(\'񶪗𑍰.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񶪗𑍰.≯", %p)}, undef, "to_ascii\(\'񶪗𑍰\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1995\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񶪗𑍰.>\x{0338}", %p)}, undef, "to_ascii\(\'񶪗𑍰\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐱼Ⴓ.\x{3099}", %p)}, undef, "to_ascii\(\'\\u200D𐱼Ⴓ.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐱼Ⴓ.\x{3099}", %p)}, undef, "to_ascii\(\'\\u200D𐱼Ⴓ\.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2000\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐱼ⴓ.\x{3099}", %p)}, undef, "to_ascii\(\'\\u200D𐱼ⴓ\.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}𐱼ⴓ.\x{3099}", %p)}, undef, "to_ascii\(\'\\u200D𐱼ⴓ.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2004\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮ß\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮ß\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2005\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮ß\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮ß\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2006\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮SS\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮SS\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2007\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮ss\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮ss\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2008\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮Ss\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮Ss\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2009\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮SS\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮SS\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2010\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮ss\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮ss\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2011\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐭮Ss\x{0E36}.\x{0698}", %p)}, undef, "to_ascii\(\'𐭮Ss\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2012\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A806}\x{2DE4}鸮\x{1714}.ς", %p)}, undef, "to_ascii\(\'\\uA806\\u2DE4鸮\\u1714\.ς\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2013\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A806}\x{2DE4}鸮\x{1714}.Σ", %p)}, undef, "to_ascii\(\'\\uA806\\u2DE4鸮\\u1714\.Σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2014\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A806}\x{2DE4}鸮\x{1714}.σ", %p)}, undef, "to_ascii\(\'\\uA806\\u2DE4鸮\\u1714\.σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2015\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒗𐫤。-\x{A806}", %p)}, undef, "to_ascii\(\'⒗𐫤\。\-\\uA806\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2016\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("16.𐫤。-\x{A806}", %p)}, undef, "to_ascii\(\'16\.𐫤\。\-\\uA806\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2017\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᠤ\x{0855}🎮。𐹡ꡛ⒈", %p)}, undef, "to_ascii\(\'ᠤ\\u0855🎮。𐹡ꡛ⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2018\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0855}🎮。𐹡ꡛ1.", %p)}, undef, "to_ascii\(\'ᠤ\\u0855🎮\。𐹡ꡛ1\.\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2019\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{2433}𕔫𝟧𐹶.\x{0679}8\x{1DC2}𐹻", %p)}, undef, "to_ascii\(\'\\u2433𕔫𝟧𐹶\.\\u06798\\u1DC2𐹻\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B4\ \[data\/IdnaTest\.txt\:2020\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{2433}𕔫5𐹶.\x{0679}8\x{1DC2}𐹻", %p)}, undef, "to_ascii\(\'\\u2433𕔫5𐹶\.\\u06798\\u1DC2𐹻\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B4\ \[data\/IdnaTest\.txt\:2021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹺.🄀⒒-򹉒", %p)}, undef, "to_ascii\(\'𐹺\.🄀⒒\-򹉒\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2022\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹺.0.11.-򹉒", %p)}, undef, "to_ascii\(\'𐹺\.0\.11\.\-򹉒\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2023\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς-。\x{200C}1-", %p)}, undef, "to_ascii\(\'ς\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ-。\x{200C}1-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ-。\x{200C}1-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'Σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ-。\x{200C}𝟭-", %p)}, undef, "to_ascii\(\'σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}-\x{1BAB}.\x{1DEB}Ⴄ", %p)}, undef, "to_ascii\(\'\\u0ACD\-\\u1BAB.\\u1DEBႤ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}-\x{1BAB}.\x{1DEB}Ⴄ", %p)}, undef, "to_ascii\(\'\\u0ACD\-\\u1BAB\.\\u1DEBႤ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2037\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0ACD}-\x{1BAB}.\x{1DEB}ⴄ", %p)}, undef, "to_ascii\(\'\\u0ACD\-\\u1BAB\.\\u1DEBⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2038\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0ACD}-\x{1BAB}.\x{1DEB}ⴄ", %p)}, undef, "to_ascii\(\'\\u0ACD\-\\u1BAB.\\u1DEBⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2039\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񢒷℟ᢨ\x{FD05}。⦟⒈", %p)}, undef, "to_ascii\(\'񢒷℟ᢨ\\uFD05。\⦟⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񢒷℟ᢨ\x{0635}\x{0649}。⦟1.", %p)}, undef, "to_ascii\(\'񢒷℟ᢨ\\u0635\\u0649\。\⦟1\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁂.ᡇ\x{0348}\x{200C}", %p)}, undef, "to_ascii\(\'\󠁂.ᡇ\\u0348\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠁂.ᡇ\x{0348}\x{200C}", %p)}, undef, "to_ascii\(\'\󠁂\.ᡇ\\u0348\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("慹ᢏ≮\x{0DCA}.\x{FE8E}", %p)}, undef, "to_ascii\(\'慹ᢏ\≮\\u0DCA.\\uFE8E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("慹ᢏ<\x{0338}\x{0DCA}.\x{FE8E}", %p)}, undef, "to_ascii\(\'慹ᢏ\<\\u0338\\u0DCA.\\uFE8E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("慹ᢏ≮\x{0DCA}.\x{0627}", %p)}, undef, "to_ascii\(\'慹ᢏ\≮\\u0DCA\.\\u0627\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("慹ᢏ<\x{0338}\x{0DCA}.\x{0627}", %p)}, undef, "to_ascii\(\'慹ᢏ\<\\u0338\\u0DCA\.\\u0627\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。𖬵⒈ꡍ󨮞", %p)}, undef, "to_ascii\(\'\\u200D\。𖬵⒈ꡍ󨮞\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。𖬵1.ꡍ󨮞", %p)}, undef, "to_ascii\(\'\\u200D\。𖬵1\.ꡍ󨮞\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₈ᠥ.𞤤≠", %p)}, undef, "to_ascii\(\'₈ᠥ.𞤤\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₈ᠥ.𞤤=\x{0338}", %p)}, undef, "to_ascii\(\'₈ᠥ.𞤤\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ᠥ.𞤤≠", %p)}, undef, "to_ascii\(\'8ᠥ\.𞤤\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ᠥ.𞤤=\x{0338}", %p)}, undef, "to_ascii\(\'8ᠥ\.𞤤\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2057\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A7}\x{069F}񰍸.⒒\x{0680}\x{2DF0}", %p)}, undef, "to_ascii\(\'\\u06A7\\u069F񰍸\.⒒\\u0680\\u2DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2058\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A7}\x{069F}񰍸.11.\x{0680}\x{2DF0}", %p)}, undef, "to_ascii\(\'\\u06A7\\u069F񰍸\.11\.\\u0680\\u2DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2059\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀-𐹢𝟜.󠔸𝩜⒏", %p)}, undef, "to_ascii\(\'𑍀\-𐹢𝟜\.\󠔸𝩜⒏\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2060\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀-𐹢4.󠔸𝩜8.", %p)}, undef, "to_ascii\(\'𑍀\-𐹢4\.\󠔸𝩜8\.\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2061\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。Ⴠ-򏐆", %p)}, undef, "to_ascii\(\'\⫐。Ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2062\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。Ⴠ-򏐆", %p)}, undef, "to_ascii\(\'\⫐\。Ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。ⴠ-򏐆", %p)}, undef, "to_ascii\(\'\⫐\。ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⫐。ⴠ-򏐆", %p)}, undef, "to_ascii\(\'\⫐。ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2065\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{17D2}⟃.⦟⋫", %p)}, undef, "to_ascii\(\'\\u17D2\⟃.\⦟\⋫\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2066\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{17D2}⟃.⦟⊳\x{0338}", %p)}, undef, "to_ascii\(\'\\u17D2\⟃.\⦟\⊳\\u0338\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2067\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{17D2}⟃.⦟⋫", %p)}, undef, "to_ascii\(\'\\u17D2\⟃\.\⦟\⋫\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2068\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{17D2}⟃.⦟⊳\x{0338}", %p)}, undef, "to_ascii\(\'\\u17D2\⟃\.\⦟\⊳\\u0338\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2069\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򣎳-𐹦。󓽪ᠹ", %p)}, undef, "to_ascii\(\'򣎳\-𐹦\。󓽪ᠹ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072A}。󠑏𞣒𐿦𐹦", %p)}, undef, "to_ascii\(\'\\u072A\。\󠑏𞣒𐿦𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2071\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0790}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'\\u0790ꌄ。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2073\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0790}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_ascii\(\'\\u0790ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2075\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("₀𐹧。򾂚≯-", %p)}, undef, "to_ascii\(\'₀𐹧\。򾂚\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2076\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₀𐹧。򾂚>\x{0338}-", %p)}, undef, "to_ascii\(\'₀𐹧\。򾂚\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0𐹧。򾂚≯-", %p)}, undef, "to_ascii\(\'0𐹧\。򾂚\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0𐹧。򾂚>\x{0338}-", %p)}, undef, "to_ascii\(\'0𐹧\。򾂚\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠣖𐹨-\x{08DF}.𐋤\x{0766}", %p)}, undef, "to_ascii\(\'\󠣖𐹨\-\\u08DF\.𐋤\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\≠。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\=\\u0338。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\≠\。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\=\\u0338\。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\≠\。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\=\\u0338。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_ascii\(\'\≠。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0335}≠.Ⴀ𐫓", %p)}, undef, "to_ascii\(\'\\u0335\≠\.Ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2089\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0335}=\x{0338}.Ⴀ𐫓", %p)}, undef, "to_ascii\(\'\\u0335\=\\u0338\.Ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2090\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0335}=\x{0338}.ⴀ𐫓", %p)}, undef, "to_ascii\(\'\\u0335\=\\u0338\.ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2091\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0335}≠.ⴀ𐫓", %p)}, undef, "to_ascii\(\'\\u0335\≠\.ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2092\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("󠇌\x{08F6}\x{069F}.\x{06EE}閪𐹺\x{1CD2}", %p)}, undef, "to_ascii\(\'\󠇌\\u08F6\\u069F.\\u06EE閪𐹺\\u1CD2\'\)\ throws\ error\ V5\ B1\ B2\ \[data\/IdnaTest\.txt\:2093\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("󠇌\x{08F6}\x{069F}.\x{06EE}閪𐹺\x{1CD2}", %p)}, undef, "to_ascii\(\'\󠇌\\u08F6\\u069F\.\\u06EE閪𐹺\\u1CD2\'\)\ throws\ error\ V5\ B1\ B2\ \[data\/IdnaTest\.txt\:2094\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}󠄪𞢊\x{1C2F}。󠇂\x{0953}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\󠄪𞢊\\u1C2F。\󠇂\\u0953\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2096\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}󠄪𞢊\x{1C2F}。󠇂\x{0953}-ᛟ", %p)}, undef, "to_ascii\(\'\\u200D\󠄪𞢊\\u1C2F\。\󠇂\\u0953\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2098\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("헁񿙡\x{1A60}򁰰。\x{071C}𝟜", %p)}, undef, "to_ascii\(\'헁񿙡\\u1A60򁰰\。\\u071C𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("헁񿙡\x{1A60}򁰰。\x{071C}𝟜", %p)}, undef, "to_ascii\(\'헁񿙡\\u1A60򁰰\。\\u071C𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("헁񿙡\x{1A60}򁰰。\x{071C}4", %p)}, undef, "to_ascii\(\'헁񿙡\\u1A60򁰰\。\\u071C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("헁񿙡\x{1A60}򁰰。\x{071C}4", %p)}, undef, "to_ascii\(\'헁񿙡\\u1A60򁰰\。\\u071C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹻。񫡍\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'𐹻。񫡍\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2104\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹻。񫡍\x{200C}Ⴞ", %p)}, undef, "to_ascii\(\'𐹻\。񫡍\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹻。񫡍\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'𐹻\。񫡍\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2108\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹻。񫡍\x{200C}ⴞ", %p)}, undef, "to_ascii\(\'𐹻。񫡍\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2110\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.\x{06DA}\x{0F84}馋", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\u06DA\\u0F84馋\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2111\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}.\x{0F84}\x{06DA}馋", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\u0F84\\u06DA馋\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򿒓򔸨\x{200D}。󱾁", %p)}, undef, "to_ascii\(\'򿒓򔸨\\u200D。󱾁\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򿒓򔸨\x{200D}。󱾁", %p)}, undef, "to_ascii\(\'򿒓򔸨\\u200D\。󱾁\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0626}󠞂姶🄉.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_ascii\(\'\\u0626\󠞂姶🄉.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:2118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{064A}\x{0654}󠞂姶🄉.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_ascii\(\'\\u064A\\u0654\󠞂姶🄉.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:2120\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0626}󠞂姶8,.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_ascii\(\'\\u0626\󠞂姶8\,\.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{064A}\x{0654}󠞂姶8,.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_ascii\(\'\\u064A\\u0654\󠞂姶8\,\.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2124\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{FCCB}.𐹴⿆\x{A8C4}", %p)}, undef, "to_ascii\(\'\\uFCCB\.𐹴⿆\\uA8C4\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2125\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0644}\x{062E}.𐹴麥\x{A8C4}", %p)}, undef, "to_ascii\(\'\\u0644\\u062E\.𐹴麥\\uA8C4\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2126\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_ascii\(\'Ⴔ\\u0724。𐹼\\u0C48۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_ascii\(\'Ⴔ\\u0724。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_ascii\(\'Ⴔ\\u0724\。𐹼\\u0C48۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_ascii\(\'Ⴔ\\u0724\。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2130\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_ascii\(\'ⴔ\\u0724\。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2131\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_ascii\(\'ⴔ\\u0724\。𐹼\\u0C48۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2132\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_ascii\(\'ⴔ\\u0724。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2133\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_ascii\(\'ⴔ\\u0724。𐹼\\u0C48۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2134\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠏬𐫂\x{200C}.︒-󠇕-", %p)}, undef, "to_ascii\(\'\󠏬𐫂\\u200C.︒\-\󠇕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:2136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠏬𐫂\x{200C}.。-󠇕-", %p)}, undef, "to_ascii\(\'\󠏬𐫂\\u200C\.\。\-\󠇕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{0661}⒖\x{200C}.𝪩\x{FBD9}", %p)}, undef, "to_ascii\(\'⒈\\u0661⒖\\u200C\.𝪩\\uFBD9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2140\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("1.\x{0661}15.\x{200C}.𝪩\x{06C6}", %p)}, undef, "to_ascii\(\'1\.\\u066115\.\\u200C\.𝪩\\u06C6\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2142\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{20ED}。-\x{1734}Ⴋ", %p)}, undef, "to_ascii\(\'\\u20ED\。\-\\u1734Ⴋ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:2143\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{20ED}。-\x{1734}ⴋ", %p)}, undef, "to_ascii\(\'\\u20ED\。\-\\u1734ⴋ\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:2144\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ßჀ.\x{07CD}刯Ⴝ", %p)}, undef, "to_ascii\(\'ßჀ\.\\u07CD刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2145\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07CD}刯ⴝ", %p)}, undef, "to_ascii\(\'ßⴠ\.\\u07CD刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2146\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SSჀ.\x{07CD}刯Ⴝ", %p)}, undef, "to_ascii\(\'SSჀ\.\\u07CD刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2147\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07CD}刯ⴝ", %p)}, undef, "to_ascii\(\'ssⴠ\.\\u07CD刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2148\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ssⴠ.\x{07CD}刯Ⴝ", %p)}, undef, "to_ascii\(\'Ssⴠ\.\\u07CD刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2149\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣℲ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣℲ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣℲ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2152\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣℲ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4Dⴃⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4Dⴃⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4Dⴃⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2158\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4Dⴃⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2159\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2160\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_ascii\(\'\\u0B4DႣⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2161\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{07E7}𐹫ᢏ", %p)}, undef, "to_ascii\(\'🝞\.\\u07E7𐹫ᢏ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2162\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0845}𝪩。₇𑚶", %p)}, "xn--3vb6099u.xn--7-4j0j", "to_ascii\(\'\\u0845𝪩\。₇𑚶\'\)\ \[data\/IdnaTest\.txt\:2163\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0845}𝪩。7𑚶", %p)}, "xn--3vb6099u.xn--7-4j0j", "to_ascii\(\'\\u0845𝪩\。7𑚶\'\)\ \[data\/IdnaTest\.txt\:2164\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--3vb6099u.xn--7-4j0j", %p)}, "xn--3vb6099u.xn--7-4j0j", "to_ascii\(\'xn\-\-3vb6099u\.xn\-\-7\-4j0j\'\)\ \[data\/IdnaTest\.txt\:2165\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0845}𝪩.7𑚶", %p)}, "xn--3vb6099u.xn--7-4j0j", "to_ascii\(\'\\u0845𝪩\.7𑚶\'\)\ \[data\/IdnaTest\.txt\:2166\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴣ\x{0663}.\x{200C}\x{A672}≮\x{FDE2}", %p)}, undef, "to_ascii\(\'Ⴣ\\u0663\.\\u200C\\uA672\≮\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴣ\x{0663}.\x{200C}\x{A672}<\x{0338}\x{FDE2}", %p)}, undef, "to_ascii\(\'Ⴣ\\u0663\.\\u200C\\uA672\<\\u0338\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴣ\x{0663}.\x{200C}\x{A672}<\x{0338}\x{FDE2}", %p)}, undef, "to_ascii\(\'ⴣ\\u0663\.\\u200C\\uA672\<\\u0338\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴣ\x{0663}.\x{200C}\x{A672}≮\x{FDE2}", %p)}, undef, "to_ascii\(\'ⴣ\\u0663\.\\u200C\\uA672\≮\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2174\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟵隁⽷.𖬰\x{200C}", %p)}, undef, "to_ascii\(\'𝟵隁⽷.𖬰\\u200C\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2176\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("9隁糸.𖬰\x{200C}", %p)}, undef, "to_ascii\(\'9隁糸\.𖬰\\u200C\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2178\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒏𐹷。Ⴣ𑘿彦", %p)}, undef, "to_ascii\(\'⒏𐹷。Ⴣ𑘿彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8.𐹷。Ⴣ𑘿彦", %p)}, undef, "to_ascii\(\'8\.𐹷\。Ⴣ𑘿彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2180\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("8.𐹷。ⴣ𑘿彦", %p)}, undef, "to_ascii\(\'8\.𐹷\。ⴣ𑘿彦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2181\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒏𐹷。ⴣ𑘿彦", %p)}, undef, "to_ascii\(\'⒏𐹷。ⴣ𑘿彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-问󕀙⒛。\x{0664}-󘖶橬", %p)}, undef, "to_ascii\(\'\-问󕀙⒛\。\\u0664\-󘖶橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-问󕀙20.。\x{0664}-󘖶橬", %p)}, undef, "to_ascii\(\'\-问󕀙20\.\。\\u0664\-󘖶橬\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DFE}Ⴌ\x{200C}𐫥。𝟸", %p)}, undef, "to_ascii\(\'\\u1DFEႬ\\u200C𐫥\。𝟸\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DFE}Ⴌ\x{200C}𐫥。2", %p)}, undef, "to_ascii\(\'\\u1DFEႬ\\u200C𐫥\。2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2188\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DFE}ⴌ\x{200C}𐫥。2", %p)}, undef, "to_ascii\(\'\\u1DFEⴌ\\u200C𐫥\。2\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2190\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DFE}ⴌ\x{200C}𐫥。𝟸", %p)}, undef, "to_ascii\(\'\\u1DFEⴌ\\u200C𐫥\。𝟸\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2192\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{DC5F}。\x{1BF2}𐹫󠇷", %p)}, undef, "to_ascii\(\'\\uDC5F\。\\u1BF2𐹫\󠇷\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ A3\ \[data\/IdnaTest\.txt\:2193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE28}\x{135D}⾶。₇︒눇≮", %p)}, undef, "to_ascii\(\'\\uFE28\\u135D⾶。₇︒눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE28}\x{135D}⾶。₇︒눇<\x{0338}", %p)}, undef, "to_ascii\(\'\\uFE28\\u135D⾶。₇︒눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE28}\x{135D}飛。7。눇≮", %p)}, undef, "to_ascii\(\'\\uFE28\\u135D飛\。7\。눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE28}\x{135D}飛。7。눇<\x{0338}", %p)}, undef, "to_ascii\(\'\\uFE28\\u135D飛\。7\。눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2197\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{2DFD}𐹽\x{200D}.\x{200C}⿃", %p)}, undef, "to_ascii\(\'\\u200C\\u2DFD𐹽\\u200D.\\u200C⿃\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2199\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{2DFD}𐹽\x{200D}.\x{200C}鳥", %p)}, undef, "to_ascii\(\'\\u200C\\u2DFD𐹽\\u200D\.\\u200C鳥\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2201\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠶡.\x{200D}🜮𐥮󠇠", %p)}, undef, "to_ascii\(\'\󠶡.\\u200D🜮𐥮\󠇠\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠶡.\x{200D}🜮𐥮󠇠", %p)}, undef, "to_ascii\(\'\󠶡\.\\u200D🜮𐥮\󠇠\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2205\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᡉ𑇊.\x{0726}\x{200D}", %p)}, undef, "to_ascii\(\'ᡉ𑇊\.\\u0726\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:2207\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--87e0688j.xn--wnb", %p)}, "xn--87e0688j.xn--wnb", "to_ascii\(\'xn\-\-87e0688j\.xn\-\-wnb\'\)\ \[data\/IdnaTest\.txt\:2208\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᡉ𑇊.\x{0726}", %p)}, "xn--87e0688j.xn--wnb", "to_ascii\(\'ᡉ𑇊\.\\u0726\'\)\ \[data\/IdnaTest\.txt\:2209\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0662}\x{103A}-.򡕻\x{09CD}𞜎", %p)}, undef, "to_ascii\(\'\\u0662\\u103A\-.򡕻\\u09CD𞜎\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2210\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0662}\x{103A}-.򡕻\x{09CD}𞜎", %p)}, undef, "to_ascii\(\'\\u0662\\u103A\-\.򡕻\\u09CD𞜎\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢≮", %p)}, undef, "to_ascii\(\'4\\u1A60\-\\u0664。𝉄\\u200C𐹢\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢<\x{0338}", %p)}, undef, "to_ascii\(\'4\\u1A60\-\\u0664。𝉄\\u200C𐹢\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢≮", %p)}, undef, "to_ascii\(\'4\\u1A60\-\\u0664\。𝉄\\u200C𐹢\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2217\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢<\x{0338}", %p)}, undef, "to_ascii\(\'4\\u1A60\-\\u0664\。𝉄\\u200C𐹢\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2219\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{FFA0}\x{0F84}\x{0342}", %p)}, undef, "to_ascii\(\'\\u200C\。\\uFFA0\\u0F84\\u0342\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2221\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。\x{1160}\x{0F84}\x{0342}", %p)}, undef, "to_ascii\(\'\\u200C\。\\u1160\\u0F84\\u0342\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯񙛤.\x{200D}䷕񆡚", %p)}, undef, "to_ascii\(\'\≯񙛤.\\u200D䷕񆡚\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2225\]") 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\:2227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯񙛤.\x{200D}䷕񆡚", %p)}, undef, "to_ascii\(\'\≯񙛤\.\\u200D䷕񆡚\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2229\]") 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\:2231\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦß\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2232\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦß\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2233\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0635}\x{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦSS\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2234\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0635}\x{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦss\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2235\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0635}\x{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦSs\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2236\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦSS\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2237\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦss\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2238\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_ascii\(\'ᡦSs\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2239\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ß\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'ß\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'ß\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_ascii\(\'ß\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_ascii\(\'SS\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_ascii\(\'ss\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_ascii\(\'Ss\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'SS\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2246\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'ss\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'Ss\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2248\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'SS\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'ss\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_ascii\(\'Ss\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。🗦⒌\x{076B}", %p)}, undef, "to_ascii\(\'\-。🗦⒌\\u076B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2252\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-。🗦5.\x{076B}", %p)}, undef, "to_ascii\(\'\-\。🗦5\.\\u076B\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2253\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𓯃ς.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃ς.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃ς.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃ς.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃ς.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃ς\.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃ς.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃ς\.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃Σ.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃Σ\.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃Σ.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃Σ\.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃σ.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃σ\.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃σ.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃σ\.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃Σ.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃Σ.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃Σ.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃Σ.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃σ.-≮𐢞", %p)}, undef, "to_ascii\(\'𓯃σ.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𓯃σ.-<\x{0338}𐢞", %p)}, undef, "to_ascii\(\'𓯃σ.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠣ\x{0697}ꡜ.񪁡⎩\x{17D2}𞶊", %p)}, undef, "to_ascii\(\'ᠣ\\u0697ꡜ.񪁡\⎩\\u17D2𞶊\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠣ\x{0697}ꡜ.񪁡⎩\x{17D2}𞶊", %p)}, undef, "to_ascii\(\'ᠣ\\u0697ꡜ\.񪁡\⎩\\u17D2𞶊\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2267\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪟\x{06AA}\x{0757}\x{0761}。𐋦𝅼󠄧", %p)}, "xn--dkb06a4a7332t.xn--987cj167a", "to_ascii\(\'𐪟\\u06AA\\u0757\\u0761\。𐋦𝅼\󠄧\'\)\ \[data\/IdnaTest\.txt\:2268\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--dkb06a4a7332t.xn--987cj167a", %p)}, "xn--dkb06a4a7332t.xn--987cj167a", "to_ascii\(\'xn\-\-dkb06a4a7332t\.xn\-\-987cj167a\'\)\ \[data\/IdnaTest\.txt\:2269\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐪟\x{06AA}\x{0757}\x{0761}.𐋦𝅼", %p)}, "xn--dkb06a4a7332t.xn--987cj167a", "to_ascii\(\'𐪟\\u06AA\\u0757\\u0761\.𐋦𝅼\'\)\ \[data\/IdnaTest\.txt\:2270\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("₂󘈲--。ᢢ\x{200C}𞾰\x{1BAA}", %p)}, undef, "to_ascii\(\'₂󘈲\-\-\。ᢢ\\u200C𞾰\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:2272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2󘈲--。ᢢ\x{200C}𞾰\x{1BAA}", %p)}, undef, "to_ascii\(\'2󘈲\-\-\。ᢢ\\u200C𞾰\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:2274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-􆒿.ᢖ\x{0853}-", %p)}, undef, "to_ascii\(\'\-􆒿.ᢖ\\u0853\-\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-􆒿.ᢖ\x{0853}-", %p)}, undef, "to_ascii\(\'\-􆒿\.ᢖ\\u0853\-\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2276\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-ß。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2278\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-ß\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2280\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-SS。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-SS\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2282\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-ss\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2284\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-Ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2286\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-SS。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-SS。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2288\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-ss。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2290\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{200C}-Ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_ascii\(\'\\u200C\-Ss。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2292\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1039\\u1DEF.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1039\\u1DEF.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1039\\u1DEF\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_ascii\(\'꧐Ӏ\\u1039\\u1DEF\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2296\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1039\\u1DEF\.눵\'\)\ \[data\/IdnaTest\.txt\:2297\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1039\\u1DEF\.눵\'\)\ \[data\/IdnaTest\.txt\:2298\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--s5a859c44knm0l.xn--2e1b", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'xn\-\-s5a859c44knm0l\.xn\-\-2e1b\'\)\ \[data\/IdnaTest\.txt\:2299\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1039\\u1DEF.눵\'\)\ \[data\/IdnaTest\.txt\:2300\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "xn--s5a859c44knm0l.xn--2e1b", "to_ascii\(\'꧐ӏ\\u1039\\u1DEF.눵\'\)\ \[data\/IdnaTest\.txt\:2301\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0FBC}。鞯𐫦\x{17CB}", %p)}, undef, "to_ascii\(\'\\u0FBC。鞯𐫦\\u17CB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2302\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0FBC}。鞯𐫦\x{17CB}", %p)}, undef, "to_ascii\(\'\\u0FBC\。鞯𐫦\\u17CB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2303\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𹺛🕢。񶐎≯⾇", %p)}, undef, "to_ascii\(\'𹺛🕢\。񶐎\≯⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𹺛🕢。񶐎>\x{0338}⾇", %p)}, undef, "to_ascii\(\'𹺛🕢\。񶐎\>\\u0338⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𹺛🕢。񶐎≯舛", %p)}, undef, "to_ascii\(\'𹺛🕢\。񶐎\≯舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𹺛🕢。񶐎>\x{0338}舛", %p)}, undef, "to_ascii\(\'𹺛🕢\。񶐎\>\\u0338舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2307\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062F}\x{066B}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'\\u062F\\u066B\\u200C.\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062F}\x{066B}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'\\u062F\\u066B\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2311\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--ugb4j.", %p)}, "xn--ugb4j.", "to_ascii\(\'xn\-\-ugb4j\.\'\)\ \[data\/IdnaTest\.txt\:2312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{062F}\x{066B}.", %p)}, "xn--ugb4j.", "to_ascii\(\'\\u062F\\u066B\.\'\)\ \[data\/IdnaTest\.txt\:2313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹄砪≯𐫉。≯\x{17BA}󣺋\x{200C}", %p)}, undef, "to_ascii\(\'񎹄砪\≯𐫉。\≯\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2315\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹄砪>\x{0338}𐫉。>\x{0338}\x{17BA}󣺋\x{200C}", %p)}, undef, "to_ascii\(\'񎹄砪\>\\u0338𐫉。\>\\u0338\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹄砪≯𐫉。≯\x{17BA}󣺋\x{200C}", %p)}, undef, "to_ascii\(\'񎹄砪\≯𐫉\。\≯\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񎹄砪>\x{0338}𐫉。>\x{0338}\x{17BA}󣺋\x{200C}", %p)}, undef, "to_ascii\(\'񎹄砪\>\\u0338𐫉\。\>\\u0338\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ.\x{094D}㊸", %p)}, undef, "to_ascii\(\'Ⴥ\.\\u094D㊸\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ.\x{094D}43", %p)}, undef, "to_ascii\(\'Ⴥ\.\\u094D43\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2323\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{094D}43", %p)}, undef, "to_ascii\(\'ⴥ\.\\u094D43\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2324\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{094D}㊸", %p)}, undef, "to_ascii\(\'ⴥ\.\\u094D㊸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2325\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟎\x{066C}。Ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_ascii\(\'𝟎\\u066C\。Ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2326\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0\x{066C}。Ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_ascii\(\'0\\u066C\。Ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[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("0\x{066C}。ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_ascii\(\'0\\u066C\。ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2328\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𝟎\x{066C}。ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_ascii\(\'𝟎\\u066C\。ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2329\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󝆆\x{20EB}\x{FFA0}\x{1DE1}.򼇅𑓂", %p)}, undef, "to_ascii\(\'󝆆\\u20EB\\uFFA0\\u1DE1\.򼇅𑓂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󝆆\x{20EB}\x{1160}\x{1DE1}.򼇅𑓂", %p)}, undef, "to_ascii\(\'󝆆\\u20EB\\u1160\\u1DE1\.򼇅𑓂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2331\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{AA31}.۳\x{200C}\x{0C4D}", %p)}, undef, "to_ascii\(\'\\uAA31\.۳\\u200C\\u0C4D\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2333\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐫜.︒ᠦ", %p)}, undef, "to_ascii\(\'𐫜.︒ᠦ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2334\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫜.。ᠦ", %p)}, undef, "to_ascii\(\'𐫜\.\。ᠦ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2335\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0C4D}\x{0FB3}。𐦽", %p)}, undef, "to_ascii\(\'\\u0C4D\\u0FB3。𐦽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2336\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0C4D}\x{0FB3}。𐦽", %p)}, undef, "to_ascii\(\'\\u0C4D\\u0FB3\。𐦽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2337\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞯟。𐫒񥂰", %p)}, undef, "to_ascii\(\'𞯟\。𐫒񥂰\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2338\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}㴼.\x{200C}\x{0669}\x{FE29}񅋵", %p)}, undef, "to_ascii\(\'\\u0BCD㴼.\\u200C\\u0669\\uFE29񅋵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}㴼.\x{200C}\x{0669}\x{FE29}񅋵", %p)}, undef, "to_ascii\(\'\\u0BCD㴼\.\\u200C\\u0669\\uFE29񅋵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𬙭\x{0600}👙。\x{0955}", %p)}, undef, "to_ascii\(\'𬙭\\u0600👙。\\u0955\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2343\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𬙭\x{0600}👙。\x{0955}", %p)}, undef, "to_ascii\(\'𬙭\\u0600👙\。\\u0955\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢔ뾜󠛸\x{09CD}。\x{089D}\x{0600}", %p)}, undef, "to_ascii\(\'ᢔ뾜\󠛸\\u09CD\。\\u089D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2345\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢔ뾜󠛸\x{09CD}。\x{089D}\x{0600}", %p)}, undef, "to_ascii\(\'ᢔ뾜\󠛸\\u09CD\。\\u089D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹷≠。𐋲󠱲\x{200C}", %p)}, undef, "to_ascii\(\'𐹷\≠。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2348\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹷=\x{0338}。𐋲󠱲\x{200C}", %p)}, undef, "to_ascii\(\'𐹷\=\\u0338。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2350\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹷≠。𐋲󠱲\x{200C}", %p)}, undef, "to_ascii\(\'𐹷\≠\。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹷=\x{0338}。𐋲󠱲\x{200C}", %p)}, undef, "to_ascii\(\'𐹷\=\\u0338\。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}򯏪\x{0ACD}.\x{200D}\x{0D4D}𞩪", %p)}, undef, "to_ascii\(\'\\u115F򯏪\\u0ACD.\\u200D\\u0D4D𞩪\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2356\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}򯏪\x{0ACD}.\x{200D}\x{0D4D}𞩪", %p)}, undef, "to_ascii\(\'\\u115F򯏪\\u0ACD\.\\u200D\\u0D4D𞩪\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2358\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񦞷\x{1714}󠄄\x{0F19}。≮", %p)}, undef, "to_ascii\(\'񦞷\\u1714\󠄄\\u0F19\。\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񦞷\x{1714}󠄄\x{0F19}。<\x{0338}", %p)}, undef, "to_ascii\(\'񦞷\\u1714\󠄄\\u0F19\。\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2360\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨬.󠅙暀≠", %p)}, undef, "to_ascii\(\'𝨬\.\󠅙暀\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2361\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨬.󠅙暀=\x{0338}", %p)}, undef, "to_ascii\(\'𝨬\.\󠅙暀\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2362\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{068E}\x{0CCD}。𞮆𿵧󠁶", %p)}, undef, "to_ascii\(\'\\u068E\\u0CCD。𞮆𿵧\󠁶\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{068E}\x{0CCD}。𞮆𿵧󠁶", %p)}, undef, "to_ascii\(\'\\u068E\\u0CCD\。𞮆𿵧\󠁶\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A92A}\x{200D}⒈。Ⴌ𐢐", %p)}, undef, "to_ascii\(\'\\uA92A\\u200D⒈。Ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A92A}\x{200D}1.。Ⴌ𐢐", %p)}, undef, "to_ascii\(\'\\uA92A\\u200D1\.\。Ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2368\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A92A}\x{200D}1.。ⴌ𐢐", %p)}, undef, "to_ascii\(\'\\uA92A\\u200D1\.\。ⴌ𐢐\'\)\ throws\ error\ V5\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2370\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A92A}\x{200D}⒈。ⴌ𐢐", %p)}, undef, "to_ascii\(\'\\uA92A\\u200D⒈。ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠾸𐨿񃰂\x{0691}.ς𡛬󵼸", %p)}, undef, "to_ascii\(\'\󠾸𐨿񃰂\\u0691\.ς𡛬󵼸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠾸𐨿񃰂\x{0691}.Σ𡛬󵼸", %p)}, undef, "to_ascii\(\'\󠾸𐨿񃰂\\u0691\.Σ𡛬󵼸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠾸𐨿񃰂\x{0691}.σ𡛬󵼸", %p)}, undef, "to_ascii\(\'\󠾸𐨿񃰂\\u0691\.σ𡛬󵼸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2375\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢛ。\x{200C}ᠳ񩿹", %p)}, undef, "to_ascii\(\'ᢛ\。\\u200Cᠳ񩿹\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2377\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{06DA}\x{20E2}.\x{A672}ꡋ𐫉𝅿", %p)}, undef, "to_ascii\(\'\\u06DA\\u20E2\.\\uA672ꡋ𐫉𝅿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2378\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("䂹򪾥𐋦.\x{200D}", %p)}, undef, "to_ascii\(\'䂹򪾥𐋦.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2380\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䂹򪾥𐋦.\x{200D}", %p)}, undef, "to_ascii\(\'䂹򪾥𐋦\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2382\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}\x{200C}\x{0667}\x{200C}。𐲟🄉", %p)}, undef, "to_ascii\(\'\\u0BCD\\u200C\\u0667\\u200C。𐲟🄉\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0BCD}\x{200C}\x{0667}\x{200C}。𐲟8,", %p)}, undef, "to_ascii\(\'\\u0BCD\\u200C\\u0667\\u200C\。𐲟8\,\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ B3\ \[data\/IdnaTest\.txt\:2386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。Ⴃ≯", %p)}, undef, "to_ascii\(\'︒。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。Ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。Ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'\。\。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。ⴃ≯", %p)}, undef, "to_ascii\(\'\。\。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。ⴃ>\x{0338}", %p)}, undef, "to_ascii\(\'︒。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒。ⴃ≯", %p)}, undef, "to_ascii\(\'︒。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡。󠁙\x{200D}", %p)}, undef, "to_ascii\(\'𐹡。\󠁙\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡。󠁙\x{200D}", %p)}, undef, "to_ascii\(\'𐹡\。\󠁙\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ𐹮。︒𐫁\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ𐹮。︒𐫁\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2400\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ𐹮。。𐫁\x{200D}Ⴏ", %p)}, undef, "to_ascii\(\'Ⴞ𐹮\。\。𐫁\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2402\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴞ𐹮。。𐫁\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ𐹮\。\。𐫁\\u200Dⴏ\'\)\ throws\ error\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2404\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ⴞ𐹮。︒𐫁\x{200D}ⴏ", %p)}, undef, "to_ascii\(\'ⴞ𐹮。︒𐫁\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴆ𝟹。-\x{1DF1}-𐫝", %p)}, undef, "to_ascii\(\'\\u200CႦ𝟹\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴆ3。-\x{1DF1}-𐫝", %p)}, undef, "to_ascii\(\'\\u200CႦ3\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2410\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}ⴆ3。-\x{1DF1}-𐫝", %p)}, undef, "to_ascii\(\'\\u200Cⴆ3\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2412\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}ⴆ𝟹。-\x{1DF1}-𐫝", %p)}, undef, "to_ascii\(\'\\u200Cⴆ𝟹\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2414\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("箃Ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\u0342。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\u0342。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\u0342\。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃Ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_ascii\(\'箃Ⴡ\-\\u0342\。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\u0342\。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2419\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\u0342\。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2420\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\u0342。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2421\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("箃ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_ascii\(\'箃ⴡ\-\\u0342。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2422\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07DC}.ꡜ", %p)}, "xn--3sb.xn--1c9a", "to_ascii\(\'\\u07DC\.ꡜ\'\)\ \[data\/IdnaTest\.txt\:2423\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--3sb.xn--1c9a", %p)}, "xn--3sb.xn--1c9a", "to_ascii\(\'xn\-\-3sb\.xn\-\-1c9a\'\)\ \[data\/IdnaTest\.txt\:2424\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{200D}.ᢏ", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\.ᢏ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2426\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--89e", %p)}, "xn--89e", "to_ascii\(\'xn\-\-89e\'\)\ \[data\/IdnaTest\.txt\:2427\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢏ", %p)}, "xn--89e", "to_ascii\(\'ᢏ\'\)\ \[data\/IdnaTest\.txt\:2428\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("≤𐹮ᡱ.ς\x{1BAA}蜹", %p)}, undef, "to_ascii\(\'\≤𐹮ᡱ\.ς\\u1BAA蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2429\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("≤𐹮ᡱ.Σ\x{1BAA}蜹", %p)}, undef, "to_ascii\(\'\≤𐹮ᡱ\.Σ\\u1BAA蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2430\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("≤𐹮ᡱ.σ\x{1BAA}蜹", %p)}, undef, "to_ascii\(\'\≤𐹮ᡱ\.σ\\u1BAA蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2431\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򩎰ス􅲆𐹡.򉬄", %p)}, undef, "to_ascii\(\'򩎰ス􅲆𐹡.򉬄\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򩎰ス􅲆𐹡.򉬄", %p)}, undef, "to_ascii\(\'򩎰ス􅲆𐹡\.򉬄\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2433\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𜖴.\x{05BB}\x{D850}ꡢ", %p)}, undef, "to_ascii\(\'\\u05C7𜖴.\\u05BB\\uD850ꡢ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:2434\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C7}𜖴.\x{05BB}\x{D850}ꡢ", %p)}, undef, "to_ascii\(\'\\u05C7𜖴\.\\u05BB\\uD850ꡢ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:2435\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0662}󤺆\x{200C}。ᢡ", %p)}, undef, "to_ascii\(\'\\u0662󤺆\\u200C\。ᢡ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2437\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑋪\x{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_ascii\(\'𑋪\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ C1\ \[data\/IdnaTest\.txt\:2439\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒。\x{1039}\x{0720}", %p)}, undef, "to_ascii\(\'︒。\\u1039\\u0720\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。。\x{1039}\x{0720}", %p)}, undef, "to_ascii\(\'\。\。\\u1039\\u0720\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇß。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_ascii\(\'ᢇß\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇß。ጫᡏ\x{068C}2", %p)}, undef, "to_ascii\(\'ᢇß\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇSS。ጫᡏ\x{068C}2", %p)}, undef, "to_ascii\(\'ᢇSS\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇss。ጫᡏ\x{068C}2", %p)}, undef, "to_ascii\(\'ᢇss\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇSs。ጫᡏ\x{068C}2", %p)}, undef, "to_ascii\(\'ᢇSs\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇSS。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_ascii\(\'ᢇSS\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇss。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_ascii\(\'ᢇss\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2448\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢇSs。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_ascii\(\'ᢇSs\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞾰\x{FCDE}ᚲ.\x{0F83}󠀥𝟚\x{AAF6}", %p)}, undef, "to_ascii\(\'𞾰\\uFCDEᚲ\.\\u0F83\󠀥𝟚\\uAAF6\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2450\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞾰\x{064A}\x{0647}ᚲ.\x{0F83}󠀥2\x{AAF6}", %p)}, undef, "to_ascii\(\'𞾰\\u064A\\u0647ᚲ\.\\u0F83\󠀥2\\uAAF6\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2451\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1B44}︒\x{200D}.𑕮𬺥", %p)}, undef, "to_ascii\(\'\-\\u1B44︒\\u200D\.𑕮𬺥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{1B44}。\x{200D}.𑕮𬺥", %p)}, undef, "to_ascii\(\'\-\\u1B44\。\\u200D\.𑕮𬺥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠖺.≯\x{1AB5}", %p)}, undef, "to_ascii\(\'\󠖺\.\≯\\u1AB5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠖺.>\x{0338}\x{1AB5}", %p)}, undef, "to_ascii\(\'\󠖺\.\>\\u0338\\u1AB5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2457\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{09CD}‡\x{0601}。𞴅", %p)}, undef, "to_ascii\(\'\-\\u09CD\‡\\u0601\。𞴅\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A2}.\x{0717}\x{115F}", %p)}, undef, "to_ascii\(\'\\u06A2.\\u0717\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2459\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06A2}.\x{0717}\x{115F}", %p)}, undef, "to_ascii\(\'\\u06A2\.\\u0717\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨛񻘅.︒𝟕𑜨", %p)}, undef, "to_ascii\(\'㨛񻘅\.︒𝟕𑜨\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2461\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨛񻘅.。7𑜨", %p)}, undef, "to_ascii\(\'㨛񻘅\.\。7𑜨\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0663}񥐑-。𐦱𐍷\x{0764}≮", %p)}, undef, "to_ascii\(\'\\u0663񥐑\-。𐦱𐍷\\u0764\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0663}񥐑-。𐦱𐍷\x{0764}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0663񥐑\-。𐦱𐍷\\u0764\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0663}񥐑-。𐦱𐍷\x{0764}≮", %p)}, undef, "to_ascii\(\'\\u0663񥐑\-\。𐦱𐍷\\u0764\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0663}񥐑-。𐦱𐍷\x{0764}<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0663񥐑\-\。𐦱𐍷\\u0764\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{0FA2}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA2\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750\.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2472\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750\.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2474\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\u0FA1\\u0FB7\\u0750\.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2476\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\u0FA1\\u0FB7\\u0750\.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2478\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ss\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\u0FA1\\u0FB7\\u0750\.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2480\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2482\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\u0FA1\\u0FB7\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2484\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\u0FA1\\u0FB7\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2486\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ss\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\u0FA1\\u0FB7\\u0750.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2488\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FA2}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ß\\u200C\\u0FA2\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2490\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200C}\x{0FA2}\x{0750}.℞ჁႶ", %p)}, undef, "to_ascii\(\'SS\\u200C\\u0FA2\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2492\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}\x{0FA2}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_ascii\(\'ss\\u200C\\u0FA2\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2494\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ss\x{200C}\x{0FA2}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_ascii\(\'Ss\\u200C\\u0FA2\\u0750.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。ς󠁳", %p)}, undef, "to_ascii\(\'\\u200D\。ς\󠁳\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。Σ󠁳", %p)}, undef, "to_ascii\(\'\\u200D\。Σ\󠁳\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。σ󠁳", %p)}, undef, "to_ascii\(\'\\u200D\。σ\󠁳\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮧ß.𐮍\x{200D}ᠨ-", %p)}, undef, "to_ascii\(\'𐮧ß\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮧SS.𐮍\x{200D}ᠨ-", %p)}, undef, "to_ascii\(\'𐮧SS\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2506\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮧ss.𐮍\x{200D}ᠨ-", %p)}, undef, "to_ascii\(\'𐮧ss\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮧Ss.𐮍\x{200D}ᠨ-", %p)}, undef, "to_ascii\(\'𐮧Ss\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0816}\x{200D}𐮭.\x{0662}󔿾-", %p)}, undef, "to_ascii\(\'\\u0816\\u200D𐮭.\\u0662󔿾\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0816}\x{200D}𐮭.\x{0662}󔿾-", %p)}, undef, "to_ascii\(\'\\u0816\\u200D𐮭\.\\u0662󔿾\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒒񷻕򨢣𑍫.-򌀇", %p)}, undef, "to_ascii\(\'⒒񷻕򨢣𑍫\.\-򌀇\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("11.񷻕򨢣𑍫.-򌀇", %p)}, undef, "to_ascii\(\'11\.񷻕򨢣𑍫\.\-򌀇\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2518\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{200D}", %p)}, undef, "to_ascii\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.ς¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776.ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.ς¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776.ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.ς1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.ς1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.Σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.Σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.σ1-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2528\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.Σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776.Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.Σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776.Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2530\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{0776}.σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\≮\\u0776.σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{0776}.σ¹-\x{DB09}", %p)}, undef, "to_ascii\(\'\<\\u0338\\u0776.σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:2532\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ቬ񊱈󙪶。\x{07B9}𝟠", %p)}, undef, "to_ascii\(\'ቬ񊱈󙪶。\\u07B9𝟠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ቬ񊱈󙪶。\x{07B9}8", %p)}, undef, "to_ascii\(\'ቬ񊱈󙪶\。\\u07B98\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2534\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𞺯。蔫\x{068A}", %p)}, undef, "to_ascii\(\'𞺯\。蔫\\u068A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2535\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0639}。蔫\x{068A}", %p)}, undef, "to_ascii\(\'\\u0639\。蔫\\u068A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2536\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򰡪₃。ꡤ󤪓\x{0FAA}\x{067B}", %p)}, undef, "to_ascii\(\'򰡪₃。ꡤ󤪓\\u0FAA\\u067B\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򰡪3。ꡤ󤪓\x{0FAA}\x{067B}", %p)}, undef, "to_ascii\(\'򰡪3\。ꡤ󤪓\\u0FAA\\u067B\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2538\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊧧𐮅≠.ß", %p)}, undef, "to_ascii\(\'󊧧𐮅\≠\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊧧𐮅=\x{0338}.ß", %p)}, undef, "to_ascii\(\'󊧧𐮅\=\\u0338\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2540\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊧧𐮅=\x{0338}.SS", %p)}, undef, "to_ascii\(\'󊧧𐮅\=\\u0338\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊧧𐮅≠.SS", %p)}, undef, "to_ascii\(\'󊧧𐮅\≠\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2542\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0770}\x{08AA}𑍴⒊.\x{0666}𞤵\x{05AE}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0770\\u08AA𑍴⒊\.\\u0666𞤵\\u05AE\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2544\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0770}\x{08AA}𑍴3..\x{0666}𞤵\x{05AE}\x{200C}", %p)}, undef, "to_ascii\(\'\\u0770\\u08AA𑍴3\.\.\\u0666𞤵\\u05AE\\u200C\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:2546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{200D}-.Ⴣ󰬳", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.Ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{200D}-.ⴣ󰬳", %p)}, undef, "to_ascii\(\'ς\\u200D\-\.ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{200D}-.Ⴣ󰬳", %p)}, undef, "to_ascii\(\'Σ\\u200D\-\.Ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{200D}-.ⴣ󰬳", %p)}, undef, "to_ascii\(\'σ\\u200D\-\.ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。󠷆𝟲", %p)}, undef, "to_ascii\(\'\≠\。\󠷆𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。󠷆𝟲", %p)}, undef, "to_ascii\(\'\=\\u0338\。\󠷆𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠。󠷆6", %p)}, undef, "to_ascii\(\'\≠\。\󠷆6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}。󠷆6", %p)}, undef, "to_ascii\(\'\=\\u0338\。\󠷆6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2558\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򉄵.蠔", %p)}, undef, "to_ascii\(\'򉄵\.蠔\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2559\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u0FAE\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u0FAE\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u0FAE\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_ascii\(\'\\u0FAE\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("₇𑄳򯨓𐸬。⬅\x{0685}-\x{FD46}", %p)}, undef, "to_ascii\(\'₇𑄳򯨓𐸬\。\⬅\\u0685\-\\uFD46\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7𑄳򯨓𐸬。⬅\x{0685}-\x{FD46}", %p)}, undef, "to_ascii\(\'7𑄳򯨓𐸬\。\⬅\\u0685\-\\uFD46\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2569\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07E0}", %p)}, undef, "to_ascii\(\'\-。\\u07E0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2570\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07E0}", %p)}, undef, "to_ascii\(\'\-\。\\u07E0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2571\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1B6B}򪃩。-⒈\x{075C}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u1B6B򪃩。\-⒈\\u075C\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B6B}򪃩。-1.\x{075C}\x{07E1}", %p)}, undef, "to_ascii\(\'\\u1B6B򪃩\。\-1\.\\u075C\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:2573\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0677}.-", %p)}, undef, "to_ascii\(\'璛\\u2D7F\\u0677\.\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2574\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{06C7}\x{0674}.-", %p)}, undef, "to_ascii\(\'璛\\u2D7F\\u06C7\\u0674\.\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2575\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_ascii\(\'\\u0596ꡜ\\uA806샕.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2576\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_ascii\(\'\\u0596ꡜ\\uA806샕.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2577\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_ascii\(\'\\u0596ꡜ\\uA806샕\.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2578\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_ascii\(\'\\u0596ꡜ\\uA806샕\.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2579\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󌥊.󔾋", %p)}, undef, "to_ascii\(\'󌥊.󔾋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2580\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󌥊.󔾋", %p)}, undef, "to_ascii\(\'󌥊\.󔾋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2581\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06B3}𐺰。\x{ABED}𐮇Ⴍ-", %p)}, undef, "to_ascii\(\'\\u06B3𐺰。\\uABED𐮇Ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2582\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06B3}𐺰。\x{ABED}𐮇Ⴍ-", %p)}, undef, "to_ascii\(\'\\u06B3𐺰\。\\uABED𐮇Ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06B3}𐺰。\x{ABED}𐮇ⴍ-", %p)}, undef, "to_ascii\(\'\\u06B3𐺰\。\\uABED𐮇ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06B3}𐺰。\x{ABED}𐮇ⴍ-", %p)}, undef, "to_ascii\(\'\\u06B3𐺰。\\uABED𐮇ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹥𐧞\x{FE99}。򴶪₄Ⴋ𷮑", %p)}, undef, "to_ascii\(\'𞹥𐧞\\uFE99\。򴶪₄Ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2586\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹥𐧞\x{062B}。򴶪4Ⴋ𷮑", %p)}, undef, "to_ascii\(\'𞹥𐧞\\u062B\。򴶪4Ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2587\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹥𐧞\x{062B}。򴶪4ⴋ𷮑", %p)}, undef, "to_ascii\(\'𞹥𐧞\\u062B\。򴶪4ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹥𐧞\x{FE99}。򴶪₄ⴋ𷮑", %p)}, undef, "to_ascii\(\'𞹥𐧞\\uFE99\。򴶪₄ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{066E}︒󠚂.≠", %p)}, undef, "to_ascii\(\'4\\u066E︒\󠚂\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2590\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{066E}︒󠚂.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u066E︒\󠚂\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2591\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{066E}。󠚂.≠", %p)}, undef, "to_ascii\(\'4\\u066E\。\󠚂\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4\x{066E}。󠚂.=\x{0338}", %p)}, undef, "to_ascii\(\'4\\u066E\。\󠚂\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟓。\x{1920}", %p)}, undef, "to_ascii\(\'𝟓\。\\u1920\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5。\x{1920}", %p)}, undef, "to_ascii\(\'5\。\\u1920\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񩈣.⾕", %p)}, undef, "to_ascii\(\'\\u200C񩈣\.⾕\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񩈣.谷", %p)}, undef, "to_ascii\(\'\\u200C񩈣\.谷\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒򖒱\x{200D}.-󠄫\x{200C}", %p)}, undef, "to_ascii\(\'︒򖒱\\u200D\.\-\󠄫\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。򖒱\x{200D}.-󠄫\x{200C}", %p)}, undef, "to_ascii\(\'\。򖒱\\u200D\.\-\󠄫\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{06A5}。ꡖ", %p)}, undef, "to_ascii\(\'\≯\\u06A5\。ꡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{06A5}。ꡖ", %p)}, undef, "to_ascii\(\'\>\\u0338\\u06A5\。ꡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1C36}󷠎𐅓。ᡕ\x{0600}", %p)}, undef, "to_ascii\(\'\\u1C36󷠎𐅓\。ᡕ\\u0600\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2606\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DF3}\x{084F}⁷𝟹。𝟬", %p)}, undef, "to_ascii\(\'\\u1DF3\\u084F⁷𝟹。𝟬\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2607\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DF3}\x{084F}73。0", %p)}, undef, "to_ascii\(\'\\u1DF3\\u084F73\。0\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2608\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}.𝟗", %p)}, undef, "to_ascii\(\'\\u200D.𝟗\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.9", %p)}, undef, "to_ascii\(\'\\u200D\.9\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9", %p)}, "9", "to_ascii\(\'9\'\)\ \[data\/IdnaTest\.txt\:2613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡬ\x{072F}𔾦。ᢚ\x{1039}", %p)}, undef, "to_ascii\(\'ᡬ\\u072F𔾦\。ᢚ\\u1039\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2614\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_ascii\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2615\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_ascii\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2616\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_ascii\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2617\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_ascii\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2618\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴍ𖮿ᡎ\x{0F7C}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ𖮿ᡎ\\u0F7C\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴍ𖮿ᡎ\x{0F7C}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ𖮿ᡎ\\u0F7C\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2622\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋰。򒠍", %p)}, undef, "to_ascii\(\'𐋰\。򒠍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2623\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚡜\x{17B4}\x{0D4D}.𐹴", %p)}, undef, "to_ascii\(\'𚡜\\u17B4\\u0D4D\.𐹴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2624\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}Ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059FႫ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2625\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}Ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059FႫ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2626\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}Ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059FႫ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}Ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059FႫ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059Fⴋ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059Fⴋ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059Fⴋ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{059F}ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_ascii\(\'\\u059Fⴋ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐦲.𐼰𐹴", %p)}, undef, "to_ascii\(\'𐦲.𐼰𐹴\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐦲.𐼰𐹴", %p)}, undef, "to_ascii\(\'𐦲\.𐼰𐹴\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09CD}₃.8\x{1B44}\x{200D}󠲑", %p)}, undef, "to_ascii\(\'\\u09CD₃\.8\\u1B44\\u200D\󠲑\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{09CD}3.8\x{1B44}\x{200D}󠲑", %p)}, undef, "to_ascii\(\'\\u09CD3\.8\\u1B44\\u200D\󠲑\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2636\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠝃⩷\x{0FC6}。𐤒󠁖\x{1A1B}", %p)}, undef, "to_ascii\(\'\󠝃\⩷\\u0FC6\。𐤒\󠁖\\u1A1B\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡟ≠\x{0E3A}򑒮。𞯴𝩗\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡟ\≠\\u0E3A򑒮。𞯴𝩗\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2638\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡟ=\x{0338}\x{0E3A}򑒮。𞯴𝩗\x{FFA0}", %p)}, undef, "to_ascii\(\'ꡟ\=\\u0338\\u0E3A򑒮。𞯴𝩗\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡟ≠\x{0E3A}򑒮。𞯴𝩗\x{1160}", %p)}, undef, "to_ascii\(\'ꡟ\≠\\u0E3A򑒮\。𞯴𝩗\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2640\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡟ=\x{0338}\x{0E3A}򑒮。𞯴𝩗\x{1160}", %p)}, undef, "to_ascii\(\'ꡟ\=\\u0338\\u0E3A򑒮\。𞯴𝩗\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("鱊。\x{200C}", %p)}, undef, "to_ascii\(\'鱊\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--rt6a.", %p)}, "xn--rt6a.", "to_ascii\(\'xn\-\-rt6a\.\'\)\ \[data\/IdnaTest\.txt\:2644\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("鱊.", %p)}, "xn--rt6a.", "to_ascii\(\'鱊\.\'\)\ \[data\/IdnaTest\.txt\:2645\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("8𐹽.𑚲", %p)}, undef, "to_ascii\(\'8𐹽.𑚲\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2646\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("8𐹽.𑚲", %p)}, undef, "to_ascii\(\'8𐹽\.𑚲\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2647\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⤴𞨡.ᡆ", %p)}, undef, "to_ascii\(\'\⤴𞨡.ᡆ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⤴𞨡.ᡆ", %p)}, undef, "to_ascii\(\'\⤴𞨡\.ᡆ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2649\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}ᡐ4.\x{200D}", %p)}, undef, "to_ascii\(\'\\u07CFᡐ4.\\u200D\'\)\ throws\ error\ B2\ C2\ \[data\/IdnaTest\.txt\:2651\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}ᡐ4.\x{200D}", %p)}, undef, "to_ascii\(\'\\u07CFᡐ4\.\\u200D\'\)\ throws\ error\ B2\ C2\ \[data\/IdnaTest\.txt\:2653\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒗\x{FE02}\x{1B6B}-.𐹧󠑍", %p)}, undef, "to_ascii\(\'⒗\\uFE02\\u1B6B\-\.𐹧\󠑍\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2654\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("16.\x{FE02}\x{1B6B}-.𐹧󠑍", %p)}, undef, "to_ascii\(\'16\.\\uFE02\\u1B6B\-\.𐹧\󠑍\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2656\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。䏛", %p)}, undef, "to_ascii\(\'\-\。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}烴.\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C烴.\\u200D\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2659\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}烴.\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C烴\.\\u200D\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2661\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--srx.", %p)}, "xn--srx.", "to_ascii\(\'xn\-\-srx\.\'\)\ \[data\/IdnaTest\.txt\:2662\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("烴.", %p)}, "xn--srx.", "to_ascii\(\'烴\.\'\)\ \[data\/IdnaTest\.txt\:2663\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈₠򝇵。𐹫\x{200D}򃦻Ⴕ", %p)}, undef, "to_ascii\(\'⒈₠򝇵。𐹫\\u200D򃦻Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.₠򝇵。𐹫\x{200D}򃦻Ⴕ", %p)}, undef, "to_ascii\(\'1\.₠򝇵\。𐹫\\u200D򃦻Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.₠򝇵。𐹫\x{200D}򃦻ⴕ", %p)}, undef, "to_ascii\(\'1\.₠򝇵\。𐹫\\u200D򃦻ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈₠򝇵。𐹫\x{200D}򃦻ⴕ", %p)}, undef, "to_ascii\(\'⒈₠򝇵。𐹫\\u200D򃦻ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2671\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-ß。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-ß。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2672\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-ß。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-ß\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2673\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-SS。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-SS\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2674\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-ss。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-ss\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2675\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-Ss。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-Ss\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2676\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-SS。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-SS。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2677\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-ss。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-ss。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2678\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐲘\x{074E}-Ss。󠅉効𐹺𥈡", %p)}, undef, "to_ascii\(\'𐲘\\u074E\-Ss。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2679\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𑄳.🐜", %p)}, undef, "to_ascii\(\'𑄳\.🐜\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2680\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠉙3𞱢。𝟘𑍍𐷥", %p)}, undef, "to_ascii\(\'\󠉙3𞱢。𝟘𑍍𐷥\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠉙3𞱢。0𑍍𐷥", %p)}, undef, "to_ascii\(\'\󠉙3𞱢\。0𑍍𐷥\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2682\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0679}6\x{A8EE}ᡮ。\x{0592}", %p)}, undef, "to_ascii\(\'\\u06796\\uA8EEᡮ\。\\u0592\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2683\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0679}6\x{A8EE}ᡮ。\x{0592}", %p)}, undef, "to_ascii\(\'\\u06796\\uA8EEᡮ\。\\u0592\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2684\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐹾-𠥔Ⴂ。򝾣\x{200D}", %p)}, undef, "to_ascii\(\'𐹾\-𠥔Ⴂ\。򝾣\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹾-𠥔ⴂ。򝾣\x{200D}", %p)}, undef, "to_ascii\(\'𐹾\-𠥔ⴂ\。򝾣\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5≯ß", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5>\x{0338}ß", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5≯ß", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5>\x{0338}ß", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5>\x{0338}SS", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5≯SS", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2694\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5≯ss", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5>\x{0338}ss", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2696\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5>\x{0338}Ss", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌.\x{06AE}5≯Ss", %p)}, undef, "to_ascii\(\'舌\.\\u06AE5\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5>\x{0338}SS", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5≯SS", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5≯ss", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5>\x{0338}ss", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5>\x{0338}Ss", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2703\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆.\x{06AE}5≯Ss", %p)}, undef, "to_ascii\(\'⾆.\\u06AE5\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}8\x{200D}.򉈡ꡂ", %p)}, undef, "to_ascii\(\'\\uA9C08\\u200D.򉈡ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}8\x{200D}.򉈡ꡂ", %p)}, undef, "to_ascii\(\'\\uA9C08\\u200D\.򉈡ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󡆸\x{1A69}≮񀹄.񁆗⁷\x{0355}𐫎", %p)}, undef, "to_ascii\(\'󡆸\\u1A69\≮񀹄.񁆗⁷\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󡆸\x{1A69}<\x{0338}񀹄.񁆗⁷\x{0355}𐫎", %p)}, undef, "to_ascii\(\'󡆸\\u1A69\<\\u0338񀹄.񁆗⁷\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󡆸\x{1A69}≮񀹄.񁆗7\x{0355}𐫎", %p)}, undef, "to_ascii\(\'󡆸\\u1A69\≮񀹄\.񁆗7\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󡆸\x{1A69}<\x{0338}񀹄.񁆗7\x{0355}𐫎", %p)}, undef, "to_ascii\(\'󡆸\\u1A69\<\\u0338񀹄\.񁆗7\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2712\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2714\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2715\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2716\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2717\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2718\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Ⴚ。ς", %p)}, undef, "to_ascii\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2722\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2724\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2726\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2728\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2729\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2730\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.Σ", %p)}, undef, "to_ascii\(\'Ⴚ\.Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2731\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2733\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.ς", %p)}, undef, "to_ascii\(\'Ⴚ\.ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2734\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2735\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴚ.σ", %p)}, undef, "to_ascii\(\'Ⴚ\.σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2736\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:2738\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}Ⴚ。Σ", %p)}, undef, "to_ascii\(\'\\u200CႺ。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2740\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\: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("ᡆ.𐹹", %p)}, undef, "to_ascii\(\'ᡆ.𐹹\'\)\ throws\ error\ B1\ \[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("ᡆ.𐹹", %p)}, undef, "to_ascii\(\'ᡆ\.𐹹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2744\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{0E38}\x{AAF6}ᠳ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\u0E38\\uAAF6ᠳ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2746\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{AAF6}\x{0E38}ᠳ", %p)}, undef, "to_ascii\(\'\\u200D⾕\。\\u200C\\uAAF6\\u0E38ᠳ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2748\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, 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{AAF6}\x{0E38}ᠳ", %p)}, undef, "to_ascii\(\'\\u200D谷\。\\u200C\\uAAF6\\u0E38ᠳ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2750\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0683\-뉔.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2752\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0683\-뉔.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2754\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0683\-뉔\.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2756\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_ascii\(\'\\u0683\-뉔\.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2758\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𻠅5ᦛς.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛς\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛς.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛς\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2760\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛΣ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛΣ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛσ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛσ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2762\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛΣ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛΣ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2763\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𻠅5ᦛσ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_ascii\(\'𻠅5ᦛσ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2764\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0852}", %p)}, "xn--34w.xn--hwb", "to_ascii\(\'淽\。\\u0852\'\)\ \[data\/IdnaTest\.txt\:2765\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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--34w.xn--hwb", %p)}, "xn--34w.xn--hwb", "to_ascii\(\'xn\-\-34w\.xn\-\-hwb\'\)\ \[data\/IdnaTest\.txt\:2766\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0852}", %p)}, "xn--34w.xn--hwb", "to_ascii\(\'淽\.\\u0852\'\)\ \[data\/IdnaTest\.txt\:2767\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹳\x{05BC}。-", %p)}, undef, "to_ascii\(\'𐹳\\u05BC\。\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2768\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򟓒Ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_ascii\(\'򟓒Ⴓ\󠒾。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2769\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟓒Ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_ascii\(\'򟓒Ⴓ\󠒾\。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟓒ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_ascii\(\'򟓒ⴓ\󠒾\。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟓒ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_ascii\(\'򟓒ⴓ\󠒾。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2774\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。ßႣ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2776\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0668}\x{062E}ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062Eⴇ\。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2778\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2780\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0668}\x{062E}ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062Eⴇ\。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2782\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2784\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0668}\x{062E}ⴇ。ßⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062Eⴇ。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2786\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。SSႣ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2788\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0668}\x{062E}ⴇ。ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062Eⴇ。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2790\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{0668}\x{062E}Ⴇ。Ssⴃ", %p)}, undef, "to_ascii\(\'\\u200C\\u0668\\u062EႧ。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2792\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󤚠。𞷿", %p)}, undef, "to_ascii\(\'󤚠。𞷿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󤚠。𞷿", %p)}, undef, "to_ascii\(\'󤚠\。𞷿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2794\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{A953}\x{A8EE}", %p)}, undef, "to_ascii\(\'\󠅤\\u200D。\\uA953\\uA8EE\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2796\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{A953}\x{A8EE}", %p)}, undef, "to_ascii\(\'\󠅤\\u200D\。\\uA953\\uA8EE\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2798\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-≠\x{0755}.ꡝ\x{084C}≮𿹕", %p)}, undef, "to_ascii\(\'\-\≠\\u0755.ꡝ\\u084C\≮𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{0755}.ꡝ\x{084C}<\x{0338}𿹕", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u0755.ꡝ\\u084C\<\\u0338𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2800\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{0755}.ꡝ\x{084C}≮𿹕", %p)}, undef, "to_ascii\(\'\-\≠\\u0755\.ꡝ\\u084C\≮𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2801\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{0755}.ꡝ\x{084C}<\x{0338}𿹕", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u0755\.ꡝ\\u084C\<\\u0338𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2802\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠃐≯\x{FC69}𞠷.񯫡≮𑖿ꡨ", %p)}, undef, "to_ascii\(\'\󠃐\≯\\uFC69𞠷.񯫡\≮𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2803\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠃐>\x{0338}\x{FC69}𞠷.񯫡<\x{0338}𑖿ꡨ", %p)}, undef, "to_ascii\(\'\󠃐\>\\u0338\\uFC69𞠷.񯫡\<\\u0338𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2804\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠃐≯\x{0626}\x{064A}𞠷.񯫡≮𑖿ꡨ", %p)}, undef, "to_ascii\(\'\󠃐\≯\\u0626\\u064A𞠷\.񯫡\≮𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2805\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠃐>\x{0338}\x{064A}\x{0654}\x{064A}𞠷.񯫡<\x{0338}𑖿ꡨ", %p)}, undef, "to_ascii\(\'\󠃐\>\\u0338\\u064A\\u0654\\u064A𞠷\.񯫡\<\\u0338𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2806\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠񠄐.𐹧𑈵-𞥋", %p)}, undef, "to_ascii\(\'\≠񠄐\.𐹧𑈵\-𞥋\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2807\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}񠄐.𐹧𑈵-𞥋", %p)}, undef, "to_ascii\(\'\=\\u0338񠄐\.𐹧𑈵\-𞥋\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2808\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆇\x{1CD7}≠。\x{06DD}𐋤", %p)}, undef, "to_ascii\(\'\󠆇\\u1CD7\≠。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2809\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆇\x{1CD7}=\x{0338}。\x{06DD}𐋤", %p)}, undef, "to_ascii\(\'\󠆇\\u1CD7\=\\u0338。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2810\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆇\x{1CD7}≠。\x{06DD}𐋤", %p)}, undef, "to_ascii\(\'\󠆇\\u1CD7\≠\。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2811\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠆇\x{1CD7}=\x{0338}。\x{06DD}𐋤", %p)}, undef, "to_ascii\(\'\󠆇\\u1CD7\=\\u0338\。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß򓍟𺖭。\x{07AF}󠢂ß", %p)}, undef, "to_ascii\(\'ß򓍟𺖭。\\u07AF\󠢂ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2813\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß򓍟𺖭。\x{07AF}󠢂ß", %p)}, undef, "to_ascii\(\'ß򓍟𺖭\。\\u07AF\󠢂ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2814\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS򓍟𺖭。\x{07AF}󠢂SS", %p)}, undef, "to_ascii\(\'SS򓍟𺖭\。\\u07AF\󠢂SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2815\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss򓍟𺖭。\x{07AF}󠢂ss", %p)}, undef, "to_ascii\(\'ss򓍟𺖭\。\\u07AF\󠢂ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss򓍟𺖭。\x{07AF}󠢂Ss", %p)}, undef, "to_ascii\(\'Ss򓍟𺖭\。\\u07AF\󠢂Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS򓍟𺖭。\x{07AF}󠢂SS", %p)}, undef, "to_ascii\(\'SS򓍟𺖭。\\u07AF\󠢂SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2818\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss򓍟𺖭。\x{07AF}󠢂ss", %p)}, undef, "to_ascii\(\'ss򓍟𺖭。\\u07AF\󠢂ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss򓍟𺖭。\x{07AF}󠢂Ss", %p)}, undef, "to_ascii\(\'Ss򓍟𺖭。\\u07AF\󠢂Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2820\]") 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\:2822\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1713}𐱍\x{200D}.𝩔𞡿񴥼", %p)}, undef, "to_ascii\(\'\\u1713𐱍\\u200D\.𝩔𞡿񴥼\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2824\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FE98}\x{200C}临。ᢗ򁣒ⶏ\x{066B}", %p)}, undef, "to_ascii\(\'\\u200C\\uFE98\\u200C临\。ᢗ򁣒ⶏ\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2826\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{062A}\x{200C}临。ᢗ򁣒ⶏ\x{066B}", %p)}, undef, "to_ascii\(\'\\u200C\\u062A\\u200C临\。ᢗ򁣒ⶏ\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠿴.\x{0363}", %p)}, undef, "to_ascii\(\'\󠿴.\\u0363\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠿴.\x{0363}", %p)}, undef, "to_ascii\(\'\󠿴\.\\u0363\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2830\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{07EA}𑘿.𑍍", %p)}, undef, "to_ascii\(\'\\u07EA𑘿.𑍍\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2831\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{07EA}𑘿.𑍍", %p)}, undef, "to_ascii\(\'\\u07EA𑘿\.𑍍\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2832\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑖼򬆟멹。⒛⧪", %p)}, undef, "to_ascii\(\'𑖼򬆟멹\。⒛\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖼򬆟멹。⒛⧪", %p)}, undef, "to_ascii\(\'𑖼򬆟멹\。⒛\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖼򬆟멹。20.⧪", %p)}, undef, "to_ascii\(\'𑖼򬆟멹\。20\.\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2835\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑖼򬆟멹。20.⧪", %p)}, undef, "to_ascii\(\'𑖼򬆟멹\。20\.\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2836\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_ascii\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2837\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_ascii\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2838\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_ascii\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_ascii\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2840\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_ascii\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2841\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_ascii\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2842\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_ascii\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2843\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_ascii\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2844\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。︒", %p)}, undef, "to_ascii\(\'\\u200C。︒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2846\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}。。", %p)}, undef, "to_ascii\(\'\\u200C\。\。\'\)\ throws\ error\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2848\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{075F}.₄", %p)}, undef, "to_ascii\(\'\≯\\u075F.₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2849\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{075F}.₄", %p)}, undef, "to_ascii\(\'\>\\u0338\\u075F.₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2850\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{075F}.4", %p)}, undef, "to_ascii\(\'\≯\\u075F\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{075F}.4", %p)}, undef, "to_ascii\(\'\>\\u0338\\u075F\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2852\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-𝟹.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-𝟹\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2854\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-3.ß-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-3\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2856\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-3.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-3\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-3.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-3\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2860\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-3.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-3\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2862\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-𝟹.SS-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-𝟹\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2864\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-𝟹.ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-𝟹\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ-𝟹.Ss-\x{200C}-", %p)}, undef, "to_ascii\(\'ᡘ\-𝟹\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠𝟦\x{0626}󎅯。Ӏ", %p)}, undef, "to_ascii\(\'𐰠𝟦\\u0626󎅯。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠𝟦\x{064A}\x{0654}󎅯。Ӏ", %p)}, undef, "to_ascii\(\'𐰠𝟦\\u064A\\u0654󎅯。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠4\x{0626}󎅯。Ӏ", %p)}, undef, "to_ascii\(\'𐰠4\\u0626󎅯\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2871\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠4\x{064A}\x{0654}󎅯。Ӏ", %p)}, undef, "to_ascii\(\'𐰠4\\u064A\\u0654󎅯\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2872\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠4\x{064A}\x{0654}󎅯。ӏ", %p)}, undef, "to_ascii\(\'𐰠4\\u064A\\u0654󎅯\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2873\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠4\x{0626}󎅯。ӏ", %p)}, undef, "to_ascii\(\'𐰠4\\u0626󎅯\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠𝟦\x{064A}\x{0654}󎅯。ӏ", %p)}, undef, "to_ascii\(\'𐰠𝟦\\u064A\\u0654󎅯。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐰠𝟦\x{0626}󎅯。ӏ", %p)}, undef, "to_ascii\(\'𐰠𝟦\\u0626󎅯。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.𐹪𞦭\x{0F91}󠥢", %p)}, undef, "to_ascii\(\'\-\.𐹪𞦭\\u0F91\󠥢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2877\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򷈞ᢕ。󠀬󠢬", %p)}, undef, "to_ascii\(\'򷈞ᢕ\。\󠀬\󠢬\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2878\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠ႷꡩႫ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2879\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷꡩႫ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠ႷꡩႫ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ႷꡩႫ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2883\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2884\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2885\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\≠Ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_ascii\(\'\=\\u0338Ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ A3\ \[data\/IdnaTest\.txt\:2890\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹶.\x{FD12}", %p)}, undef, "to_ascii\(\'𐹶\.\\uFD12\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2891\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹶.\x{0637}\x{064A}", %p)}, undef, "to_ascii\(\'𐹶\.\\u0637\\u064A\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2892\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1714}𝟯。\x{200D}񹒧𐹡\x{A953}", %p)}, undef, "to_ascii\(\'\\u1714𝟯。\\u200D񹒧𐹡\\uA953\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1714}3。\x{200D}񹒧𐹡\x{A953}", %p)}, undef, "to_ascii\(\'\\u17143\。\\u200D񹒧𐹡\\uA953\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򷠯4𱂩.≯𐹡\x{1932}󠇶", %p)}, undef, "to_ascii\(\'򷠯4𱂩\.\≯𐹡\\u1932\󠇶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2897\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򷠯4𱂩.>\x{0338}𐹡\x{1932}󠇶", %p)}, undef, "to_ascii\(\'򷠯4𱂩\.\>\\u0338𐹡\\u1932\󠇶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵲚𝟯。⒈\x{A94A}𝟚񰩭", %p)}, undef, "to_ascii\(\'񵲚𝟯\。⒈\\uA94A𝟚񰩭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2899\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵲚3。1.\x{A94A}2񰩭", %p)}, undef, "to_ascii\(\'񵲚3\。1\.\\uA94A2񰩭\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2900\]") 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\:2902\]") 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\:2904\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}51.。≯8\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D51\.\。\≯8\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2906\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}51.。>\x{0338}8\x{200D}", %p)}, undef, "to_ascii\(\'\\u200D51\.\。\>\\u03388\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2908\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}𐮍\x{1B37}.𳵷ᠺ≠\x{200C}", %p)}, undef, "to_ascii\(\'\\u06BE𐮍\\u1B37.𳵷ᠺ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2910\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}𐮍\x{1B37}.𳵷ᠺ=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06BE𐮍\\u1B37.𳵷ᠺ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2912\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}𐮍\x{1B37}.𳵷ᠺ≠\x{200C}", %p)}, undef, "to_ascii\(\'\\u06BE𐮍\\u1B37\.𳵷ᠺ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2914\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06BE}𐮍\x{1B37}.𳵷ᠺ=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\\u06BE𐮍\\u1B37\.𳵷ᠺ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2916\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{073F}。𺘼𐹪", %p)}, undef, "to_ascii\(\'\\u073F。𺘼𐹪\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2917\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{073F}。𺘼𐹪", %p)}, undef, "to_ascii\(\'\\u073F\。𺘼𐹪\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[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{0669}。\x{AAB3}", %p)}, undef, "to_ascii\(\'𝟥\\u0669\。\\uAAB3\'\)\ throws\ error\ V5\ B1\ \[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_ascii("3\x{0669}。\x{AAB3}", %p)}, undef, "to_ascii\(\'3\\u0669\。\\uAAB3\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2920\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ᢖ\x{066B}𐹸.\x{063E}긷", %p)}, undef, "to_ascii\(\'ᢖ\\u066B𐹸\.\\u063E긷\'\)\ throws\ error\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:2921\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ᢖ\x{066B}𐹸.\x{063E}긷", %p)}, undef, "to_ascii\(\'ᢖ\\u066B𐹸\.\\u063E긷\'\)\ throws\ error\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:2922\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒Ↄ\x{1DC7}򍐳.Ⴗ𞢍", %p)}, undef, "to_ascii\(\'︒Ↄ\\u1DC7򍐳.Ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。Ↄ\x{1DC7}򍐳.Ⴗ𞢍", %p)}, undef, "to_ascii\(\'\。Ↄ\\u1DC7򍐳\.Ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。ↄ\x{1DC7}򍐳.ⴗ𞢍", %p)}, undef, "to_ascii\(\'\。ↄ\\u1DC7򍐳\.ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒ↄ\x{1DC7}򍐳.ⴗ𞢍", %p)}, undef, "to_ascii\(\'︒ↄ\\u1DC7򍐳.ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2926\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹵.\x{1AB2}", %p)}, undef, "to_ascii\(\'𐹵\.\\u1AB2\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2927\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ς≯。\x{06DD}", %p)}, undef, "to_ascii\(\'ς\≯。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'ς\>\\u0338。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς≯。\x{06DD}", %p)}, undef, "to_ascii\(\'ς\≯\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2930\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'ς\>\\u0338\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'Σ\>\\u0338\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ≯。\x{06DD}", %p)}, undef, "to_ascii\(\'Σ\≯\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ≯。\x{06DD}", %p)}, undef, "to_ascii\(\'σ\≯\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'σ\>\\u0338\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'Σ\>\\u0338。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2936\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ≯。\x{06DD}", %p)}, undef, "to_ascii\(\'Σ\≯。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ≯。\x{06DD}", %p)}, undef, "to_ascii\(\'σ\≯。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ>\x{0338}。\x{06DD}", %p)}, undef, "to_ascii\(\'σ\>\\u0338。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{103A}\x{200D}\x{064A}。\x{0600}", %p)}, undef, "to_ascii\(\'\\u103A\\u200D\\u064A\。\\u0600\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅭎\x{0A42}Ⴊ򼸑.≮", %p)}, undef, "to_ascii\(\'􅭎\\u0A42Ⴊ򼸑\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅭎\x{0A42}Ⴊ򼸑.<\x{0338}", %p)}, undef, "to_ascii\(\'􅭎\\u0A42Ⴊ򼸑\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅭎\x{0A42}ⴊ򼸑.<\x{0338}", %p)}, undef, "to_ascii\(\'􅭎\\u0A42ⴊ򼸑\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅭎\x{0A42}ⴊ򼸑.≮", %p)}, undef, "to_ascii\(\'􅭎\\u0A42ⴊ򼸑\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}.۲", %p)}, "xn--1nb.xn--fmb", "to_ascii\(\'\\u072B.۲\'\)\ \[data\/IdnaTest\.txt\:2945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072B}.۲", %p)}, "xn--1nb.xn--fmb", "to_ascii\(\'\\u072B\.۲\'\)\ \[data\/IdnaTest\.txt\:2946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--1nb.xn--fmb", %p)}, "xn--1nb.xn--fmb", "to_ascii\(\'xn\-\-1nb\.xn\-\-fmb\'\)\ \[data\/IdnaTest\.txt\:2947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹩𾤨。ᢕ🄄", %p)}, undef, "to_ascii\(\'𐹩𾤨。ᢕ🄄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹩𾤨。ᢕ3,", %p)}, undef, "to_ascii\(\'𐹩𾤨\。ᢕ3\,\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2949\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{200D}\x{A953}", %p)}, undef, "to_ascii\(\'\-\\uA953𐡃\󠇀。\\u200D\\uA953\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2951\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{200D}\x{A953}", %p)}, undef, "to_ascii\(\'\-\\uA953𐡃\󠇀\。\\u200D\\uA953\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2953\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑄰\x{200C}𒻝🄆。\x{200C}\x{09CD}󠄟", %p)}, undef, "to_ascii\(\'𑄰\\u200C𒻝🄆。\\u200C\\u09CD\󠄟\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑄰\x{200C}𒻝5,。\x{200C}\x{09CD}󠄟", %p)}, undef, "to_ascii\(\'𑄰\\u200C𒻝5\,\。\\u200C\\u09CD\󠄟\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2957\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("兎。\x{07E0}󠵲𑇀\x{ABED}", %p)}, undef, "to_ascii\(\'兎。\\u07E0\󠵲𑇀\\uABED\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2958\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("兎。\x{07E0}󠵲𑇀\x{ABED}", %p)}, undef, "to_ascii\(\'兎\。\\u07E0\󠵲𑇀\\uABED\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2959\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟙。\x{200D}𝟸\x{200D}⁷", %p)}, undef, "to_ascii\(\'𝟙。\\u200D𝟸\\u200D⁷\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2961\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1。\x{200D}2\x{200D}7", %p)}, undef, "to_ascii\(\'1\。\\u200D2\\u200D7\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2963\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.27", %p)}, "1.27", "to_ascii\(\'1\.27\'\)\ \[data\/IdnaTest\.txt\:2964\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮮-。,𝟷", %p)}, undef, "to_ascii\(\'𐮮\-。\,𝟷\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮮-。,1", %p)}, undef, "to_ascii\(\'𐮮\-\。\,1\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2966\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{20EA}񋹂𞴌.𐹬⁹", %p)}, undef, "to_ascii\(\'\\u20EA񋹂𞴌.𐹬⁹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{20EA}񋹂𞴌.𐹬9", %p)}, undef, "to_ascii\(\'\\u20EA񋹂𞴌\.𐹬9\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2968\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ񹃏\x{1DD8}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ񹃏\\u1DD8⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2970\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴜ񹃏\x{1DD8}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'Ⴜ񹃏\\u1DD8舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2972\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ񹃏\x{1DD8}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ񹃏\\u1DD8舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2974\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴜ񹃏\x{1DD8}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_ascii\(\'ⴜ񹃏\\u1DD8⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2976\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}𝟰.\x{200D}", %p)}, undef, "to_ascii\(\'\\u1734𝟰\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2978\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1734}4.\x{200D}", %p)}, undef, "to_ascii\(\'\\u17344\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛Ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛Ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛Ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2986\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛Ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2988\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2994\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_ascii\(\'񝪛ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󙧵-𑜫。ᠽ", %p)}, undef, "to_ascii\(\'󙧵\-𑜫\。ᠽ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡕ𝟧≯ꡊ.氁𻖋ꁫ", %p)}, undef, "to_ascii\(\'ꡕ𝟧\≯ꡊ.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2998\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡕ𝟧>\x{0338}ꡊ.氁𻖋ꁫ", %p)}, undef, "to_ascii\(\'ꡕ𝟧\>\\u0338ꡊ.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2999\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡕ5≯ꡊ.氁𻖋ꁫ", %p)}, undef, "to_ascii\(\'ꡕ5\≯ꡊ\.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3000\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡕ5>\x{0338}ꡊ.氁𻖋ꁫ", %p)}, undef, "to_ascii\(\'ꡕ5\>\\u0338ꡊ\.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}\x{0650}.\x{05A9}", %p)}, undef, "to_ascii\(\'\\u0660\\u0650.\\u05A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0660}\x{0650}.\x{05A9}", %p)}, undef, "to_ascii\(\'\\u0660\\u0650\.\\u05A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𝨱⒏.⒎𶇻󠠁", %p)}, undef, "to_ascii\(\'\-𝨱⒏.⒎𶇻\󠠁\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𝨱8..7.𶇻󠠁", %p)}, undef, "to_ascii\(\'\-𝨱8\.\.7\.𶇻\󠠁\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3005\]") 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\:3007\]") 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\:3009\]") 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\:3011\]") 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\:3013\]") 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\:3015\]") 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\:3017\]") 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\:3019\]") 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\:3021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{0660}≯󧓻\x{200D}", %p)}, undef, "to_ascii\(\'歷。\\u0660\≯󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3023\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{0660}>\x{0338}󧓻\x{200D}", %p)}, undef, "to_ascii\(\'歷。\\u0660\>\\u0338󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{0660}≯󧓻\x{200D}", %p)}, undef, "to_ascii\(\'歷\。\\u0660\≯󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("歷。\x{0660}>\x{0338}󧓻\x{200D}", %p)}, undef, "to_ascii\(\'歷\。\\u0660\>\\u0338󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}\x{200D}.󱉀󠛓", %p)}, undef, "to_ascii\(\'\\u0732\\u200D.󱉀\󠛓\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0732}\x{200D}.󱉀󠛓", %p)}, undef, "to_ascii\(\'\\u0732\\u200D\.󱉀\󠛓\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}ꡎ。񔟅𐽯", %p)}, undef, "to_ascii\(\'\\u200D\\u200Cꡎ。񔟅𐽯\'\)\ throws\ error\ P1\ V6\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}ꡎ。񔟅𐽯", %p)}, undef, "to_ascii\(\'\\u200D\\u200Cꡎ\。񔟅𐽯\'\)\ throws\ error\ P1\ V6\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3037\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠𝟫-.ς⒍\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠𝟫\-\.ς⒍\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}𝟫-.ς⒍\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u0338𝟫\-\.ς⒍\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3039\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠9-.ς6.\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠9\-\.ς6\.\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}9-.ς6.\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u03389\-\.ς6\.\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3041\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}9-.Σ6.\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u03389\-\.Σ6\.\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠9-.Σ6.\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠9\-\.Σ6\.\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3043\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠9-.σ6.\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠9\-\.σ6\.\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}9-.σ6.\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u03389\-\.σ6\.\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3045\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}𝟫-.Σ⒍\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u0338𝟫\-\.Σ⒍\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠𝟫-.Σ⒍\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠𝟫\-\.Σ⒍\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}≠𝟫-.σ⒍\x{0600}≠", %p)}, undef, "to_ascii\(\'\\u0693\≠𝟫\-\.σ⒍\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0693}=\x{0338}𝟫-.σ⒍\x{0600}=\x{0338}", %p)}, undef, "to_ascii\(\'\\u0693\=\\u0338𝟫\-\.σ⒍\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񵥬.-\x{0682}\x{1CD1}\x{1B39}", %p)}, undef, "to_ascii\(\'񵥬\.\-\\u0682\\u1CD1\\u1B39\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ⒈ß\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ⒈ß\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ1.ß\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ1\.ß\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ1.SS\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ1\.SS\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ1.ss\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ1\.ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ1.Ss\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ1\.Ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3055\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ⒈SS\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ⒈SS\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ⒈ss\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ⒈ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3057\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢌ⒈Ss\x{0A4D}。񑜉-", %p)}, undef, "to_ascii\(\'ᢌ⒈Ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3058\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3060\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ςႦ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3062\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍\.\\u0ACDΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ςⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}ΣႦ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3076\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𚑍.\x{0ACD}Σⴆ\x{200D}", %p)}, undef, "to_ascii\(\'𚑍.\\u0ACDΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾆𐹬.󠻍", %p)}, undef, "to_ascii\(\'⾆𐹬\.\󠻍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3079\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("舌𐹬.󠻍", %p)}, undef, "to_ascii\(\'舌𐹬\.\󠻍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠘿𐹭𝩛。⦣⒈", %p)}, undef, "to_ascii\(\'\󠘿𐹭𝩛\。\⦣⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3081\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠘿𐹭𝩛。⦣1.", %p)}, undef, "to_ascii\(\'\󠘿𐹭𝩛\。\⦣1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{200C}\x{0348}︒.\x{094D}", %p)}, undef, "to_ascii\(\'⒈\\u200C\\u0348︒.\\u094D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{200C}\x{0348}。.\x{094D}", %p)}, undef, "to_ascii\(\'1\.\\u200C\\u0348\。\.\\u094D\'\)\ throws\ error\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0823}。䰀\x{06DD}𐶡\x{A980}", %p)}, undef, "to_ascii\(\'\\u0823\。䰀\\u06DD𐶡\\uA980\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200D}.𑚶𯞬", %p)}, undef, "to_ascii\(\'ß\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3089\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{200D}.𑚶𯞬", %p)}, undef, "to_ascii\(\'SS\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3091\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}.𑚶𯞬", %p)}, undef, "to_ascii\(\'ss\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3093\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}.𑚶𯞬", %p)}, undef, "to_ascii\(\'Ss\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3095\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{200C}≮.≮", %p)}, undef, "to_ascii\(\'\\u0CCD\\u200C\≮\.\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3096\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CCD}\x{200C}<\x{0338}.<\x{0338}", %p)}, undef, "to_ascii\(\'\\u0CCD\\u200C\<\\u0338\.\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3097\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A69F}.\x{FFA0}", %p)}, undef, "to_ascii\(\'\\uA69F.\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3098\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A69F}.\x{1160}", %p)}, undef, "to_ascii\(\'\\uA69F\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3099\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡯ𞱺。𰞔", %p)}, undef, "to_ascii\(\'ꡯ𞱺\。𰞔\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3100\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("爕򾉋.𝟰気", %p)}, undef, "to_ascii\(\'爕򾉋.𝟰気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3101\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("爕򾉋.4気", %p)}, undef, "to_ascii\(\'爕򾉋\.4気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3102\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒋𑚶Ⴝ-.\x{FD67}\x{1B44}󠄕", %p)}, undef, "to_ascii\(\'⒋𑚶Ⴝ\-.\\uFD67\\u1B44\󠄕\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3103\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4.𑚶Ⴝ-.\x{0634}\x{062D}\x{0645}\x{1B44}󠄕", %p)}, undef, "to_ascii\(\'4\.𑚶Ⴝ\-\.\\u0634\\u062D\\u0645\\u1B44\󠄕\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3104\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or 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{0634}\x{062D}\x{0645}\x{1B44}󠄕", %p)}, undef, "to_ascii\(\'4\.𑚶ⴝ\-\.\\u0634\\u062D\\u0645\\u1B44\󠄕\'\)\ throws\ error\ V3\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:3105\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⒋𑚶ⴝ-.\x{FD67}\x{1B44}󠄕", %p)}, undef, "to_ascii\(\'⒋𑚶ⴝ\-.\\uFD67\\u1B44\󠄕\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3106\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򊼓。񎊯󘙦--", %p)}, undef, "to_ascii\(\'򊼓\。񎊯󘙦\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:3107\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}𐨿", %p)}, undef, "to_ascii\(\'\\u200Dᡲ。\\u200C𐨿\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3109\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{200C}𐨿", %p)}, undef, "to_ascii\(\'\\u200Dᡲ\。\\u200C𐨿\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3111\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐴟𐿖\x{07D2}。\x{0842}񡖿ᡨ", %p)}, undef, "to_ascii\(\'𐴟𐿖\\u07D2。\\u0842񡖿ᡨ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3112\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐴟𐿖\x{07D2}。\x{0842}񡖿ᡨ", %p)}, undef, "to_ascii\(\'𐴟𐿖\\u07D2\。\\u0842񡖿ᡨ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3113\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F8E}𐬓􎖤\x{1BAB}.\x{071D}\x{0630}", %p)}, undef, "to_ascii\(\'\\u0F8E𐬓􎖤\\u1BAB\.\\u071D\\u0630\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3114\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3115\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3116\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3117\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3118\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3119\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3120\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3121\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3122\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3123\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3124\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3126\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_ascii\(\'򟘰킃\󠁎ᠪ。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("蔰。󠄣\x{031A}-\x{0B4D}", %p)}, undef, "to_ascii\(\'蔰\。\󠄣\\u031A\-\\u0B4D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ςჅ。ꡫ", %p)}, undef, "to_ascii\(\'ςჅ\。ꡫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3140\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--3xa403s.xn--hd9a", "to_ascii\(\'ςⴥ\。ꡫ\'\)\ \[data\/IdnaTest\.txt\:3142\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ΣჅ。ꡫ", %p)}, undef, "to_ascii\(\'ΣჅ\。ꡫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3143\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'σⴥ\。ꡫ\'\)\ \[data\/IdnaTest\.txt\:3144\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'Σⴥ\。ꡫ\'\)\ \[data\/IdnaTest\.txt\:3145\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", %p)}, "xn--4xa203s.xn--hd9a", "to_ascii\(\'xn\-\-4xa203s\.xn\-\-hd9a\'\)\ \[data\/IdnaTest\.txt\:3146\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'σⴥ\.ꡫ\'\)\ \[data\/IdnaTest\.txt\:3147\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ΣჅ.ꡫ", %p)}, undef, "to_ascii\(\'ΣჅ\.ꡫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3148\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", "to_ascii\(\'Σⴥ\.ꡫ\'\)\ \[data\/IdnaTest\.txt\:3149\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--3xa403s.xn--hd9a", %p)}, "xn--3xa403s.xn--hd9a", "to_ascii\(\'xn\-\-3xa403s\.xn\-\-hd9a\'\)\ \[data\/IdnaTest\.txt\:3150\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--3xa403s.xn--hd9a", "to_ascii\(\'ςⴥ\.ꡫ\'\)\ \[data\/IdnaTest\.txt\:3152\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A4D}Ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_ascii\(\'\\u0A4DႩ𐯩.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3153\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A4D}Ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_ascii\(\'\\u0A4DႩ𐯩\.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3154\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A4D}ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_ascii\(\'\\u0A4Dⴉ𐯩\.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A4D}ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_ascii\(\'\\u0A4Dⴉ𐯩.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("💧≮񰐇\x{0AC2}。𞦞", %p)}, undef, "to_ascii\(\'💧\≮񰐇\\u0AC2\。𞦞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("💧<\x{0338}񰐇\x{0AC2}。𞦞", %p)}, undef, "to_ascii\(\'💧\<\\u0338񰐇\\u0AC2\。𞦞\'\)\ throws\ error\ P1\ V6\ \[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_ascii("\x{0689}。\x{200D}ẏ\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689。\\u200Dẏ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3160\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689。\\u200Dy\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3162\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}ẏ\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689\。\\u200Dẏ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3164\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689\。\\u200Dy\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3166\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}Y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689\。\\u200DY\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3168\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}Ẏ\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689\。\\u200DẎ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3170\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}Y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689。\\u200DY\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3172\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0689}。\x{200D}Ẏ\x{200C}\x{0757}", %p)}, undef, "to_ascii\(\'\\u0689。\\u200DẎ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3174\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0661}\x{0E39}。𕄦\x{0B4D}", %p)}, undef, "to_ascii\(\'\\u0661\\u0E39\。𕄦\\u0B4D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3175\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_ascii\(\'\-\≠\\u1039。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3176\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u1039。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3177\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≠\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_ascii\(\'\-\≠\\u1039\。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-=\x{0338}\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_ascii\(\'\-\=\\u0338\\u1039\。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3179\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C񖚂𐹯\\u062D.\\u077F\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3181\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C񖚂𐹯\\u062D.\\u077F\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3183\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}≯\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C񖚂𐹯\\u062D\.\\u077F\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'\\u200C񖚂𐹯\\u062D\.\\u077F\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3187\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_ascii\(\'\≮.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_ascii\(\'\<\\u0338.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3189\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_ascii\(\'\≮\.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_ascii\(\'\<\\u0338\.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3191\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞠎\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'𞠎\\u200D。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞠎\x{200D}。ႩႵ", %p)}, undef, "to_ascii\(\'𞠎\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3195\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞠎\x{200D}。ⴉⴕ", %p)}, undef, "to_ascii\(\'𞠎\\u200D\。ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3197\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞠎\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'𞠎\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3199\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--e55h.xn--0kjya", %p)}, "xn--e55h.xn--0kjya", "to_ascii\(\'xn\-\-e55h\.xn\-\-0kjya\'\)\ \[data\/IdnaTest\.txt\:3200\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞠎.ⴉⴕ", %p)}, "xn--e55h.xn--0kjya", "to_ascii\(\'𞠎\.ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3201\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞠎.ႩႵ", %p)}, undef, "to_ascii\(\'𞠎\.ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞠎.Ⴉⴕ", %p)}, undef, "to_ascii\(\'𞠎\.Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3203\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𞠎\x{200D}。ⴉⴕ", %p)}, undef, "to_ascii\(\'𞠎\\u200D。ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3205\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𞠎\x{200D}。Ⴉⴕ", %p)}, undef, "to_ascii\(\'𞠎\\u200D。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.𝨣򾭅󠆻", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ.𝨣򾭅\󠆻\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}ㄤ.𝨣򾭅󠆻", %p)}, undef, "to_ascii\(\'\\u200C\\u200Cㄤ\.𝨣򾭅\󠆻\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3211\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋻。-\x{200C}ꡋႷ", %p)}, undef, "to_ascii\(\'𐋻。\-\\u200CꡋႷ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋻。-\x{200C}ꡋႷ", %p)}, undef, "to_ascii\(\'𐋻\。\-\\u200CꡋႷ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3215\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋻。-\x{200C}ꡋⴗ", %p)}, undef, "to_ascii\(\'𐋻\。\-\\u200Cꡋⴗ\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3217\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋻。-\x{200C}ꡋⴗ", %p)}, undef, "to_ascii\(\'𐋻。\-\\u200Cꡋⴗ\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3219\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⋉\x{FBF6}.≠\x{200C}", %p)}, undef, "to_ascii\(\'\⋉\\uFBF6.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3221\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋉\x{FBF6}.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\⋉\\uFBF6.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3223\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋉\x{0626}\x{06D0}.≠\x{200C}", %p)}, undef, "to_ascii\(\'\⋉\\u0626\\u06D0\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⋉\x{064A}\x{0654}\x{06D0}.=\x{0338}\x{200C}", %p)}, undef, "to_ascii\(\'\⋉\\u064A\\u0654\\u06D0\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DEE}\x{0366}。\x{FCC7}\x{1BF3}󠼨", %p)}, undef, "to_ascii\(\'\\u1DEE\\u0366。\\uFCC7\\u1BF3\󠼨\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3228\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DEE}\x{0366}。\x{0643}\x{0644}\x{1BF3}󠼨", %p)}, undef, "to_ascii\(\'\\u1DEE\\u0366\。\\u0643\\u0644\\u1BF3\󠼨\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0AC5}₃󠁸.𝟳\x{1DE4}𝆈", %p)}, undef, "to_ascii\(\'Ⴔ\\u0AC5₃\󠁸.𝟳\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3230\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴔ\x{0AC5}3󠁸.7\x{1DE4}𝆈", %p)}, undef, "to_ascii\(\'Ⴔ\\u0AC53\󠁸\.7\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ\x{0AC5}3󠁸.7\x{1DE4}𝆈", %p)}, undef, "to_ascii\(\'ⴔ\\u0AC53\󠁸\.7\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴔ\x{0AC5}₃󠁸.𝟳\x{1DE4}𝆈", %p)}, undef, "to_ascii\(\'ⴔ\\u0AC5₃\󠁸.𝟳\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}⒈𲱳", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C⒈𲱳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3235\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䏈\x{200C}。\x{200C}1.𲱳", %p)}, undef, "to_ascii\(\'䏈\\u200C\。\\u200C1\.𲱳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3237\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆ß\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆ß\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3238\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆ß\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆ß\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3239\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆SS\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆SS\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆ss\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆ss\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆Ss\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆Ss\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆SS\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆SS\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆ss\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆ss\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1𑁆Ss\x{2CF0}。󠓏", %p)}, undef, "to_ascii\(\'1𑁆Ss\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}򠙛𞭯\x{A806}。ᡮ⒈", %p)}, undef, "to_ascii\(\'\\u200D򠙛𞭯\\uA806。ᡮ⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}򠙛𞭯\x{A806}。ᡮ1.", %p)}, undef, "to_ascii\(\'\\u200D򠙛𞭯\\uA806\。ᡮ1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇙.𞾾󢲮򜠀𐫘", %p)}, undef, "to_ascii\(\'\󠇙.𞾾󢲮򜠀𐫘\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠇙.𞾾󢲮򜠀𐫘", %p)}, undef, "to_ascii\(\'\󠇙\.𞾾󢲮򜠀𐫘\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071B}𞭈⒈.⛊8򀄷\x{08AA}", %p)}, undef, "to_ascii\(\'\\u071B𞭈⒈.\⛊8򀄷\\u08AA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071B}𞭈1..⛊8򀄷\x{08AA}", %p)}, undef, "to_ascii\(\'\\u071B𞭈1\.\.\⛊8򀄷\\u08AA\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠅄\x{07E9}𑈯\x{06D0}。-󠓉󙒛", %p)}, undef, "to_ascii\(\'\󠅄\\u07E9𑈯\\u06D0\。\-\󠓉󙒛\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3254\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1734}剘ß\x{06B0}", %p)}, undef, "to_ascii\(\'\-\.\\u1734剘ß\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1734}剘SS\x{06B0}", %p)}, undef, "to_ascii\(\'\-\.\\u1734剘SS\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1734}剘ss\x{06B0}", %p)}, undef, "to_ascii\(\'\-\.\\u1734剘ss\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.\x{1734}剘Ss\x{06B0}", %p)}, undef, "to_ascii\(\'\-\.\\u1734剘Ss\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3258\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🌞𞿦。-", %p)}, undef, "to_ascii\(\'🌞𞿦。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🌞𞿦。-", %p)}, undef, "to_ascii\(\'🌞𞿦\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3260\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈󠽆𐹸。≠𐹻𐹦", %p)}, undef, "to_ascii\(\'⒈\󠽆𐹸。\≠𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈󠽆𐹸。=\x{0338}𐹻𐹦", %p)}, undef, "to_ascii\(\'⒈\󠽆𐹸。\=\\u0338𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.󠽆𐹸。≠𐹻𐹦", %p)}, undef, "to_ascii\(\'1\.\󠽆𐹸\。\≠𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.󠽆𐹸。=\x{0338}𐹻𐹦", %p)}, undef, "to_ascii\(\'1\.\󠽆𐹸\。\=\\u0338𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹠󠬾Ⴎ\x{200C}.㖾\x{0669}", %p)}, undef, "to_ascii\(\'𐹠\󠬾Ⴎ\\u200C\.㖾\\u0669\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹠󠬾ⴎ\x{200C}.㖾\x{0669}", %p)}, undef, "to_ascii\(\'𐹠\󠬾ⴎ\\u200C\.㖾\\u0669\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3268\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_ascii\(\'𱅿.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3269\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_ascii\(\'𱅿\.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3270\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_ascii\(\'𱅿\.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3271\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_ascii\(\'𱅿\.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_ascii\(\'𱅿.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱅿.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_ascii\(\'𱅿.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}󊝻.𞠞𐭫", %p)}, undef, "to_ascii\(\'\\u200D󊝻\.𞠞𐭫\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󲔏⒛󠊁.ᠯ⒈", %p)}, undef, "to_ascii\(\'󲔏⒛\󠊁.ᠯ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󲔏20.󠊁.ᠯ1.", %p)}, undef, "to_ascii\(\'󲔏20\.\󠊁\.ᠯ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075E}8𻪑-。񅴬𑇀𐪞\x{09CD}", %p)}, undef, "to_ascii\(\'\\u075E8𻪑\-。񅴬𑇀𐪞\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075E}8𻪑-。񅴬𑇀𐪞\x{09CD}", %p)}, undef, "to_ascii\(\'\\u075E8𻪑\-\。񅴬𑇀𐪞\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3280\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰≮ß𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3281\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}ß𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3282\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。۰<\x{0338}ß𐨍", %p)}, undef, "to_ascii\(\'ⴕ\。۰\<\\u0338ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。۰≮ß𐨍", %p)}, undef, "to_ascii\(\'ⴕ\。۰\≮ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3284\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰≮SS𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮SS𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}SS𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338SS𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3286\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。۰<\x{0338}ss𐨍", %p)}, undef, "to_ascii\(\'ⴕ\。۰\<\\u0338ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴕ。۰≮ss𐨍", %p)}, undef, "to_ascii\(\'ⴕ\。۰\≮ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰≮Ss𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\≮Ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴕ。۰<\x{0338}Ss𐨍", %p)}, undef, "to_ascii\(\'Ⴕ\。۰\<\\u0338Ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3290\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0F19}꒱\x{0FA4}", %p)}, undef, "to_ascii\(\'\\u076F\-\.\\u0F19꒱\\u0FA4\'\)\ throws\ error\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:3291\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{06FC}\x{200C}.≯䕵🍀", %p)}, undef, "to_ascii\(\'\\u06FC\\u200C\.\≯䕵🍀\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3293\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{06FC}\x{200C}.>\x{0338}䕵🍀", %p)}, undef, "to_ascii\(\'\\u06FC\\u200C\.\>\\u0338䕵🍀\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}ß\x{FD90}.𐫚۳︒", %p)}, undef, "to_ascii\(\'\\u034Fß\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}ß\x{FD90}.𐫚۳。", %p)}, undef, "to_ascii\(\'\\u034Fß\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3297\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}SS\x{FD90}.𐫚۳。", %p)}, undef, "to_ascii\(\'\\u034FSS\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}ss\x{FD90}.𐫚۳。", %p)}, undef, "to_ascii\(\'\\u034Fss\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}Ss\x{FD90}.𐫚۳。", %p)}, undef, "to_ascii\(\'\\u034FSs\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3300\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}SS\x{FD90}.𐫚۳︒", %p)}, undef, "to_ascii\(\'\\u034FSS\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}ss\x{FD90}.𐫚۳︒", %p)}, undef, "to_ascii\(\'\\u034Fss\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3302\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{034F}Ss\x{FD90}.𐫚۳︒", %p)}, undef, "to_ascii\(\'\\u034FSs\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3303\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≮⤨\x{1DD8}.󠴭Ⴁᡓ", %p)}, undef, "to_ascii\(\'\-\≮\⤨\\u1DD8\.\󠴭Ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3304\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-<\x{0338}⤨\x{1DD8}.󠴭Ⴁᡓ", %p)}, undef, "to_ascii\(\'\-\<\\u0338\⤨\\u1DD8\.\󠴭Ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-<\x{0338}⤨\x{1DD8}.󠴭ⴁᡓ", %p)}, undef, "to_ascii\(\'\-\<\\u0338\⤨\\u1DD8\.\󠴭ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3306\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-≮⤨\x{1DD8}.󠴭ⴁᡓ", %p)}, undef, "to_ascii\(\'\-\≮\⤨\\u1DD8\.\󠴭ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3307\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮉。ᢟ\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'𐮉。ᢟ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3309\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮉。ᢟ\x{200D}\x{200C}", %p)}, undef, "to_ascii\(\'𐮉\。ᢟ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3311\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--g29c.xn--pbf", %p)}, "xn--g29c.xn--pbf", "to_ascii\(\'xn\-\-g29c\.xn\-\-pbf\'\)\ \[data\/IdnaTest\.txt\:3312\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮉.ᢟ", %p)}, "xn--g29c.xn--pbf", "to_ascii\(\'𐮉\.ᢟ\'\)\ \[data\/IdnaTest\.txt\:3313\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𝩑𑍲.ꡣ\x{1DFF}𐹢", %p)}, undef, "to_ascii\(\'𝩑𑍲.ꡣ\\u1DFF𐹢\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3314\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𝩑𑍲.ꡣ\x{1DFF}𐹢", %p)}, undef, "to_ascii\(\'𝩑𑍲\.ꡣ\\u1DFF𐹢\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3315\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⅎ󠀽𵭘。≯⾑", %p)}, undef, "to_ascii\(\'Ⅎ\󠀽𵭘\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3316\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ󠀽𵭘。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'Ⅎ\󠀽𵭘\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3317\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ󠀽𵭘。≯襾", %p)}, undef, "to_ascii\(\'Ⅎ\󠀽𵭘\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3318\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⅎ󠀽𵭘。>\x{0338}襾", %p)}, undef, "to_ascii\(\'Ⅎ\󠀽𵭘\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3319\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ󠀽𵭘。>\x{0338}襾", %p)}, undef, "to_ascii\(\'ⅎ\󠀽𵭘\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3320\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ󠀽𵭘。≯襾", %p)}, undef, "to_ascii\(\'ⅎ\󠀽𵭘\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3321\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ󠀽𵭘。>\x{0338}⾑", %p)}, undef, "to_ascii\(\'ⅎ\󠀽𵭘\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3322\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⅎ󠀽𵭘。≯⾑", %p)}, undef, "to_ascii\(\'ⅎ\󠀽𵭘\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3323\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3325\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'ς\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3327\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3329\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3331\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'Σ\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3333\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_ascii\(\'σ\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3335\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}.ßႩ-", %p)}, undef, "to_ascii\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3337\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:3339\]") 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\:3341\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:3343\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:3345\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󆎶ᡄ㓱。⾑", %p)}, undef, "to_ascii\(\'󆎶ᡄ㓱\。⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󆎶ᡄ㓱。襾", %p)}, undef, "to_ascii\(\'󆎶ᡄ㓱\。襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3347\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡥ\x{06D5}\x{0665}≮。≯⯯\x{200D}", %p)}, undef, "to_ascii\(\'ꡥ\\u06D5\\u0665\≮\。\≯\⯯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3349\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡥ\x{06D5}\x{0665}<\x{0338}。>\x{0338}⯯\x{200D}", %p)}, undef, "to_ascii\(\'ꡥ\\u06D5\\u0665\<\\u0338\。\>\\u0338\⯯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3351\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟞。󛼏ꡛᠪ⩋", %p)}, undef, "to_ascii\(\'𝟞。󛼏ꡛᠪ\⩋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3352\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6。󛼏ꡛᠪ⩋", %p)}, undef, "to_ascii\(\'6\。󛼏ꡛᠪ\⩋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3353\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𐣴。\x{2DE5}\x{2D7F}", %p)}, undef, "to_ascii\(\'\-𐣴\。\\u2DE5\\u2D7F\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3354\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𐣴。\x{2D7F}\x{2DE5}", %p)}, undef, "to_ascii\(\'\-𐣴\。\\u2D7F\\u2DE5\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3355\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}⼨𝟏.𝨨񊚚\x{0665}򤝋", %p)}, undef, "to_ascii\(\'\\u200C⼨𝟏\.𝨨񊚚\\u0665򤝋\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}寸1.𝨨񊚚\x{0665}򤝋", %p)}, undef, "to_ascii\(\'\\u200C寸1\.𝨨񊚚\\u0665򤝋\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--𝟰.ß", %p)}, "xn----4-p16k.xn--zca", "to_ascii\(\'齙\-\-𝟰\.ß\'\)\ \[data\/IdnaTest\.txt\:3361\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--4.ß", %p)}, "xn----4-p16k.xn--zca", "to_ascii\(\'齙\-\-4\.ß\'\)\ \[data\/IdnaTest\.txt\:3363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--4.SS", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-4\.SS\'\)\ \[data\/IdnaTest\.txt\:3364\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn----4-p16k.ss", %p)}, "xn----4-p16k.ss", "to_ascii\(\'xn\-\-\-\-4\-p16k\.ss\'\)\ \[data\/IdnaTest\.txt\:3365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn----4-p16k.xn--zca", %p)}, "xn----4-p16k.xn--zca", "to_ascii\(\'xn\-\-\-\-4\-p16k\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:3366\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("齙--𝟰.SS", %p)}, "xn----4-p16k.ss", "to_ascii\(\'齙\-\-𝟰\.SS\'\)\ \[data\/IdnaTest\.txt\:3367\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0B4D}.\x{0660}𐨌\x{200C}", %p)}, undef, "to_ascii\(\'\\u0B4D\.\\u0660𐨌\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3369\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{AB27}𑖼。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\\uAB27𑖼。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A3\ \[data\/IdnaTest\.txt\:3371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB27}𑖼。\x{DEDE}-\x{200D}", %p)}, undef, "to_ascii\(\'\\uAB27𑖼\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A3\ \[data\/IdnaTest\.txt\:3373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AB27}𑖼", %p)}, undef, "to_ascii\(\'\\uAB27𑖼\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3374\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0ACD}.\x{08A3}-\x{0591}悎", %p)}, undef, "to_ascii\(\'\\u0ACD.\\u08A3\-\\u0591悎\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:3375\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{0ACD}.\x{08A3}-\x{0591}悎", %p)}, undef, "to_ascii\(\'\\u0ACD\.\\u08A3\-\\u0591悎\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:3376\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񹭻󠗀.\x{067B}􆘢", %p)}, undef, "to_ascii\(\'񹭻\󠗀.\\u067B􆘢\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3377\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹭻󠗀.\x{067B}􆘢", %p)}, undef, "to_ascii\(\'񹭻\󠗀\.\\u067B􆘢\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3378\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᡨ𞺲\x{07D1}.𐋲", %p)}, undef, "to_ascii\(\'ᡨ𞺲\\u07D1\.𐋲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3379\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ᡨ\x{0642}\x{07D1}.𐋲", %p)}, undef, "to_ascii\(\'ᡨ\\u0642\\u07D1\.𐋲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3380\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐰿ꡏ\x{06BB}\x{0668}.\x{DF56}", %p)}, undef, "to_ascii\(\'𐰿ꡏ\\u06BB\\u0668\.\\uDF56\'\)\ throws\ error\ P1\ V6\ B2\ A3\ \[data\/IdnaTest\.txt\:3381\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐰿ꡏ\x{06BB}\x{0668}", %p)}, undef, "to_ascii\(\'𐰿ꡏ\\u06BB\\u0668\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:3382\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ↄ。\x{1734}\x{0E47}𞻻", %p)}, undef, "to_ascii\(\'Ↄ\。\\u1734\\u0E47𞻻\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3383\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ↄ。\x{1734}\x{0E47}𞻻", %p)}, undef, "to_ascii\(\'ↄ\。\\u1734\\u0E47𞻻\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3384\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⭂-。𭨲≮𑚶", %p)}, undef, "to_ascii\(\'\⭂\-\。𭨲\≮𑚶\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3385\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⭂-。𭨲<\x{0338}𑚶", %p)}, undef, "to_ascii\(\'\⭂\-\。𭨲\<\\u0338𑚶\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3386\]") 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\:3388\]") 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\:3390\]") 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\:3392\]") 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\:3394\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹡-\x{AAF6}ꡨ。︒䖐⾆", %p)}, undef, "to_ascii\(\'𐹡\-\\uAAF6ꡨ\。︒䖐⾆\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3395\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐹡-\x{AAF6}ꡨ。。䖐舌", %p)}, undef, "to_ascii\(\'𐹡\-\\uAAF6ꡨ\。\。䖐舌\'\)\ throws\ error\ B1\ A4_2\ \[data\/IdnaTest\.txt\:3396\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0F79}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0F79Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3397\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F79}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0F79Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3398\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FB3}\x{0F71}\x{0F80}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FB3}\x{0F71}\x{0F80}Ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3400\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FB3}\x{0F71}\x{0F80}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3401\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0FB3}\x{0F71}\x{0F80}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0FB3\\u0F71\\u0F80ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3402\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0F79}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0F79ⴐ。쪡\'\)\ throws\ error\ V5\ \[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{0F79}ⴐ。쪡", %p)}, undef, "to_ascii\(\'\\u0F79ⴐ。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3404\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0ACD}쩁𐹡.󿍹", %p)}, undef, "to_ascii\(\'\\u0ACD쩁𐹡\.󿍹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3405\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0ACD}쩁𐹡.󿍹", %p)}, undef, "to_ascii\(\'\\u0ACD쩁𐹡\.󿍹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡐ0\x{200C}。󠴚𕎃", %p)}, undef, "to_ascii\(\'ꡐ0\\u200C。\󠴚𕎃\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡐ0\x{200C}。󠴚𕎃", %p)}, undef, "to_ascii\(\'ꡐ0\\u200C\。\󠴚𕎃\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3410\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ß", %p)}, undef, "to_ascii\(\'忰9ꍩ\\u1BE9.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3412\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ß", %p)}, undef, "to_ascii\(\'忰9ꍩ\\u1BE9\.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3414\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}SS", %p)}, undef, "to_ascii\(\'忰9ꍩ\\u1BE9\.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3416\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ss", %p)}, undef, "to_ascii\(\'忰9ꍩ\\u1BE9\.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3418\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}Ss", %p)}, undef, "to_ascii\(\'忰9ꍩ\\u1BE9\.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3420\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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--9-9pl2595ado0c.ss", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'xn\-\-9\-9pl2595ado0c\.ss\'\)\ \[data\/IdnaTest\.txt\:3421\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.ss", %p)}, "xn--9-9pl2595ado0c.ss", "to_ascii\(\'忰9ꍩ\\u1BE9\.ss\'\)\ \[data\/IdnaTest\.txt\:3422\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}SS", %p)}, undef, "to_ascii\(\'忰9ꍩ\\u1BE9.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3424\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ss", %p)}, undef, "to_ascii\(\'忰9ꍩ\\u1BE9.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3426\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}Ss", %p)}, undef, "to_ascii\(\'忰9ꍩ\\u1BE9.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3428\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ꗷ\x{1BAB}.\x{069C}𞣶", %p)}, undef, "to_ascii\(\'ꗷ\\u1BAB\.\\u069C𞣶\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3429\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐≯-。︒򐇻-񍘎", %p)}, undef, "to_ascii\(\'⒐\≯\-\。︒򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3430\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒐>\x{0338}-。︒򐇻-񍘎", %p)}, undef, "to_ascii\(\'⒐\>\\u0338\-\。︒򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3431\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9.≯-。。򐇻-񍘎", %p)}, undef, "to_ascii\(\'9\.\≯\-\。\。򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3432\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9.>\x{0338}-。。򐇻-񍘎", %p)}, undef, "to_ascii\(\'9\.\>\\u0338\-\。\。򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3433\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񌜃\x{A8EB}Ⴡ󠣼.\x{0847}", %p)}, undef, "to_ascii\(\'񌜃\\uA8EBჁ\󠣼.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3434\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񌜃\x{A8EB}Ⴡ󠣼.\x{0847}", %p)}, undef, "to_ascii\(\'񌜃\\uA8EBჁ\󠣼\.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3435\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񌜃\x{A8EB}ⴡ󠣼.\x{0847}", %p)}, undef, "to_ascii\(\'񌜃\\uA8EBⴡ\󠣼\.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3436\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񌜃\x{A8EB}ⴡ󠣼.\x{0847}", %p)}, undef, "to_ascii\(\'񌜃\\uA8EBⴡ\󠣼.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3437\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1DCB}。𐋩ᢥ-ᡕ", %p)}, undef, "to_ascii\(\'\\u1DCB\。𐋩ᢥ\-ᡕ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3438\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("싇。⾇𐼓Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3439\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇𐼓Ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3440\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛𐼓Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3441\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛𐼓Ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3442\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛𐼓ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。舛𐼓ⴝ", %p)}, undef, "to_ascii\(\'싇\。舛𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3444\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇𐼓ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("싇。⾇𐼓ⴝ", %p)}, undef, "to_ascii\(\'싇\。⾇𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3446\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹮ς。\x{200C}\x{07D4}Ⴠ", %p)}, undef, "to_ascii\(\'𐹮ς\。\\u200C\\u07D4Ⴠ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3448\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07D4}ⴠ", %p)}, undef, "to_ascii\(\'𐹮ς\。\\u200C\\u07D4ⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3450\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐹮Σ。\x{200C}\x{07D4}Ⴠ", %p)}, undef, "to_ascii\(\'𐹮Σ\。\\u200C\\u07D4Ⴠ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3452\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07D4}ⴠ", %p)}, undef, "to_ascii\(\'𐹮σ\。\\u200C\\u07D4ⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3454\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򗡮\x{200C}𐹲.\x{067A}-ß", %p)}, undef, "to_ascii\(\'򗡮\\u200C𐹲\.\\u067A\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򗡮\x{200C}𐹲.\x{067A}-SS", %p)}, undef, "to_ascii\(\'򗡮\\u200C𐹲\.\\u067A\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3458\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򗡮\x{200C}𐹲.\x{067A}-ss", %p)}, undef, "to_ascii\(\'򗡮\\u200C𐹲\.\\u067A\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3460\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򗡮\x{200C}𐹲.\x{067A}-Ss", %p)}, undef, "to_ascii\(\'򗡮\\u200C𐹲\.\\u067A\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}ᢠ.-𞳲𰞝\x{FEEF}", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5ᢠ\.\-𞳲𰞝\\uFEEF\'\)\ throws\ error\ P1\ V6\ V3\ C1\ C2\ B1\ \[data\/IdnaTest\.txt\:3464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200D}\x{17B5}ᢠ.-𞳲𰞝\x{0649}", %p)}, undef, "to_ascii\(\'\\u200C\\u200D\\u17B5ᢠ\.\-𞳲𰞝\\u0649\'\)\ throws\ error\ P1\ V6\ V3\ C1\ C2\ B1\ \[data\/IdnaTest\.txt\:3466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹸓。\x{0633}≠", %p)}, undef, "to_ascii\(\'񹸓。\\u0633\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹸓。\x{0633}=\x{0338}", %p)}, undef, "to_ascii\(\'񹸓。\\u0633\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3468\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹸓。\x{0633}≠", %p)}, undef, "to_ascii\(\'񹸓\。\\u0633\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3469\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񹸓。\x{0633}=\x{0338}", %p)}, undef, "to_ascii\(\'񹸓\。\\u0633\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3470\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_ascii\(\'𑍱𞦝。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3471\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_ascii\(\'𑍱𞦝。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3472\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_ascii\(\'𑍱𞦝\。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3473\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_ascii\(\'𑍱𞦝\。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3474\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴏ󠄭-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\󠄭\-.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3476\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴏ󠄭-.\x{200D}Ⴉ", %p)}, undef, "to_ascii\(\'Ⴏ\󠄭\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3478\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴏ󠄭-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\󠄭\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3480\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴏ󠄭-.\x{200D}ⴉ", %p)}, undef, "to_ascii\(\'ⴏ\󠄭\-.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3482\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠌣\x{1B6C}¤񼀤。𐹼\x{2063}𝩑", %p)}, undef, "to_ascii\(\'\󠌣\\u1B6C\¤񼀤\。𐹼\\u2063𝩑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3483\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ᡞ.𐅥🄇⒈", %p)}, undef, "to_ascii\(\'\≠ᡞ\.𐅥🄇⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3484\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ᡞ.𐅥🄇⒈", %p)}, undef, "to_ascii\(\'\=\\u0338ᡞ\.𐅥🄇⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3485\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠ᡞ.𐅥6,1.", %p)}, undef, "to_ascii\(\'\≠ᡞ\.𐅥6\,1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3486\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}ᡞ.𐅥6,1.", %p)}, undef, "to_ascii\(\'\=\\u0338ᡞ\.𐅥6\,1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3487\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9B8}⩩ß.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_ascii\(\'\\uA9B8\⩩ß\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3489\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9B8}⩩SS.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_ascii\(\'\\uA9B8\⩩SS\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3491\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9B8}⩩ss.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_ascii\(\'\\uA9B8\⩩ss\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9B8}⩩Ss.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_ascii\(\'\\uA9B8\⩩Ss\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{0678}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ß\\u0678𮓵Ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{064A}\x{0674}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ß\\u064A\\u0674𮓵Ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{064A}\x{0674}𮓵ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ß\\u064A\\u0674𮓵ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{064A}\x{0674}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'SS\\u064A\\u0674𮓵Ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{064A}\x{0674}𮓵ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ss\\u064A\\u0674𮓵ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{064A}\x{0674}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'Ss\\u064A\\u0674𮓵Ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{0678}𮓵ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ß\\u0678𮓵ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS\x{0678}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'SS\\u0678𮓵Ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3503\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{0678}𮓵ⴇ。𑂳", %p)}, undef, "to_ascii\(\'ss\\u0678𮓵ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{0678}𮓵Ⴇ。𑂳", %p)}, undef, "to_ascii\(\'Ss\\u0678𮓵Ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3505\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{ABED}。𝨁-𑁆", %p)}, undef, "to_ascii\(\'\\uABED\。𝨁\-𑁆\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3506\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("⮉-.𒿏󠁼ß", %p)}, undef, "to_ascii\(\'\⮉\-.𒿏\󠁼ß\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3507\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼ß", %p)}, undef, "to_ascii\(\'\⮉\-\.𒿏\󠁼ß\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼SS", %p)}, undef, "to_ascii\(\'\⮉\-\.𒿏\󠁼SS\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼ss", %p)}, undef, "to_ascii\(\'\⮉\-\.𒿏\󠁼ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼Ss", %p)}, undef, "to_ascii\(\'\⮉\-\.𒿏\󠁼Ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼SS", %p)}, undef, "to_ascii\(\'\⮉\-.𒿏\󠁼SS\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼ss", %p)}, undef, "to_ascii\(\'\⮉\-.𒿏\󠁼ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⮉-.𒿏󠁼Ss", %p)}, undef, "to_ascii\(\'\⮉\-.𒿏\󠁼Ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}-≮。𐹽\x{FE29}\x{0724}", %p)}, undef, "to_ascii\(\'\\u0775\-\≮\。𐹽\\uFE29\\u0724\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0775}-<\x{0338}。𐹽\x{FE29}\x{0724}", %p)}, undef, "to_ascii\(\'\\u0775\-\<\\u0338\。𐹽\\uFE29\\u0724\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟥󠳮\x{0CCD}\x{0347}.𑖿\x{0F84}8󠇩", %p)}, undef, "to_ascii\(\'𝟥\󠳮\\u0CCD\\u0347.𑖿\\u0F848\󠇩\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3517\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3󠳮\x{0CCD}\x{0347}.𑖿\x{0F84}8󠇩", %p)}, undef, "to_ascii\(\'3\󠳮\\u0CCD\\u0347\.𑖿\\u0F848\󠇩\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3518\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。񃲑\x{200D}\x{0E4C}", %p)}, undef, "to_ascii\(\'\-。񃲑\\u200D\\u0E4C\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。񃲑\x{200D}\x{0E4C}", %p)}, undef, "to_ascii\(\'\-\。񃲑\\u200D\\u0E4C\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟓➲𝟐񱬭。𝩎򮖚", %p)}, undef, "to_ascii\(\'𝟓\➲𝟐񱬭。𝩎򮖚\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("5➲2񱬭。𝩎򮖚", %p)}, undef, "to_ascii\(\'5\➲2񱬭\。𝩎򮖚\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.-├񷏳", %p)}, undef, "to_ascii\(\'\-\.\-\├񷏳\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3525\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{059D}ᢝ。\x{200D}🔘", %p)}, undef, "to_ascii\(\'\\u059Dᢝ。\\u200D🔘\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:3527\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{059D}ᢝ。\x{200D}🔘", %p)}, undef, "to_ascii\(\'\\u059Dᢝ\。\\u200D🔘\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:3529\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("쥥󂿯Ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯Ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯Ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯Ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯Ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯Ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯Ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯Ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("쥥󂿯ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_ascii\(\'쥥󂿯ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀲𝟶\x{067C}-。\x{0B4D}", %p)}, undef, "to_ascii\(\'\󠀲𝟶\\u067C\-\。\\u0B4D\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3546\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀲0\x{067C}-。\x{0B4D}", %p)}, undef, "to_ascii\(\'\󠀲0\\u067C\-\。\\u0B4D\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς.𐸹ꜘ⒈", %p)}, undef, "to_ascii\(\'ς.𐸹ꜘ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3548\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς.𐸹ꜘ1.", %p)}, undef, "to_ascii\(\'ς\.𐸹ꜘ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.𐸹ꜘ1.", %p)}, undef, "to_ascii\(\'Σ\.𐸹ꜘ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3550\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.𐸹ꜘ1.", %p)}, undef, "to_ascii\(\'σ\.𐸹ꜘ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ.𐸹ꜘ⒈", %p)}, undef, "to_ascii\(\'Σ.𐸹ꜘ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ.𐸹ꜘ⒈", %p)}, undef, "to_ascii\(\'σ.𐸹ꜘ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠳘-。𐹹򐴥򻚗", %p)}, undef, "to_ascii\(\'\󠳘\-。𐹹򐴥򻚗\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠳘-。𐹹򐴥򻚗", %p)}, undef, "to_ascii\(\'\󠳘\-\。𐹹򐴥򻚗\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞵆-󠔪。𝟻\x{200C}\x{05F7}", %p)}, undef, "to_ascii\(\'𞵆\-\󠔪。𝟻\\u200C\\u05F7\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3557\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞵆-󠔪。5\x{200C}\x{05F7}", %p)}, undef, "to_ascii\(\'𞵆\-\󠔪\。5\\u200C\\u05F7\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3559\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dß.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3561\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dß.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3563\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dß\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3565\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dß\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3567\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSS\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3569\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSS\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3571\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dss\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3573\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dss\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3575\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSs\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3577\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSs\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3579\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSS.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3581\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSS.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3583\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dss.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3585\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200Dss.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3587\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSs.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3589\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_ascii\(\'𐹸늿\\u200DSs.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3591\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("9\x{0C3E}.󡇎\x{0722}", %p)}, undef, "to_ascii\(\'9\\u0C3E.󡇎\\u0722\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("9\x{0C3E}.󡇎\x{0722}", %p)}, undef, "to_ascii\(\'9\\u0C3E\.󡇎\\u0722\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐱇󠽵ß⺀", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐱇\󠽵ß⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐱇󠽵ß⺀", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐱇\󠽵ß⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐱇󠽵SS⺀", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐱇\󠽵SS⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐱇󠽵ss⺀", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐱇\󠽵ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1160}.𐱇󠽵Ss⺀", %p)}, undef, "to_ascii\(\'\\u200C\\u1160\.𐱇\󠽵Ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3603\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐱇󠽵SS⺀", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐱇\󠽵SS⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3605\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐱇󠽵ss⺀", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐱇\󠽵ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{FFA0}.𐱇󠽵Ss⺀", %p)}, undef, "to_ascii\(\'\\u200C\\uFFA0\.𐱇\󠽵Ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒Ⴖ𝅷.\x{200C}", %p)}, undef, "to_ascii\(\'︒Ⴖ\𝅷.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3611\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。Ⴖ𝅷.\x{200C}", %p)}, undef, "to_ascii\(\'\。Ⴖ\𝅷\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3613\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。ⴖ𝅷.\x{200C}", %p)}, undef, "to_ascii\(\'\。ⴖ\𝅷\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3615\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒ⴖ𝅷.\x{200C}", %p)}, undef, "to_ascii\(\'︒ⴖ\𝅷.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3617\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠸ.\x{200C}Ⴃ\x{0F90}", %p)}, undef, "to_ascii\(\'ᠸ.\\u200CႣ\\u0F90\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3619\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠸ.\x{200C}Ⴃ\x{0F90}", %p)}, undef, "to_ascii\(\'ᠸ\.\\u200CႣ\\u0F90\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3621\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0F90}", %p)}, undef, "to_ascii\(\'ᠸ\.\\u200Cⴃ\\u0F90\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3623\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--r7e.xn--gfd191m", %p)}, "xn--r7e.xn--gfd191m", "to_ascii\(\'xn\-\-r7e\.xn\-\-gfd191m\'\)\ \[data\/IdnaTest\.txt\:3624\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0F90}", %p)}, "xn--r7e.xn--gfd191m", "to_ascii\(\'ᠸ\.ⴃ\\u0F90\'\)\ \[data\/IdnaTest\.txt\:3625\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᠸ.Ⴃ\x{0F90}", %p)}, undef, "to_ascii\(\'ᠸ\.Ⴃ\\u0F90\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3626\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0F90}", %p)}, undef, "to_ascii\(\'ᠸ.\\u200Cⴃ\\u0F90\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3628\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}\x{200C}。2䫷⋻", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\。2䫷\⋻\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200C}。2䫷⋻", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\。2䫷\⋻\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--2-poow91p", %p)}, "xn--2-poow91p", "to_ascii\(\'xn\-\-2\-poow91p\'\)\ \[data\/IdnaTest\.txt\:3633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2䫷⋻", %p)}, "xn--2-poow91p", "to_ascii\(\'2䫷\⋻\'\)\ \[data\/IdnaTest\.txt\:3634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-󠅾󥘨。򻀠", %p)}, undef, "to_ascii\(\'\-\󠅾󥘨\。򻀠\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󝺜︒\x{200C}㟀.\x{07E7}⒈", %p)}, undef, "to_ascii\(\'󝺜︒\\u200C㟀.\\u07E7⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󝺜。\x{200C}㟀.\x{07E7}1.", %p)}, undef, "to_ascii\(\'󝺜\。\\u200C㟀\.\\u07E71\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3639\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05AA}。-\x{200D}", %p)}, undef, "to_ascii\(\'\󠆮ꡬ\\u05AA\。\-\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3641\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠𐬉", %p)}, undef, "to_ascii\(\'\\u200C.Ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}𐬉", %p)}, undef, "to_ascii\(\'\\u200C.Ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ≠𐬉", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.Ⴉ=\x{0338}𐬉", %p)}, undef, "to_ascii\(\'\\u200C\.Ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}𐬉", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ≠𐬉", %p)}, undef, "to_ascii\(\'\\u200C\.ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ=\x{0338}𐬉", %p)}, undef, "to_ascii\(\'\\u200C.ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.ⴉ≠𐬉", %p)}, undef, "to_ascii\(\'\\u200C.ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。≯ς", %p)}, undef, "to_ascii\(\'𐮈\。\≯ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。>\x{0338}ς", %p)}, undef, "to_ascii\(\'𐮈\。\>\\u0338ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3659\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。>\x{0338}Σ", %p)}, undef, "to_ascii\(\'𐮈\。\>\\u0338Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3660\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。≯Σ", %p)}, undef, "to_ascii\(\'𐮈\。\≯Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3661\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。≯σ", %p)}, undef, "to_ascii\(\'𐮈\。\≯σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3662\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐮈。>\x{0338}σ", %p)}, undef, "to_ascii\(\'𐮈\。\>\\u0338σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3663\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱸𞴇.𞥂︒򨹓Ⴐ", %p)}, undef, "to_ascii\(\'𐱸𞴇\.𞥂︒򨹓Ⴐ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3664\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱸𞴇.𞥂。򨹓Ⴐ", %p)}, undef, "to_ascii\(\'𐱸𞴇\.𞥂\。򨹓Ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱸𞴇.𞥂。򨹓ⴐ", %p)}, undef, "to_ascii\(\'𐱸𞴇\.𞥂\。򨹓ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3666\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱸𞴇.𞥂︒򨹓ⴐ", %p)}, undef, "to_ascii\(\'𐱸𞴇\.𞥂︒򨹓ⴐ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ🠠⸄⧲。󠇠", %p)}, undef, "to_ascii\(\'Ⴥ🠠\⸄\⧲。\󠇠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3668\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴥ🠠⸄⧲。󠇠", %p)}, undef, "to_ascii\(\'Ⴥ🠠\⸄\⧲\。\󠇠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3669\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴥ🠠⸄⧲。󠇠", %p)}, "xn--fxi61ietai923l.", "to_ascii\(\'ⴥ🠠\⸄\⧲\。\󠇠\'\)\ \[data\/IdnaTest\.txt\:3670\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--fxi61ietai923l.", %p)}, "xn--fxi61ietai923l.", "to_ascii\(\'xn\-\-fxi61ietai923l\.\'\)\ \[data\/IdnaTest\.txt\:3671\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴥ🠠⸄⧲.", %p)}, "xn--fxi61ietai923l.", "to_ascii\(\'ⴥ🠠\⸄\⧲\.\'\)\ \[data\/IdnaTest\.txt\:3672\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴥ🠠⸄⧲.", %p)}, undef, "to_ascii\(\'Ⴥ🠠\⸄\⧲\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3673\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ⴥ🠠⸄⧲。󠇠", %p)}, "xn--fxi61ietai923l.", "to_ascii\(\'ⴥ🠠\⸄\⧲。\󠇠\'\)\ \[data\/IdnaTest\.txt\:3674\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🄈。󠦐ᢙ", %p)}, undef, "to_ascii\(\'🄈\。\󠦐ᢙ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3675\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("7,。󠦐ᢙ", %p)}, undef, "to_ascii\(\'7\,\。\󠦐ᢙ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3676\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{063D}。섖쮖ß", %p)}, undef, "to_ascii\(\'\≮\\u063D\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{063D}。섖쮖ß", %p)}, undef, "to_ascii\(\'\<\\u0338\\u063D\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3678\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{063D}。섖쮖SS", %p)}, undef, "to_ascii\(\'\<\\u0338\\u063D\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{063D}。섖쮖SS", %p)}, undef, "to_ascii\(\'\≮\\u063D\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3680\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{063D}。섖쮖ss", %p)}, undef, "to_ascii\(\'\≮\\u063D\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{063D}。섖쮖ss", %p)}, undef, "to_ascii\(\'\<\\u0338\\u063D\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3682\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}\x{063D}。섖쮖Ss", %p)}, undef, "to_ascii\(\'\<\\u0338\\u063D\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮\x{063D}。섖쮖Ss", %p)}, undef, "to_ascii\(\'\≮\\u063D\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3684\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1A6A}󠍨-。\x{06A2}", %p)}, undef, "to_ascii\(\'\\u1A6A\󠍨\-\。\\u06A2\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞱦\x{06DD}\x{0845}\x{0E3A}。\x{069E}\x{0726}\x{200C}\x{062C}", %p)}, undef, "to_ascii\(\'𞱦\\u06DD\\u0845\\u0E3A\。\\u069E\\u0726\\u200C\\u062C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3686\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1AB6}.𞨕򗡺", %p)}, undef, "to_ascii\(\'\\u1AB6\.𞨕򗡺\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("--。󶅄\x{07D9}\x{FD60}\x{FDB5}", %p)}, undef, "to_ascii\(\'\-\-\。󶅄\\u07D9\\uFD60\\uFDB5\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3688\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("--。󶅄\x{07D9}\x{0633}\x{0645}\x{062D}\x{0644}\x{062D}\x{0645}", %p)}, undef, "to_ascii\(\'\-\-\。󶅄\\u07D9\\u0633\\u0645\\u062D\\u0644\\u062D\\u0645\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񰋴𐋥𚴢.≯\x{08A2}\x{06C1}򮁎", %p)}, undef, "to_ascii\(\'񰋴𐋥𚴢\.\≯\\u08A2\\u06C1򮁎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3690\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񰋴𐋥𚴢.>\x{0338}\x{08A2}\x{06C1}򮁎", %p)}, undef, "to_ascii\(\'񰋴𐋥𚴢\.\>\\u0338\\u08A2\\u06C1򮁎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䔛󠅆󙭅𐹸.-䤷", %p)}, undef, "to_ascii\(\'䔛\󠅆󙭅𐹸.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3692\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䔛󠅆󙭅𐹸.-䤷", %p)}, undef, "to_ascii\(\'䔛\󠅆󙭅𐹸\.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0665}.\x{200D}-", %p)}, undef, "to_ascii\(\'\\u0665.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0665}.\x{200D}-", %p)}, undef, "to_ascii\(\'\\u0665\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򳥎帷。≯萺🢓-", %p)}, undef, "to_ascii\(\'򳥎帷。\≯萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򳥎帷。>\x{0338}萺🢓-", %p)}, undef, "to_ascii\(\'򳥎帷。\>\\u0338萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򳥎帷。≯萺🢓-", %p)}, undef, "to_ascii\(\'򳥎帷\。\≯萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򳥎帷。>\x{0338}萺🢓-", %p)}, undef, "to_ascii\(\'򳥎帷\。\>\\u0338萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3701\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}攌\x{1BAA}。\x{0641}-Ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\u1BAA\。\\u0641\-Ⴘ\'\)\ throws\ error\ P1\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3703\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1BAA}。\x{0641}-ⴘ", %p)}, undef, "to_ascii\(\'\\u200D攌\\u1BAA\。\\u0641\-ⴘ\'\)\ throws\ error\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3705\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}ꖨ.⒗3􆤫۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ.⒗3􆤫۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3707\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ꖨ.16.3􆤫۳", %p)}, undef, "to_ascii\(\'\\u200Cꖨ\.16\.3􆤫۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3709\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈걾6.𞼾\x{06A6}", %p)}, undef, "to_ascii\(\'⒈걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈걾6.𞼾\x{06A6}", %p)}, undef, "to_ascii\(\'⒈걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3711\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.걾6.𞼾\x{06A6}", %p)}, undef, "to_ascii\(\'1\.걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3712\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.걾6.𞼾\x{06A6}", %p)}, undef, "to_ascii\(\'1\.걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3713\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐭹𝟶≮≮.\x{07EC}\x{063F}", %p)}, undef, "to_ascii\(\'𐭹𝟶\≮\≮\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐭹𝟶<\x{0338}<\x{0338}.\x{07EC}\x{063F}", %p)}, undef, "to_ascii\(\'𐭹𝟶\<\\u0338\<\\u0338\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3715\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐭹0≮≮.\x{07EC}\x{063F}", %p)}, undef, "to_ascii\(\'𐭹0\≮\≮\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐭹0<\x{0338}<\x{0338}.\x{07EC}\x{063F}", %p)}, undef, "to_ascii\(\'𐭹0\<\\u0338\<\\u0338\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3717\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩎.𐹥\x{115F}", %p)}, undef, "to_ascii\(\'𝩎\.𐹥\\u115F\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3718\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{05A2}\x{0E4B}.\x{200D}", %p)}, undef, "to_ascii\(\'𝟏\\u05A2\\u0E4B\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3720\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0E4B}\x{05A2}.\x{200D}", %p)}, undef, "to_ascii\(\'𝟏\\u0E4B\\u05A2\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3722\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0E4B}\x{05A2}.\x{200D}", %p)}, undef, "to_ascii\(\'1\\u0E4B\\u05A2\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3724\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--1-efc467d.", %p)}, "xn--1-efc467d.", "to_ascii\(\'xn\-\-1\-efc467d\.\'\)\ \[data\/IdnaTest\.txt\:3725\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0E4B}\x{05A2}.", %p)}, "xn--1-efc467d.", "to_ascii\(\'1\\u0E4B\\u05A2\.\'\)\ \[data\/IdnaTest\.txt\:3726\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ꡏ≠\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_ascii\(\'ꡏ\≠\\u07DF\\u103A。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3728\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏ=\x{0338}\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_ascii\(\'ꡏ\=\\u0338\\u07DF\\u103A。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3730\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏ≠\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_ascii\(\'ꡏ\≠\\u07DF\\u103A\。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡏ=\x{0338}\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_ascii\(\'ꡏ\=\\u0338\\u07DF\\u103A\。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3734\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐹹𑜩-\x{08AA}。𐫚", %p)}, undef, "to_ascii\(\'𐹹𑜩\-\\u08AA。𐫚\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3735\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𐹹𑜩-\x{08AA}。𐫚", %p)}, undef, "to_ascii\(\'𐹹𑜩\-\\u08AA\。𐫚\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3736\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("F\x{1AB4}。񸃫🌿", %p)}, undef, "to_ascii\(\'F\\u1AB4。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3737\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("F\x{1AB4}。񸃫🌿", %p)}, undef, "to_ascii\(\'F\\u1AB4\。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3738\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f\x{1AB4}。񸃫🌿", %p)}, undef, "to_ascii\(\'f\\u1AB4\。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3739\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f\x{1AB4}。񸃫🌿", %p)}, undef, "to_ascii\(\'f\\u1AB4。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3740\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵𑍍\x{05C1}。𝟮Ⴘ\x{1B03}𪌓", %p)}, undef, "to_ascii\(\'𑈵𑍍\\u05C1\。𝟮Ⴘ\\u1B03𪌓\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3741\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵𑍍\x{05C1}。2Ⴘ\x{1B03}𪌓", %p)}, undef, "to_ascii\(\'𑈵𑍍\\u05C1\。2Ⴘ\\u1B03𪌓\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3742\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑈵𑍍\x{05C1}。2ⴘ\x{1B03}𪌓", %p)}, undef, "to_ascii\(\'𑈵𑍍\\u05C1\。2ⴘ\\u1B03𪌓\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3743\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑈵𑍍\x{05C1}。𝟮ⴘ\x{1B03}𪌓", %p)}, undef, "to_ascii\(\'𑈵𑍍\\u05C1\。𝟮ⴘ\\u1B03𪌓\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3744\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󙐃\x{200C}\x{200C}⒈。勉\x{08F6}", %p)}, undef, "to_ascii\(\'󙐃\\u200C\\u200C⒈\。勉\\u08F6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󙐃\x{200C}\x{200C}1.。勉\x{08F6}", %p)}, undef, "to_ascii\(\'󙐃\\u200C\\u200C1\.\。勉\\u08F6\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3748\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07DE}.􋧲򆔛򚝌", %p)}, undef, "to_ascii\(\'\\u07DE\.􋧲򆔛򚝌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。⒈≯𝟵", %p)}, undef, "to_ascii\(\'\\u200C\\u200C。⒈\≯𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3751\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。⒈>\x{0338}𝟵", %p)}, undef, "to_ascii\(\'\\u200C\\u200C。⒈\>\\u0338𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3753\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.≯9", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\≯9\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{200C}。1.>\x{0338}9", %p)}, undef, "to_ascii\(\'\\u200C\\u200C\。1\.\>\\u03389\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3757\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}󠁔񹨕.񡆍≯ᡱ", %p)}, undef, "to_ascii\(\'\\u115F\󠁔񹨕\.񡆍\≯ᡱ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3758\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}󠁔񹨕.񡆍>\x{0338}ᡱ", %p)}, undef, "to_ascii\(\'\\u115F\󠁔񹨕\.񡆍\>\\u0338ᡱ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⽛󠇧\x{200D}\x{06A4}.𑆻-\x{20E0}򔔷", %p)}, undef, "to_ascii\(\'⽛\󠇧\\u200D\\u06A4\.𑆻\-\\u20E0򔔷\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3761\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("牙󠇧\x{200D}\x{06A4}.𑆻-\x{20E0}򔔷", %p)}, undef, "to_ascii\(\'牙\󠇧\\u200D\\u06A4\.𑆻\-\\u20E0򔔷\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3763\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{035D}.\x{2D7F}-", %p)}, undef, "to_ascii\(\'\\u035D.\\u2D7F\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3764\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{035D}.\x{2D7F}-", %p)}, undef, "to_ascii\(\'\\u035D\.\\u2D7F\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3765\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("䮸ß.┶☍紙\x{0710}", %p)}, undef, "to_ascii\(\'䮸ß\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3766\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸SS.┶☍紙\x{0710}", %p)}, undef, "to_ascii\(\'䮸SS\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3767\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸ss.┶☍紙\x{0710}", %p)}, undef, "to_ascii\(\'䮸ss\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3768\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䮸Ss.┶☍紙\x{0710}", %p)}, undef, "to_ascii\(\'䮸Ss\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3769\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-Ⴞ.-⎟≈𞴈", %p)}, undef, "to_ascii\(\'\-Ⴞ\.\-\⎟\≈𞴈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3770\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ⴞ.-⎟≈𞴈", %p)}, undef, "to_ascii\(\'\-ⴞ\.\-\⎟\≈𞴈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3771\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊡝𐹮𑜝。𵘅\x{07EA}𚷖ᠥ", %p)}, undef, "to_ascii\(\'󊡝𐹮𑜝。𵘅\\u07EA𚷖ᠥ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3772\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󊡝𐹮𑜝。𵘅\x{07EA}𚷖ᠥ", %p)}, undef, "to_ascii\(\'󊡝𐹮𑜝\。𵘅\\u07EA𚷖ᠥ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3773\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B02}-\x{200D}\x{1CE8}.\x{067A}\x{200D}񻭁", %p)}, undef, "to_ascii\(\'\\u1B02\-\\u200D\\u1CE8.\\u067A\\u200D񻭁\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3775\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B02}-\x{200D}\x{1CE8}.\x{067A}\x{200D}񻭁", %p)}, undef, "to_ascii\(\'\\u1B02\-\\u200D\\u1CE8\.\\u067A\\u200D񻭁\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۱。≠\x{0667}", %p)}, undef, "to_ascii\(\'۱\。\≠\\u0667\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3778\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("۱。=\x{0338}\x{0667}", %p)}, undef, "to_ascii\(\'۱\。\=\\u0338\\u0667\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3779\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}廊.\x{07D4}", %p)}, undef, "to_ascii\(\'\\uA8C4廊\.\\u07D4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3780\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200D}\x{17CF}-.-Ⴐ𐹥", %p)}, undef, "to_ascii\(\'\\u200D\\u17CF\-.\-Ⴐ𐹥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3782\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{17CF}-.-Ⴐ𐹥", %p)}, undef, "to_ascii\(\'\\u200D\\u17CF\-\.\-Ⴐ𐹥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3784\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{17CF}-.-ⴐ𐹥", %p)}, undef, "to_ascii\(\'\\u200D\\u17CF\-\.\-ⴐ𐹥\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3786\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{17CF}-.-ⴐ𐹥", %p)}, undef, "to_ascii\(\'\\u200D\\u17CF\-.\-ⴐ𐹥\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3788\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᡈ𐹯挏򨆦.-", %p)}, undef, "to_ascii\(\'ᡈ𐹯挏򨆦\.\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:3789\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𞸷。𐹪\x{084C}", %p)}, undef, "to_ascii\(\'𞸷。𐹪\\u084C\'\)\ throws\ error\ B1\ \[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{062E}。𐹪\x{084C}", %p)}, undef, "to_ascii\(\'\\u062E\。𐹪\\u084C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3791\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'Ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3792\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'Ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'Ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'Ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3798\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_ascii\(\'ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("✦󃕌𐮮𐹸。≯\x{200C}\x{A8E5}", %p)}, undef, "to_ascii\(\'\✦󃕌𐮮𐹸。\≯\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3801\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("✦󃕌𐮮𐹸。>\x{0338}\x{200C}\x{A8E5}", %p)}, undef, "to_ascii\(\'\✦󃕌𐮮𐹸。\>\\u0338\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3803\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("✦󃕌𐮮𐹸。≯\x{200C}\x{A8E5}", %p)}, undef, "to_ascii\(\'\✦󃕌𐮮𐹸\。\≯\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3805\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("✦󃕌𐮮𐹸。>\x{0338}\x{200C}\x{A8E5}", %p)}, undef, "to_ascii\(\'\✦󃕌𐮮𐹸\。\>\\u0338\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3807\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ᛎ\x{0351}⎛\x{200D}。\x{0662}\x{0668}𐦋-", %p)}, undef, "to_ascii\(\'ᛎ\\u0351\⎛\\u200D。\\u0662\\u0668𐦋\-\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3809\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ᛎ\x{0351}⎛\x{200D}。\x{0662}\x{0668}𐦋-", %p)}, undef, "to_ascii\(\'ᛎ\\u0351\⎛\\u200D\。\\u0662\\u0668𐦋\-\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3811\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0666}.\x{06FB}", %p)}, undef, "to_ascii\(\'\\u0666\.\\u06FB\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß\x{200D}𑁆。⒈", %p)}, undef, "to_ascii\(\'ß\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3814\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}𑁆。1.", %p)}, undef, "to_ascii\(\'ß\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3816\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("SS\x{200D}𑁆。1.", %p)}, undef, "to_ascii\(\'SS\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3818\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ss\x{200D}𑁆。1.", %p)}, undef, "to_ascii\(\'ss\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3820\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("Ss\x{200D}𑁆。1.", %p)}, undef, "to_ascii\(\'Ss\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3822\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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--ss-tn4o.1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'xn\-\-ss\-tn4o\.1\.\'\)\ \[data\/IdnaTest\.txt\:3823\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("ss𑁆.1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'ss𑁆\.1\.\'\)\ \[data\/IdnaTest\.txt\:3824\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("SS𑁆.1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'SS𑁆\.1\.\'\)\ \[data\/IdnaTest\.txt\:3825\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_ascii("Ss𑁆.1.", %p)}, "xn--ss-tn4o.1.", "to_ascii\(\'Ss𑁆\.1\.\'\)\ \[data\/IdnaTest\.txt\:3826\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("SS\x{200D}𑁆。⒈", %p)}, undef, "to_ascii\(\'SS\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3828\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss\x{200D}𑁆。⒈", %p)}, undef, "to_ascii\(\'ss\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3830\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss\x{200D}𑁆。⒈", %p)}, undef, "to_ascii\(\'Ss\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3832\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1B44}\x{200C}򦃽𐴮。\x{200D}", %p)}, undef, "to_ascii\(\'\\u1B44\\u200C򦃽𐴮\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3834\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{17BC}", %p)}, "xn--f8e.xn--73e9015e", "to_ascii\(\'ᡏ。ꡂ\\u17BC\'\)\ \[data\/IdnaTest\.txt\:3835\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{17BC}", %p)}, "xn--f8e.xn--73e9015e", "to_ascii\(\'ᡏ\。ꡂ\\u17BC\'\)\ \[data\/IdnaTest\.txt\:3836\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--f8e.xn--73e9015e", %p)}, "xn--f8e.xn--73e9015e", "to_ascii\(\'xn\-\-f8e\.xn\-\-73e9015e\'\)\ \[data\/IdnaTest\.txt\:3837\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{17BC}", %p)}, "xn--f8e.xn--73e9015e", "to_ascii\(\'ᡏ\.ꡂ\\u17BC\'\)\ \[data\/IdnaTest\.txt\:3838\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ᡦ\x{17D2}。\x{071F}\x{0954}\x{200C}𑄴", %p)}, undef, "to_ascii\(\'ᡦ\\u17D2\。\\u071F\\u0954\\u200C𑄴\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:3840\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or 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--u4e90a.xn--pnb44if575b", %p)}, "xn--u4e90a.xn--pnb44if575b", "to_ascii\(\'xn\-\-u4e90a\.xn\-\-pnb44if575b\'\)\ \[data\/IdnaTest\.txt\:3841\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ᡦ\x{17D2}.\x{071F}𑄴\x{0954}", %p)}, "xn--u4e90a.xn--pnb44if575b", "to_ascii\(\'ᡦ\\u17D2\.\\u071F𑄴\\u0954\'\)\ \[data\/IdnaTest\.txt\:3842\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A4CE}.𑈶\x{0684}", %p)}, undef, "to_ascii\(\'\\uA4CE\.𑈶\\u0684\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3843\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.ß𑇀𑆸", %p)}, "xn--dnb6240l.xn--zca2180lxa", "to_ascii\(\'\\u0713𑜫.ß𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3845\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.ß𑇀𑆸", %p)}, "xn--dnb6240l.xn--zca2180lxa", "to_ascii\(\'\\u0713𑜫\.ß𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3847\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.SS𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫\.SS𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3848\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.ss𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫\.ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3849\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.Ss𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫\.Ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3850\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--dnb6240l.xn--ss-jk5o5a", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'xn\-\-dnb6240l\.xn\-\-ss\-jk5o5a\'\)\ \[data\/IdnaTest\.txt\:3851\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--dnb6240l.xn--zca2180lxa", %p)}, "xn--dnb6240l.xn--zca2180lxa", "to_ascii\(\'xn\-\-dnb6240l\.xn\-\-zca2180lxa\'\)\ \[data\/IdnaTest\.txt\:3852\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.SS𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫.SS𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3853\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.ss𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫.ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3854\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{0713}𑜫.Ss𑇀𑆸", %p)}, "xn--dnb6240l.xn--ss-jk5o5a", "to_ascii\(\'\\u0713𑜫.Ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3855\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟠≮\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_ascii\(\'𝟠\≮\\u200C。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3857\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟠<\x{0338}\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_ascii\(\'𝟠\<\\u0338\\u200C。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3859\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8≮\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_ascii\(\'8\≮\\u200C\。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3861\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8<\x{0338}\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_ascii\(\'8\<\\u0338\\u200C\。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3863\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ≯︒𫅍.Ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\≯︒𫅍.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3864\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ>\x{0338}︒𫅍.Ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\>\\u0338︒𫅍.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3865\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ≯。𫅍.Ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\≯\。𫅍\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3866\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ>\x{0338}。𫅍.Ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\>\\u0338\。𫅍\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3867\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ>\x{0338}。𫅍.ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\>\\u0338\。𫅍\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3868\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ≯。𫅍.ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\≯\。𫅍\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3869\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ>\x{0338}︒𫅍.ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\>\\u0338︒𫅍.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3870\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡙ≯︒𫅍.ⴀ", %p)}, undef, "to_ascii\(\'ᡙ\≯︒𫅍.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3871\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{17D1}.-\x{08FE}", %p)}, undef, "to_ascii\(\'\\u17D1.\-\\u08FE\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3872\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{17D1}.-\x{08FE}", %p)}, undef, "to_ascii\(\'\\u17D1\.\-\\u08FE\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3873\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᵬ󠅳.핒⒒⒈󍤢", %p)}, undef, "to_ascii\(\'ᵬ\󠅳.핒⒒⒈󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3874\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ󠅳.핒⒒⒈󍤢", %p)}, undef, "to_ascii\(\'ᵬ\󠅳.핒⒒⒈󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ󠅳.핒11.1.󍤢", %p)}, undef, "to_ascii\(\'ᵬ\󠅳\.핒11\.1\.󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3876\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᵬ󠅳.핒11.1.󍤢", %p)}, undef, "to_ascii\(\'ᵬ\󠅳\.핒11\.1\.󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3877\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'ς\\u0ACD𐋢.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3878\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("ς\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'ς\\u0ACD𐋢\.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3879\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'Σ\\u0ACD𐋢\.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3880\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'σ\\u0ACD𐋢\.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3881\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("Σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'Σ\\u0ACD𐋢.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3882\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_ascii\(\'σ\\u0ACD𐋢.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3883\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{A806}\x{200C}𐋻\x{200D}.\x{2DE3}\x{072B}𐹥", %p)}, undef, "to_ascii\(\'\\uA806\\u200C𐋻\\u200D\.\\u2DE3\\u072B𐹥\'\)\ throws\ error\ V5\ C2\ B1\ \[data\/IdnaTest\.txt\:3885\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝍕。𸻞\x{08A2}", %p)}, undef, "to_ascii\(\'𝍕\。𸻞\\u08A2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐬨􆧪。򨳋", %p)}, undef, "to_ascii\(\'𐬨􆧪\。򨳋\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹾\x{1DC7}ꡔ。ς񶞒󠤤\x{17B5}", %p)}, undef, "to_ascii\(\'𐹾\\u1DC7ꡔ\。ς񶞒\󠤤\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹾\x{1DC7}ꡔ。Σ񶞒󠤤\x{17B5}", %p)}, undef, "to_ascii\(\'𐹾\\u1DC7ꡔ\。Σ񶞒\󠤤\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹾\x{1DC7}ꡔ。σ񶞒󠤤\x{17B5}", %p)}, undef, "to_ascii\(\'𐹾\\u1DC7ꡔ\。σ񶞒\󠤤\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐯽\x{074E}\x{0819}。\x{0CCD}𝟥", %p)}, undef, "to_ascii\(\'\-𐯽\\u074E\\u0819\。\\u0CCD𝟥\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𐯽\x{074E}\x{0819}。\x{0CCD}3", %p)}, undef, "to_ascii\(\'\-𐯽\\u074E\\u0819\。\\u0CCD3\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󠔟。򡵱≮𐽨", %p)}, undef, "to_ascii\(\'\\u200C\󠔟。򡵱\≮𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󠔟。򡵱<\x{0338}𐽨", %p)}, undef, "to_ascii\(\'\\u200C\󠔟。򡵱\<\\u0338𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󠔟。򡵱≮𐽨", %p)}, undef, "to_ascii\(\'\\u200C\󠔟\。򡵱\≮𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3898\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}󠔟。򡵱<\x{0338}𐽨", %p)}, undef, "to_ascii\(\'\\u200C\󠔟\。򡵱\<\\u0338𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3900\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈꘍𿅦.𝟡𓕹", %p)}, undef, "to_ascii\(\'⒈꘍𿅦.𝟡𓕹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3901\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.꘍𿅦.9𓕹", %p)}, undef, "to_ascii\(\'1\.꘍𿅦\.9𓕹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3902\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{AAED}\x{06CC}𐪆.𐹷󠁈", %p)}, undef, "to_ascii\(\'\\uAAED\\u06CC𐪆\.𐹷\󠁈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3903\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ς.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'ς.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3904\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ς.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'ς\.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3905\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("Σ.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'Σ\.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3906\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("σ.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'σ\.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3907\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("Σ.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'Σ.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3908\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("σ.𑄴\x{1734}", %p)}, undef, "to_ascii\(\'σ.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3909\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1073}\x{200C}≯𐼸.󠅛", %p)}, undef, "to_ascii\(\'\\u1073\\u200C\≯𐼸.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1073}\x{200C}>\x{0338}𐼸.󠅛", %p)}, undef, "to_ascii\(\'\\u1073\\u200C\>\\u0338𐼸.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3913\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1073}\x{200C}≯𐼸.󠅛", %p)}, undef, "to_ascii\(\'\\u1073\\u200C\≯𐼸\.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3915\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1073}\x{200C}>\x{0338}𐼸.󠅛", %p)}, undef, "to_ascii\(\'\\u1073\\u200C\>\\u0338𐼸\.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3917\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。≯", %p)}, undef, "to_ascii\(\'羚。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3918\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。>\x{0338}", %p)}, undef, "to_ascii\(\'羚。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3919\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。≯", %p)}, undef, "to_ascii\(\'羚\。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3920\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("羚。>\x{0338}", %p)}, undef, "to_ascii\(\'羚\。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A953}\x{1759}.\x{0850}", %p)}, undef, "to_ascii\(\'\\uA953\\u1759.\\u0850\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A953}\x{1759}.\x{0850}", %p)}, undef, "to_ascii\(\'\\uA953\\u1759\.\\u0850\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡ҠჀ𝟑", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D。𐹡ҠჀ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡ҠჀ3", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D\。𐹡ҠჀ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡ҡⴠ3", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D\。𐹡ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3929\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡Ҡⴠ3", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D\。𐹡Ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡ҡⴠ𝟑", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D。𐹡ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛝏\x{2DED}\x{200D}。𐹡Ҡⴠ𝟑", %p)}, undef, "to_ascii\(\'򛝏\\u2DED\\u200D。𐹡Ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3935\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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}。\x{0661}\x{17D3}", %p)}, undef, "to_ascii\(\'\\u063F\。\\u0661\\u17D3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3936\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀ß", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4。𐹾𒜸𑇀ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀ß", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4\。𐹾𒜸𑇀ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3938\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀SS", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4\。𐹾𒜸𑇀SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀ss", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4\。𐹾𒜸𑇀ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3940\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀Ss", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4\。𐹾𒜸𑇀Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀SS", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4。𐹾𒜸𑇀SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀ss", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4。𐹾𒜸𑇀ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򈾫\x{A8C4}。𐹾𒜸𑇀Ss", %p)}, undef, "to_ascii\(\'򈾫\\uA8C4。𐹾𒜸𑇀Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3944\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹨򏝨\x{17B4}.󠪅︒≠", %p)}, undef, "to_ascii\(\'𐹨򏝨\\u17B4\.\󠪅︒\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹨򏝨\x{17B4}.󠪅︒=\x{0338}", %p)}, undef, "to_ascii\(\'𐹨򏝨\\u17B4\.\󠪅︒\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3946\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹨򏝨\x{17B4}.󠪅。≠", %p)}, undef, "to_ascii\(\'𐹨򏝨\\u17B4\.\󠪅\。\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹨򏝨\x{17B4}.󠪅。=\x{0338}", %p)}, undef, "to_ascii\(\'𐹨򏝨\\u17B4\.\󠪅\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3948\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍ỗ⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_ascii\(\'\󠬩񲜍ỗ⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3949\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍o\x{0302}\x{0303}⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_ascii\(\'\󠬩񲜍o\\u0302\\u0303⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3950\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍ỗ1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_ascii\(\'\󠬩񲜍ỗ1\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3951\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍o\x{0302}\x{0303}1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_ascii\(\'\󠬩񲜍o\\u0302\\u03031\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍O\x{0302}\x{0303}1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_ascii\(\'\󠬩񲜍O\\u0302\\u03031\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3953\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍Ỗ1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_ascii\(\'\󠬩񲜍Ỗ1\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍O\x{0302}\x{0303}⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_ascii\(\'\󠬩񲜍O\\u0302\\u0303⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠬩񲜍Ỗ⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_ascii\(\'\󠬩񲜍Ỗ⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。ᡅ", %p)}, undef, "to_ascii\(\'\\u200D。ᡅ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3958\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}。ᡅ", %p)}, undef, "to_ascii\(\'\\u200D\。ᡅ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3960\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--47e", %p)}, "xn--47e", "to_ascii\(\'xn\-\-47e\'\)\ \[data\/IdnaTest\.txt\:3961\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡅ", %p)}, "xn--47e", "to_ascii\(\'ᡅ\'\)\ \[data\/IdnaTest\.txt\:3962\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("𑌀ꡫ.\x{07D8}", %p)}, undef, "to_ascii\(\'𑌀ꡫ\.\\u07D8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3963\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝆋\x{200C}-。󚇠ß", %p)}, undef, "to_ascii\(\'𝆋\\u200C\-\。󚇠ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3965\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝆋\x{200C}-。󚇠SS", %p)}, undef, "to_ascii\(\'𝆋\\u200C\-\。󚇠SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3967\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝆋\x{200C}-。󚇠ss", %p)}, undef, "to_ascii\(\'𝆋\\u200C\-\。󚇠ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3969\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝆋\x{200C}-。󚇠Ss", %p)}, undef, "to_ascii\(\'𝆋\\u200C\-\。󚇠Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3971\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ς🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200Cς🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3973\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}ς🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200Cς🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3975\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Σ🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200CΣ🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}σ🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200Cσ🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3979\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}Σ🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200CΣ🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}σ🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_ascii\(\'\\u200Cσ🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-.𐿙", %p)}, undef, "to_ascii\(\'\-\.𐿙\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񜲳\x{076D}.\x{0FA2}\x{0758}", %p)}, undef, "to_ascii\(\'񜲳\\u076D\.\\u0FA2\\u0758\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񜲳\x{076D}.\x{0FA1}\x{0FB7}\x{0758}", %p)}, undef, "to_ascii\(\'񜲳\\u076D\.\\u0FA1\\u0FB7\\u0758\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3986\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0FE6}ᠬ񃣈.𐫯", %p)}, undef, "to_ascii\(\'\\u0FE6ᠬ񃣈\.𐫯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3987\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2𭡦\x{077B}ß。\x{07DE}", %p)}, undef, "to_ascii\(\'2𭡦\\u077Bß\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3988\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2𭡦\x{077B}SS。\x{07DE}", %p)}, undef, "to_ascii\(\'2𭡦\\u077BSS\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2𭡦\x{077B}ss。\x{07DE}", %p)}, undef, "to_ascii\(\'2𭡦\\u077Bss\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2𭡦\x{077B}Ss。\x{07DE}", %p)}, undef, "to_ascii\(\'2𭡦\\u077BSs\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3993\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3995\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮\.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}ß-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338\.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3999\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338\.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮\.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮\.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4005\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338\.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338\.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮\.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4011\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4013\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}SS-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4015\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4017\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4019\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}<\x{0338}.\x{0639}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\<\\u0338.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㸳\x{06A6}≮.\x{0639}Ss-\x{200D}", %p)}, undef, "to_ascii\(\'㸳\\u06A6\≮.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4023\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-򍯄\x{0FA3}\x{081E}.\x{AAEC}-︒", %p)}, undef, "to_ascii\(\'\-򍯄\\u0FA3\\u081E\.\\uAAEC\-︒\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4024\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-򍯄\x{0FA3}\x{081E}.\x{AAEC}-。", %p)}, undef, "to_ascii\(\'\-򍯄\\u0FA3\\u081E\.\\uAAEC\-\。\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4025\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("︒.񴻫𝨖", %p)}, undef, "to_ascii\(\'︒\.񴻫𝨖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("。.񴻫𝨖", %p)}, undef, "to_ascii\(\'\。\.񴻫𝨖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠄻󠄙。\x{200C}⓾\x{200C}\x{074D}", %p)}, undef, "to_ascii\(\'\󠄻\󠄙\。\\u200C⓾\\u200C\\u074D\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:4029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞼸ᠷ\x{066B}。\x{08F4}\x{07E5}𝩞", %p)}, undef, "to_ascii\(\'𞼸ᠷ\\u066B。\\u08F4\\u07E5𝩞\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞼸ᠷ\x{066B}。\x{08F4}\x{07E5}𝩞", %p)}, undef, "to_ascii\(\'𞼸ᠷ\\u066B\。\\u08F4\\u07E5𝩞\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A69F}.-񛴭", %p)}, undef, "to_ascii\(\'\\uA69F\.\-񛴭\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:4032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠦠.赏", %p)}, undef, "to_ascii\(\'\󠦠.赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠦠.赏", %p)}, undef, "to_ascii\(\'\󠦠\.赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0630}。Ⴁ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0630。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4035\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07D1}\x{0630}。Ⴁ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0630\。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4036\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0630}。ⴁ", %p)}, "xn--vgb74f.xn--skj", "to_ascii\(\'\\u07D1\\u0630\。ⴁ\'\)\ \[data\/IdnaTest\.txt\:4037\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--vgb74f.xn--skj", %p)}, "xn--vgb74f.xn--skj", "to_ascii\(\'xn\-\-vgb74f\.xn\-\-skj\'\)\ \[data\/IdnaTest\.txt\:4038\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0630}.ⴁ", %p)}, "xn--vgb74f.xn--skj", "to_ascii\(\'\\u07D1\\u0630\.ⴁ\'\)\ \[data\/IdnaTest\.txt\:4039\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{07D1}\x{0630}.Ⴁ", %p)}, undef, "to_ascii\(\'\\u07D1\\u0630\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4040\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0630}。ⴁ", %p)}, "xn--vgb74f.xn--skj", "to_ascii\(\'\\u07D1\\u0630。ⴁ\'\)\ \[data\/IdnaTest\.txt\:4041\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}Ⴊᡨς。-", %p)}, undef, "to_ascii\(\'\\u0A01Ⴊᡨς。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0A01}Ⴊᡨς。-", %p)}, undef, "to_ascii\(\'\\u0A01Ⴊᡨς\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[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{0A01}ⴊᡨς。-", %p)}, undef, "to_ascii\(\'\\u0A01ⴊᡨς\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4044\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}ႪᡨΣ。-", %p)}, undef, "to_ascii\(\'\\u0A01ႪᡨΣ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4045\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0A01}ⴊᡨσ。-", %p)}, undef, "to_ascii\(\'\\u0A01ⴊᡨσ\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4046\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}Ⴊᡨσ。-", %p)}, undef, "to_ascii\(\'\\u0A01Ⴊᡨσ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4047\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0A01}ⴊᡨς。-", %p)}, undef, "to_ascii\(\'\\u0A01ⴊᡨς。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4048\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}ႪᡨΣ。-", %p)}, undef, "to_ascii\(\'\\u0A01ႪᡨΣ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4049\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0A01}ⴊᡨσ。-", %p)}, undef, "to_ascii\(\'\\u0A01ⴊᡨσ。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4050\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0A01}Ⴊᡨσ。-", %p)}, undef, "to_ascii\(\'\\u0A01Ⴊᡨσ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4051\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴍ.𦛀\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ.𦛀\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4053\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴍ.𦛀\x{200C}", %p)}, undef, "to_ascii\(\'Ⴍ\.𦛀\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4055\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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\:4057\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("xn--4kj.xn--2m2k", %p)}, "xn--4kj.xn--2m2k", "to_ascii\(\'xn\-\-4kj\.xn\-\-2m2k\'\)\ \[data\/IdnaTest\.txt\:4058\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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--4kj.xn--2m2k", "to_ascii\(\'ⴍ\.𦛀\'\)\ \[data\/IdnaTest\.txt\:4059\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴍ.𦛀", %p)}, undef, "to_ascii\(\'Ⴍ\.𦛀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4060\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴍ.𦛀\x{200C}", %p)}, undef, "to_ascii\(\'ⴍ.𦛀\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4062\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󈯇𐆔.\x{07E6}\x{1A60}󆫚𑓂", %p)}, undef, "to_ascii\(\'󈯇𐆔\.\\u07E6\\u1A60󆫚𑓂\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_ascii\(\'\≯\\u0F8F\\u06B5。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0F8F\\u06B5。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_ascii\(\'\≯\\u0F8F\\u06B5\。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_ascii\(\'\>\\u0338\\u0F8F\\u06B5\。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{FC34}\x{0666}。ႨꡍႯ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\uFC34\\u0666\。ႨꡍႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{0642}\x{0645}\x{0666}。ႨꡍႯ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\u0642\\u0645\\u0666\。ႨꡍႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{0642}\x{0645}\x{0666}。ⴈꡍⴏ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\u0642\\u0645\\u0666\。ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{0642}\x{0645}\x{0666}。Ⴈꡍⴏ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\u0642\\u0645\\u0666\。Ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{FC34}\x{0666}。ⴈꡍⴏ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\uFC34\\u0666\。ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򪗢\x{0601}\x{FC34}\x{0666}。Ⴈꡍⴏ", %p)}, undef, "to_ascii\(\'򪗢\\u0601\\uFC34\\u0666\。Ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐤺。𑖼", %p)}, undef, "to_ascii\(\'𐤺\。𑖼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4074\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𝟔𐹽.\x{AAEC}⎤9\x{075F}", %p)}, undef, "to_ascii\(\'𝟔𐹽.\\uAAEC\⎤9\\u075F\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4075\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("6𐹽.\x{AAEC}⎤9\x{075F}", %p)}, undef, "to_ascii\(\'6𐹽\.\\uAAEC\⎤9\\u075F\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4076\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐫐𐹾𞽂.𝩏", %p)}, undef, "to_ascii\(\'𐫐𐹾𞽂.𝩏\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4077\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫐𐹾𞽂.𝩏", %p)}, undef, "to_ascii\(\'𐫐𐹾𞽂\.𝩏\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4078\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("❫󥖿ᠠ.𞲻\x{200D}𞤙", %p)}, undef, "to_ascii\(\'\❫󥖿ᠠ.𞲻\\u200D𞤙\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("❫󥖿ᠠ.𞲻\x{200D}𞤙", %p)}, undef, "to_ascii\(\'\❫󥖿ᠠ\.𞲻\\u200D𞤙\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072E}󈐓\x{FBD4}-.≠𹔭\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u072E󈐓\\uFBD4\-.\≠𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4083\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072E}󈐓\x{FBD4}-.=\x{0338}𹔭\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u072E󈐓\\uFBD4\-.\=\\u0338𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072E}󈐓\x{06AD}-.≠𹔭\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u072E󈐓\\u06AD\-\.\≠𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4085\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{072E}󈐓\x{06AD}-.=\x{0338}𹔭\x{1BF3}", %p)}, undef, "to_ascii\(\'\\u072E󈐓\\u06AD\-\.\=\\u0338𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛.󗹙", %p)}, undef, "to_ascii\(\'𝟛.󗹙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4087\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3.󗹙", %p)}, undef, "to_ascii\(\'3\.󗹙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4088\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}.Ⴞ𐋷", %p)}, undef, "to_ascii\(\'\-\\u200D\.Ⴞ𐋷\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4090\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{200D}.ⴞ𐋷", %p)}, undef, "to_ascii\(\'\-\\u200D\.ⴞ𐋷\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:4092\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}ςß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dςß\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4094\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}ςß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dςß\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4096\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}ΣSS\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4098\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}σss\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dσss\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4100\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}Σss\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣss\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4102\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}Σß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣß\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4104\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}σß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dσß\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4106\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}ΣSS\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣSS\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4108\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}σss\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dσss\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4110\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}Σss\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣss\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4112\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}Σß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200DΣß\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4114\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}σß\x{A675}.𑘿", %p)}, undef, "to_ascii\(\'\\u200Dσß\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4116\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4118\]") 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\:4120\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠.\x{200D}", %p)}, undef, "to_ascii\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4122\]") 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\:4124\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐦽。\x{070F}\x{0643}󠳠򲯕", %p)}, undef, "to_ascii\(\'𐦽。\\u070F\\u0643\󠳠򲯕\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4125\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐦽。\x{070F}\x{0643}󠳠򲯕", %p)}, undef, "to_ascii\(\'𐦽\。\\u070F\\u0643\󠳠򲯕\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4126\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}ς.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dς.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4127\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}ς.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dς\.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4128\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.Σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ\.Σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4129\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}σ.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dσ\.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4130\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}σ.σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dσ\.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4131\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ\.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4132\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ\.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4133\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.Σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ.Σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4134\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}σ.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dσ.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4135\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}σ.σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4Dσ.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4136\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.σ\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4137\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󦨋\x{0B4D}Σ.ς\x{2D7F}", %p)}, undef, "to_ascii\(\'󦨋\\u0B4DΣ.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4138\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{FEFA}\x{0BCD}񣨧Ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3。\\uFEFA\\u0BCD񣨧Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4139\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0625}\x{0BCD}񣨧Ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0625\\u0BCD񣨧Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4140\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0627}\x{0BCD}\x{0655}񣨧Ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0627\\u0BCD\\u0655񣨧Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4141\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0627}\x{0BCD}\x{0655}񣨧ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0627\\u0BCD\\u0655񣨧ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4142\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0625}\x{0BCD}񣨧ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0625\\u0BCD񣨧ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4143\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0649}\x{0843}牅\x{20E3}。\x{FEFA}\x{0BCD}񣨧ⴙ", %p)}, undef, "to_ascii\(\'\\u0649\\u0843牅\\u20E3。\\uFEFA\\u0BCD񣨧ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4144\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EA0B}。륧", %p)}, undef, "to_ascii\(\'\\uEA0B。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4145\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EA0B}。륧", %p)}, undef, "to_ascii\(\'\\uEA0B。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4146\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EA0B}。륧", %p)}, undef, "to_ascii\(\'\\uEA0B\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4147\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{EA0B}。륧", %p)}, undef, "to_ascii\(\'\\uEA0B\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4148\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹱\x{200D}。򠊑", %p)}, undef, "to_ascii\(\'𐹱\\u200D\。򠊑\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4150\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴘꡁ𑚰。-", %p)}, undef, "to_ascii\(\'Ⴘꡁ𑚰。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4151\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴘꡁ𑚰。-", %p)}, undef, "to_ascii\(\'Ⴘꡁ𑚰\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4152\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ⴘꡁ𑚰。-", %p)}, undef, "to_ascii\(\'ⴘꡁ𑚰\。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4153\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("ⴘꡁ𑚰。-", %p)}, undef, "to_ascii\(\'ⴘꡁ𑚰。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4154\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1714}ꡊ₆\x{06B5}。󠢀𐶳", %p)}, undef, "to_ascii\(\'\\u1714ꡊ₆\\u06B5\。\󠢀𐶳\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4155\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1714}ꡊ6\x{06B5}。󠢀𐶳", %p)}, undef, "to_ascii\(\'\\u1714ꡊ6\\u06B5\。\󠢀𐶳\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4156\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򄘈.🂹ᡯ\x{0772}\x{072A}", %p)}, undef, "to_ascii\(\'򄘈\.🂹ᡯ\\u0772\\u072A\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4157\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{076F}񰱲。-ꡀ", %p)}, undef, "to_ascii\(\'\\u076F񰱲\。\-ꡀ\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4158\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_ascii\(\'ς\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4160\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_ascii\(\'ς\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4162\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_ascii\(\'Σ\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4164\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_ascii\(\'σ\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4166\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Σ\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_ascii\(\'Σ\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4168\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_ascii\(\'σ\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4170\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡤ󐿐.𐦞", %p)}, undef, "to_ascii\(\'ꡤ󐿐.𐦞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4171\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡤ󐿐.𐦞", %p)}, undef, "to_ascii\(\'ꡤ󐿐\.𐦞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4172\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}󿉛\x{1C32}。\x{200C}\x{0645}򱧗", %p)}, undef, "to_ascii\(\'\\uA9C0󿉛\\u1C32。\\u200C\\u0645򱧗\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4174\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A9C0}󿉛\x{1C32}。\x{200C}\x{0645}򱧗", %p)}, undef, "to_ascii\(\'\\uA9C0󿉛\\u1C32\。\\u200C\\u0645򱧗\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4176\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡘ\\u0E4C𾎮\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4178\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡘ\\u0E4C𾎮\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4180\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡘ\\u0E4C𾎮\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4182\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_ascii\(\'ᡘ\\u0E4C𾎮\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4184\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅬜。ᡖ", %p)}, undef, "to_ascii\(\'􅬜。ᡖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4185\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􅬜。ᡖ", %p)}, undef, "to_ascii\(\'􅬜\。ᡖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4186\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("嬃\x{009A}.\x{200D}\x{05AA}", %p)}, undef, "to_ascii\(\'嬃\\u009A.\\u200D\\u05AA\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4188\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("嬃\x{009A}.\x{200D}\x{05AA}", %p)}, undef, "to_ascii\(\'嬃\\u009A\.\\u200D\\u05AA\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4190\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹤󠱎≯.󣎔򅋾", %p)}, undef, "to_ascii\(\'𐹤\󠱎\≯.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4191\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹤󠱎>\x{0338}.󣎔򅋾", %p)}, undef, "to_ascii\(\'𐹤\󠱎\>\\u0338.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4192\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹤󠱎≯.󣎔򅋾", %p)}, undef, "to_ascii\(\'𐹤\󠱎\≯\.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4193\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹤󠱎>\x{0338}.󣎔򅋾", %p)}, undef, "to_ascii\(\'𐹤\󠱎\>\\u0338\.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4194\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񂩳\x{07D6}\x{0659}\x{1BAB}.𞶀", %p)}, undef, "to_ascii\(\'񂩳\\u07D6\\u0659\\u1BAB\.𞶀\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4195\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񂩳\x{07D6}\x{1BAB}\x{0659}.𞶀", %p)}, undef, "to_ascii\(\'񂩳\\u07D6\\u1BAB\\u0659\.𞶀\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4196\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.򴈶", %p)}, undef, "to_ascii\(\'\\u200C\.򴈶\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4198\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򠪓Ⴃ䠅.\x{FB65}", %p)}, undef, "to_ascii\(\'򠪓Ⴃ䠅.\\uFB65\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4199\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򠪓Ⴃ䠅.\x{067F}", %p)}, undef, "to_ascii\(\'򠪓Ⴃ䠅\.\\u067F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4200\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򠪓ⴃ䠅.\x{067F}", %p)}, undef, "to_ascii\(\'򠪓ⴃ䠅\.\\u067F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4201\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򠪓ⴃ䠅.\x{FB65}", %p)}, undef, "to_ascii\(\'򠪓ⴃ䠅.\\uFB65\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4202\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0741}\x{0662}𐹮𐮑。𝟨Ⴅ", %p)}, undef, "to_ascii\(\'\\u0741\\u0662𐹮𐮑。𝟨Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4203\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0741}\x{0662}𐹮𐮑。6Ⴅ", %p)}, undef, "to_ascii\(\'\\u0741\\u0662𐹮𐮑\。6Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4204\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0741}\x{0662}𐹮𐮑。6ⴅ", %p)}, undef, "to_ascii\(\'\\u0741\\u0662𐹮𐮑\。6ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4205\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{0741}\x{0662}𐹮𐮑。𝟨ⴅ", %p)}, undef, "to_ascii\(\'\\u0741\\u0662𐹮𐮑。𝟨ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4206\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-。︒", %p)}, undef, "to_ascii\(\'\-。︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4207\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。。", %p)}, undef, "to_ascii\(\'\-\。\。\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:4208\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊჀ。-⁵--", %p)}, undef, "to_ascii\(\'ꡊჀ。\-⁵\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:4209\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡊჀ。-5--", %p)}, undef, "to_ascii\(\'ꡊჀ\。\-5\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:4210\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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("ꡊⴠ。-5--", %p)}, undef, "to_ascii\(\'ꡊⴠ\。\-5\-\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:4211\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\ V2\ V3\ \[data\/IdnaTest\.txt\:4212\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≯\x{D8DD}󠍣。\x{066C}𐹣≯𞡾", %p)}, undef, "to_ascii\(\'\≯\\uD8DD\󠍣。\\u066C𐹣\≯𞡾\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4213\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}󠍣。\x{066C}𐹣>\x{0338}𞡾", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD\󠍣。\\u066C𐹣\>\\u0338𞡾\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4214\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯\x{D8DD}󠍣。\x{066C}𐹣≯𞡾", %p)}, undef, "to_ascii\(\'\≯\\uD8DD\󠍣\。\\u066C𐹣\≯𞡾\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4215\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}\x{D8DD}󠍣。\x{066C}𐹣>\x{0338}𞡾", %p)}, undef, "to_ascii\(\'\>\\u0338\\uD8DD\󠍣\。\\u066C𐹣\>\\u0338𞡾\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:4216\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㍔\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_ascii\(\'㍔\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4218\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ルーブル\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_ascii\(\'ルーブル\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4220\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ルーフ\x{3099}ル\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_ascii\(\'ルーフ\\u3099ル\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4222\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.F", %p)}, undef, "to_ascii\(\'\\u200D\.F\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4224\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("f", %p)}, "f", "to_ascii\(\'f\'\)\ \[data\/IdnaTest\.txt\:4225\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, undef, "to_ascii\(\'\\u200D㨲。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4227\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。ß", %p)}, undef, "to_ascii\(\'\\u200D㨲\。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4229\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, undef, "to_ascii\(\'\\u200D㨲\。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4231\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--9bm.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'xn\-\-9bm\.ss\'\)\ \[data\/IdnaTest\.txt\:4232\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("㨲.ss", %p)}, "xn--9bm.ss", "to_ascii\(\'㨲\.ss\'\)\ \[data\/IdnaTest\.txt\:4233\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}㨲。SS", %p)}, undef, "to_ascii\(\'\\u200D㨲。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4235\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹲ᠵ。ᡡ", %p)}, undef, "to_ascii\(\'𐹲ᠵ。ᡡ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4236\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹲ᠵ。ᡡ", %p)}, undef, "to_ascii\(\'𐹲ᠵ\。ᡡ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4237\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("⾑\x{06CC}\x{0646}。𐹻ᡘ", %p)}, undef, "to_ascii\(\'⾑\\u06CC\\u0646\。𐹻ᡘ\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4238\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("襾\x{06CC}\x{0646}。𐹻ᡘ", %p)}, undef, "to_ascii\(\'襾\\u06CC\\u0646\。𐹻ᡘ\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4239\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񞭓ς-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓ς\-𝍆。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4240\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓ς-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓ς\-𝍆\。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4241\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓Σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓Σ\-𝍆\。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4242\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓σ\-𝍆\。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4243\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓Σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓Σ\-𝍆。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4244\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񞭓σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_ascii\(\'񞭓σ\-𝍆。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4245\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.󅘺", %p)}, undef, "to_ascii\(\'\\u200D.󅘺\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4247\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}.󅘺", %p)}, undef, "to_ascii\(\'\\u200D\.󅘺\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4249\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲻩\x{EC0E}。≠𝟲", %p)}, undef, "to_ascii\(\'𲻩\\uEC0E。\≠𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4250\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲻩\x{EC0E}。=\x{0338}𝟲", %p)}, undef, "to_ascii\(\'𲻩\\uEC0E。\=\\u0338𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4251\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲻩\x{EC0E}。≠6", %p)}, undef, "to_ascii\(\'𲻩\\uEC0E\。\≠6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4252\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲻩\x{EC0E}。=\x{0338}6", %p)}, undef, "to_ascii\(\'𲻩\\uEC0E\。\=\\u03386\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4253\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0F8F}ᠯ\x{200D}.\x{088C}", %p)}, undef, "to_ascii\(\'\\u0F8Fᠯ\\u200D\.\\u088C\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4255\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FE}ꡔ𞨰\x{0B4D}.󣢅", %p)}, undef, "to_ascii\(\'\\u08FEꡔ𞨰\\u0B4D.󣢅\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4256\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FE}ꡔ𞨰\x{0B4D}.󣢅", %p)}, undef, "to_ascii\(\'\\u08FEꡔ𞨰\\u0B4D\.󣢅\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4257\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0848}。\x{302C}\x{200C}≯🌐", %p)}, undef, "to_ascii\(\'\\u0848\。\\u302C\\u200C\≯🌐\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4259\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0848}。\x{302C}\x{200C}>\x{0338}🌐", %p)}, undef, "to_ascii\(\'\\u0848\。\\u302C\\u200C\>\\u0338🌐\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4261\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨪𝟕.\x{063A}󯏭Ⴉ", %p)}, undef, "to_ascii\(\'𝨪𝟕\.\\u063A󯏭Ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4262\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨪7.\x{063A}󯏭Ⴉ", %p)}, undef, "to_ascii\(\'𝨪7\.\\u063A󯏭Ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4263\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨪7.\x{063A}󯏭ⴉ", %p)}, undef, "to_ascii\(\'𝨪7\.\\u063A󯏭ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4264\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝨪𝟕.\x{063A}󯏭ⴉ", %p)}, undef, "to_ascii\(\'𝨪𝟕\.\\u063A󯏭ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4265\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("閃9\x{0F77}。Ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_ascii\(\'閃9\\u0F77\。Ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4266\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("閃9\x{0FB2}\x{0F71}\x{0F80}。Ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_ascii\(\'閃9\\u0FB2\\u0F71\\u0F80\。Ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4267\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("閃9\x{0FB2}\x{0F71}\x{0F80}。ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_ascii\(\'閃9\\u0FB2\\u0F71\\u0F80\。ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4268\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("閃9\x{0F77}。ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_ascii\(\'閃9\\u0F77\。ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4269\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1734}\x{06A9}𑄴2.𐋢\x{AA2E}\x{0F18}︒", %p)}, undef, "to_ascii\(\'\\u1734\\u06A9𑄴2\.𐋢\\uAA2E\\u0F18︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4270\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{1734}\x{06A9}𑄴2.𐋢\x{AA2E}\x{0F18}。", %p)}, undef, "to_ascii\(\'\\u1734\\u06A9𑄴2\.𐋢\\uAA2E\\u0F18\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4271\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𱛛。≠-󠬇⾛", %p)}, undef, "to_ascii\(\'𱛛。\≠\-\󠬇⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4272\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱛛。=\x{0338}-󠬇⾛", %p)}, undef, "to_ascii\(\'𱛛。\=\\u0338\-\󠬇⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4273\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱛛。≠-󠬇走", %p)}, undef, "to_ascii\(\'𱛛\。\≠\-\󠬇走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4274\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𱛛。=\x{0338}-󠬇走", %p)}, undef, "to_ascii\(\'𱛛\。\=\\u0338\-\󠬇走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4275\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ𐹵Ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'ᡊ𐹵Ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4276\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ𐹵Ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'ᡊ𐹵Ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4277\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ𐹵ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_ascii\(\'ᡊ𐹵ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4278\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ𐹵ⴊ。-≠\x{1160}", %p)}, undef, "to_ascii\(\'ᡊ𐹵ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4279\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐥳𐹶𝟒≯。\x{200C}", %p)}, undef, "to_ascii\(\'𐥳𐹶𝟒\≯。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4281\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐥳𐹶𝟒>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'𐥳𐹶𝟒\>\\u0338。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4283\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐥳𐹶4≯。\x{200C}", %p)}, undef, "to_ascii\(\'𐥳𐹶4\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4285\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐥳𐹶4>\x{0338}。\x{200C}", %p)}, undef, "to_ascii\(\'𐥳𐹶4\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4287\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟎。甯", %p)}, "0.xn--qny", "to_ascii\(\'𝟎\。甯\'\)\ \[data\/IdnaTest\.txt\:4288\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0。甯", %p)}, "0.xn--qny", "to_ascii\(\'0\。甯\'\)\ \[data\/IdnaTest\.txt\:4289\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.xn--qny", %p)}, "0.xn--qny", "to_ascii\(\'0\.xn\-\-qny\'\)\ \[data\/IdnaTest\.txt\:4290\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("0.甯", %p)}, "0.xn--qny", "to_ascii\(\'0\.甯\'\)\ \[data\/IdnaTest\.txt\:4291\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A953}", %p)}, undef, "to_ascii\(\'\-⾆.\\uA953\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4292\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A953}", %p)}, undef, "to_ascii\(\'\-舌\.\\uA953\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4293\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-。\x{06BB}", %p)}, undef, "to_ascii\(\'\-。\\u06BB\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4294\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-。\x{06BB}", %p)}, undef, "to_ascii\(\'\-\。\\u06BB\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4295\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⧴Ⴋ.≮", %p)}, undef, "to_ascii\(\'\⧴Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4296\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⧴Ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'\⧴Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4297\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⧴ⴋ.<\x{0338}", %p)}, undef, "to_ascii\(\'\⧴ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4298\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⧴ⴋ.≮", %p)}, undef, "to_ascii\(\'\⧴ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4299\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}\x{0345}", %p)}, undef, "to_ascii\(\'璼\󠋇。\\u200C\\u0345\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4301\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}\x{0345}", %p)}, undef, "to_ascii\(\'璼\󠋇\。\\u200C\\u0345\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4303\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}Ι", %p)}, undef, "to_ascii\(\'璼\󠋇\。\\u200CΙ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4305\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}ι", %p)}, undef, "to_ascii\(\'璼\󠋇\。\\u200Cι\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4307\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}Ι", %p)}, undef, "to_ascii\(\'璼\󠋇。\\u200CΙ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4309\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("璼󠋇。\x{200C}ι", %p)}, undef, "to_ascii\(\'璼\󠋇。\\u200Cι\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4311\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹥8󶁡。-5\x{030A}", %p)}, undef, "to_ascii\(\'𐹥8󶁡。\-5\\u030A\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4312\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹥8󶁡。-5\x{030A}", %p)}, undef, "to_ascii\(\'𐹥8󶁡\。\-5\\u030A\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4313\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{200C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4315\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4317\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4319\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--pc9a", %p)}, "xn--157b.xn--pc9a", "to_ascii\(\'xn\-\-157b\.xn\-\-pc9a\'\)\ \[data\/IdnaTest\.txt\:4320\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--pc9a", "to_ascii\(\'튛\.ꡐ\'\)\ \[data\/IdnaTest\.txt\:4321\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--pc9a", "to_ascii\(\'튛\.ꡐ\'\)\ \[data\/IdnaTest\.txt\:4322\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ꡀ𐹥𞯍.ᡟⴞ", %p)}, undef, "to_ascii\(\'ꡀ𐹥𞯍\.ᡟⴞ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4323\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡀ𐹥𞯍.ᡟႾ", %p)}, undef, "to_ascii\(\'ꡀ𐹥𞯍\.ᡟႾ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4324\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞹰𐹦\x{2DE7}𝟧.\x{0662}\x{0663}Ⴇ", %p)}, undef, "to_ascii\(\'𞹰𐹦\\u2DE7𝟧.\\u0662\\u0663Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4325\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0641}𐹦\x{2DE7}5.\x{0662}\x{0663}Ⴇ", %p)}, undef, "to_ascii\(\'\\u0641𐹦\\u2DE75\.\\u0662\\u0663Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4326\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{0641}𐹦\x{2DE7}5.\x{0662}\x{0663}ⴇ", %p)}, undef, "to_ascii\(\'\\u0641𐹦\\u2DE75\.\\u0662\\u0663ⴇ\'\)\ throws\ error\ B4\ B1\ \[data\/IdnaTest\.txt\:4327\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𞹰𐹦\x{2DE7}𝟧.\x{0662}\x{0663}ⴇ", %p)}, undef, "to_ascii\(\'𞹰𐹦\\u2DE7𝟧.\\u0662\\u0663ⴇ\'\)\ throws\ error\ B4\ B1\ \[data\/IdnaTest\.txt\:4328\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_ascii\(\'Ⴗ.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4329\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_ascii\(\'Ⴗ\.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4330\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_ascii\(\'ⴗ\.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4331\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_ascii\(\'ⴗ.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4332\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟾򱚉.򱗯𐹮", %p)}, undef, "to_ascii\(\'𝟾򱚉.򱗯𐹮\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4333\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8򱚉.򱗯𐹮", %p)}, undef, "to_ascii\(\'8򱚉\.򱗯𐹮\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4334\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈酫︒。𝨂", %p)}, undef, "to_ascii\(\'⒈酫︒\。𝨂\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4335\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("1.酫。。𝨂", %p)}, undef, "to_ascii\(\'1\.酫\。\。𝨂\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:4336\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝩑\x{200C}≮𝩆.\x{200C}𑄴", %p)}, undef, "to_ascii\(\'𝩑\\u200C\≮𝩆\.\\u200C𑄴\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4338\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝩑\x{200C}<\x{0338}𝩆.\x{200C}𑄴", %p)}, undef, "to_ascii\(\'𝩑\\u200C\<\\u0338𝩆\.\\u200C𑄴\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4340\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。ႷႽ¹\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。ႷႽ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4342\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。ႷႽ1\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。ႷႽ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4344\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。ⴗⴝ1\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4346\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。Ⴗⴝ1\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。Ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4348\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。ⴗⴝ¹\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4350\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞫀。Ⴗⴝ¹\x{200D}", %p)}, undef, "to_ascii\(\'𞫀\。Ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4352\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{1734}\x{1BF2}2.𐩬󠆅-", %p)}, undef, "to_ascii\(\'\\u1734\\u1BF22\.𐩬\󠆅\-\'\)\ throws\ error\ V5\ V3\ B3\ \[data\/IdnaTest\.txt\:4353\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠭮򔘮\x{0663}。𼈛𑄳\x{07D1}ꡠ", %p)}, undef, "to_ascii\(\'\󠭮򔘮\\u0663。𼈛𑄳\\u07D1ꡠ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:4354\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠭮򔘮\x{0663}。𼈛𑄳\x{07D1}ꡠ", %p)}, undef, "to_ascii\(\'\󠭮򔘮\\u0663\。𼈛𑄳\\u07D1ꡠ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:4355\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。ςᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41。ςᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4357\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。ςᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41\。ςᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4359\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。Σᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41\。Σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4361\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。σᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41\。σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4363\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。Σᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41。Σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4365\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡷ񷗓\x{0660}\x{0A41}。σᠵ\x{0748}\x{200C}", %p)}, undef, "to_ascii\(\'ᡷ񷗓\\u0660\\u0A41。σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4367\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}--≮。𐹯", %p)}, undef, "to_ascii\(\'\\u200D\-\-\≮\。𐹯\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4369\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}--<\x{0338}。𐹯", %p)}, undef, "to_ascii\(\'\\u200D\-\-\<\\u0338\。𐹯\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4371\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑓂。𶕹\x{FE2E}⒕", %p)}, undef, "to_ascii\(\'𑓂\。𶕹\\uFE2E⒕\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4372\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑓂。𶕹\x{FE2E}14.", %p)}, undef, "to_ascii\(\'𑓂\。𶕹\\uFE2E14\.\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4373\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򍑒\x{0765}.\x{1AB3}\x{0666}", %p)}, undef, "to_ascii\(\'򍑒\\u0765.\\u1AB3\\u0666\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4374\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򍑒\x{0765}.\x{1AB3}\x{0666}", %p)}, undef, "to_ascii\(\'򍑒\\u0765\.\\u1AB3\\u0666\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4375\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("󠅆𐮅-。ᢉ", %p)}, undef, "to_ascii\(\'\󠅆𐮅\-\。ᢉ\'\)\ throws\ error\ V3\ B3\ \[data\/IdnaTest\.txt\:4376\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𝟠4󠅊⥄.\x{200D}𐋵\x{06E0}\x{200D}", %p)}, undef, "to_ascii\(\'𝟠4\󠅊\⥄.\\u200D𐋵\\u06E0\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4378\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("84󠅊⥄.\x{200D}𐋵\x{06E0}\x{200D}", %p)}, undef, "to_ascii\(\'84\󠅊\⥄\.\\u200D𐋵\\u06E0\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4380\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--84-utz.xn--wlb9710k", %p)}, "xn--84-utz.xn--wlb9710k", "to_ascii\(\'xn\-\-84\-utz\.xn\-\-wlb9710k\'\)\ \[data\/IdnaTest\.txt\:4381\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("84⥄.𐋵\x{06E0}", %p)}, "xn--84-utz.xn--wlb9710k", "to_ascii\(\'84\⥄\.𐋵\\u06E0\'\)\ \[data\/IdnaTest\.txt\:4382\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{0660}。𐮁", %p)}, undef, "to_ascii\(\'\-\\u0660。𐮁\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4383\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-\x{0660}。𐮁", %p)}, undef, "to_ascii\(\'\-\\u0660\。𐮁\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4384\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("≮𝟕.謖ß≯", %p)}, undef, "to_ascii\(\'\≮𝟕.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4385\]") 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\:4386\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮7.謖ß≯", %p)}, undef, "to_ascii\(\'\≮7\.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4387\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}7.謖ß>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4388\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}7.謖SS>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4389\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮7.謖SS≯", %p)}, undef, "to_ascii\(\'\≮7\.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4390\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮7.謖ss≯", %p)}, undef, "to_ascii\(\'\≮7\.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4391\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}7.謖ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4392\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}7.謖Ss>\x{0338}", %p)}, undef, "to_ascii\(\'\<\\u03387\.謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4393\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮7.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮7\.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4394\]") 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\:4395\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟕.謖SS≯", %p)}, undef, "to_ascii\(\'\≮𝟕.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4396\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟕.謖ss≯", %p)}, undef, "to_ascii\(\'\≮𝟕.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4397\]") 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\:4398\]") 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\:4399\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𝟕.謖Ss≯", %p)}, undef, "to_ascii\(\'\≮𝟕.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4400\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶Ⴉ𐣶.\x{FE0F}\x{1BA2}🞚-", %p)}, undef, "to_ascii\(\'朶Ⴉ𐣶\.\\uFE0F\\u1BA2🞚\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4401\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("朶ⴉ𐣶.\x{FE0F}\x{1BA2}🞚-", %p)}, undef, "to_ascii\(\'朶ⴉ𐣶\.\\uFE0F\\u1BA2🞚\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4402\]") 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\:4404\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𞶐。󪅒\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_ascii\(\'𞶐\。󪅒\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4406\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򨰆⒈。\x{200C}𝟤", %p)}, undef, "to_ascii\(\'򨰆⒈。\\u200C𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4408\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򨰆1.。\x{200C}2", %p)}, undef, "to_ascii\(\'򨰆1\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:4410\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠚄\x{0661}\x{200D}.𐹦񭳐\x{0604}", %p)}, undef, "to_ascii\(\'\󠚄\\u0661\\u200D.𐹦񭳐\\u0604\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4412\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠚄\x{0661}\x{200D}.𐹦񭳐\x{0604}", %p)}, undef, "to_ascii\(\'\󠚄\\u0661\\u200D\.𐹦񭳐\\u0604\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4414\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0760}\x{0662}\x{0A4D}𐪑.\x{094D}󠆠󨚹", %p)}, undef, "to_ascii\(\'\\u0760\\u0662\\u0A4D𐪑.\\u094D\󠆠󨚹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4415\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0760}\x{0662}\x{0A4D}𐪑.\x{094D}󠆠󨚹", %p)}, undef, "to_ascii\(\'\\u0760\\u0662\\u0A4D𐪑\.\\u094D\󠆠󨚹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4416\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0669}。𐹥\x{0662}񔂚", %p)}, undef, "to_ascii\(\'\\u0669。𐹥\\u0662񔂚\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4417\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0669}。𐹥\x{0662}񔂚", %p)}, undef, "to_ascii\(\'\\u0669\。𐹥\\u0662񔂚\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4418\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1160}󠊾.8󃜔\x{06FA}", %p)}, undef, "to_ascii\(\'\\u1160\󠊾\.8󃜔\\u06FA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4419\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。ß\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37。ß\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4421\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。ß\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37\。ß\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4423\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。SS\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37\。SS\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4425\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。ss\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37\。ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4427\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。Ss\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37\。Ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4429\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。SS\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37。SS\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4431\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。ss\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37。ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4433\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_ascii("\x{200D}\x{200C}\x{1C37}。Ss\x{A671}", %p)}, undef, "to_ascii\(\'\\u200D\\u200C\\u1C37。Ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4435\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒\x{200C}ヶ䒩.\x{076A}", %p)}, undef, "to_ascii\(\'︒\\u200Cヶ䒩\.\\u076A\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4437\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{076A}", %p)}, undef, "to_ascii\(\'\。\\u200Cヶ䒩\.\\u076A\'\)\ throws\ error\ C1\ \[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("xn--qekw60d.xn--upb", %p)}, "xn--qekw60d.xn--upb", "to_ascii\(\'xn\-\-qekw60d\.xn\-\-upb\'\)\ \[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{076A}", %p)}, "xn--qekw60d.xn--upb", "to_ascii\(\'ヶ䒩\.\\u076A\'\)\ \[data\/IdnaTest\.txt\:4441\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}⒈󣡃.񈸴\x{A9C0}", %p)}, undef, "to_ascii\(\'\\u200C⒈󣡃\.񈸴\\uA9C0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4443\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}1.󣡃.񈸴\x{A9C0}", %p)}, undef, "to_ascii\(\'\\u200C1\.󣡃\.񈸴\\uA9C0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4445\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈\x{200C}ᢍ🃑。\x{0CCD}򏔌\x{200D}", %p)}, undef, "to_ascii\(\'⒈\\u200Cᢍ🃑\。\\u0CCD򏔌\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ C2\ \[data\/IdnaTest\.txt\:4447\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.\x{200C}ᢍ🃑。\x{0CCD}򏔌\x{200D}", %p)}, undef, "to_ascii\(\'1\.\\u200Cᢍ🃑\。\\u0CCD򏔌\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4449\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{035E}。𝟫\x{1B72}䬺⒈", %p)}, undef, "to_ascii\(\'\\u035E。𝟫\\u1B72䬺⒈\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4450\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_ascii("\x{035E}。9\x{1B72}䬺1.", %p)}, undef, "to_ascii\(\'\\u035E\。9\\u1B72䬺1\.\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4451\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𲈷≯。盚ꡨ", %p)}, undef, "to_ascii\(\'𲈷\≯\。盚ꡨ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4452\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𲈷>\x{0338}。盚ꡨ", %p)}, undef, "to_ascii\(\'𲈷\>\\u0338\。盚ꡨ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4453\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񃟯󠄯。-𑚲𐫳≯", %p)}, undef, "to_ascii\(\'\-񃟯\󠄯\。\-𑚲𐫳\≯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4454\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񃟯󠄯。-𑚲𐫳>\x{0338}", %p)}, undef, "to_ascii\(\'\-񃟯\󠄯\。\-𑚲𐫳\>\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4455\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󲓝\x{1BF3}\x{200C}\x{09CD}.\x{FD59}񄳨", %p)}, undef, "to_ascii\(\'󲓝\\u1BF3\\u200C\\u09CD.\\uFD59񄳨\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4456\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󲓝\x{1BF3}\x{200C}\x{09CD}.\x{062C}\x{0645}\x{062D}񄳨", %p)}, undef, "to_ascii\(\'󲓝\\u1BF3\\u200C\\u09CD\.\\u062C\\u0645\\u062D񄳨\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4457\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("⾇.𐫍ᢊᢐ\x{200D}", %p)}, undef, "to_ascii\(\'⾇\.𐫍ᢊᢐ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4459\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("舛.𐫍ᢊᢐ\x{200D}", %p)}, undef, "to_ascii\(\'舛\.𐫍ᢊᢐ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4461\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("4񠡉。ᡔ≯", %p)}, undef, "to_ascii\(\'4񠡉\。ᡔ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4462\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4񠡉。ᡔ>\x{0338}", %p)}, undef, "to_ascii\(\'4񠡉\。ᡔ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4463\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕔢\x{0625}򃁪硲.\x{0688}", %p)}, undef, "to_ascii\(\'󕔢\\u0625򃁪硲.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4464\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕔢\x{0627}\x{0655}򃁪硲.\x{0688}", %p)}, undef, "to_ascii\(\'󕔢\\u0627\\u0655򃁪硲.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4465\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕔢\x{0625}򃁪硲.\x{0688}", %p)}, undef, "to_ascii\(\'󕔢\\u0625򃁪硲\.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4466\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕔢\x{0627}\x{0655}򃁪硲.\x{0688}", %p)}, undef, "to_ascii\(\'󕔢\\u0627\\u0655򃁪硲\.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4467\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}.\x{1A78}𐹴Ⴆ\x{032C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\u1A78𐹴Ⴆ\\u032C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4469\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{1A78}𐹴ⴆ\x{032C}", %p)}, undef, "to_ascii\(\'\\u200C\.\\u1A78𐹴ⴆ\\u032C\'\)\ throws\ error\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:4471\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫁.\x{0C4D}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'𐫁.\\u0C4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4472\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫁.\x{0C4D}\x{200D}Ϟ", %p)}, undef, "to_ascii\(\'𐫁\.\\u0C4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4473\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫁.\x{0C4D}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'𐫁\.\\u0C4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4474\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐫁.\x{0C4D}\x{200D}ϟ", %p)}, undef, "to_ascii\(\'𐫁.\\u0C4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4475\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{FD8E}𑁆。\x{0724}ꡜ-腍", %p)}, undef, "to_ascii\(\'\\u200C\\uFD8E𑁆\。\\u0724ꡜ\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4477\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0645}\x{062E}\x{062C}𑁆。\x{0724}ꡜ-腍", %p)}, undef, "to_ascii\(\'\\u200C\\u0645\\u062E\\u062C𑁆\。\\u0724ꡜ\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4479\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-򤨓𐹮󰫾。𝟛񔡰🄅", %p)}, undef, "to_ascii\(\'\-򤨓𐹮󰫾。𝟛񔡰🄅\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4480\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-򤨓𐹮󰫾。3񔡰4,", %p)}, undef, "to_ascii\(\'\-򤨓𐹮󰫾\。3񔡰4\,\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4481\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⌮.Ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_ascii\(\'\⌮.Ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4482\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⌮.Ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_ascii\(\'\⌮\.Ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4483\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("⌮.ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_ascii\(\'\⌮\.ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4484\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("⌮.ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_ascii\(\'\⌮.ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4485\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("軥𐫬.-\x{0AC4}", %p)}, undef, "to_ascii\(\'軥𐫬\.\-\\u0AC4\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4486\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0602}ᡈ\x{06B6}.󠅕-", %p)}, undef, "to_ascii\(\'\\u0602ᡈ\\u06B6\.\󠅕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4487\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{2DE5}\x{1939}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0。\\u2DE5\\u1939톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4488\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4489\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4490\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0\。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4491\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_ascii\(\'\-𝨉0\。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4492\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᢖ︒--。󠅥靈\x{0604}𖪥", %p)}, undef, "to_ascii\(\'ᢖ︒\-\-。\󠅥靈\\u0604𖪥\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4493\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᢖ。--。󠅥靈\x{0604}𖪥", %p)}, undef, "to_ascii\(\'ᢖ\。\-\-\。\󠅥靈\\u0604𖪥\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4494\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4495\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ႿႵრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115FႿႵრ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4496\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4497\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4498\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}ⴟⴕრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115Fⴟⴕრ。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4499\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{115F}Ⴟⴕრ。\x{0F84}", %p)}, undef, "to_ascii\(\'\\u115FႿⴕრ。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4500\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🄃𐹣.𐹦\x{0AE2}", %p)}, undef, "to_ascii\(\'🄃𐹣\.𐹦\\u0AE2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4501\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("2,𐹣.𐹦\x{0AE2}", %p)}, undef, "to_ascii\(\'2\,𐹣\.𐹦\\u0AE2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4502\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑴤\x{200C}𞶿.\x{069F}ꡃ𑋪", %p)}, undef, "to_ascii\(\'𑴤\\u200C𞶿.\\u069Fꡃ𑋪\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4504\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑴤\x{200C}𞶿.\x{069F}ꡃ𑋪", %p)}, undef, "to_ascii\(\'𑴤\\u200C𞶿\.\\u069Fꡃ𑋪\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4506\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}𐿵\x{200C}。\x{06CD}\x{0A3C}\x{17B5}", %p)}, undef, "to_ascii\(\'\\u200D\\u200D𐿵\\u200C\。\\u06CD\\u0A3C\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:4508\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐢒。󠋴𓟷\x{0BCD}", %p)}, undef, "to_ascii\(\'𐢒\。\󠋴𓟷\\u0BCD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4509\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}≠.𞷺𐹶", %p)}, undef, "to_ascii\(\'\\u0B4D\≠.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4510\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}=\x{0338}.𞷺𐹶", %p)}, undef, "to_ascii\(\'\\u0B4D\=\\u0338.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4511\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}≠.𞷺𐹶", %p)}, undef, "to_ascii\(\'\\u0B4D\≠\.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4512\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0B4D}=\x{0338}.𞷺𐹶", %p)}, undef, "to_ascii\(\'\\u0B4D\=\\u0338\.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4513\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛\x{0F87}\x{1714}。\x{0B82}-", %p)}, undef, "to_ascii\(\'𝟛\\u0F87\\u1714。\\u0B82\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4514\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟛\x{1714}\x{0F87}。\x{0B82}-", %p)}, undef, "to_ascii\(\'𝟛\\u1714\\u0F87。\\u0B82\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4515\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("3\x{1714}\x{0F87}。\x{0B82}-", %p)}, undef, "to_ascii\(\'3\\u1714\\u0F87\。\\u0B82\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4516\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᠫ𝪦𑍍Ⴇ.4", %p)}, undef, "to_ascii\(\'ᠫ𝪦𑍍Ⴇ\.4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4517\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("ᠫ𝪦𑍍ⴇ.4", %p)}, "xn--e7e497h3m2olwqg.4", "to_ascii\(\'ᠫ𝪦𑍍ⴇ\.4\'\)\ \[data\/IdnaTest\.txt\:4518\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("xn--e7e497h3m2olwqg.4", %p)}, "xn--e7e497h3m2olwqg.4", "to_ascii\(\'xn\-\-e7e497h3m2olwqg\.4\'\)\ \[data\/IdnaTest\.txt\:4519\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ᄹ。󠇣󖮆‴", %p)}, undef, "to_ascii\(\'ᄹ。\󠇣󖮆\‴\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4520\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᄹ。󠇣󖮆′′′", %p)}, undef, "to_ascii\(\'ᄹ\。\󠇣󖮆\′\′\′\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4521\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ򏌭.\x{302C}\x{2DF2}\x{068D}", %p)}, undef, "to_ascii\(\'Ⴆ򏌭.\\u302C\\u2DF2\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4522\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_ascii\(\'Ⴆ򏌭.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4523\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_ascii\(\'Ⴆ򏌭\.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4524\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_ascii\(\'ⴆ򏌭\.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4525\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_ascii\(\'ⴆ򏌭.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4526\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴆ򏌭.\x{302C}\x{2DF2}\x{068D}", %p)}, undef, "to_ascii\(\'ⴆ򏌭.\\u302C\\u2DF2\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4527\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'ß𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4529\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'ß𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4531\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß𐥙。𐫃.帼f🠖\x{200C}", %p)}, undef, "to_ascii\(\'ß𐥙\。𐫃\.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4533\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'SS𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4535\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss𐥙。𐫃.帼f🠖\x{200C}", %p)}, undef, "to_ascii\(\'ss𐥙\。𐫃\.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4537\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'Ss𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4539\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß𐥙︒𐫃.帼f🠖\x{200C}", %p)}, undef, "to_ascii\(\'ß𐥙︒𐫃.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4541\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'SS𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4543\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss𐥙︒𐫃.帼f🠖\x{200C}", %p)}, undef, "to_ascii\(\'ss𐥙︒𐫃.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4545\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_ascii\(\'Ss𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4547\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򽌣。𐹾\x{06A6}\x{200D}", %p)}, undef, "to_ascii\(\'򽌣。𐹾\\u06A6\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4549\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򽌣。𐹾\x{06A6}\x{200D}", %p)}, undef, "to_ascii\(\'򽌣\。𐹾\\u06A6\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4551\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🡉.񾕀𝟨𐨿", %p)}, undef, "to_ascii\(\'🡉\.񾕀𝟨𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4552\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("🡉.񾕀6𐨿", %p)}, undef, "to_ascii\(\'🡉\.񾕀6𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4553\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0350}𐸌。-۹ႱႨ", %p)}, undef, "to_ascii\(\'\\u0350𐸌\。\-۹ႱႨ\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4554\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0350}𐸌。-۹ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u0350𐸌\。\-۹ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4555\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0350}𐸌。-۹Ⴑⴈ", %p)}, undef, "to_ascii\(\'\\u0350𐸌\。\-۹Ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4556\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07CE}.-ᢏ︒", %p)}, undef, "to_ascii\(\'\\u07CE.\-ᢏ︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4557\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07CE}.-ᢏ。", %p)}, undef, "to_ascii\(\'\\u07CE\.\-ᢏ\。\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4558\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200C}𐪙.󠆺--", %p)}, undef, "to_ascii\(\'\\u200C𐪙\.\󠆺\-\-\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4560\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐋸󃄒Ⴢ.Ⴁ", %p)}, undef, "to_ascii\(\'𐋸󃄒Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4561\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋸󃄒ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'𐋸󃄒ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4562\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐋸󃄒Ⴢ.ⴁ", %p)}, undef, "to_ascii\(\'𐋸󃄒Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4563\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆₄򣚆。󾎹🐶ς", %p)}, undef, "to_ascii\(\'􉿵𑁆₄򣚆。󾎹🐶ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4564\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆4򣚆。󾎹🐶ς", %p)}, undef, "to_ascii\(\'􉿵𑁆4򣚆\。󾎹🐶ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4565\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆4򣚆。󾎹🐶Σ", %p)}, undef, "to_ascii\(\'􉿵𑁆4򣚆\。󾎹🐶Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4566\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆4򣚆。󾎹🐶σ", %p)}, undef, "to_ascii\(\'􉿵𑁆4򣚆\。󾎹🐶σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4567\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆₄򣚆。󾎹🐶Σ", %p)}, undef, "to_ascii\(\'􉿵𑁆₄򣚆。󾎹🐶Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4568\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("􉿵𑁆₄򣚆。󾎹🐶σ", %p)}, undef, "to_ascii\(\'􉿵𑁆₄򣚆。󾎹🐶σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4569\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0E39}\x{07CC}。\x{1037}ꡓ", %p)}, undef, "to_ascii\(\'\\u0E39\\u07CC\。\\u1037ꡓ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4570\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0603}\x{062B}𑂁。󦳹Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\u0603\\u062B𑂁。󦳹Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4572\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{062B}𑂁。󦳹Ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\u0603\\u062B𑂁\。󦳹Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4574\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{062B}𑂁。󦳹ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\u0603\\u062B𑂁\。󦳹ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4576\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0603}\x{062B}𑂁。󦳹ⴑ\x{200D}", %p)}, undef, "to_ascii\(\'\\u0603\\u062B𑂁。󦳹ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4578\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0ACD}\x{FC5A}𑀾\x{200D}。-𐹥", %p)}, undef, "to_ascii\(\'\\u0ACD\\uFC5A𑀾\\u200D。\-𐹥\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4580\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0ACD}\x{064A}\x{064A}𑀾\x{200D}。-𐹥", %p)}, undef, "to_ascii\(\'\\u0ACD\\u064A\\u064A𑀾\\u200D\。\-𐹥\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4582\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("񆥔。\x{0855}︒쯙𝟧", %p)}, undef, "to_ascii\(\'񆥔。\\u0855︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4583\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆥔。\x{0855}︒쯙𝟧", %p)}, undef, "to_ascii\(\'񆥔。\\u0855︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4584\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆥔。\x{0855}。쯙5", %p)}, undef, "to_ascii\(\'񆥔\。\\u0855\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4585\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆥔。\x{0855}。쯙5", %p)}, undef, "to_ascii\(\'񆥔\。\\u0855\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4586\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡮ-。ᡴ≮뻐", %p)}, undef, "to_ascii\(\'ꡮ\-\。ᡴ\≮뻐\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4587\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ꡮ-。ᡴ<\x{0338}뻐", %p)}, undef, "to_ascii\(\'ꡮ\-\。ᡴ\<\\u0338뻐\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4588\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱙-񈞻.\x{07E1}≠", %p)}, undef, "to_ascii\(\'𐱙\-񈞻.\\u07E1\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4589\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱙-񈞻.\x{07E1}=\x{0338}", %p)}, undef, "to_ascii\(\'𐱙\-񈞻.\\u07E1\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4590\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱙-񈞻.\x{07E1}≠", %p)}, undef, "to_ascii\(\'𐱙\-񈞻\.\\u07E1\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4591\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐱙-񈞻.\x{07E1}=\x{0338}", %p)}, undef, "to_ascii\(\'𐱙\-񈞻\.\\u07E1\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4592\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ςႼ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ςႼ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4593\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ςႼ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ςႼ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4594\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ςⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ςⴜ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4595\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ΣႼ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ΣႼ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4596\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵σⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵σⴜ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4597\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵Σⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵Σⴜ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4598\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ςⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ςⴜ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4599\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵ΣႼ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵ΣႼ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4600\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵σⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵σⴜ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4601\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-񄚵Σⴜ.𐹢", %p)}, undef, "to_ascii\(\'\-񄚵Σⴜ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4602\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠠍.\x{200D}𝟮\x{0F86}", %p)}, undef, "to_ascii\(\'\󠠍\.\\u200D𝟮\\u0F86\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4604\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠠍.\x{200D}2\x{0F86}", %p)}, undef, "to_ascii\(\'\󠠍\.\\u200D2\\u0F86\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4606\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯𝟖。\x{0D4D}𐮊򔦳", %p)}, undef, "to_ascii\(\'\≯𝟖。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4607\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}𝟖。\x{0D4D}𐮊򔦳", %p)}, undef, "to_ascii\(\'\>\\u0338𝟖。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4608\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≯8。\x{0D4D}𐮊򔦳", %p)}, undef, "to_ascii\(\'\≯8\。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4609\]") or ($@ and diag($@)); is(eval{uts46_to_ascii(">\x{0338}8。\x{0D4D}𐮊򔦳", %p)}, undef, "to_ascii\(\'\>\\u03388\。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4610\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C2}Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05C2Ↄ\\u0664。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4612\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{05C2}Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05C2Ↄ\\u0664\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4614\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05C2}ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05C2ↄ\\u0664\。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4616\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05C2}ↄ\x{0664}。\x{200C}", %p)}, undef, "to_ascii\(\'\\u05C2ↄ\\u0664。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4618\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{0962}𝟵\x{200D}𞺻.\x{200D}\x{06AA}⒈", %p)}, undef, "to_ascii\(\'\\u0962𝟵\\u200D𞺻\.\\u200D\\u06AA⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4620\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0962}9\x{200D}\x{063A}.\x{200D}\x{06AA}1.", %p)}, undef, "to_ascii\(\'\\u09629\\u200D\\u063A\.\\u200D\\u06AA1\.\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:4622\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿。嬶ß葽", %p)}, undef, "to_ascii\(\'𑖿\。嬶ß葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4623\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿。嬶SS葽", %p)}, undef, "to_ascii\(\'𑖿\。嬶SS葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4624\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿。嬶ss葽", %p)}, undef, "to_ascii\(\'𑖿\。嬶ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4625\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑖿。嬶Ss葽", %p)}, undef, "to_ascii\(\'𑖿\。嬶Ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4626\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑇀⒈。񔾭𐹲", %p)}, undef, "to_ascii\(\'𑇀⒈\。񔾭𐹲\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4627\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑇀1.。񔾭𐹲", %p)}, undef, "to_ascii\(\'𑇀1\.\。񔾭𐹲\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4628\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀︒≮.𺅧𐧅\x{06B7}", %p)}, undef, "to_ascii\(\'𑍀︒\≮.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4629\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀︒<\x{0338}.𺅧𐧅\x{06B7}", %p)}, undef, "to_ascii\(\'𑍀︒\<\\u0338.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4630\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀。≮.𺅧𐧅\x{06B7}", %p)}, undef, "to_ascii\(\'𑍀\。\≮\.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4631\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑍀。<\x{0338}.𺅧𐧅\x{06B7}", %p)}, undef, "to_ascii\(\'𑍀\。\<\\u0338\.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4632\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀳𐹫򇬇.󠐊ς𸰟񧋭", %p)}, undef, "to_ascii\(\'\󠀳𐹫򇬇\.\󠐊ς𸰟񧋭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4633\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀳𐹫򇬇.󠐊Σ𸰟񧋭", %p)}, undef, "to_ascii\(\'\󠀳𐹫򇬇\.\󠐊Σ𸰟񧋭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4634\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀳𐹫򇬇.󠐊σ𸰟񧋭", %p)}, undef, "to_ascii\(\'\󠀳𐹫򇬇\.\󠐊σ𸰟񧋭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4635\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'ς\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4637\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'ς\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4639\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'Σ\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4641\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'σ\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4643\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'Σ\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4645\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_ascii\(\'σ\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4647\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𱤫。-\x{05F3}𐫯", %p)}, undef, "to_ascii\(\'\-𱤫。\-\\u05F3𐫯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4648\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-𱤫。-\x{05F3}𐫯", %p)}, undef, "to_ascii\(\'\-𱤫\。\-\\u05F3𐫯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4649\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("◗󥆅𝟤。\x{200D}󠍭", %p)}, undef, "to_ascii\(\'\◗󥆅𝟤。\\u200D\󠍭\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4651\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("◗󥆅2。\x{200D}󠍭", %p)}, undef, "to_ascii\(\'\◗󥆅2\。\\u200D\󠍭\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4653\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CF8}\x{200D}𑚴\x{0605}。񦯈", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D𑚴\\u0605。񦯈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4655\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0CF8}\x{200D}𑚴\x{0605}。񦯈", %p)}, undef, "to_ascii\(\'\\u0CF8\\u200D𑚴\\u0605\。񦯈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4657\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{066B}.Ⴍ₉⁸", %p)}, undef, "to_ascii\(\'\\u066B.Ⴍ₉⁸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4658\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{066B}.Ⴍ98", %p)}, undef, "to_ascii\(\'\\u066B\.Ⴍ98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4659\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{066B}.ⴍ98", %p)}, undef, "to_ascii\(\'\\u066B\.ⴍ98\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4660\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{066B}.ⴍ₉⁸", %p)}, undef, "to_ascii\(\'\\u066B.ⴍ₉⁸\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4661\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ß\x{0600}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。ß\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4663\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ß\x{0600}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。ß\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4665\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ß\x{0600}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。ß\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4667\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ß\x{0600}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。ß\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4669\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。SS\x{0600}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。SS\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4671\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。SS\x{0600}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。SS\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4673\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ss\x{0600}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。ss\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4675\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ss\x{0600}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。ss\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4677\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。Ss\x{0600}19.>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。Ss\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4679\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。Ss\x{0600}19.≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE\。Ss\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4681\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。SS\x{0600}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。SS\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4683\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。SS\x{0600}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。SS\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4685\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ss\x{0600}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。ss\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4687\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。ss\x{0600}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。ss\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4689\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。Ss\x{0600}⒚>\x{0338}", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。Ss\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4691\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{08EE}。Ss\x{0600}⒚≯", %p)}, undef, "to_ascii\(\'\\u200C\\u08EE。Ss\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4693\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}𐱧𐮆.󽎐", %p)}, undef, "to_ascii\(\'\\u200C𐱧𐮆.󽎐\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4695\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}𐱧𐮆.󽎐", %p)}, undef, "to_ascii\(\'\\u200C𐱧𐮆\.󽎐\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4697\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫫󎹀-񆊤。󠧥Ⴛ𐼚𖫲", %p)}, undef, "to_ascii\(\'𐫫󎹀\-񆊤\。\󠧥Ⴛ𐼚𖫲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4698\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐫫󎹀-񆊤。󠧥ⴛ𐼚𖫲", %p)}, undef, "to_ascii\(\'𐫫󎹀\-񆊤\。\󠧥ⴛ𐼚𖫲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4699\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FE09}。󠎠\x{1BE6}", %p)}, undef, "to_ascii\(\'\\uFE09\。\󠎠\\u1BE6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4700\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛ᡤ.Ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_ascii\(\'⾛ᡤ\.Ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4702\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走ᡤ.Ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_ascii\(\'走ᡤ\.Ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4704\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("走ᡤ.ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_ascii\(\'走ᡤ\.ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4706\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⾛ᡤ.ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_ascii\(\'⾛ᡤ\.ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4708\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᡱ\x{200C}🄄.\x{AA2E}", %p)}, undef, "to_ascii\(\'\-ᡱ\\u200C🄄\.\\uAA2E\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4710\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-ᡱ\x{200C}3,.\x{AA2E}", %p)}, undef, "to_ascii\(\'\-ᡱ\\u200C3\,\.\\uAA2E\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4712\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{FEB2}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_ascii\(\'\≠\\uFEB2󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4714\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{FEB2}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_ascii\(\'\=\\u0338\\uFEB2󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4716\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{0633}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_ascii\(\'\≠\\u0633󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4718\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{0633}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_ascii\(\'\=\\u0338\\u0633󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4720\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{0633}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_ascii\(\'\=\\u0338\\u0633󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4722\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{0633}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_ascii\(\'\≠\\u0633󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4724\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}\x{FEB2}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_ascii\(\'\=\\u0338\\uFEB2󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4726\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠\x{FEB2}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_ascii\(\'\≠\\uFEB2󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4728\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐹴。\x{1DE3}\x{08EF}", %p)}, undef, "to_ascii\(\'𐹴。\\u1DE3\\u08EF\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4729\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐹴。\x{08EF}\x{1DE3}", %p)}, undef, "to_ascii\(\'𐹴。\\u08EF\\u1DE3\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4730\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("𐹴。\x{08EF}\x{1DE3}", %p)}, undef, "to_ascii\(\'𐹴\。\\u08EF\\u1DE3\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4731\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑘴\x{087A}≯⒍。-", %p)}, undef, "to_ascii\(\'𑘴\\u087A\≯⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4732\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑘴\x{087A}>\x{0338}⒍。-", %p)}, undef, "to_ascii\(\'𑘴\\u087A\>\\u0338⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4733\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑘴\x{087A}≯6.。-", %p)}, undef, "to_ascii\(\'𑘴\\u087A\≯6\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4734\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑘴\x{087A}>\x{0338}6.。-", %p)}, undef, "to_ascii\(\'𑘴\\u087A\>\\u03386\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4735\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4736\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{17B4}.쮇-", %p)}, undef, "to_ascii\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4737\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1BF3}。⒈-򻯝", %p)}, undef, "to_ascii\(\'\\u200C\\u1BF3\。⒈\-򻯝\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4739\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200C}\x{1BF3}。1.-򻯝", %p)}, undef, "to_ascii\(\'\\u200C\\u1BF3\。1\.\-򻯝\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4741\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒈𞬳\x{200C}。𝩃⓮\x{200C}\x{0323}", %p)}, undef, "to_ascii\(\'⒈𞬳\\u200C\。𝩃⓮\\u200C\\u0323\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4743\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("1.𞬳\x{200C}。𝩃⓮\x{200C}\x{0323}", %p)}, undef, "to_ascii\(\'1\.𞬳\\u200C\。𝩃⓮\\u200C\\u0323\'\)\ throws\ error\ P1\ V6\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:4745\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛐙。𝟐\x{081E}\x{0753}", %p)}, undef, "to_ascii\(\'򛐙。𝟐\\u081E\\u0753\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4746\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򛐙。2\x{081E}\x{0753}", %p)}, undef, "to_ascii\(\'򛐙\。2\\u081E\\u0753\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4747\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB68}򇫀.ς\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\uFB68򇫀\.ς\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4749\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0679}򇫀.ς\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\u0679򇫀\.ς\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4751\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0679}򇫀.Σ\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\u0679򇫀\.Σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4753\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0679}򇫀.σ\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\u0679򇫀\.σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4755\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB68}򇫀.Σ\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\uFB68򇫀\.Σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4757\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FB68}򇫀.σ\x{200D}𐹼", %p)}, undef, "to_ascii\(\'\\uFB68򇫀\.σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4759\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("⒎\x{074E}𐹰。\x{17D2}۵𛲞", %p)}, undef, "to_ascii\(\'⒎\\u074E𐹰。\\u17D2۵𛲞\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4760\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("7.\x{074E}𐹰。\x{17D2}۵𛲞", %p)}, undef, "to_ascii\(\'7\.\\u074E𐹰\。\\u17D2۵𛲞\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4761\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("-\x{075E}᠆򒜝。𐹽\x{2DE4}\x{0600}", %p)}, undef, "to_ascii\(\'\-\\u075E᠆򒜝\。𐹽\\u2DE4\\u0600\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4762\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{200D}.\x{08A1}𐹦𑒳", %p)}, undef, "to_ascii\(\'\\u200D\.\\u08A1𐹦𑒳\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4764\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--qyb0415kj7d", %p)}, "xn--qyb0415kj7d", "to_ascii\(\'xn\-\-qyb0415kj7d\'\)\ \[data\/IdnaTest\.txt\:4765\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("\x{08A1}𐹦𑒳", %p)}, "xn--qyb0415kj7d", "to_ascii\(\'\\u08A1𐹦𑒳\'\)\ \[data\/IdnaTest\.txt\:4766\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("㒧۱.Ⴚꡤ\x{200D}", %p)}, undef, "to_ascii\(\'㒧۱\.Ⴚꡤ\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4768\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4770\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--emb715u.xn--ilju850b", %p)}, "xn--emb715u.xn--ilju850b", "to_ascii\(\'xn\-\-emb715u\.xn\-\-ilju850b\'\)\ \[data\/IdnaTest\.txt\:4771\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--emb715u.xn--ilju850b", "to_ascii\(\'㒧۱\.ⴚꡤ\'\)\ \[data\/IdnaTest\.txt\:4772\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("㒧۱.Ⴚꡤ", %p)}, undef, "to_ascii\(\'㒧۱\.Ⴚꡤ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4773\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{1B37}ᠧ-.-\x{036B}", %p)}, undef, "to_ascii\(\'\\u1B37ᠧ\-.\-\\u036B\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4774\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{1B37}ᠧ-.-\x{036B}", %p)}, undef, "to_ascii\(\'\\u1B37ᠧ\-\.\-\\u036B\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4775\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򘤦-⑾\x{200C}.标-", %p)}, undef, "to_ascii\(\'򘤦\-⑾\\u200C.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4777\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򘤦-(11)\x{200C}.标-", %p)}, undef, "to_ascii\(\'򘤦\-\(11\)\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4779\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0757}.ς\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757.ς\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4780\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0757}.ς\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757\.ς\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4781\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("\x{0757}.Σ\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757\.Σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4782\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0757}.σ\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757\.σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4783\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0757}.Σ\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757.Σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4784\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0757}.σ\x{06EF}", %p)}, undef, "to_ascii\(\'\\u0757.σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4785\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𷎐𐹬.𞭁\x{200D}\x{1A60}񳌐", %p)}, undef, "to_ascii\(\'𷎐𐹬.𞭁\\u200D\\u1A60񳌐\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4787\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𷎐𐹬.𞭁\x{200D}\x{1A60}񳌐", %p)}, undef, "to_ascii\(\'𷎐𐹬\.𞭁\\u200D\\u1A60񳌐\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4789\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹩𐋩\x{FBEF}。𑖿", %p)}, undef, "to_ascii\(\'𐹩𐋩\\uFBEF。𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4790\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹩𐋩\x{0626}\x{0648}。𑖿", %p)}, undef, "to_ascii\(\'𐹩𐋩\\u0626\\u0648\。𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4791\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐹩𐋩\x{064A}\x{0654}\x{0648}。𑖿", %p)}, undef, "to_ascii\(\'𐹩𐋩\\u064A\\u0654\\u0648\。𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4792\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("6\x{1160}𝩦󠴳.󣞌锰\x{06EE}ς", %p)}, undef, "to_ascii\(\'6\\u1160𝩦\󠴳\.󣞌锰\\u06EEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4793\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6\x{1160}𝩦󠴳.󣞌锰\x{06EE}Σ", %p)}, undef, "to_ascii\(\'6\\u1160𝩦\󠴳\.󣞌锰\\u06EEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4794\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("6\x{1160}𝩦󠴳.󣞌锰\x{06EE}σ", %p)}, undef, "to_ascii\(\'6\\u1160𝩦\󠴳\.󣞌锰\\u06EEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4795\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E0}\x{1DF1}𔡹𝟽。𐹥", %p)}, undef, "to_ascii\(\'\\u07E0\\u1DF1𔡹𝟽。𐹥\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4796\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07E0}\x{1DF1}𔡹7。𐹥", %p)}, undef, "to_ascii\(\'\\u07E0\\u1DF1𔡹7\。𐹥\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4797\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FECB}.\x{200C}󠒫", %p)}, undef, "to_ascii\(\'\\uFECB.\\u200C\󠒫\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4799\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0639}.\x{200C}󠒫", %p)}, undef, "to_ascii\(\'\\u0639\.\\u200C\󠒫\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4801\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-򱉏.\x{1A66}𐫠-", %p)}, undef, "to_ascii\(\'\-򱉏\.\\u1A66𐫠\-\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4802\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜣\x{200D}𑋪.\x{200C}𝟩\x{066C}", %p)}, undef, "to_ascii\(\'🜣\\u200D𑋪.\\u200C𝟩\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4804\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("🜣\x{200D}𑋪.\x{200C}7\x{066C}", %p)}, undef, "to_ascii\(\'🜣\\u200D𑋪\.\\u200C7\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4806\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("︒𐬮𝩒\x{0759}。岓\x{103A}⩑\x{067D}", %p)}, undef, "to_ascii\(\'︒𐬮𝩒\\u0759\。岓\\u103A\⩑\\u067D\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4807\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("。𐬮𝩒\x{0759}。岓\x{103A}⩑\x{067D}", %p)}, undef, "to_ascii\(\'\。𐬮𝩒\\u0759\。岓\\u103A\⩑\\u067D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4808\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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{1BAA}", %p)}, undef, "to_ascii\(\'𐹵\。8\\u1BAA\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4809\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{A8E6}𝩢.\x{06CE}\x{05B1}𐹤\x{0944}", %p)}, undef, "to_ascii\(\'\\uA8E6𝩢.\\u06CE\\u05B1𐹤\\u0944\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4810\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{A8E6}𝩢.\x{06CE}\x{05B1}𐹤\x{0944}", %p)}, undef, "to_ascii\(\'\\uA8E6𝩢\.\\u06CE\\u05B1𐹤\\u0944\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4811\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("򭮟𐿱\x{1753}。󠈱", %p)}, undef, "to_ascii\(\'򭮟𐿱\\u1753。\󠈱\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4812\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򭮟𐿱\x{1753}。󠈱", %p)}, undef, "to_ascii\(\'򭮟𐿱\\u1753\。\󠈱\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4813\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07EC}", %p)}, undef, "to_ascii\(\'ᠪ.\-\\u07EC\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4814\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07EC}", %p)}, undef, "to_ascii\(\'ᠪ\.\-\\u07EC\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4815\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󕜉󠉩。𐹰\x{FECD}\x{0A4D}", %p)}, undef, "to_ascii\(\'󕜉\󠉩。𐹰\\uFECD\\u0A4D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4816\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󕜉󠉩。𐹰\x{063A}\x{0A4D}", %p)}, undef, "to_ascii\(\'󕜉\󠉩\。𐹰\\u063A\\u0A4D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4817\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴐ\x{0678}.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐ\\u0678.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4819\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴐ\x{064A}\x{0674}.\x{200C}", %p)}, undef, "to_ascii\(\'Ⴐ\\u064A\\u0674\.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4821\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴐ\x{064A}\x{0674}.\x{200C}", %p)}, undef, "to_ascii\(\'ⴐ\\u064A\\u0674\.\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4823\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_ascii("ⴐ\x{0678}.\x{200C}", %p)}, undef, "to_ascii\(\'ⴐ\\u0678.\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4825\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("🄅󠩺-⒈。\x{200D}ꡨ\x{06D0}", %p)}, undef, "to_ascii\(\'🄅\󠩺\-⒈\。\\u200Dꡨ\\u06D0\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4827\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("4,󠩺-1.。\x{200D}ꡨ\x{06D0}", %p)}, undef, "to_ascii\(\'4\,\󠩺\-1\.\。\\u200Dꡨ\\u06D0\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C2\ \[data\/IdnaTest\.txt\:4829\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򀜧。\x{077B}񶺅", %p)}, undef, "to_ascii\(\'򀜧\。\\u077B񶺅\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4830\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑄰۲。𐫘𐹪\x{0F82}鄨", %p)}, undef, "to_ascii\(\'𑄰۲。𐫘𐹪\\u0F82鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4831\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𑄰۲。𐫘𐹪\x{0F82}鄨", %p)}, undef, "to_ascii\(\'𑄰۲\。𐫘𐹪\\u0F82鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4832\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𐿊-\x{074E}。𝩘\x{A9C0}-", %p)}, undef, "to_ascii\(\'𐿊\-\\u074E\。𝩘\\uA9C0\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4833\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪-󟲏󠉋.ß", %p)}, undef, "to_ascii\(\'𑋪\-󟲏\󠉋.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4834\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪-󟲏󠉋.ß", %p)}, undef, "to_ascii\(\'𑋪\-󟲏\󠉋\.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4835\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪-󟲏󠉋.SS", %p)}, undef, "to_ascii\(\'𑋪\-󟲏\󠉋\.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4836\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑋪-󟲏󠉋.SS", %p)}, undef, "to_ascii\(\'𑋪\-󟲏\󠉋.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4837\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{FD39}-\x{200C}。Ⴟ\x{200C}℣", %p)}, undef, "to_ascii\(\'\\uFD39\-\\u200C。Ⴟ\\u200C℣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{0634}\x{062E}-\x{200C}。Ⴟ\x{200C}℣", %p)}, undef, "to_ascii\(\'\\u0634\\u062E\-\\u200C\。Ⴟ\\u200C℣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{0634}\x{062E}-\x{200C}。ⴟ\x{200C}℣", %p)}, undef, "to_ascii\(\'\\u0634\\u062E\-\\u200C\。ⴟ\\u200C℣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or 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{FD39}-\x{200C}。ⴟ\x{200C}℣", %p)}, undef, "to_ascii\(\'\\uFD39\-\\u200C。ⴟ\\u200C℣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4845\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𑈵-\x{200D}\x{200C}。𹮼₅≠", %p)}, undef, "to_ascii\(\'𑈵\-\\u200D\\u200C。𹮼₅\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4847\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵-\x{200D}\x{200C}。𹮼₅=\x{0338}", %p)}, undef, "to_ascii\(\'𑈵\-\\u200D\\u200C。𹮼₅\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4849\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵-\x{200D}\x{200C}。𹮼5≠", %p)}, undef, "to_ascii\(\'𑈵\-\\u200D\\u200C\。𹮼5\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4851\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𑈵-\x{200D}\x{200C}。𹮼5=\x{0338}", %p)}, undef, "to_ascii\(\'𑈵\-\\u200D\\u200C\。𹮼5\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4853\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󶦄。𑘿󠍐󠩋", %p)}, undef, "to_ascii\(\'󶦄\。𑘿\󠍐\󠩋\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4854\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡗ󠿸.\x{07E8}\x{200D}\x{1CD1}", %p)}, undef, "to_ascii\(\'ᡗ\󠿸.\\u07E8\\u200D\\u1CD1\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4856\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡗ󠿸.\x{07E8}\x{200D}\x{1CD1}", %p)}, undef, "to_ascii\(\'ᡗ\󠿸\.\\u07E8\\u200D\\u1CD1\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4858\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹪⁴Ⴅ.𐰁\x{200C}", %p)}, undef, "to_ascii\(\'𐹪⁴Ⴅ.𐰁\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4860\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹪4Ⴅ.𐰁\x{200C}", %p)}, undef, "to_ascii\(\'𐹪4Ⴅ\.𐰁\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4862\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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{200C}", %p)}, undef, "to_ascii\(\'𐹪4ⴅ\.𐰁\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4864\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("𐹪⁴ⴅ.𐰁\x{200C}", %p)}, undef, "to_ascii\(\'𐹪⁴ⴅ.𐰁\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4866\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ6\x{1CD8}。ß\x{A9B9}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u1CD8\。ß\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4867\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴡⴑ6\x{1CD8}。ß\x{A9B9}", %p)}, "xn--6-x3lw34f2b.xn--zca6657f", "to_ascii\(\'ⴡⴑ6\\u1CD8\。ß\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4869\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ6\x{1CD8}。SS\x{A9B9}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u1CD8\。SS\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4870\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴡⴑ6\x{1CD8}。ss\x{A9B9}", %p)}, "xn--6-x3lw34f2b.xn--ss-kd0i", "to_ascii\(\'ⴡⴑ6\\u1CD8\。ss\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4871\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴡⴑ6\x{1CD8}。Ss\x{A9B9}", %p)}, undef, "to_ascii\(\'Ⴡⴑ6\\u1CD8\。Ss\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4872\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--6-x3lw34f2b.xn--ss-kd0i", %p)}, "xn--6-x3lw34f2b.xn--ss-kd0i", "to_ascii\(\'xn\-\-6\-x3lw34f2b\.xn\-\-ss\-kd0i\'\)\ \[data\/IdnaTest\.txt\:4873\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴡⴑ6\x{1CD8}.ss\x{A9B9}", %p)}, "xn--6-x3lw34f2b.xn--ss-kd0i", "to_ascii\(\'ⴡⴑ6\\u1CD8\.ss\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4874\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("ჁႱ6\x{1CD8}.SS\x{A9B9}", %p)}, undef, "to_ascii\(\'ჁႱ6\\u1CD8\.SS\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4875\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴡⴑ6\x{1CD8}.Ss\x{A9B9}", %p)}, undef, "to_ascii\(\'Ⴡⴑ6\\u1CD8\.Ss\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4876\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--6-x3lw34f2b.xn--zca6657f", %p)}, "xn--6-x3lw34f2b.xn--zca6657f", "to_ascii\(\'xn\-\-6\-x3lw34f2b\.xn\-\-zca6657f\'\)\ \[data\/IdnaTest\.txt\:4877\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("ⴡⴑ6\x{1CD8}.ß\x{A9B9}", %p)}, "xn--6-x3lw34f2b.xn--zca6657f", "to_ascii\(\'ⴡⴑ6\\u1CD8\.ß\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4879\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󚒻。≯\x{1734}", %p)}, undef, "to_ascii\(\'󚒻。\≯\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4880\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󚒻。>\x{0338}\x{1734}", %p)}, undef, "to_ascii\(\'󚒻。\>\\u0338\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4881\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󚒻。≯\x{1734}", %p)}, undef, "to_ascii\(\'󚒻\。\≯\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4882\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󚒻。>\x{0338}\x{1734}", %p)}, undef, "to_ascii\(\'󚒻\。\>\\u0338\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4883\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_ascii("\x{065A}۲。\x{200C}-\x{0DCA}𐹼", %p)}, undef, "to_ascii\(\'\\u065A۲\。\\u200C\-\\u0DCA𐹼\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4885\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{1CED}󠆃🅪。\x{FFA0}", %p)}, undef, "to_ascii\(\'\\u1CED\󠆃🅪。\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4886\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1CED}󠆃MC。\x{1160}", %p)}, undef, "to_ascii\(\'\\u1CED\󠆃MC\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4887\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1CED}󠆃mc。\x{1160}", %p)}, undef, "to_ascii\(\'\\u1CED\󠆃mc\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4888\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1CED}󠆃Mc。\x{1160}", %p)}, undef, "to_ascii\(\'\\u1CED\󠆃Mc\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4889\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'ß⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4890\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ß1.𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'ß1\.𐫅󃋽\.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4891\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS1.𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'SS1\.𐫅󃋽\.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4892\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("SS⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'SS⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4893\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ss⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'ss⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4894\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ss⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_ascii\(\'Ss⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4895\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠻯.𐋱₂", %p)}, undef, "to_ascii\(\'\󠻯\.𐋱₂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4896\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠻯.𐋱2", %p)}, undef, "to_ascii\(\'\󠻯\.𐋱2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4897\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{074D}𖾐。-ßᢤ\x{200C}", %p)}, undef, "to_ascii\(\'\\u074D𖾐\。\-ßᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4899\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{074D}𖾐。-SSᢤ\x{200C}", %p)}, undef, "to_ascii\(\'\\u074D𖾐\。\-SSᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4901\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{074D}𖾐。-ssᢤ\x{200C}", %p)}, undef, "to_ascii\(\'\\u074D𖾐\。\-ssᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4903\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_ascii("\x{074D}𖾐。-Ssᢤ\x{200C}", %p)}, undef, "to_ascii\(\'\\u074D𖾐\。\-Ssᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4905\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}Ⴡ", %p)}, undef, "to_ascii\(\'\\u08FD\\u200Dᡦ󕡛.䷶\\u081CჁ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4907\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}Ⴡ", %p)}, undef, "to_ascii\(\'\\u08FD\\u200Dᡦ󕡛\.䷶\\u081CჁ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4909\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}ⴡ", %p)}, undef, "to_ascii\(\'\\u08FD\\u200Dᡦ󕡛\.䷶\\u081Cⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4911\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}ⴡ", %p)}, undef, "to_ascii\(\'\\u08FD\\u200Dᡦ󕡛.䷶\\u081Cⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4913\]") 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\:4915\]") 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\:4917\]") 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\:4919\]") 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\:4921\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐨿︒.𐮆≯\x{06AB}", %p)}, undef, "to_ascii\(\'𐨿︒\.𐮆\≯\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4922\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐨿︒.𐮆>\x{0338}\x{06AB}", %p)}, undef, "to_ascii\(\'𐨿︒\.𐮆\>\\u0338\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4923\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐨿。.𐮆≯\x{06AB}", %p)}, undef, "to_ascii\(\'𐨿\。\.𐮆\≯\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4924\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐨿。.𐮆>\x{0338}\x{06AB}", %p)}, undef, "to_ascii\(\'𐨿\。\.𐮆\>\\u0338\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4925\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮≠񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_ascii\(\'\≮\≠񆇥。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4926\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}=\x{0338}񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338񆇥。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4927\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮≠񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_ascii\(\'\≮\≠񆇥\。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4928\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}=\x{0338}񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_ascii\(\'\<\\u0338\=\\u0338񆇥\。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4929\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0661}\x{0751}。ꡰ", %p)}, undef, "to_ascii\(\'\\u0661\\u0751\。ꡰ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4930\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("Ⴉ🕑򸵡\x{0E4E}.ß\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'Ⴉ🕑򸵡\\u0E4E\.ß\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4931\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ🕑򸵡\x{0E4E}.ß\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'ⴉ🕑򸵡\\u0E4E\.ß\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4932\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ🕑򸵡\x{0E4E}.SS\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'Ⴉ🕑򸵡\\u0E4E\.SS\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4933\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ⴉ🕑򸵡\x{0E4E}.ss\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'ⴉ🕑򸵡\\u0E4E\.ss\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4934\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Ⴉ🕑򸵡\x{0E4E}.Ss\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_ascii\(\'Ⴉ🕑򸵡\\u0E4E\.Ss\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4935\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{06BD}\x{FE9B}󠎧.𙃐", %p)}, undef, "to_ascii\(\'\\u200D\\u06BD\\uFE9B\󠎧\.𙃐\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4937\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{06BD}\x{062B}󠎧.𙃐", %p)}, undef, "to_ascii\(\'\\u200D\\u06BD\\u062B\󠎧\.𙃐\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4939\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("梉。\x{200C}", %p)}, undef, "to_ascii\(\'梉\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4941\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--7zv.", %p)}, "xn--7zv.", "to_ascii\(\'xn\-\-7zv\.\'\)\ \[data\/IdnaTest\.txt\:4942\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("梉.", %p)}, "xn--7zv.", "to_ascii\(\'梉\.\'\)\ \[data\/IdnaTest\.txt\:4943\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-≠.\x{200D}\x{069D}𑒷Ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\≠\.\\u200D\\u069D𑒷Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4945\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-=\x{0338}.\x{200D}\x{069D}𑒷Ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\=\\u0338\.\\u200D\\u069D𑒷Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4947\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-=\x{0338}.\x{200D}\x{069D}𑒷ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\=\\u0338\.\\u200D\\u069D𑒷ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4949\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{075D}-≠.\x{200D}\x{069D}𑒷ↄ", %p)}, undef, "to_ascii\(\'\\u075D\-\≠\.\\u200D\\u069D𑒷ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4951\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς⒐\x{1CD2}⸵。𐫬🄊𝟳", %p)}, undef, "to_ascii\(\'ς⒐\\u1CD2\⸵。𐫬🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4952\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς9.\x{1CD2}⸵。𐫬9,7", %p)}, undef, "to_ascii\(\'ς9\.\\u1CD2\⸵\。𐫬9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4953\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ9.\x{1CD2}⸵。𐫬9,7", %p)}, undef, "to_ascii\(\'Σ9\.\\u1CD2\⸵\。𐫬9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4954\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ9.\x{1CD2}⸵。𐫬9,7", %p)}, undef, "to_ascii\(\'σ9\.\\u1CD2\⸵\。𐫬9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4955\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ⒐\x{1CD2}⸵。𐫬🄊𝟳", %p)}, undef, "to_ascii\(\'Σ⒐\\u1CD2\⸵。𐫬🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4956\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ⒐\x{1CD2}⸵。𐫬🄊𝟳", %p)}, undef, "to_ascii\(\'σ⒐\\u1CD2\⸵。𐫬🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4957\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}ß", %p)}, undef, "to_ascii\(\'𐮑.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4959\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}ß", %p)}, undef, "to_ascii\(\'𐮑\.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4961\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}SS", %p)}, undef, "to_ascii\(\'𐮑\.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4963\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}ss", %p)}, undef, "to_ascii\(\'𐮑\.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4965\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}Ss", %p)}, undef, "to_ascii\(\'𐮑\.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4967\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--o29c.ss", %p)}, "xn--o29c.ss", "to_ascii\(\'xn\-\-o29c\.ss\'\)\ \[data\/IdnaTest\.txt\:4968\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.ss", %p)}, "xn--o29c.ss", "to_ascii\(\'𐮑\.ss\'\)\ \[data\/IdnaTest\.txt\:4969\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}SS", %p)}, undef, "to_ascii\(\'𐮑.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4971\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}ss", %p)}, undef, "to_ascii\(\'𐮑.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4973\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐮑.\x{200C}Ss", %p)}, undef, "to_ascii\(\'𐮑.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4975\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𣵑-.\x{200D}\x{0629}\x{06D7}󠦙", %p)}, undef, "to_ascii\(\'𣵑\-\.\\u200D\\u0629\\u06D7\󠦙\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4977\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䃚蟥-。-𧵶⒈", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-𧵶⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4978\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("䃚蟥-。-𧵶1.", %p)}, undef, "to_ascii\(\'䃚蟥\-\。\-𧵶1\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4979\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹺䚵-ᠤ。󠤲", %p)}, undef, "to_ascii\(\'𐹺䚵\-ᠤ\。\󠤲\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4980\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A8C4}。\x{1ADC}𐹯", %p)}, undef, "to_ascii\(\'\\uA8C4\。\\u1ADC𐹯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4981\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𐹩.⒎\x{0A75}ꡤ𐹮", %p)}, undef, "to_ascii\(\'\≮𐹩\.⒎\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4982\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}𐹩.⒎\x{0A75}ꡤ𐹮", %p)}, undef, "to_ascii\(\'\<\\u0338𐹩\.⒎\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4983\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≮𐹩.7.\x{0A75}ꡤ𐹮", %p)}, undef, "to_ascii\(\'\≮𐹩\.7\.\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4984\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("<\x{0338}𐹩.7.\x{0A75}ꡤ𐹮", %p)}, undef, "to_ascii\(\'\<\\u0338𐹩\.7\.\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4985\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ᡊ≠󍑰.\x{200D}𐋢", %p)}, undef, "to_ascii\(\'ᡊ\≠󍑰\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4987\]") 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\:4989\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐪪≮񐯏≯.𐹽𞹏🔚", %p)}, undef, "to_ascii\(\'𐪪\≮񐯏\≯.𐹽𞹏🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4990\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐪪<\x{0338}񐯏>\x{0338}.𐹽𞹏🔚", %p)}, undef, "to_ascii\(\'𐪪\<\\u0338񐯏\>\\u0338.𐹽𞹏🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4991\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐪪≮񐯏≯.𐹽\x{0639}🔚", %p)}, undef, "to_ascii\(\'𐪪\≮񐯏\≯\.𐹽\\u0639🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4992\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐪪<\x{0338}񐯏>\x{0338}.𐹽\x{0639}🔚", %p)}, undef, "to_ascii\(\'𐪪\<\\u0338񐯏\>\\u0338\.𐹽\\u0639🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4993\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-。🞏", %p)}, undef, "to_ascii\(\'\-。🞏\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4994\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("-。🞏", %p)}, undef, "to_ascii\(\'\-\。🞏\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4995\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("󠓱\x{A8EC}.\x{1DDF}", %p)}, undef, "to_ascii\(\'\󠓱\\uA8EC.\\u1DDF\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4996\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠓱\x{A8EC}.\x{1DDF}", %p)}, undef, "to_ascii\(\'\󠓱\\uA8EC\.\\u1DDF\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4997\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("󠀦.򂿜\x{200C}", %p)}, undef, "to_ascii\(\'\󠀦\.򂿜\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4999\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{AA32}", %p)}, undef, "to_ascii\(\'ᡷ\󠅖\.\\uAA32\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5000\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("漦Ⴙς.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦Ⴙς\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5001\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ⴙς.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦ⴙς\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5002\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ႹΣ.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦ႹΣ\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5003\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦ⴙσ.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦ⴙσ\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5004\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("漦Ⴙσ.𒠂𞱩", %p)}, undef, "to_ascii\(\'漦Ⴙσ\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5005\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹹踧\x{0A4D}󟵒.󄅏⒈\x{1BE8}", %p)}, undef, "to_ascii\(\'𐹹踧\\u0A4D󟵒\.󄅏⒈\\u1BE8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5006\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐹹踧\x{0A4D}󟵒.󄅏1.\x{1BE8}", %p)}, undef, "to_ascii\(\'𐹹踧\\u0A4D󟵒\.󄅏1\.\\u1BE8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:5007\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≮.󠘆򥷡-", %p)}, undef, "to_ascii\(\'\\u200D\≮.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5009\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}<\x{0338}.󠘆򥷡-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5011\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}≮.󠘆򥷡-", %p)}, undef, "to_ascii\(\'\\u200D\≮\.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5013\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}<\x{0338}.󠘆򥷡-", %p)}, undef, "to_ascii\(\'\\u200D\<\\u0338\.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5015\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。Ⴜ5\x{071D}񈭷", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。Ⴜ5\\u071D񈭷\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:5017\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{200D}\x{200D}襔。ⴜ5\x{071D}񈭷", %p)}, undef, "to_ascii\(\'\\u200D\\u200D襔\。ⴜ5\\u071D񈭷\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:5019\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐣋\x{05A7}\x{200D}.婀", %p)}, undef, "to_ascii\(\'𐣋\\u05A7\\u200D.婀\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:5021\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𐣋\x{05A7}\x{200D}.婀", %p)}, undef, "to_ascii\(\'𐣋\\u05A7\\u200D\.婀\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:5023\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1AB8}︒︒\x{066C}。⮹\x{FE2E}", %p)}, undef, "to_ascii\(\'\\u1AB8︒︒\\u066C。\⮹\\uFE2E\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5024\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_ascii("\x{1AB8}。。\x{066C}。⮹\x{FE2E}", %p)}, undef, "to_ascii\(\'\\u1AB8\。\。\\u066C\。\⮹\\uFE2E\'\)\ throws\ error\ V5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:5025\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("𝟖ß.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖ß.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5026\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ß.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'8ß\.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5027\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ß.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'8ß\.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5028\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8SS.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'8SS\.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5029\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("8ss.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'8ss\.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5030\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟖ß.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'𝟖ß.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5031\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟖SS.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖SS.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5032\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟖ss.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_ascii\(\'𝟖ss.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5033\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("𝟖Ss.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_ascii\(\'𝟖Ss.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ A3\ \[data\/IdnaTest\.txt\:5034\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}󠠅.\x{200C}\x{0663}Ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\󠠅\.\\u200C\\u0663Ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5036\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("-\x{200D}󠠅.\x{200C}\x{0663}ⴅ", %p)}, undef, "to_ascii\(\'\-\\u200D\󠠅\.\\u200C\\u0663ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5038\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{030F}\x{200D}큷󵨃。₂", %p)}, undef, "to_ascii\(\'\\u030F\\u200D큷󵨃。₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5040\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{030F}\x{200D}큷󵨃。₂", %p)}, undef, "to_ascii\(\'\\u030F\\u200D큷󵨃。₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5042\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{030F}\x{200D}큷󵨃。2", %p)}, undef, "to_ascii\(\'\\u030F\\u200D큷󵨃\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5044\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{030F}\x{200D}큷󵨃。2", %p)}, undef, "to_ascii\(\'\\u030F\\u200D큷󵨃\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5046\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DF4D}.🄄\x{FBAF}", %p)}, undef, "to_ascii\(\'\\uDF4D\.🄄\\uFBAF\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5047\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{DF4D}.3,\x{06D2}", %p)}, undef, "to_ascii\(\'\\uDF4D\.3\,\\u06D2\'\)\ throws\ error\ P1\ V6\ B1\ A3\ \[data\/IdnaTest\.txt\:5048\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07A9}𐱡。\x{0604}󐃜\x{0F9B}⒈", %p)}, undef, "to_ascii\(\'\\u07A9𐱡\。\\u0604󐃜\\u0F9B⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5049\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{07A9}𐱡。\x{0604}󐃜\x{0F9B}1.", %p)}, undef, "to_ascii\(\'\\u07A9𐱡\。\\u0604󐃜\\u0F9B1\.\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5050\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񓸋𞭢\x{0712}。Ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'񓸋𞭢\\u0712\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5052\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񓸋𞭢\x{0712}。ⴈ\x{200D}", %p)}, undef, "to_ascii\(\'񓸋𞭢\\u0712\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5054\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇷚\x{0366}ᡱ⒈.\x{1DC1}髯\x{200C}", %p)}, undef, "to_ascii\(\'򇷚\\u0366ᡱ⒈.\\u1DC1髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:5056\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("򇷚\x{0366}ᡱ1..\x{1DC1}髯\x{200C}", %p)}, undef, "to_ascii\(\'򇷚\\u0366ᡱ1\.\.\\u1DC1髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5058\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071A}.ᢛ\x{17BA}", %p)}, "xn--knb.xn--53e36b", "to_ascii\(\'\\u071A.ᢛ\\u17BA\'\)\ \[data\/IdnaTest\.txt\:5059\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{071A}.ᢛ\x{17BA}", %p)}, "xn--knb.xn--53e36b", "to_ascii\(\'\\u071A\.ᢛ\\u17BA\'\)\ \[data\/IdnaTest\.txt\:5060\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("xn--knb.xn--53e36b", %p)}, "xn--knb.xn--53e36b", "to_ascii\(\'xn\-\-knb\.xn\-\-53e36b\'\)\ \[data\/IdnaTest\.txt\:5061\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A953}.𐺛", %p)}, undef, "to_ascii\(\'\\uA953.𐺛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5062\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{A953}.𐺛", %p)}, undef, "to_ascii\(\'\\uA953\.𐺛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5063\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("≠膣。\x{0EB4}", %p)}, undef, "to_ascii\(\'\≠膣\。\\u0EB4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5064\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("=\x{0338}膣。\x{0EB4}", %p)}, undef, "to_ascii\(\'\=\\u0338膣\。\\u0EB4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5065\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆔨-ᢜ。ß", %p)}, undef, "to_ascii\(\'񆔨\-ᢜ。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5066\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆔨-ᢜ。ß", %p)}, undef, "to_ascii\(\'񆔨\-ᢜ\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5067\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆔨-ᢜ。SS", %p)}, undef, "to_ascii\(\'񆔨\-ᢜ\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5068\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("񆔨-ᢜ。SS", %p)}, undef, "to_ascii\(\'񆔨\-ᢜ。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5069\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'ς𐹷𐫬\\u17D2.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5070\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("ς𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'ς𐹷𐫬\\u17D2\.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5071\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'Σ𐹷𐫬\\u17D2\.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5072\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'σ𐹷𐫬\\u17D2\.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5073\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("Σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'Σ𐹷𐫬\\u17D2.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5074\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_ascii\(\'σ𐹷𐫬\\u17D2.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5075\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋷。\x{200D}", %p)}, undef, "to_ascii\(\'𐋷\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5077\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("xn--r97c.", %p)}, "xn--r97c.", "to_ascii\(\'xn\-\-r97c\.\'\)\ \[data\/IdnaTest\.txt\:5078\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_ascii("𐋷.", %p)}, "xn--r97c.", "to_ascii\(\'𐋷\.\'\)\ \[data\/IdnaTest\.txt\:5079\]") or ($@ and diag($@)); } is(eval{uts46_to_ascii("\x{A8E5}𑜣。󠁂", %p)}, undef, "to_ascii\(\'\\uA8E5𑜣\。\󠁂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5080\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DF1}䁴񾒲.Ⴕ𝟜\x{200C}𐨹", %p)}, undef, "to_ascii\(\'\\u1DF1䁴񾒲.Ⴕ𝟜\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5082\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DF1}䁴񾒲.Ⴕ4\x{200C}𐨹", %p)}, undef, "to_ascii\(\'\\u1DF1䁴񾒲\.Ⴕ4\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5084\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DF1}䁴񾒲.ⴕ4\x{200C}𐨹", %p)}, undef, "to_ascii\(\'\\u1DF1䁴񾒲\.ⴕ4\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5086\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("\x{1DF1}䁴񾒲.ⴕ𝟜\x{200C}𐨹", %p)}, undef, "to_ascii\(\'\\u1DF1䁴񾒲.ⴕ𝟜\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5088\]") 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\:5090\]") 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\:5092\]") or ($@ and diag($@)); is(eval{uts46_to_ascii("", %p)}, undef, "to_ascii\(\'\'\)\ throws\ error\ A4_2\ \[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\ C1\ C2\ A3\ \[data\/IdnaTest\.txt\:5095\]") 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\:5097\]") or ($@ and diag($@)); exit(0); Net-IDN-Encode-2.300/t/uts46_to_unicode.t000444000765000024 437144412552251473 20175 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 => 5025 + 1; use Test::NoWarnings; use Unicode::UCD; use Net::IDN::UTS46 (':all'); no warnings 'utf8'; our $UCD_VERSION = eval('v'.(Unicode::UCD::UnicodeVersion())); my %p = ("TransitionalProcessing" => "0"); is(eval{uts46_to_unicode("fass.de", %p)}, "fass.de", "to_unicode\(\'fass\.de\'\)\ \[data\/IdnaTest\.txt\:61\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("faß.de", %p)}, "faß.de", "to_unicode\(\'faß\.de\'\)\ \[data\/IdnaTest\.txt\:62\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("faß.de", %p)}, "faß.de", "to_unicode\(\'faß\.de\'\)\ \[data\/IdnaTest\.txt\:63\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Faß.de", %p)}, "faß.de", "to_unicode\(\'Faß\.de\'\)\ \[data\/IdnaTest\.txt\:64\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Faß.de", %p)}, "faß.de", "to_unicode\(\'Faß\.de\'\)\ \[data\/IdnaTest\.txt\:65\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--fa-hia.de", %p)}, "faß.de", "to_unicode\(\'xn\-\-fa\-hia\.de\'\)\ \[data\/IdnaTest\.txt\:66\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("à\x{05D0}", %p)}, undef, "to_unicode\(\'à\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:70\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0300}\x{05D0}", %p)}, undef, "to_unicode\(\'a\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:71\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0300}\x{05D0}", %p)}, undef, "to_unicode\(\'A\\u0300\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:72\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("À\x{05D0}", %p)}, undef, "to_unicode\(\'À\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:73\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0à.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0à\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:74\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0a\x{0300}.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0a\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:75\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0A\x{0300}.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0A\\u0300\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:76\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0À.\x{05D0}", %p)}, "0à.\x{05D0}", "to_unicode\(\'0À\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:77\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--0-sfa.xn--4db", %p)}, "0à.\x{05D0}", "to_unicode\(\'xn\-\-0\-sfa\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:78\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("à.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'à\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:79\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0300}.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'a\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:80\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0300}.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'A\\u0300\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:81\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("À.\x{05D0}\x{0308}", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'À\.\\u05D0\\u0308\'\)\ \[data\/IdnaTest\.txt\:82\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--0ca.xn--ssa73l", %p)}, "à.\x{05D0}\x{0308}", "to_unicode\(\'xn\-\-0ca\.xn\-\-ssa73l\'\)\ \[data\/IdnaTest\.txt\:83\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("à.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_unicode\(\'à\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:84\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_unicode\(\'a\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:85\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0300}.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_unicode\(\'A\\u0300\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:86\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("À.\x{05D0}0\x{0660}\x{05D0}", %p)}, undef, "to_unicode\(\'À\.\\u05D00\\u0660\\u05D0\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:87\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}.\x{05D0}", %p)}, undef, "to_unicode\(\'\\u0308\.\\u05D0\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:88\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("à.\x{05D0}0\x{0660}", %p)}, undef, "to_unicode\(\'à\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:89\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_unicode\(\'a\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:90\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0300}.\x{05D0}0\x{0660}", %p)}, undef, "to_unicode\(\'A\\u0300\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:91\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("À.\x{05D0}0\x{0660}", %p)}, undef, "to_unicode\(\'À\.\\u05D00\\u0660\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:92\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("àˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:93\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0300}ˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'a\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:94\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0300}ˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'A\\u0300ˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:95\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Àˇ.\x{05D0}", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'Àˇ\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:96\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--0ca88g.xn--4db", %p)}, "àˇ.\x{05D0}", "to_unicode\(\'xn\-\-0ca88g\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:97\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("à\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'à\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:98\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0300}\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'a\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:99\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0300}\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'A\\u0300\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:100\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("À\x{0308}.\x{05D0}", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'À\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:101\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--0ca81i.xn--4db", %p)}, "à\x{0308}.\x{05D0}", "to_unicode\(\'xn\-\-0ca81i\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:102\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{200C}b", %p)}, undef, "to_unicode\(\'a\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:106\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{200C}b", %p)}, undef, "to_unicode\(\'a\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:107\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{200C}B", %p)}, undef, "to_unicode\(\'A\\u200CB\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:108\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{200C}B", %p)}, undef, "to_unicode\(\'A\\u200CB\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:109\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{200C}b", %p)}, undef, "to_unicode\(\'A\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:110\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{200C}b", %p)}, undef, "to_unicode\(\'A\\u200Cb\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:111\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ab", %p)}, "ab", "to_unicode\(\'ab\'\)\ \[data\/IdnaTest\.txt\:112\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{094D}\x{200C}b", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'a\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:113\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{094D}\x{200C}b", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'a\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:114\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}\x{200C}B", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'A\\u094D\\u200CB\'\)\ \[data\/IdnaTest\.txt\:115\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}\x{200C}B", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'A\\u094D\\u200CB\'\)\ \[data\/IdnaTest\.txt\:116\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}\x{200C}b", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'A\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:117\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}\x{200C}b", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'A\\u094D\\u200Cb\'\)\ \[data\/IdnaTest\.txt\:118\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ab-fsf", %p)}, "a\x{094D}b", "to_unicode\(\'xn\-\-ab\-fsf\'\)\ \[data\/IdnaTest\.txt\:119\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{094D}b", %p)}, "a\x{094D}b", "to_unicode\(\'a\\u094Db\'\)\ \[data\/IdnaTest\.txt\:120\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}B", %p)}, "a\x{094D}b", "to_unicode\(\'A\\u094DB\'\)\ \[data\/IdnaTest\.txt\:121\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}b", %p)}, "a\x{094D}b", "to_unicode\(\'A\\u094Db\'\)\ \[data\/IdnaTest\.txt\:122\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ab-fsf604u", %p)}, "a\x{094D}\x{200C}b", "to_unicode\(\'xn\-\-ab\-fsf604u\'\)\ \[data\/IdnaTest\.txt\:123\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:124\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:125\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:126\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:127\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:128\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:129\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:130\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200C}\x{0308}", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200C\\u0308\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:131\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:132\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628B\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:133\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200C}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200C\\u0308\\u0628b\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:134\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{200D}b", %p)}, undef, "to_unicode\(\'a\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:135\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{200D}b", %p)}, undef, "to_unicode\(\'a\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:136\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{200D}B", %p)}, undef, "to_unicode\(\'A\\u200DB\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:137\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{200D}B", %p)}, undef, "to_unicode\(\'A\\u200DB\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:138\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{200D}b", %p)}, undef, "to_unicode\(\'A\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:139\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{200D}b", %p)}, undef, "to_unicode\(\'A\\u200Db\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:140\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{094D}\x{200D}b", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'a\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:141\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{094D}\x{200D}b", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'a\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:142\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}\x{200D}B", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'A\\u094D\\u200DB\'\)\ \[data\/IdnaTest\.txt\:143\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}\x{200D}B", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'A\\u094D\\u200DB\'\)\ \[data\/IdnaTest\.txt\:144\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}\x{200D}b", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'A\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:145\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{094D}\x{200D}b", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'A\\u094D\\u200Db\'\)\ \[data\/IdnaTest\.txt\:146\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ab-fsf014u", %p)}, "a\x{094D}\x{200D}b", "to_unicode\(\'xn\-\-ab\-fsf014u\'\)\ \[data\/IdnaTest\.txt\:147\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:148\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:149\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:150\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:151\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:152\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:153\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:154\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\'\)\ throws\ error\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:155\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:156\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'a\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:157\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:158\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}B", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628B\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:159\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:160\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0628}\x{0308}\x{200D}\x{0308}\x{0628}b", %p)}, undef, "to_unicode\(\'A\\u0628\\u0308\\u200D\\u0308\\u0628b\'\)\ throws\ error\ B5\ C2\ \[data\/IdnaTest\.txt\:161\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("¡", %p)}, "¡", "to_unicode\(\'\¡\'\)\ \[data\/IdnaTest\.txt\:165\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--7a", %p)}, "¡", "to_unicode\(\'xn\-\-7a\'\)\ \[data\/IdnaTest\.txt\:166\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("᧚", %p)}, "᧚", "to_unicode\(\'᧚\'\)\ \[data\/IdnaTest\.txt\:167\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("xn--pkf", %p)}, "᧚", "to_unicode\(\'xn\-\-pkf\'\)\ \[data\/IdnaTest\.txt\:168\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("。", %p)}, undef, "to_unicode\(\'\。\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:169\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("ꭠ", %p)}, "ꭠ", "to_unicode\(\'ꭠ\'\)\ \[data\/IdnaTest\.txt\:170\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("xn--3y9a", %p)}, "ꭠ", "to_unicode\(\'xn\-\-3y9a\'\)\ \[data\/IdnaTest\.txt\:171\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("1234567890ä1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890ä1234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:172\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1234567890a\x{0308}1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890a\\u03081234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:173\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1234567890A\x{0308}1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890A\\u03081234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:174\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1234567890Ä1234567890123456789012345678901234567890123456", %p)}, "1234567890ä1234567890123456789012345678901234567890123456", "to_unicode\(\'1234567890Ä1234567890123456789012345678901234567890123456\'\)\ \[data\/IdnaTest\.txt\:175\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("www.eXample.cOm", %p)}, "www.example.com", "to_unicode\(\'www\.eXample\.cOm\'\)\ \[data\/IdnaTest\.txt\:176\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Bücher.de", %p)}, "bücher.de", "to_unicode\(\'Bücher\.de\'\)\ \[data\/IdnaTest\.txt\:177\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Bu\x{0308}cher.de", %p)}, "bücher.de", "to_unicode\(\'Bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:178\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("bu\x{0308}cher.de", %p)}, "bücher.de", "to_unicode\(\'bu\\u0308cher\.de\'\)\ \[data\/IdnaTest\.txt\:179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("bücher.de", %p)}, "bücher.de", "to_unicode\(\'bücher\.de\'\)\ \[data\/IdnaTest\.txt\:180\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("BÜCHER.DE", %p)}, "bücher.de", "to_unicode\(\'BÜCHER\.DE\'\)\ \[data\/IdnaTest\.txt\:181\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("BU\x{0308}CHER.DE", %p)}, "bücher.de", "to_unicode\(\'BU\\u0308CHER\.DE\'\)\ \[data\/IdnaTest\.txt\:182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--bcher-kva.de", %p)}, "bücher.de", "to_unicode\(\'xn\-\-bcher\-kva\.de\'\)\ \[data\/IdnaTest\.txt\:183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ÖBB", %p)}, "öbb", "to_unicode\(\'ÖBB\'\)\ \[data\/IdnaTest\.txt\:184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("O\x{0308}BB", %p)}, "öbb", "to_unicode\(\'O\\u0308BB\'\)\ \[data\/IdnaTest\.txt\:185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("o\x{0308}bb", %p)}, "öbb", "to_unicode\(\'o\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("öbb", %p)}, "öbb", "to_unicode\(\'öbb\'\)\ \[data\/IdnaTest\.txt\:187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Öbb", %p)}, "öbb", "to_unicode\(\'Öbb\'\)\ \[data\/IdnaTest\.txt\:188\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("O\x{0308}bb", %p)}, "öbb", "to_unicode\(\'O\\u0308bb\'\)\ \[data\/IdnaTest\.txt\:189\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--bb-eka", %p)}, "öbb", "to_unicode\(\'xn\-\-bb\-eka\'\)\ \[data\/IdnaTest\.txt\:190\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:191\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:192\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:193\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:194\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ΒΟ\x{0301}ΛΟΣ.COM", %p)}, "βόλοσ.com", "to_unicode\(\'ΒΟ\\u0301ΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:195\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ΒΌΛΟΣ.COM", %p)}, "βόλοσ.com", "to_unicode\(\'ΒΌΛΟΣ\.COM\'\)\ \[data\/IdnaTest\.txt\:196\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλοσ.com", %p)}, "βόλοσ.com", "to_unicode\(\'βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:197\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λοσ.com", %p)}, "βόλοσ.com", "to_unicode\(\'βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:198\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βο\x{0301}λοσ.com", %p)}, "βόλοσ.com", "to_unicode\(\'Βο\\u0301λοσ\.com\'\)\ \[data\/IdnaTest\.txt\:199\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βόλοσ.com", %p)}, "βόλοσ.com", "to_unicode\(\'Βόλοσ\.com\'\)\ \[data\/IdnaTest\.txt\:200\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--nxasmq6b.com", %p)}, "βόλοσ.com", "to_unicode\(\'xn\-\-nxasmq6b\.com\'\)\ \[data\/IdnaTest\.txt\:201\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βο\x{0301}λος.com", %p)}, "βόλος.com", "to_unicode\(\'Βο\\u0301λος\.com\'\)\ \[data\/IdnaTest\.txt\:203\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:204\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βόλος.com", %p)}, "βόλος.com", "to_unicode\(\'Βόλος\.com\'\)\ \[data\/IdnaTest\.txt\:205\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--nxasmm1c.com", %p)}, "βόλος.com", "to_unicode\(\'xn\-\-nxasmm1c\.com\'\)\ \[data\/IdnaTest\.txt\:206\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--nxasmm1c", %p)}, "βόλος", "to_unicode\(\'xn\-\-nxasmm1c\'\)\ \[data\/IdnaTest\.txt\:207\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλος", %p)}, "βόλος", "to_unicode\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:208\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλος", %p)}, "βόλος", "to_unicode\(\'βόλος\'\)\ \[data\/IdnaTest\.txt\:209\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:210\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:211\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ΒΟ\x{0301}ΛΟΣ", %p)}, "βόλοσ", "to_unicode\(\'ΒΟ\\u0301ΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:212\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ΒΌΛΟΣ", %p)}, "βόλοσ", "to_unicode\(\'ΒΌΛΟΣ\'\)\ \[data\/IdnaTest\.txt\:213\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βόλοσ", %p)}, "βόλοσ", "to_unicode\(\'βόλοσ\'\)\ \[data\/IdnaTest\.txt\:214\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("βο\x{0301}λοσ", %p)}, "βόλοσ", "to_unicode\(\'βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:215\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βο\x{0301}λοσ", %p)}, "βόλοσ", "to_unicode\(\'Βο\\u0301λοσ\'\)\ \[data\/IdnaTest\.txt\:216\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βόλοσ", %p)}, "βόλοσ", "to_unicode\(\'Βόλοσ\'\)\ \[data\/IdnaTest\.txt\:217\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--nxasmq6b", %p)}, "βόλοσ", "to_unicode\(\'xn\-\-nxasmq6b\'\)\ \[data\/IdnaTest\.txt\:218\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βόλος", %p)}, "βόλος", "to_unicode\(\'Βόλος\'\)\ \[data\/IdnaTest\.txt\:219\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βόλος", %p)}, "βόλος", "to_unicode\(\'Βόλος\'\)\ \[data\/IdnaTest\.txt\:220\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:221\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Βο\x{0301}λος", %p)}, "βόλος", "to_unicode\(\'Βο\\u0301λος\'\)\ \[data\/IdnaTest\.txt\:222\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", %p)}, "www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", "to_unicode\(\'www\.ශ\\u0DCA\\u200Dර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:223\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", %p)}, "www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", "to_unicode\(\'www\.ශ\\u0DCA\\u200Dර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:224\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("www.xn--10cl1a0b.com", %p)}, "www.ශ\x{0DCA}ර\x{0DD3}.com", "to_unicode\(\'www\.xn\-\-10cl1a0b\.com\'\)\ \[data\/IdnaTest\.txt\:225\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("www.ශ\x{0DCA}ර\x{0DD3}.com", %p)}, "www.ශ\x{0DCA}ර\x{0DD3}.com", "to_unicode\(\'www\.ශ\\u0DCAර\\u0DD3\.com\'\)\ \[data\/IdnaTest\.txt\:226\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("www.xn--10cl1a0b660p.com", %p)}, "www.ශ\x{0DCA}\x{200D}ර\x{0DD3}.com", "to_unicode\(\'www\.xn\-\-10cl1a0b660p\.com\'\)\ \[data\/IdnaTest\.txt\:227\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:228\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:229\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--mgba3gch31f", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", "to_unicode\(\'xn\-\-mgba3gch31f\'\)\ \[data\/IdnaTest\.txt\:230\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\'\)\ \[data\/IdnaTest\.txt\:231\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--mgba3gch31f060k", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}", "to_unicode\(\'xn\-\-mgba3gch31f060k\'\)\ \[data\/IdnaTest\.txt\:232\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--mgba3gch31f060k.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", "to_unicode\(\'xn\-\-mgba3gch31f060k\.com\'\)\ \[data\/IdnaTest\.txt\:233\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:234\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{200C}\x{0627}\x{06CC}.com", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u200C\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:235\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--mgba3gch31f.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", "to_unicode\(\'xn\-\-mgba3gch31f\.com\'\)\ \[data\/IdnaTest\.txt\:236\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", %p)}, "\x{0646}\x{0627}\x{0645}\x{0647}\x{0627}\x{06CC}.com", "to_unicode\(\'\\u0646\\u0627\\u0645\\u0647\\u0627\\u06CC\.com\'\)\ \[data\/IdnaTest\.txt\:237\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b.c。d。", %p)}, "a.b.c.d.", "to_unicode\(\'a\.b.c\。d。\'\)\ \[data\/IdnaTest\.txt\:238\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b.c。d。", %p)}, "a.b.c.d.", "to_unicode\(\'a\.b\.c\。d\。\'\)\ \[data\/IdnaTest\.txt\:239\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b.c.d.", %p)}, "a.b.c.d.", "to_unicode\(\'a\.b\.c\.d\.\'\)\ \[data\/IdnaTest\.txt\:240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("U\x{0308}.xn--tda", %p)}, "ü.ü", "to_unicode\(\'U\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ü.xn--tda", %p)}, "ü.ü", "to_unicode\(\'Ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:242\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ü.xn--tda", %p)}, "ü.ü", "to_unicode\(\'ü\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:243\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("u\x{0308}.xn--tda", %p)}, "ü.ü", "to_unicode\(\'u\\u0308\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:244\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--tda.xn--tda", %p)}, "ü.ü", "to_unicode\(\'xn\-\-tda\.xn\-\-tda\'\)\ \[data\/IdnaTest\.txt\:245\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ü.ü", %p)}, "ü.ü", "to_unicode\(\'ü\.ü\'\)\ \[data\/IdnaTest\.txt\:246\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("u\x{0308}.u\x{0308}", %p)}, "ü.ü", "to_unicode\(\'u\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:247\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("U\x{0308}.U\x{0308}", %p)}, "ü.ü", "to_unicode\(\'U\\u0308\.U\\u0308\'\)\ \[data\/IdnaTest\.txt\:248\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ü.Ü", %p)}, "ü.ü", "to_unicode\(\'Ü\.Ü\'\)\ \[data\/IdnaTest\.txt\:249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ü.ü", %p)}, "ü.ü", "to_unicode\(\'Ü\.ü\'\)\ \[data\/IdnaTest\.txt\:250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("U\x{0308}.u\x{0308}", %p)}, "ü.ü", "to_unicode\(\'U\\u0308\.u\\u0308\'\)\ \[data\/IdnaTest\.txt\:251\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--u-ccb", %p)}, undef, "to_unicode\(\'xn\-\-u\-ccb\'\)\ throws\ error\ V1\ \[data\/IdnaTest\.txt\:252\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a⒈com", %p)}, undef, "to_unicode\(\'a⒈com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:253\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a1.com", %p)}, "a1.com", "to_unicode\(\'a1\.com\'\)\ \[data\/IdnaTest\.txt\:254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A⒈COM", %p)}, undef, "to_unicode\(\'A⒈COM\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:255\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A⒈Com", %p)}, undef, "to_unicode\(\'A⒈Com\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:256\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--a-ecp.ru", %p)}, undef, "to_unicode\(\'xn\-\-a\-ecp\.ru\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:257\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--0.pt", %p)}, undef, "to_unicode\(\'xn\-\-0\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:258\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--a.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\.pt\'\)\ throws\ error\ V6\ \[data\/IdnaTest\.txt\:259\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--a-Ä.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:260\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--a-A\x{0308}.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:261\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--a-a\x{0308}.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-a\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--a-ä.pt", %p)}, undef, "to_unicode\(\'xn\-\-a\-ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("XN--A-Ä.PT", %p)}, undef, "to_unicode\(\'XN\-\-A\-Ä\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("XN--A-A\x{0308}.PT", %p)}, undef, "to_unicode\(\'XN\-\-A\-A\\u0308\.PT\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:265\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Xn--A-A\x{0308}.pt", %p)}, undef, "to_unicode\(\'Xn\-\-A\-A\\u0308\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:266\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Xn--A-Ä.pt", %p)}, undef, "to_unicode\(\'Xn\-\-A\-Ä\.pt\'\)\ throws\ error\ A3\ \[data\/IdnaTest\.txt\:267\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語。JP", %p)}, "日本語.jp", "to_unicode\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:268\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語。JP", %p)}, "日本語.jp", "to_unicode\(\'日本語\。JP\'\)\ \[data\/IdnaTest\.txt\:269\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--wgv71a119e.jp", %p)}, "日本語.jp", "to_unicode\(\'xn\-\-wgv71a119e\.jp\'\)\ \[data\/IdnaTest\.txt\:270\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語.jp", %p)}, "日本語.jp", "to_unicode\(\'日本語\.jp\'\)\ \[data\/IdnaTest\.txt\:271\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語。jp", %p)}, "日本語.jp", "to_unicode\(\'日本語\。jp\'\)\ \[data\/IdnaTest\.txt\:272\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("日本語。Jp", %p)}, "日本語.jp", "to_unicode\(\'日本語\。Jp\'\)\ \[data\/IdnaTest\.txt\:273\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("☕", %p)}, "☕", "to_unicode\(\'\☕\'\)\ \[data\/IdnaTest\.txt\:274\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--53h", %p)}, "☕", "to_unicode\(\'xn\-\-53h\'\)\ \[data\/IdnaTest\.txt\:275\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_unicode\(\'1\.aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:276\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_unicode\(\'1\.aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:277\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\x{0302}SSZ", %p)}, undef, "to_unicode\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\\u0302SSZ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:278\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\x{0302}SSZ", %p)}, undef, "to_unicode\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSS\\u0302SSZ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:279\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ", %p)}, undef, "to_unicode\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:280\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.ASS\x{200C}\x{200D}B\x{200C}\x{200D}CSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ", %p)}, undef, "to_unicode\(\'1\.ASS\\u200C\\u200DB\\u200C\\u200DCSSSSSSSSDΣΣSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSXSSSSSSSSSSSSSSSSSSSSYSSSSSSSSSSSSSSSŜSSZ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:281\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_unicode\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:282\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_unicode\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:283\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:284\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:285\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:286\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\x{0302}ssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssyssssssssssssssss\\u0302ssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:287\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:288\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.Ass\x{200C}\x{200D}b\x{200C}\x{200D}cssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz", %p)}, undef, "to_unicode\(\'1\.Ass\\u200C\\u200Db\\u200C\\u200Dcssssssssdσσssssssssssssssssessssssssssssssssssssxssssssssssssssssssssysssssssssssssssŝssz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:289\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.Aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_unicode\(\'1\.Aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:290\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.Aß\x{200C}\x{200D}b\x{200C}\x{200D}cßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\x{0302}ßz", %p)}, undef, "to_unicode\(\'1\.Aß\\u200C\\u200Db\\u200C\\u200Dcßßßßdςσßßßßßßßßeßßßßßßßßßßxßßßßßßßßßßyßßßßßßßß\\u0302ßz\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:291\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bß", %p)}, undef, "to_unicode\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:292\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bß", %p)}, undef, "to_unicode\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:293\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}X\x{200D}N\x{200C}-\x{200D}-BSS", %p)}, undef, "to_unicode\(\'\\u200CX\\u200DN\\u200C\-\\u200D\-BSS\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:294\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}X\x{200D}N\x{200C}-\x{200D}-BSS", %p)}, undef, "to_unicode\(\'\\u200CX\\u200DN\\u200C\-\\u200D\-BSS\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:295\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bss", %p)}, undef, "to_unicode\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:296\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}x\x{200D}n\x{200C}-\x{200D}-bss", %p)}, undef, "to_unicode\(\'\\u200Cx\\u200Dn\\u200C\-\\u200D\-bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:297\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bss", %p)}, undef, "to_unicode\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:298\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bss", %p)}, undef, "to_unicode\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bss\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:299\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--bss", %p)}, "夙", "to_unicode\(\'xn\-\-bss\'\)\ \[data\/IdnaTest\.txt\:300\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("夙", %p)}, "夙", "to_unicode\(\'夙\'\)\ \[data\/IdnaTest\.txt\:301\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bß", %p)}, undef, "to_unicode\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:302\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}X\x{200D}n\x{200C}-\x{200D}-Bß", %p)}, undef, "to_unicode\(\'\\u200CX\\u200Dn\\u200C\-\\u200D\-Bß\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:303\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}ſ\x{2064}𝔰󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00ſ\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:304\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:305\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("x\x{034F}n\x{200B}-\x{00AD}-\x{180C}b\x{FE00}s\x{2064}s󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'x\\u034Fn\\u200B\-\\u00AD\-\\u180Cb\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:306\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("X\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}S󠇯FFL", %p)}, "夡夞夜夙", "to_unicode\(\'X\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064S\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:307\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("X\x{034F}n\x{200B}-\x{00AD}-\x{180C}B\x{FE00}s\x{2064}s󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'X\\u034Fn\\u200B\-\\u00AD\-\\u180CB\\uFE00s\\u2064s\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:308\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("xn--bssffl", %p)}, "夡夞夜夙", "to_unicode\(\'xn\-\-bssffl\'\)\ \[data\/IdnaTest\.txt\:309\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("夡夞夜夙", %p)}, "夡夞夜夙", "to_unicode\(\'夡夞夜夙\'\)\ \[data\/IdnaTest\.txt\:310\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}S\x{2064}𝔰󠇯FFL", %p)}, "夡夞夜夙", "to_unicode\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00S\\u2064𝔰\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:311\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("x\x{034F}N\x{200B}-\x{00AD}-\x{180C}B\x{FE00}S\x{2064}s󠇯FFL", %p)}, "夡夞夜夙", "to_unicode\(\'x\\u034FN\\u200B\-\\u00AD\-\\u180CB\\uFE00S\\u2064s\󠇯FFL\'\)\ \[data\/IdnaTest\.txt\:312\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("ˣ\x{034F}ℕ\x{200B}﹣\x{00AD}-\x{180C}ℬ\x{FE00}s\x{2064}𝔰󠇯ffl", %p)}, "夡夞夜夙", "to_unicode\(\'ˣ\\u034Fℕ\\u200B﹣\\u00AD-\\u180Cℬ\\uFE00s\\u2064𝔰\󠇯ffl\'\)\ \[data\/IdnaTest\.txt\:313\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:314\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:315\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:316\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:317\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:318\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901234.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901234\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:319\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:320\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'a\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:321\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0308}1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'A\\u03081234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:322\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä1234567890123456789012345678901234567890123456789012345", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'Ä1234567890123456789012345678901234567890123456789012345\'\)\ \[data\/IdnaTest\.txt\:323\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--1234567890123456789012345678901234567890123456789012345-9te", %p)}, "ä1234567890123456789012345678901234567890123456789012345", "to_unicode\(\'xn\-\-1234567890123456789012345678901234567890123456789012345\-9te\'\)\ \[data\/IdnaTest\.txt\:324\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:325\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:326\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:327\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:328\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:329\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:330\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:331\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:332\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:333\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.xn--1234567890123456789012345678901234567890123456789012345-kue.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.xn\-\-1234567890123456789012345678901234567890123456789012345\-kue\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\.\'\)\ \[data\/IdnaTest\.txt\:334\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:335\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:336\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u0308123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:337\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä123456789012345678901234567890123456789012345.123456789012345678901234567890123456789012345678901234567890123.12345678901234567890123456789012345678901234567890123456789012", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä123456789012345678901234567890123456789012345\.123456789012345678901234567890123456789012345678901234567890123\.12345678901234567890123456789012345678901234567890123456789012\'\)\ \[data\/IdnaTest\.txt\:338\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:339\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:340\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:341\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\'\)\ \[data\/IdnaTest\.txt\:342\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:343\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:344\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:345\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.123456789012345678901234567890123456789012345678901234567890.", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.123456789012345678901234567890123456789012345678901234567890\.\'\)\ \[data\/IdnaTest\.txt\:346\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:347\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890a\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890a\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:348\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890A\x{0308}1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890A\\u03081234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:349\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("123456789012345678901234567890123456789012345678901234567890123.1234567890Ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", %p)}, "123456789012345678901234567890123456789012345678901234567890123.1234567890ä1234567890123456789012345678901234567890123456.123456789012345678901234567890123456789012345678901234567890123.1234567890123456789012345678901234567890123456789012345678901", "to_unicode\(\'123456789012345678901234567890123456789012345678901234567890123\.1234567890Ä1234567890123456789012345678901234567890123456\.123456789012345678901234567890123456789012345678901234567890123\.1234567890123456789012345678901234567890123456789012345678901\'\)\ \[data\/IdnaTest\.txt\:350\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b..-q--a-.e", %p)}, undef, "to_unicode\(\'a\.b\.\.\-q\-\-a\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:351\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b..-q--ä-.e", %p)}, undef, "to_unicode\(\'a\.b\.\.\-q\-\-ä\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:352\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b..-q--a\x{0308}-.e", %p)}, undef, "to_unicode\(\'a\.b\.\.\-q\-\-a\\u0308\-\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:353\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A.B..-Q--A\x{0308}-.E", %p)}, undef, "to_unicode\(\'A\.B\.\.\-Q\-\-A\\u0308\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:354\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A.B..-Q--Ä-.E", %p)}, undef, "to_unicode\(\'A\.B\.\.\-Q\-\-Ä\-\.E\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:355\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b..xn---q----jra.e", %p)}, undef, "to_unicode\(\'a\.b\.\.xn\-\-\-q\-\-\-\-jra\.e\'\)\ throws\ error\ V2\ V3\ A4_2\ \[data\/IdnaTest\.txt\:356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a..c", %p)}, undef, "to_unicode\(\'a\.\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:357\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.-b.", %p)}, undef, "to_unicode\(\'a\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:358\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b-.c", %p)}, undef, "to_unicode\(\'a\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:359\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.-.c", %p)}, undef, "to_unicode\(\'a\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:360\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.bc--de.f", %p)}, undef, "to_unicode\(\'a\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:361\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.\x{00AD}.c", %p)}, undef, "to_unicode\(\'ä\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:362\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0308}.\x{00AD}.c", %p)}, undef, "to_unicode\(\'a\\u0308\.\\u00AD\.c\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:363\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0308}.\x{00AD}.C", %p)}, undef, "to_unicode\(\'A\\u0308\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:364\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.\x{00AD}.C", %p)}, undef, "to_unicode\(\'Ä\.\\u00AD\.C\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:365\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.-b.", %p)}, undef, "to_unicode\(\'ä\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:366\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0308}.-b.", %p)}, undef, "to_unicode\(\'a\\u0308\.\-b\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:367\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0308}.-B.", %p)}, undef, "to_unicode\(\'A\\u0308\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:368\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.-B.", %p)}, undef, "to_unicode\(\'Ä\.\-B\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:369\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.b-.c", %p)}, undef, "to_unicode\(\'ä\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:370\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0308}.b-.c", %p)}, undef, "to_unicode\(\'a\\u0308\.b\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0308}.B-.C", %p)}, undef, "to_unicode\(\'A\\u0308\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:372\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.B-.C", %p)}, undef, "to_unicode\(\'Ä\.B\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:373\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.-.c", %p)}, undef, "to_unicode\(\'ä\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:374\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0308}.-.c", %p)}, undef, "to_unicode\(\'a\\u0308\.\-\.c\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:375\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0308}.-.C", %p)}, undef, "to_unicode\(\'A\\u0308\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:376\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.-.C", %p)}, undef, "to_unicode\(\'Ä\.\-\.C\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:377\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ä.bc--de.f", %p)}, undef, "to_unicode\(\'ä\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:378\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{0308}.bc--de.f", %p)}, undef, "to_unicode\(\'a\\u0308\.bc\-\-de\.f\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:379\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{0308}.BC--DE.F", %p)}, undef, "to_unicode\(\'A\\u0308\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:380\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ä.BC--DE.F", %p)}, undef, "to_unicode\(\'Ä\.BC\-\-DE\.F\'\)\ throws\ error\ V2\ \[data\/IdnaTest\.txt\:381\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b.\x{0308}c.d", %p)}, undef, "to_unicode\(\'a\.b\.\\u0308c\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:382\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A.B.\x{0308}C.D", %p)}, undef, "to_unicode\(\'A\.B\.\\u0308C\.D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:383\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a.b.xn--c-bcb.d", %p)}, undef, "to_unicode\(\'a\.b\.xn\-\-c\-bcb\.d\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:384\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A0", %p)}, "a0", "to_unicode\(\'A0\'\)\ \[data\/IdnaTest\.txt\:385\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0A", %p)}, "0a", "to_unicode\(\'0A\'\)\ \[data\/IdnaTest\.txt\:386\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0A.\x{05D0}", %p)}, "0a.\x{05D0}", "to_unicode\(\'0A\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:387\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0a.xn--4db", %p)}, "0a.\x{05D0}", "to_unicode\(\'0a\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:388\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("c.xn--0-eha.xn--4db", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'c\.xn\-\-0\-eha\.xn\-\-4db\'\)\ \[data\/IdnaTest\.txt\:389\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("c.0ü.\x{05D0}", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'c\.0ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:390\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("c.0u\x{0308}.\x{05D0}", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'c\.0u\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:391\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("C.0U\x{0308}.\x{05D0}", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'C\.0U\\u0308\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:392\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("C.0Ü.\x{05D0}", %p)}, "c.0ü.\x{05D0}", "to_unicode\(\'C\.0Ü\.\\u05D0\'\)\ \[data\/IdnaTest\.txt\:393\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("b-.\x{05D0}", %p)}, undef, "to_unicode\(\'b\-\.\\u05D0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:394\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("d.xn----dha.xn--4db", %p)}, undef, "to_unicode\(\'d\.xn\-\-\-\-dha\.xn\-\-4db\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:395\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{05D0}", %p)}, undef, "to_unicode\(\'a\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:396\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{05D0}", %p)}, undef, "to_unicode\(\'A\\u05D0\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:397\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{05D0}\x{05C7}", %p)}, "\x{05D0}\x{05C7}", "to_unicode\(\'\\u05D0\\u05C7\'\)\ \[data\/IdnaTest\.txt\:398\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--vdbr", %p)}, "\x{05D0}\x{05C7}", "to_unicode\(\'xn\-\-vdbr\'\)\ \[data\/IdnaTest\.txt\:399\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{05D0}9\x{05C7}", %p)}, "\x{05D0}9\x{05C7}", "to_unicode\(\'\\u05D09\\u05C7\'\)\ \[data\/IdnaTest\.txt\:400\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--9-ihcz", %p)}, "\x{05D0}9\x{05C7}", "to_unicode\(\'xn\-\-9\-ihcz\'\)\ \[data\/IdnaTest\.txt\:401\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{05D0}a\x{05C7}", %p)}, undef, "to_unicode\(\'\\u05D0a\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:402\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{05D0}A\x{05C7}", %p)}, undef, "to_unicode\(\'\\u05D0A\\u05C7\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:403\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{05D0}\x{05EA}", %p)}, "\x{05D0}\x{05EA}", "to_unicode\(\'\\u05D0\\u05EA\'\)\ \[data\/IdnaTest\.txt\:404\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--4db6c", %p)}, "\x{05D0}\x{05EA}", "to_unicode\(\'xn\-\-4db6c\'\)\ \[data\/IdnaTest\.txt\:405\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05D0}\x{05F3}\x{05EA}", %p)}, "\x{05D0}\x{05F3}\x{05EA}", "to_unicode\(\'\\u05D0\\u05F3\\u05EA\'\)\ \[data\/IdnaTest\.txt\:406\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--4db6c0a", %p)}, "\x{05D0}\x{05F3}\x{05EA}", "to_unicode\(\'xn\-\-4db6c0a\'\)\ \[data\/IdnaTest\.txt\:407\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{05D0}Tz", %p)}, undef, "to_unicode\(\'a\\u05D0Tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:408\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{05D0}tz", %p)}, undef, "to_unicode\(\'a\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:409\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{05D0}TZ", %p)}, undef, "to_unicode\(\'A\\u05D0TZ\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:410\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{05D0}tz", %p)}, undef, "to_unicode\(\'A\\u05D0tz\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:411\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05D0}T\x{05EA}", %p)}, undef, "to_unicode\(\'\\u05D0T\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:412\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05D0}t\x{05EA}", %p)}, undef, "to_unicode\(\'\\u05D0t\\u05EA\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:413\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05D0}7\x{05EA}", %p)}, "\x{05D0}7\x{05EA}", "to_unicode\(\'\\u05D07\\u05EA\'\)\ \[data\/IdnaTest\.txt\:414\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--7-zhc3f", %p)}, "\x{05D0}7\x{05EA}", "to_unicode\(\'xn\-\-7\-zhc3f\'\)\ \[data\/IdnaTest\.txt\:415\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05D0}\x{0667}\x{05EA}", %p)}, "\x{05D0}\x{0667}\x{05EA}", "to_unicode\(\'\\u05D0\\u0667\\u05EA\'\)\ \[data\/IdnaTest\.txt\:416\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--4db6c6t", %p)}, "\x{05D0}\x{0667}\x{05EA}", "to_unicode\(\'xn\-\-4db6c6t\'\)\ \[data\/IdnaTest\.txt\:417\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a7\x{0667}z", %p)}, undef, "to_unicode\(\'a7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:418\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A7\x{0667}Z", %p)}, undef, "to_unicode\(\'A7\\u0667Z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:419\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A7\x{0667}z", %p)}, undef, "to_unicode\(\'A7\\u0667z\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:420\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05D0}7\x{0667}\x{05EA}", %p)}, undef, "to_unicode\(\'\\u05D07\\u0667\\u05EA\'\)\ throws\ error\ B4\ \[data\/IdnaTest\.txt\:421\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200D}", %p)}, "ஹ\x{0BCD}\x{200D}", "to_unicode\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:422\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200D}", %p)}, "ஹ\x{0BCD}\x{200D}", "to_unicode\(\'ஹ\\u0BCD\\u200D\'\)\ \[data\/IdnaTest\.txt\:423\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--dmc4b", %p)}, "ஹ\x{0BCD}", "to_unicode\(\'xn\-\-dmc4b\'\)\ \[data\/IdnaTest\.txt\:424\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{0BCD}", %p)}, "ஹ\x{0BCD}", "to_unicode\(\'ஹ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:425\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--dmc4b194h", %p)}, "ஹ\x{0BCD}\x{200D}", "to_unicode\(\'xn\-\-dmc4b194h\'\)\ \[data\/IdnaTest\.txt\:426\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{200D}", %p)}, undef, "to_unicode\(\'ஹ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:427\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{200D}", %p)}, undef, "to_unicode\(\'ஹ\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:428\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--dmc", %p)}, "ஹ", "to_unicode\(\'xn\-\-dmc\'\)\ \[data\/IdnaTest\.txt\:429\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ", %p)}, "ஹ", "to_unicode\(\'ஹ\'\)\ \[data\/IdnaTest\.txt\:430\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:431\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:432\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200C}", %p)}, "ஹ\x{0BCD}\x{200C}", "to_unicode\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:433\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{0BCD}\x{200C}", %p)}, "ஹ\x{0BCD}\x{200C}", "to_unicode\(\'ஹ\\u0BCD\\u200C\'\)\ \[data\/IdnaTest\.txt\:434\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--dmc4by94h", %p)}, "ஹ\x{0BCD}\x{200C}", "to_unicode\(\'xn\-\-dmc4by94h\'\)\ \[data\/IdnaTest\.txt\:435\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{200C}", %p)}, undef, "to_unicode\(\'ஹ\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:436\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ஹ\x{200C}", %p)}, undef, "to_unicode\(\'ஹ\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:437\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:438\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:439\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:440\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:441\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb2gxqia", %p)}, "\x{0644}\x{0670}\x{06ED}\x{06EF}", "to_unicode\(\'xn\-\-ghb2gxqia\'\)\ \[data\/IdnaTest\.txt\:442\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:443\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb2gxqia7523a", %p)}, "\x{0644}\x{0670}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'xn\-\-ghb2gxqia7523a\'\)\ \[data\/IdnaTest\.txt\:444\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{200C}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:445\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{200C}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb2g3q", %p)}, "\x{0644}\x{0670}\x{06EF}", "to_unicode\(\'xn\-\-ghb2g3q\'\)\ \[data\/IdnaTest\.txt\:447\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{06EF}", %p)}, "\x{0644}\x{0670}\x{06EF}", "to_unicode\(\'\\u0644\\u0670\\u06EF\'\)\ \[data\/IdnaTest\.txt\:448\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb2g3qq34f", %p)}, "\x{0644}\x{0670}\x{200C}\x{06EF}", "to_unicode\(\'xn\-\-ghb2g3qq34f\'\)\ \[data\/IdnaTest\.txt\:449\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{200C}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:450\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{200C}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u200C\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:451\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb25aga", %p)}, "\x{0644}\x{06ED}\x{06EF}", "to_unicode\(\'xn\-\-ghb25aga\'\)\ \[data\/IdnaTest\.txt\:452\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{06ED}\x{06EF}", %p)}, "\x{0644}\x{06ED}\x{06EF}", "to_unicode\(\'\\u0644\\u06ED\\u06EF\'\)\ \[data\/IdnaTest\.txt\:453\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb25aga828w", %p)}, "\x{0644}\x{200C}\x{06ED}\x{06EF}", "to_unicode\(\'xn\-\-ghb25aga828w\'\)\ \[data\/IdnaTest\.txt\:454\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{200C}\x{06EF}", %p)}, "\x{0644}\x{200C}\x{06EF}", "to_unicode\(\'\\u0644\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:455\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{200C}\x{06EF}", %p)}, "\x{0644}\x{200C}\x{06EF}", "to_unicode\(\'\\u0644\\u200C\\u06EF\'\)\ \[data\/IdnaTest\.txt\:456\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb65a", %p)}, "\x{0644}\x{06EF}", "to_unicode\(\'xn\-\-ghb65a\'\)\ \[data\/IdnaTest\.txt\:457\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{06EF}", %p)}, "\x{0644}\x{06EF}", "to_unicode\(\'\\u0644\\u06EF\'\)\ \[data\/IdnaTest\.txt\:458\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb65a953d", %p)}, "\x{0644}\x{200C}\x{06EF}", "to_unicode\(\'xn\-\-ghb65a953d\'\)\ \[data\/IdnaTest\.txt\:459\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06ED}", %p)}, undef, "to_unicode\(\'\\u0644\\u0670\\u200C\\u06ED\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:460\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{200C}\x{06ED}", %p)}, undef, "to_unicode\(\'\\u0644\\u0670\\u200C\\u06ED\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:461\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb2gxq", %p)}, "\x{0644}\x{0670}\x{06ED}", "to_unicode\(\'xn\-\-ghb2gxq\'\)\ \[data\/IdnaTest\.txt\:462\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{0670}\x{06ED}", %p)}, "\x{0644}\x{0670}\x{06ED}", "to_unicode\(\'\\u0644\\u0670\\u06ED\'\)\ \[data\/IdnaTest\.txt\:463\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EF}\x{200C}\x{06EF}", %p)}, undef, "to_unicode\(\'\\u06EF\\u200C\\u06EF\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:464\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EF}\x{200C}\x{06EF}", %p)}, undef, "to_unicode\(\'\\u06EF\\u200C\\u06EF\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:465\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--cmba", %p)}, "\x{06EF}\x{06EF}", "to_unicode\(\'xn\-\-cmba\'\)\ \[data\/IdnaTest\.txt\:466\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EF}\x{06EF}", %p)}, "\x{06EF}\x{06EF}", "to_unicode\(\'\\u06EF\\u06EF\'\)\ \[data\/IdnaTest\.txt\:467\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0644\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:468\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0644\\u200C\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:469\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ghb", %p)}, "\x{0644}", "to_unicode\(\'xn\-\-ghb\'\)\ \[data\/IdnaTest\.txt\:470\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0644}", %p)}, "\x{0644}", "to_unicode\(\'\\u0644\'\)\ \[data\/IdnaTest\.txt\:471\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒕∝\x{FE0E}񋆨.-󠄠", %p)}, undef, "to_unicode\(\'⒕\∝\\uFE0E񋆨.\-\󠄠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:475\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("14.∝\x{FE0E}񋆨.-󠄠", %p)}, undef, "to_unicode\(\'14\.\∝\\uFE0E񋆨\.\-\󠄠\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:476\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{07CE}.\x{076D}", %p)}, "\x{07CE}.\x{076D}", "to_unicode\(\'\\u07CE\.\\u076D\'\)\ \[data\/IdnaTest\.txt\:477\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("xn--psb.xn--xpb", %p)}, "\x{07CE}.\x{076D}", "to_unicode\(\'xn\-\-psb\.xn\-\-xpb\'\)\ \[data\/IdnaTest\.txt\:478\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≯\x{0600}。-", %p)}, undef, "to_unicode\(\'\≯\\u0600。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:479\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{0600}。-", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0600。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:480\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{0600}。-", %p)}, undef, "to_unicode\(\'\≯\\u0600\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:481\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{0600}。-", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0600\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:482\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{0602}⾕.\x{115F}\x{000F}ςႭ", %p)}, undef, "to_unicode\(\'⾛\\u0602⾕\.\\u115F\\u000FςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:483\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{0602}谷.\x{115F}\x{000F}ςႭ", %p)}, undef, "to_unicode\(\'走\\u0602谷\.\\u115F\\u000FςႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:484\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{0602}谷.\x{115F}\x{000F}ςⴍ", %p)}, undef, "to_unicode\(\'走\\u0602谷\.\\u115F\\u000Fςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:485\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{0602}谷.\x{115F}\x{000F}ΣႭ", %p)}, undef, "to_unicode\(\'走\\u0602谷\.\\u115F\\u000FΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:486\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{0602}谷.\x{115F}\x{000F}σⴍ", %p)}, undef, "to_unicode\(\'走\\u0602谷\.\\u115F\\u000Fσⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:487\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走\x{0602}谷.\x{115F}\x{000F}Σⴍ", %p)}, undef, "to_unicode\(\'走\\u0602谷\.\\u115F\\u000FΣⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:488\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{0602}⾕.\x{115F}\x{000F}ςⴍ", %p)}, undef, "to_unicode\(\'⾛\\u0602⾕\.\\u115F\\u000Fςⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:489\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{0602}⾕.\x{115F}\x{000F}ΣႭ", %p)}, undef, "to_unicode\(\'⾛\\u0602⾕\.\\u115F\\u000FΣႭ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:490\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{0602}⾕.\x{115F}\x{000F}σⴍ", %p)}, undef, "to_unicode\(\'⾛\\u0602⾕\.\\u115F\\u000Fσⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:491\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛\x{0602}⾕.\x{115F}\x{000F}Σⴍ", %p)}, undef, "to_unicode\(\'⾛\\u0602⾕\.\\u115F\\u000FΣⴍ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:492\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≠\x{07E0}≯.솣-\x{0692}Ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠\\u07E0\≯\.솣\-\\u0692Ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:493\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≠\x{07E0}≯.솣-\x{0692}Ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠\\u07E0\≯\.솣\-\\u0692Ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:494\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}=\x{0338}\x{07E0}>\x{0338}.솣-\x{0692}Ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338\\u07E0\>\\u0338\.솣\-\\u0692Ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:495\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}=\x{0338}\x{07E0}>\x{0338}.솣-\x{0692}Ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338\\u07E0\>\\u0338\.솣\-\\u0692Ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:496\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}=\x{0338}\x{07E0}>\x{0338}.솣-\x{0692}ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338\\u07E0\>\\u0338\.솣\-\\u0692ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:497\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}=\x{0338}\x{07E0}>\x{0338}.솣-\x{0692}ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\=\\u0338\\u07E0\>\\u0338\.솣\-\\u0692ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:498\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≠\x{07E0}≯.솣-\x{0692}ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠\\u07E0\≯\.솣\-\\u0692ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:499\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≠\x{07E0}≯.솣-\x{0692}ⴀ", %p)}, undef, "to_unicode\(\'\\u200D\≠\\u07E0\≯\.솣\-\\u0692ⴀ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B5\ \[data\/IdnaTest\.txt\:500\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򺓺.𐸛\x{1B36}ᠠ\x{0664}", %p)}, undef, "to_unicode\(\'򺓺.𐸛\\u1B36ᠠ\\u0664\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:501\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򺓺.𐸛\x{1B36}ᠠ\x{0664}", %p)}, undef, "to_unicode\(\'򺓺\.𐸛\\u1B36ᠠ\\u0664\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:502\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{E9D9}\x{302C}.\x{A953}", %p)}, undef, "to_unicode\(\'\\uE9D9\\u302C\.\\uA953\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:503\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠷ\x{09CD}𒚉。\x{0732}Ⴣꡐ", %p)}, undef, "to_unicode\(\'ᠷ\\u09CD𒚉\。\\u0732Ⴣꡐ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:504\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠷ\x{09CD}𒚉。\x{0732}ⴣꡐ", %p)}, undef, "to_unicode\(\'ᠷ\\u09CD𒚉\。\\u0732ⴣꡐ\'\)\ throws\ error\ P1\ V6\ V5\ \[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{2D7F}ς⋀。\x{0FB6}렧", %p)}, undef, "to_unicode\(\'𐹢\\u2D7Fς\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:506\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_unicode\(\'𐹢\\u2D7Fς\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:507\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_unicode\(\'𐹢\\u2D7FΣ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:508\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_unicode\(\'𐹢\\u2D7FΣ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:509\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_unicode\(\'𐹢\\u2D7Fσ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:510\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0FB6}렧", %p)}, undef, "to_unicode\(\'𐹢\\u2D7Fσ\⋀\。\\u0FB6렧\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:511\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-\x{200D}。ᡠ\x{200C}\x{200D}⒈", %p)}, undef, "to_unicode\(\'\-\\u200D\。ᡠ\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:512\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}。ᡠ\x{200C}\x{200D}⒈", %p)}, undef, "to_unicode\(\'\-\\u200D\。ᡠ\\u200C\\u200D⒈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:513\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}。ᡠ\x{200C}\x{200D}1.", %p)}, undef, "to_unicode\(\'\-\\u200D\。ᡠ\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:514\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}。ᡠ\x{200C}\x{200D}1.", %p)}, undef, "to_unicode\(\'\-\\u200D\。ᡠ\\u200C\\u200D1\.\'\)\ throws\ error\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:515\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}򈘂.Ⴒ\x{ABED}", %p)}, undef, "to_unicode\(\'\\u200C򈘂\.Ⴒ\\uABED\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:516\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}򈘂.Ⴒ\x{ABED}", %p)}, undef, "to_unicode\(\'\\u200C򈘂\.Ⴒ\\uABED\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:517\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}򈘂.ⴒ\x{ABED}", %p)}, undef, "to_unicode\(\'\\u200C򈘂\.ⴒ\\uABED\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:518\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}򈘂.ⴒ\x{ABED}", %p)}, undef, "to_unicode\(\'\\u200C򈘂\.ⴒ\\uABED\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:519\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{1039}\x{200D}.8︒", %p)}, undef, "to_unicode\(\'繱\\u1039\\u200D\.8︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:520\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{1039}\x{200D}.8。", %p)}, "繱\x{1039}\x{200D}.8.", "to_unicode\(\'繱\\u1039\\u200D\.8\。\'\)\ \[data\/IdnaTest\.txt\:521\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{1039}\x{200D}.8。", %p)}, "繱\x{1039}\x{200D}.8.", "to_unicode\(\'繱\\u1039\\u200D\.8\。\'\)\ \[data\/IdnaTest\.txt\:522\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--9jd5457c.8.", %p)}, "繱\x{1039}.8.", "to_unicode\(\'xn\-\-9jd5457c\.8\.\'\)\ \[data\/IdnaTest\.txt\:523\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{1039}.8.", %p)}, "繱\x{1039}.8.", "to_unicode\(\'繱\\u1039\.8\.\'\)\ \[data\/IdnaTest\.txt\:524\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--9jd812ffm5e.8.", %p)}, "繱\x{1039}\x{200D}.8.", "to_unicode\(\'xn\-\-9jd812ffm5e\.8\.\'\)\ \[data\/IdnaTest\.txt\:525\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{1039}\x{200D}.8.", %p)}, "繱\x{1039}\x{200D}.8.", "to_unicode\(\'繱\\u1039\\u200D\.8\.\'\)\ \[data\/IdnaTest\.txt\:526\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("繱\x{1039}\x{200D}.8.", %p)}, "繱\x{1039}\x{200D}.8.", "to_unicode\(\'繱\\u1039\\u200D\.8\.\'\)\ \[data\/IdnaTest\.txt\:527\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠅕.\x{1927}", %p)}, undef, "to_unicode\(\'\󠅕.\\u1927\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:528\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠅕.\x{1927}", %p)}, undef, "to_unicode\(\'\󠅕\.\\u1927\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:529\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß󠇦。\x{200D}", %p)}, undef, "to_unicode\(\'ß\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:530\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß󠇦。\x{200D}", %p)}, undef, "to_unicode\(\'ß\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:531\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS󠇦。\x{200D}", %p)}, undef, "to_unicode\(\'SS\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:532\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS󠇦。\x{200D}", %p)}, undef, "to_unicode\(\'SS\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:533\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss󠇦。\x{200D}", %p)}, undef, "to_unicode\(\'ss\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:534\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss󠇦。\x{200D}", %p)}, undef, "to_unicode\(\'ss\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:535\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss󠇦。\x{200D}", %p)}, undef, "to_unicode\(\'Ss\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:536\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss󠇦。\x{200D}", %p)}, undef, "to_unicode\(\'Ss\󠇦\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:537\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss.", %p)}, "ss.", "to_unicode\(\'ss\.\'\)\ \[data\/IdnaTest\.txt\:538\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠯓\x{200C}⒈.󠅵", %p)}, undef, "to_unicode\(\'\󠯓\\u200C⒈.\󠅵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:539\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠯓\x{200C}⒈.󠅵", %p)}, undef, "to_unicode\(\'\󠯓\\u200C⒈.\󠅵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:540\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠯓\x{200C}1..󠅵", %p)}, undef, "to_unicode\(\'\󠯓\\u200C1\.\.\󠅵\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:541\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠯓\x{200C}1..󠅵", %p)}, undef, "to_unicode\(\'\󠯓\\u200C1\.\.\󠅵\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:542\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򸕹\x{1072}󠆈ß。󚭹", %p)}, undef, "to_unicode\(\'򸕹\\u1072\󠆈ß\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:543\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򸕹\x{1072}󠆈SS。󚭹", %p)}, undef, "to_unicode\(\'򸕹\\u1072\󠆈SS\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:544\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򸕹\x{1072}󠆈ss。󚭹", %p)}, undef, "to_unicode\(\'򸕹\\u1072\󠆈ss\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:545\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򸕹\x{1072}󠆈Ss。󚭹", %p)}, undef, "to_unicode\(\'򸕹\\u1072\󠆈Ss\。󚭹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:546\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06A8}\x{200C}𐮂。󻋜䉜\x{200D}񒑺", %p)}, undef, "to_unicode\(\'\\u06A8\\u200C𐮂\。󻋜䉜\\u200D񒑺\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:547\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06A8}\x{200C}𐮂。󻋜䉜\x{200D}񒑺", %p)}, undef, "to_unicode\(\'\\u06A8\\u200C𐮂\。󻋜䉜\\u200D񒑺\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:548\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎ς\x{07DA}⒈.≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎ς\\u07DA⒈\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:549\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎ς\x{07DA}⒈.<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎ς\\u07DA⒈\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:550\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎ς\x{07DA}1..≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎ς\\u07DA1\.\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:551\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎ς\x{07DA}1..<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎ς\\u07DA1\.\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:552\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎Σ\x{07DA}1..<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎Σ\\u07DA1\.\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:553\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎Σ\x{07DA}1..≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎Σ\\u07DA1\.\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎σ\x{07DA}1..≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎σ\\u07DA1\.\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎σ\x{07DA}1..<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎σ\\u07DA1\.\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎Σ\x{07DA}⒈.<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎Σ\\u07DA⒈\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:557\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎Σ\x{07DA}⒈.≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎Σ\\u07DA⒈\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:558\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎σ\x{07DA}⒈.≮𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎σ\\u07DA⒈\.\≮𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:559\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞀎σ\x{07DA}⒈.<\x{0338}𑂹\x{200D}\x{067F}", %p)}, undef, "to_unicode\(\'񞀎σ\\u07DA⒈\.\<\\u0338𑂹\\u200D\\u067F\'\)\ throws\ error\ P1\ V6\ B5\ B1\ \[data\/IdnaTest\.txt\:560\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3164}\x{0CCD}Ⴀ𑇋.\x{180B}", %p)}, undef, "to_unicode\(\'\\u3164\\u0CCDႠ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:561\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1160}\x{0CCD}Ⴀ𑇋.\x{180B}", %p)}, undef, "to_unicode\(\'\\u1160\\u0CCDႠ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:562\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1160}\x{0CCD}ⴀ𑇋.\x{180B}", %p)}, undef, "to_unicode\(\'\\u1160\\u0CCDⴀ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:563\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{3164}\x{0CCD}ⴀ𑇋.\x{180B}", %p)}, undef, "to_unicode\(\'\\u3164\\u0CCDⴀ𑇋\.\\u180B\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:564\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠜈\x{200D}.\x{1BF3}󠄀󠆦\x{1B6D}", %p)}, undef, "to_unicode\(\'\󠜈\\u200D.\\u1BF3\󠄀\󠆦\\u1B6D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:565\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠜈\x{200D}.\x{1BF3}󠄀󠆦\x{1B6D}", %p)}, undef, "to_unicode\(\'\󠜈\\u200D.\\u1BF3\󠄀\󠆦\\u1B6D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:566\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠜈\x{200D}.\x{1BF3}󠄀󠆦\x{1B6D}", %p)}, undef, "to_unicode\(\'\󠜈\\u200D\.\\u1BF3\󠄀\󠆦\\u1B6D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:567\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠜈\x{200D}.\x{1BF3}󠄀󠆦\x{1B6D}", %p)}, undef, "to_unicode\(\'\󠜈\\u200D\.\\u1BF3\󠄀\󠆦\\u1B6D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:568\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮𐸧𞶡.≯𼫗ᡖ", %p)}, undef, "to_unicode\(\'\≮𐸧𞶡\.\≯𼫗ᡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:569\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}𐸧𞶡.>\x{0338}𼫗ᡖ", %p)}, undef, "to_unicode\(\'\<\\u0338𐸧𞶡\.\>\\u0338𼫗ᡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:570\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C7}𐥴\x{0857}№。\x{1BAA}ꡊ", %p)}, undef, "to_unicode\(\'\\u05C7𐥴\\u0857№。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:571\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C7}𐥴\x{0857}No。\x{1BAA}ꡊ", %p)}, undef, "to_unicode\(\'\\u05C7𐥴\\u0857No\。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:572\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C7}𐥴\x{0857}no。\x{1BAA}ꡊ", %p)}, undef, "to_unicode\(\'\\u05C7𐥴\\u0857no\。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:573\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C7}𐥴\x{0857}NO。\x{1BAA}ꡊ", %p)}, undef, "to_unicode\(\'\\u05C7𐥴\\u0857NO\。\\u1BAAꡊ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:574\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F9F}。􃍩", %p)}, undef, "to_unicode\(\'\\u0F9F\。􃍩\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:575\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}\x{1B6B}.\x{1160}", %p)}, undef, "to_unicode\(\'\\uA9C0\\u1B6B.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:576\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}\x{1B6B}.\x{1160}", %p)}, undef, "to_unicode\(\'\\uA9C0\\u1B6B\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:577\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{08A7}\x{200D}。󴀴\x{079E}", %p)}, undef, "to_unicode\(\'\-\\u08A7\\u200D\。󴀴\\u079E\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:578\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{08A7}\x{200D}。󴀴\x{079E}", %p)}, undef, "to_unicode\(\'\-\\u08A7\\u200D\。󴀴\\u079E\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:579\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072B}\x{1920}≯󞉲。󠇨⾇滸𐹭", %p)}, undef, "to_unicode\(\'\\u072B\\u1920\≯󞉲\。\󠇨⾇滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:580\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072B}\x{1920}>\x{0338}󞉲。󠇨⾇滸𐹭", %p)}, undef, "to_unicode\(\'\\u072B\\u1920\>\\u0338󞉲\。\󠇨⾇滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:581\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072B}\x{1920}≯󞉲。󠇨舛滸𐹭", %p)}, undef, "to_unicode\(\'\\u072B\\u1920\≯󞉲\。\󠇨舛滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:582\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072B}\x{1920}>\x{0338}󞉲。󠇨舛滸𐹭", %p)}, undef, "to_unicode\(\'\\u072B\\u1920\>\\u0338󞉲\。\󠇨舛滸𐹭\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:583\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{08FB}", %p)}, undef, "to_unicode\(\'蔏。\\u08FB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:584\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{08FB}", %p)}, undef, "to_unicode\(\'蔏\。\\u08FB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:585\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𝟿𐮂。\x{034E}", %p)}, undef, "to_unicode\(\'𝟿𐮂\。\\u034E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:586\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("9𐮂。\x{034E}", %p)}, undef, "to_unicode\(\'9𐮂\。\\u034E\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:587\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󧫃-䟖F。\x{069B}⒈𐹣", %p)}, undef, "to_unicode\(\'󧫃\-䟖F\。\\u069B⒈𐹣\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:588\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󧫃-䟖F。\x{069B}1.𐹣", %p)}, undef, "to_unicode\(\'󧫃\-䟖F\。\\u069B1\.𐹣\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:589\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󧫃-䟖f。\x{069B}1.𐹣", %p)}, undef, "to_unicode\(\'󧫃\-䟖f\。\\u069B1\.𐹣\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:590\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󧫃-䟖f。\x{069B}⒈𐹣", %p)}, undef, "to_unicode\(\'󧫃\-䟖f\。\\u069B⒈𐹣\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:591\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}。𐹣", %p)}, undef, "to_unicode\(\'\\u200C。𐹣\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:592\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}。𐹣", %p)}, undef, "to_unicode\(\'\\u200C。𐹣\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:593\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}。𐹣", %p)}, undef, "to_unicode\(\'\\u200C\。𐹣\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:594\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}。𐹣", %p)}, undef, "to_unicode\(\'\\u200C\。𐹣\'\)\ throws\ error\ C1\ B1\ \[data\/IdnaTest\.txt\:595\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𞠃.≯\x{200C}-\x{0714}", %p)}, undef, "to_unicode\(\'𞠃\.\≯\\u200C\-\\u0714\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:596\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠃.≯\x{200C}-\x{0714}", %p)}, undef, "to_unicode\(\'𞠃\.\≯\\u200C\-\\u0714\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:597\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠃.>\x{0338}\x{200C}-\x{0714}", %p)}, undef, "to_unicode\(\'𞠃\.\>\\u0338\\u200C\-\\u0714\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:598\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠃.>\x{0338}\x{200C}-\x{0714}", %p)}, undef, "to_unicode\(\'𞠃\.\>\\u0338\\u200C\-\\u0714\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:599\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{036D}-。≠𐾢", %p)}, undef, "to_unicode\(\'\\u036D\-\。\≠𐾢\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:600\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{036D}-。=\x{0338}𐾢", %p)}, undef, "to_unicode\(\'\\u036D\-\。\=\\u0338𐾢\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞀪\x{1A60}。\x{200D}𐥚", %p)}, undef, "to_unicode\(\'𞀪\\u1A60\。\\u200D𐥚\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞀪\x{1A60}。\x{200D}𐥚", %p)}, undef, "to_unicode\(\'𞀪\\u1A60\。\\u200D𐥚\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{059D}\x{AAF6}2。㧉𱃺", %p)}, undef, "to_unicode\(\'\\u059D\\uAAF62。㧉𱃺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AAF6}\x{059D}2。㧉𱃺", %p)}, undef, "to_unicode\(\'\\uAAF6\\u059D2。㧉𱃺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AAF6}\x{059D}2。㧉𱃺", %p)}, undef, "to_unicode\(\'\\uAAF6\\u059D2\。㧉𱃺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:606\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񪨑𐹾𞺉。≯6", %p)}, undef, "to_unicode\(\'\\u200C񪨑𐹾𞺉\。\≯6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:607\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񪨑𐹾𞺉。≯6", %p)}, undef, "to_unicode\(\'\\u200C񪨑𐹾𞺉\。\≯6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:608\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񪨑𐹾𞺉。>\x{0338}6", %p)}, undef, "to_unicode\(\'\\u200C񪨑𐹾𞺉\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񪨑𐹾𞺉。>\x{0338}6", %p)}, undef, "to_unicode\(\'\\u200C񪨑𐹾𞺉\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񪨑𐹾\x{064A}。≯6", %p)}, undef, "to_unicode\(\'\\u200C񪨑𐹾\\u064A\。\≯6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񪨑𐹾\x{064A}。≯6", %p)}, undef, "to_unicode\(\'\\u200C񪨑𐹾\\u064A\。\≯6\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񪨑𐹾\x{064A}。>\x{0338}6", %p)}, undef, "to_unicode\(\'\\u200C񪨑𐹾\\u064A\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񪨑𐹾\x{064A}。>\x{0338}6", %p)}, undef, "to_unicode\(\'\\u200C񪨑𐹾\\u064A\。\>\\u03386\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:614\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}.𐹹𛂿-\x{200D}", %p)}, undef, "to_unicode\(\'\\u1734.𐹹𛂿\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:615\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}.𐹹𛂿-\x{200D}", %p)}, undef, "to_unicode\(\'\\u1734.𐹹𛂿\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:616\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}.𐹹𛂿-\x{200D}", %p)}, undef, "to_unicode\(\'\\u1734\.𐹹𛂿\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:617\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}.𐹹𛂿-\x{200D}", %p)}, undef, "to_unicode\(\'\\u1734\.𐹹𛂿\-\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:618\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🕰ς􍵐。\x{FFA0}", %p)}, undef, "to_unicode\(\'🕰ς􍵐。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🕰ς􍵐。\x{1160}", %p)}, undef, "to_unicode\(\'🕰ς􍵐\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🕰Σ􍵐。\x{1160}", %p)}, undef, "to_unicode\(\'🕰Σ􍵐\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:621\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🕰σ􍵐。\x{1160}", %p)}, undef, "to_unicode\(\'🕰σ􍵐\。\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:622\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🕰Σ􍵐。\x{FFA0}", %p)}, undef, "to_unicode\(\'🕰Σ􍵐。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:623\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🕰σ􍵐。\x{FFA0}", %p)}, undef, "to_unicode\(\'🕰σ􍵐。\\uFFA0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:624\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08B1}󠅲𐫟\x{08A1}.𐸛\x{1BAA}Ⴃ", %p)}, undef, "to_unicode\(\'\\u08B1\󠅲𐫟\\u08A1\.𐸛\\u1BAAႣ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:625\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08B1}󠅲𐫟\x{08A1}.𐸛\x{1BAA}ⴃ", %p)}, undef, "to_unicode\(\'\\u08B1\󠅲𐫟\\u08A1\.𐸛\\u1BAAⴃ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:626\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹡𑓂-킼.\x{ABED}\x{1C33}\x{06DD}≯", %p)}, undef, "to_unicode\(\'𐹡𑓂\-킼\.\\uABED\\u1C33\\u06DD\≯\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:627\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹡𑓂-킼.\x{ABED}\x{1C33}\x{06DD}>\x{0338}", %p)}, undef, "to_unicode\(\'𐹡𑓂\-킼\.\\uABED\\u1C33\\u06DD\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:628\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。ꡇ\x{0667}򹘐\x{0ACD}", %p)}, undef, "to_unicode\(\'\-\。ꡇ\\u0667򹘐\\u0ACD\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:629\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󉡂\x{0F96}.\x{0737}󻨮𐫃𐋡", %p)}, undef, "to_unicode\(\'\\u200D󉡂\\u0F96.\\u0737󻨮𐫃𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ \[data\/IdnaTest\.txt\:630\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󉡂\x{0F96}.\x{0737}󻨮𐫃𐋡", %p)}, undef, "to_unicode\(\'\\u200D󉡂\\u0F96.\\u0737󻨮𐫃𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ \[data\/IdnaTest\.txt\:631\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󉡂\x{0F96}.\x{0737}󻨮𐫃𐋡", %p)}, undef, "to_unicode\(\'\\u200D󉡂\\u0F96\.\\u0737󻨮𐫃𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ \[data\/IdnaTest\.txt\:632\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󉡂\x{0F96}.\x{0737}󻨮𐫃𐋡", %p)}, undef, "to_unicode\(\'\\u200D󉡂\\u0F96\.\\u0737󻨮𐫃𐋡\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ \[data\/IdnaTest\.txt\:633\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒󷫏ς򔩯。\x{0644}", %p)}, undef, "to_unicode\(\'︒󷫏ς򔩯。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:634\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。󷫏ς򔩯。\x{0644}", %p)}, undef, "to_unicode\(\'\。󷫏ς򔩯\。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:635\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。󷫏Σ򔩯。\x{0644}", %p)}, undef, "to_unicode\(\'\。󷫏Σ򔩯\。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:636\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。󷫏σ򔩯。\x{0644}", %p)}, undef, "to_unicode\(\'\。󷫏σ򔩯\。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒󷫏Σ򔩯。\x{0644}", %p)}, undef, "to_unicode\(\'︒󷫏Σ򔩯。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒󷫏σ򔩯。\x{0644}", %p)}, undef, "to_unicode\(\'︒󷫏σ򔩯。\\u0644\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:639\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FD93}.\x{FB73}򾟛≯\x{0B82}", %p)}, undef, "to_unicode\(\'\\uFD93.\\uFB73򾟛\≯\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:640\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FD93}.\x{FB73}򾟛>\x{0338}\x{0B82}", %p)}, undef, "to_unicode\(\'\\uFD93.\\uFB73򾟛\>\\u0338\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:641\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0647}\x{0645}\x{062C}.\x{0684}򾟛≯\x{0B82}", %p)}, undef, "to_unicode\(\'\\u0647\\u0645\\u062C\.\\u0684򾟛\≯\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0647}\x{0645}\x{062C}.\x{0684}򾟛>\x{0338}\x{0B82}", %p)}, undef, "to_unicode\(\'\\u0647\\u0645\\u062C\.\\u0684򾟛\>\\u0338\\u0B82\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:643\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A42}򜖴.𐨝", %p)}, undef, "to_unicode\(\'\\u0A42򜖴\.𐨝\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:644\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒉💰≠。Ⴟ□Ⴈ", %p)}, undef, "to_unicode\(\'⒉💰\≠。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:645\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒉💰=\x{0338}。Ⴟ□Ⴈ", %p)}, undef, "to_unicode\(\'⒉💰\=\\u0338。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:646\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2.💰≠。Ⴟ□Ⴈ", %p)}, undef, "to_unicode\(\'2\.💰\≠\。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:647\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2.💰=\x{0338}。Ⴟ□Ⴈ", %p)}, undef, "to_unicode\(\'2\.💰\=\\u0338\。Ⴟ\□Ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:648\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2.💰=\x{0338}。ⴟ□ⴈ", %p)}, undef, "to_unicode\(\'2\.💰\=\\u0338\。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:649\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2.💰≠。ⴟ□ⴈ", %p)}, undef, "to_unicode\(\'2\.💰\≠\。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:650\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒉💰=\x{0338}。ⴟ□ⴈ", %p)}, undef, "to_unicode\(\'⒉💰\=\\u0338。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:651\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒉💰≠。ⴟ□ⴈ", %p)}, undef, "to_unicode\(\'⒉💰\≠。ⴟ\□ⴈ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:652\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𑚫\x{0321}Ⴥ。-\x{0660}𐮩\x{035B}", %p)}, undef, "to_unicode\(\'\-𑚫\\u0321Ⴥ\。\-\\u0660𐮩\\u035B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:653\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-𑚫\x{0321}ⴥ。-\x{0660}𐮩\x{035B}", %p)}, undef, "to_unicode\(\'\-𑚫\\u0321ⴥ\。\-\\u0660𐮩\\u035B\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:654\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1B3A}。\x{1B44}︒\x{06AF}\x{0695}", %p)}, undef, "to_unicode\(\'\\u1B3A\。\\u1B44︒\\u06AF\\u0695\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:655\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{1B3A}。\x{1B44}。\x{06AF}\x{0695}", %p)}, undef, "to_unicode\(\'\\u1B3A\。\\u1B44\。\\u06AF\\u0695\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:656\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴙᡡ.\x{0FB8}\x{200D}", %p)}, undef, "to_unicode\(\'Ⴙᡡ\.\\u0FB8\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:657\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴙᡡ.\x{0FB8}\x{200D}", %p)}, undef, "to_unicode\(\'Ⴙᡡ\.\\u0FB8\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:658\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0FB8}\x{200D}", %p)}, undef, "to_unicode\(\'ⴙᡡ\.\\u0FB8\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:659\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴙᡡ.\x{0FB8}\x{200D}", %p)}, undef, "to_unicode\(\'ⴙᡡ\.\\u0FB8\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:660\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{FE05}。₆0𐭧ᠺ", %p)}, undef, "to_unicode\(\'\\uFE05。₆0𐭧ᠺ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:661\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{FE05}。60𐭧ᠺ", %p)}, undef, "to_unicode\(\'\\uFE05\。60𐭧ᠺ\'\)\ throws\ error\ B1\ \[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("6\x{072C}。-\x{20EE}", %p)}, undef, "to_unicode\(\'6\\u072C。\-\\u20EE\'\)\ throws\ error\ V3\ B1\ \[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("6\x{072C}。-\x{20EE}", %p)}, undef, "to_unicode\(\'6\\u072C\。\-\\u20EE\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:664\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}ς\x{FDBF}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662。\\u0A4Dς\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:665\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}ς\x{FDBF}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662。\\u0A4Dς\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:666\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}ς\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662\。\\u0A4Dς\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:667\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}ς\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662\。\\u0A4Dς\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:668\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}Σ\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662\。\\u0A4DΣ\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:669\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}Σ\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662\。\\u0A4DΣ\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:670\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}σ\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662\。\\u0A4Dσ\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:671\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}σ\x{062D}\x{062C}\x{064A}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662\。\\u0A4Dσ\\u062D\\u062C\\u064A\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:672\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}Σ\x{FDBF}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662。\\u0A4DΣ\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:673\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}Σ\x{FDBF}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662。\\u0A4DΣ\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:674\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}σ\x{FDBF}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662。\\u0A4Dσ\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:675\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𜳍\x{0662}。\x{0A4D}σ\x{FDBF}\x{2DEA}", %p)}, undef, "to_unicode\(\'\\u200D𜳍\\u0662。\\u0A4Dσ\\uFDBF\\u2DEA\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:676\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈񊼈Ⴓ⒪.󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_unicode\(\'⒈񊼈Ⴓ⒪.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:677\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.񊼈Ⴓ(o).󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_unicode\(\'1\.񊼈Ⴓ\(o\)\.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:678\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.񊼈ⴓ(o).󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_unicode\(\'1\.񊼈ⴓ\(o\)\.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:679\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.񊼈Ⴓ(O).󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_unicode\(\'1\.񊼈Ⴓ\(O\)\.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:680\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈񊼈ⴓ⒪.󠁐񥏀𐷵\x{0665}", %p)}, undef, "to_unicode\(\'⒈񊼈ⴓ⒪.\󠁐񥏀𐷵\\u0665\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:681\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0772}.\x{0855}𞯝𐹰𐫐", %p)}, undef, "to_unicode\(\'\\u0772\.\\u0855𞯝𐹰𐫐\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:682\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FC92}-。𐨿񔅥", %p)}, undef, "to_unicode\(\'\\uFC92\-。𐨿񔅥\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:683\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{064A}\x{0632}-。𐨿񔅥", %p)}, undef, "to_unicode\(\'\\u064A\\u0632\-\。𐨿񔅥\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:684\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-󠧚ꡐ.\x{1DEF}𜒩🄉", %p)}, undef, "to_unicode\(\'\-\󠧚ꡐ.\\u1DEF𜒩🄉\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:685\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-󠧚ꡐ.\x{1DEF}𜒩8,", %p)}, undef, "to_unicode\(\'\-\󠧚ꡐ\.\\u1DEF𜒩8\,\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:686\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏧󠗑󰭊􋱔.ᡥ𝟝", %p)}, undef, "to_unicode\(\'🏧\󠗑󰭊􋱔\.ᡥ𝟝\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:687\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🏧󠗑󰭊􋱔.ᡥ5", %p)}, undef, "to_unicode\(\'🏧\󠗑󰭊􋱔\.ᡥ5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:688\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{066C}.\x{FE0F}", %p)}, undef, "to_unicode\(\'\≮\\u066C.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:689\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{066C}.\x{FE0F}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u066C.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:690\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{066C}.\x{FE0F}", %p)}, undef, "to_unicode\(\'\≮\\u066C\.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:691\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{066C}.\x{FE0F}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u066C\.\\uFE0F\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:692\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}。脥", %p)}, undef, "to_unicode\(\'𐹭ᯛ\\u1BF3。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:693\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}。脥", %p)}, undef, "to_unicode\(\'𐹭ᯛ\\u1BF3\。脥\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:694\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1BF3}\x{115F}𞣱򃜐.-", %p)}, undef, "to_unicode\(\'\\u1BF3\\u115F𞣱򃜐\.\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:695\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{AAED}", %p)}, undef, "to_unicode\(\'\\u200C。\\uAAED\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:696\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{AAED}", %p)}, undef, "to_unicode\(\'\\u200C。\\uAAED\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:697\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{AAED}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uAAED\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:698\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{AAED}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uAAED\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:699\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{077A}𑒺.𐫎Ⴎ", %p)}, undef, "to_unicode\(\'\\u077A𑒺.𐫎Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{077A}𑒺.𐫎Ⴎ", %p)}, undef, "to_unicode\(\'\\u077A𑒺\.𐫎Ⴎ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:701\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{077A}𑒺.𐫎ⴎ", %p)}, undef, "to_unicode\(\'\\u077A𑒺\.𐫎ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:702\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{077A}𑒺.𐫎ⴎ", %p)}, undef, "to_unicode\(\'\\u077A𑒺.𐫎ⴎ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:703\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{07DD}\x{1921}Ξ.蚗㛨󠫺", %p)}, undef, "to_unicode\(\'\\u07DD\\u1921Ξ.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:704\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DD}\x{1921}Ξ.蚗㛨󠫺", %p)}, undef, "to_unicode\(\'\\u07DD\\u1921Ξ\.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:705\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DD}\x{1921}ξ.蚗㛨󠫺", %p)}, undef, "to_unicode\(\'\\u07DD\\u1921ξ\.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:706\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DD}\x{1921}ξ.蚗㛨󠫺", %p)}, undef, "to_unicode\(\'\\u07DD\\u1921ξ.蚗㛨\󠫺\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:707\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{083F}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。Ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{083F}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。Ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:709\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{083F}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。Ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:710\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{083F}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。Ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:711\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{083F}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:712\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{083F}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:713\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{083F}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:714\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。Ⴛ\x{083F}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。Ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:715\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{083F}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:716\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{083F}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:717\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{083F}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:718\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{083F}。", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-\。ⴛ\\u083F\。\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:719\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{083F}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:720\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{083F}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:721\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{083F}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:722\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("᠆몆\x{200C}-。ⴛ\x{083F}︒", %p)}, undef, "to_unicode\(\'᠆몆\\u200C\-。ⴛ\\u083F︒\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:723\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠵜.︒󠲅\x{200C}𐹽", %p)}, undef, "to_unicode\(\'\󠵜\.︒\󠲅\\u200C𐹽\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:724\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠵜.︒󠲅\x{200C}𐹽", %p)}, undef, "to_unicode\(\'\󠵜\.︒\󠲅\\u200C𐹽\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:725\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠵜.。󠲅\x{200C}𐹽", %p)}, undef, "to_unicode\(\'\󠵜\.\。\󠲅\\u200C𐹽\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:726\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠵜.。󠲅\x{200C}𐹽", %p)}, undef, "to_unicode\(\'\󠵜\.\。\󠲅\\u200C𐹽\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:727\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FC48}.𐹢Ⴑ񣞍\x{0765}", %p)}, undef, "to_unicode\(\'\\uFC48\.𐹢Ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:728\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0645}\x{0645}.𐹢Ⴑ񣞍\x{0765}", %p)}, undef, "to_unicode\(\'\\u0645\\u0645\.𐹢Ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:729\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0645}\x{0645}.𐹢ⴑ񣞍\x{0765}", %p)}, undef, "to_unicode\(\'\\u0645\\u0645\.𐹢ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:730\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FC48}.𐹢ⴑ񣞍\x{0765}", %p)}, undef, "to_unicode\(\'\\uFC48\.𐹢ⴑ񣞍\\u0765\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:731\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁁𼉗.𝟭Ⴛ", %p)}, undef, "to_unicode\(\'\󠁁𼉗.𝟭Ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:732\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁁𼉗.1Ⴛ", %p)}, undef, "to_unicode\(\'\󠁁𼉗\.1Ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:733\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁁𼉗.1ⴛ", %p)}, undef, "to_unicode\(\'\󠁁𼉗\.1ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:734\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁁𼉗.𝟭ⴛ", %p)}, undef, "to_unicode\(\'\󠁁𼉗.𝟭ⴛ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:735\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("-\x{1A65}齀。릿\x{0637}", %p)}, undef, "to_unicode\(\'\-\\u1A65齀\。릿\\u0637\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:736\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("-\x{1A65}齀。릿\x{0637}", %p)}, undef, "to_unicode\(\'\-\\u1A65齀\。릿\\u0637\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:737\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󠇕\x{0687}鹝꾗。񺧞\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\󠇕\\u0687鹝꾗\。񺧞\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:738\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠇕\x{0687}鹝꾗。񺧞\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\󠇕\\u0687鹝꾗\。񺧞\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:739\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠇕\x{0687}鹝꾗。񺧞\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\󠇕\\u0687鹝꾗\。񺧞\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:740\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠇕\x{0687}鹝꾗。񺧞\x{200D}\x{200D}⏃", %p)}, undef, "to_unicode\(\'\󠇕\\u0687鹝꾗\。񺧞\\u200D\\u200D\⏃\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:741\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.-𐻡--", %p)}, undef, "to_unicode\(\'\≮.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:742\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.-𐻡--", %p)}, undef, "to_unicode\(\'\<\\u0338.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:743\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.-𐻡--", %p)}, undef, "to_unicode\(\'\≮\.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:744\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.-𐻡--", %p)}, undef, "to_unicode\(\'\<\\u0338\.\-𐻡\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ B1\ \[data\/IdnaTest\.txt\:745\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}ς𝟩", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200Dς𝟩\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:746\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}ς𝟩", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200Dς𝟩\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:747\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}ς7", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200Dς7\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:748\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}ς7", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200Dς7\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:749\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}Σ7", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200DΣ7\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:750\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}Σ7", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200DΣ7\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:751\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}σ7", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200Dσ7\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:752\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}σ7", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200Dσ7\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:753\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}Σ𝟩", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200DΣ𝟩\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:754\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}Σ𝟩", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200DΣ𝟩\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:755\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}σ𝟩", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200Dσ𝟩\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:756\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0664}⭼。\x{200D}σ𝟩", %p)}, undef, "to_unicode\(\'\\u0664\⭼\。\\u200Dσ𝟩\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:757\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ς񩓤8.𞫘", %p)}, undef, "to_unicode\(\'ς񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:758\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς񩓤8.𞫘", %p)}, undef, "to_unicode\(\'ς񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:759\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ񩓤8.𞫘", %p)}, undef, "to_unicode\(\'Σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:760\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ񩓤8.𞫘", %p)}, undef, "to_unicode\(\'σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:761\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ񩓤8.𞫘", %p)}, undef, "to_unicode\(\'Σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:762\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ񩓤8.𞫘", %p)}, undef, "to_unicode\(\'σ񩓤8\.𞫘\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:763\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{07CE}🄀\x{0843}.-\x{07E6}𑌁", %p)}, undef, "to_unicode\(\'\\u200C\\u07CE🄀\\u0843.\-\\u07E6𑌁\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:764\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{07CE}🄀\x{0843}.-\x{07E6}𑌁", %p)}, undef, "to_unicode\(\'\\u200C\\u07CE🄀\\u0843.\-\\u07E6𑌁\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:765\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}\x{07CE}0.\x{0843}.-\x{07E6}𑌁", %p)}, undef, "to_unicode\(\'\\u200C\\u07CE0\.\\u0843\.\-\\u07E6𑌁\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:766\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}\x{07CE}0.\x{0843}.-\x{07E6}𑌁", %p)}, undef, "to_unicode\(\'\\u200C\\u07CE0\.\\u0843\.\-\\u07E6𑌁\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:767\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("􉿃。𞸝넯򆰡", %p)}, undef, "to_unicode\(\'􉿃\。𞸝넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:768\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􉿃。𞸝넯򆰡", %p)}, undef, "to_unicode\(\'􉿃\。𞸝넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:769\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􉿃。\x{06BA}넯򆰡", %p)}, undef, "to_unicode\(\'􉿃\。\\u06BA넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:770\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􉿃。\x{06BA}넯򆰡", %p)}, undef, "to_unicode\(\'􉿃\。\\u06BA넯򆰡\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:771\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡇႸ。\x{0600}Ⴈ\x{08F9}", %p)}, undef, "to_unicode\(\'ᡇႸ\。\\u0600Ⴈ\\u08F9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:772\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡇⴘ。\x{0600}ⴈ\x{08F9}", %p)}, undef, "to_unicode\(\'ᡇⴘ\。\\u0600ⴈ\\u08F9\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:773\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒚♰\x{08B0}。牣𐹤Ⴜᣥ", %p)}, undef, "to_unicode\(\'⒚\♰\\u08B0\。牣𐹤Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:774\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("19.♰\x{08B0}。牣𐹤Ⴜᣥ", %p)}, undef, "to_unicode\(\'19\.\♰\\u08B0\。牣𐹤Ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:775\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("19.♰\x{08B0}。牣𐹤ⴜᣥ", %p)}, undef, "to_unicode\(\'19\.\♰\\u08B0\。牣𐹤ⴜᣥ\'\)\ throws\ error\ B1\ B5\ \[data\/IdnaTest\.txt\:776\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒚♰\x{08B0}。牣𐹤ⴜᣥ", %p)}, undef, "to_unicode\(\'⒚\♰\\u08B0\。牣𐹤ⴜᣥ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:777\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𐋱𞧐⒈.Ⴓ", %p)}, undef, "to_unicode\(\'\-𐋱𞧐⒈\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:778\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𐋱𞧐1..Ⴓ", %p)}, undef, "to_unicode\(\'\-𐋱𞧐1\.\.Ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:779\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𐋱𞧐1..ⴓ", %p)}, undef, "to_unicode\(\'\-𐋱𞧐1\.\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ A4_2\ \[data\/IdnaTest\.txt\:780\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𐋱𞧐⒈.ⴓ", %p)}, undef, "to_unicode\(\'\-𐋱𞧐⒈\.ⴓ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:781\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}긃.󰎽-", %p)}, undef, "to_unicode\(\'\\u200C긃\.󰎽\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:782\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}긃.󰎽-", %p)}, undef, "to_unicode\(\'\\u200C긃\.󰎽\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:783\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}긃.󰎽-", %p)}, undef, "to_unicode\(\'\\u200C긃\.󰎽\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:784\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}긃.󰎽-", %p)}, undef, "to_unicode\(\'\\u200C긃\.󰎽\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:785\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("뉓泓񢊆.𑘿\x{200D}", %p)}, undef, "to_unicode\(\'뉓泓񢊆\.𑘿\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:786\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("뉓泓񢊆.𑘿\x{200D}", %p)}, undef, "to_unicode\(\'뉓泓񢊆\.𑘿\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:787\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾ß。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾ß。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:788\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾ß。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾ß。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:789\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾ß。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾ß\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:790\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾ß。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾ß\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:791\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾SS。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾SS\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:792\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾SS。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾SS\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:793\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾ss\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:794\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾ss\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:795\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾Ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾Ss\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:796\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾Ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾Ss\。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:797\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾SS。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾SS。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:798\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾SS。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾SS。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:799\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾ss。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:800\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾ss。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:801\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾Ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾Ss。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:802\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹾Ss。𝨾\x{2B75}򨟲", %p)}, undef, "to_unicode\(\'\\u200D𐹾Ss。𝨾\\u2B75򨟲\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:803\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ACD}.𐨿-≮≠", %p)}, undef, "to_unicode\(\'\\u0ACD.𐨿\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:804\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ACD}.𐨿-<\x{0338}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0ACD.𐨿\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:805\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ACD}.𐨿-≮≠", %p)}, undef, "to_unicode\(\'\\u0ACD\.𐨿\-\≮\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:806\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ACD}.𐨿-<\x{0338}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0ACD\.𐨿\-\<\\u0338\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:807\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}Ⴑ\x{115F}.𑖿Ⅎ", %p)}, undef, "to_unicode\(\'\\u2D7FႱ\\u115F.𑖿Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:808\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}Ⴑ\x{115F}.𑖿Ⅎ", %p)}, undef, "to_unicode\(\'\\u2D7FႱ\\u115F\.𑖿Ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:809\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_unicode\(\'\\u2D7Fⴑ\\u115F\.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:810\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}Ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_unicode\(\'\\u2D7FႱ\\u115F\.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:811\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_unicode\(\'\\u2D7Fⴑ\\u115F.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:812\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}Ⴑ\x{115F}.𑖿ⅎ", %p)}, undef, "to_unicode\(\'\\u2D7FႱ\\u115F.𑖿ⅎ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:813\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󖗚。Ⴃ𐳖\x{0601}똯", %p)}, undef, "to_unicode\(\'󖗚\。Ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:814\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󖗚。Ⴃ𐳖\x{0601}똯", %p)}, undef, "to_unicode\(\'󖗚\。Ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:815\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󖗚。ⴃ𐳖\x{0601}똯", %p)}, undef, "to_unicode\(\'󖗚\。ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:816\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󖗚。ⴃ𐳖\x{0601}똯", %p)}, undef, "to_unicode\(\'󖗚\。ⴃ𐳖\\u0601똯\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:817\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢥ。⳻󠷡󠆏\x{3164}", %p)}, undef, "to_unicode\(\'ᢥ。⳻\󠷡\󠆏\\u3164\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:818\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢥ。⳻󠷡󠆏\x{1160}", %p)}, undef, "to_unicode\(\'ᢥ\。⳻\󠷡\󠆏\\u1160\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:819\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐼣⾇.ᡙ-𐋰", %p)}, undef, "to_unicode\(\'𐼣⾇.ᡙ\-𐋰\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:820\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐼣舛.ᡙ-𐋰", %p)}, undef, "to_unicode\(\'𐼣舛\.ᡙ\-𐋰\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:821\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ猕󝌩≮.︒", %p)}, undef, "to_unicode\(\'Ⴉ猕󝌩\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:822\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ猕󝌩<\x{0338}.︒", %p)}, undef, "to_unicode\(\'Ⴉ猕󝌩\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:823\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ猕󝌩≮.。", %p)}, undef, "to_unicode\(\'Ⴉ猕󝌩\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:824\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ猕󝌩<\x{0338}.。", %p)}, undef, "to_unicode\(\'Ⴉ猕󝌩\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:825\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ猕󝌩<\x{0338}.。", %p)}, undef, "to_unicode\(\'ⴉ猕󝌩\<\\u0338\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:826\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ猕󝌩≮.。", %p)}, undef, "to_unicode\(\'ⴉ猕󝌩\≮\.\。\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:827\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ猕󝌩<\x{0338}.︒", %p)}, undef, "to_unicode\(\'ⴉ猕󝌩\<\\u0338.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:828\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ猕󝌩≮.︒", %p)}, undef, "to_unicode\(\'ⴉ猕󝌩\≮.︒\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:829\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0635}鳳ꡱ\x{08FC}", %p)}, undef, "to_unicode\(\'🜙。\\u0635鳳ꡱ\\u08FC\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:830\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0635}鳳ꡱ\x{08FC}", %p)}, undef, "to_unicode\(\'🜙\。\\u0635鳳ꡱ\\u08FC\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:831\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}𐹮。ß", %p)}, undef, "to_unicode\(\'\\u200D𐹮\。ß\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:832\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}𐹮。ß", %p)}, undef, "to_unicode\(\'\\u200D𐹮\。ß\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:833\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}𐹮。SS", %p)}, undef, "to_unicode\(\'\\u200D𐹮\。SS\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:834\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200D}𐹮。SS", %p)}, undef, "to_unicode\(\'\\u200D𐹮\。SS\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:835\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:836\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:837\]") 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\:838\]") 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\:839\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:840\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'Å둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:841\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'A\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:842\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("A\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'A\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:843\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("a\x{030A}둄-.\x{200C}", %p)}, undef, "to_unicode\(\'a\\u030A둄\-\.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:844\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("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("å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'å둄\-.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:850\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("å둄-.\x{200C}", %p)}, undef, "to_unicode\(\'å둄\-.\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:851\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{035F}󪒅󠆬ᢐ.󈌵-\x{A8EB}", %p)}, undef, "to_unicode\(\'\\u035F󪒅\󠆬ᢐ\.󈌵\-\\uA8EB\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:852\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ς.ß𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'ς\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:853\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ς.ß𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'ς\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:854\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ.SS𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'Σ\.SS𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:855\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:856\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'Σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:857\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'Σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:858\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:859\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ.SS𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'Σ\.SS𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:860\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:861\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ.ss𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'Σ\.ss𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:862\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'Σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σ.ß𣽞\x{0668}𑓂", %p)}, undef, "to_unicode\(\'σ\.ß𣽞\\u0668𑓂\'\)\ throws\ error\ 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{06EF}󠄚。𐹫𑂁", %p)}, undef, "to_unicode\(\'\\u06EF\󠄚。𐹫𑂁\'\)\ 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{06EF}󠄚。𐹫𑂁", %p)}, undef, "to_unicode\(\'\\u06EF\󠄚\。𐹫𑂁\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:866\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("񊧏\x{200C}𞭭。௸񗷞-\x{FD57}", %p)}, undef, "to_unicode\(\'񊧏\\u200C𞭭。௸񗷞\-\\uFD57\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:867\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񊧏\x{200C}𞭭。௸񗷞-\x{FD57}", %p)}, undef, "to_unicode\(\'񊧏\\u200C𞭭。௸񗷞\-\\uFD57\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:868\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񊧏\x{200C}𞭭。௸񗷞-\x{062A}\x{0645}\x{062E}", %p)}, undef, "to_unicode\(\'񊧏\\u200C𞭭\。௸񗷞\-\\u062A\\u0645\\u062E\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:869\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񊧏\x{200C}𞭭。௸񗷞-\x{062A}\x{0645}\x{062E}", %p)}, undef, "to_unicode\(\'񊧏\\u200C𞭭\。௸񗷞\-\\u062A\\u0645\\u062E\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:870\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}𞳕\x{200C}。\x{0485}︒", %p)}, undef, "to_unicode\(\'룱\\u200D𞳕\\u200C\。\\u0485︒\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:871\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}𞳕\x{200C}。\x{0485}︒", %p)}, undef, "to_unicode\(\'룱\\u200D𞳕\\u200C\。\\u0485︒\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:872\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}𞳕\x{200C}。\x{0485}︒", %p)}, undef, "to_unicode\(\'룱\\u200D𞳕\\u200C\。\\u0485︒\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:873\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}𞳕\x{200C}。\x{0485}︒", %p)}, undef, "to_unicode\(\'룱\\u200D𞳕\\u200C\。\\u0485︒\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:874\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}𞳕\x{200C}。\x{0485}。", %p)}, undef, "to_unicode\(\'룱\\u200D𞳕\\u200C\。\\u0485\。\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:875\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}𞳕\x{200C}。\x{0485}。", %p)}, undef, "to_unicode\(\'룱\\u200D𞳕\\u200C\。\\u0485\。\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:876\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}𞳕\x{200C}。\x{0485}。", %p)}, undef, "to_unicode\(\'룱\\u200D𞳕\\u200C\。\\u0485\。\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:877\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("룱\x{200D}𞳕\x{200C}。\x{0485}。", %p)}, undef, "to_unicode\(\'룱\\u200D𞳕\\u200C\。\\u0485\。\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ C2\ C1\ \[data\/IdnaTest\.txt\:878\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄄.\x{FE03}⒈ß", %p)}, undef, "to_unicode\(\'🄄.\\uFE03⒈ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:879\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3,.\x{FE03}1.ß", %p)}, undef, "to_unicode\(\'3\,\.\\uFE031\.ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:880\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3,.\x{FE03}1.SS", %p)}, undef, "to_unicode\(\'3\,\.\\uFE031\.SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:881\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄄.\x{FE03}⒈SS", %p)}, undef, "to_unicode\(\'🄄.\\uFE03⒈SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:882\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄄.\x{FE03}⒈ss", %p)}, undef, "to_unicode\(\'🄄.\\uFE03⒈ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:883\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄄.\x{FE03}⒈Ss", %p)}, undef, "to_unicode\(\'🄄.\\uFE03⒈Ss\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:884\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򢋻𑄳。𐰕񷒾\x{FEFF}", %p)}, undef, "to_unicode\(\'򢋻𑄳。𐰕񷒾\\uFEFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:885\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򢋻𑄳。𐰕񷒾\x{FEFF}", %p)}, undef, "to_unicode\(\'򢋻𑄳\。𐰕񷒾\\uFEFF\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:886\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A73}\x{094D}\x{1BF2}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1A73\\u094D\\u1BF2.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:887\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A73}\x{094D}\x{1BF2}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1A73\\u094D\\u1BF2.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:888\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A73}\x{094D}\x{1BF2}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1A73\\u094D\\u1BF2.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:889\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A73}\x{094D}\x{1BF2}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1A73\\u094D\\u1BF2.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:890\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A73}\x{094D}\x{1BF2}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1A73\\u094D\\u1BF2\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:891\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A73}\x{094D}\x{1BF2}.≠\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1A73\\u094D\\u1BF2\.\≠\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:892\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A73}\x{094D}\x{1BF2}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1A73\\u094D\\u1BF2\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:893\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A73}\x{094D}\x{1BF2}.=\x{0338}\x{200D}㇛", %p)}, undef, "to_unicode\(\'\\u1A73\\u094D\\u1BF2\.\=\\u0338\\u200D㇛\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:894\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴁ𐋨娤.\x{200D}\x{0981}\x{0601}\x{0A70}", %p)}, undef, "to_unicode\(\'Ⴁ𐋨娤\.\\u200D\\u0981\\u0601\\u0A70\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:895\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴁ𐋨娤.\x{200D}\x{0981}\x{0601}\x{0A70}", %p)}, undef, "to_unicode\(\'Ⴁ𐋨娤\.\\u200D\\u0981\\u0601\\u0A70\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴁ𐋨娤.\x{200D}\x{0981}\x{0601}\x{0A70}", %p)}, undef, "to_unicode\(\'ⴁ𐋨娤\.\\u200D\\u0981\\u0601\\u0A70\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:897\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴁ𐋨娤.\x{200D}\x{0981}\x{0601}\x{0A70}", %p)}, undef, "to_unicode\(\'ⴁ𐋨娤\.\\u200D\\u0981\\u0601\\u0A70\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:898\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀Ⴄ𐹾󠅩。⒈\x{0736}ß", %p)}, undef, "to_unicode\(\'🄀Ⴄ𐹾\󠅩\。⒈\\u0736ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:899\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.Ⴄ𐹾󠅩。1.\x{0736}ß", %p)}, undef, "to_unicode\(\'0\.Ⴄ𐹾\󠅩\。1\.\\u0736ß\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:900\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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.ⴄ𐹾󠅩。1.\x{0736}ß", %p)}, undef, "to_unicode\(\'0\.ⴄ𐹾\󠅩\。1\.\\u0736ß\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:901\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("0.Ⴄ𐹾󠅩。1.\x{0736}SS", %p)}, undef, "to_unicode\(\'0\.Ⴄ𐹾\󠅩\。1\.\\u0736SS\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:902\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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.ⴄ𐹾󠅩。1.\x{0736}ss", %p)}, undef, "to_unicode\(\'0\.ⴄ𐹾\󠅩\。1\.\\u0736ss\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:903\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("0.Ⴄ𐹾󠅩。1.\x{0736}Ss", %p)}, undef, "to_unicode\(\'0\.Ⴄ𐹾\󠅩\。1\.\\u0736Ss\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:904\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀ⴄ𐹾󠅩。⒈\x{0736}ß", %p)}, undef, "to_unicode\(\'🄀ⴄ𐹾\󠅩\。⒈\\u0736ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:905\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀Ⴄ𐹾󠅩。⒈\x{0736}SS", %p)}, undef, "to_unicode\(\'🄀Ⴄ𐹾\󠅩\。⒈\\u0736SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:906\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀ⴄ𐹾󠅩。⒈\x{0736}ss", %p)}, undef, "to_unicode\(\'🄀ⴄ𐹾\󠅩\。⒈\\u0736ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:907\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄀Ⴄ𐹾󠅩。⒈\x{0736}Ss", %p)}, undef, "to_unicode\(\'🄀Ⴄ𐹾\󠅩\。⒈\\u0736Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:908\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200C}-𐹸", %p)}, undef, "to_unicode\(\'\≠\.\\u200C\-𐹸\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:909\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200C}-𐹸", %p)}, undef, "to_unicode\(\'\≠\.\\u200C\-𐹸\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:910\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}.\x{200C}-𐹸", %p)}, undef, "to_unicode\(\'\=\\u0338\.\\u200C\-𐹸\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}.\x{200C}-𐹸", %p)}, undef, "to_unicode\(\'\=\\u0338\.\\u200C\-𐹸\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:912\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0665}۱。\x{180B}𐡼\x{0663}", %p)}, undef, "to_unicode\(\'\\u0665۱。\\u180B𐡼\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:913\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0665}۱。\x{180B}𐡼\x{0663}", %p)}, undef, "to_unicode\(\'\\u0665۱\。\\u180B𐡼\\u0663\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:914\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{066B}⒖。󙀷񅖙\x{0DCA}", %p)}, undef, "to_unicode\(\'\\u200C\\u066B⒖\。󙀷񅖙\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:915\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{066B}⒖。󙀷񅖙\x{0DCA}", %p)}, undef, "to_unicode\(\'\\u200C\\u066B⒖\。󙀷񅖙\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:916\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{066B}15.。󙀷񅖙\x{0DCA}", %p)}, undef, "to_unicode\(\'\\u200C\\u066B15\.\。󙀷񅖙\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:917\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{066B}15.。󙀷񅖙\x{0DCA}", %p)}, undef, "to_unicode\(\'\\u200C\\u066B15\.\。󙀷񅖙\\u0DCA\'\)\ throws\ error\ P1\ V6\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:918\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}.-逋𰶞򼥘", %p)}, undef, "to_unicode\(\'\\u0B4D\.\-逋𰶞򼥘\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:919\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{3164}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0847\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:920\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{3164}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0847\。\\u3164\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:921\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{1160}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0847\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:922\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{1160}\x{200D}ς", %p)}, undef, "to_unicode\(\'\\u0847\。\\u1160\\u200Dς\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:923\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{1160}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0847\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{1160}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0847\。\\u1160\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{1160}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0847\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:926\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{1160}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0847\。\\u1160\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:927\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{3164}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0847\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{3164}\x{200D}Σ", %p)}, undef, "to_unicode\(\'\\u0847\。\\u3164\\u200DΣ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:929\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{3164}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0847\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:930\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0847}。\x{3164}\x{200D}σ", %p)}, undef, "to_unicode\(\'\\u0847\。\\u3164\\u200Dσ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0843}Ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0843Ⴃ。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0843}Ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0843Ⴃ。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0843}Ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0843Ⴃ\。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0843}Ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0843Ⴃ\。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:935\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0843}ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0843ⴃ\。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:936\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0843}ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0843ⴃ\。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0843}ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0843ⴃ。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0843}ⴃ。򯬎\x{0309}\x{200D}\x{200D}", %p)}, undef, "to_unicode\(\'\\u0843ⴃ。򯬎\\u0309\\u200D\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.ς\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘.ς\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.ς\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘.ς\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.ς\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘\.ς\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.ς\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘\.ς\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:943\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.Σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘\.Σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:944\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.Σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘\.Σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:945\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘\.σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:946\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘\.σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:947\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.Σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘.Σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:948\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.Σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘.Σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:949\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘.σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:950\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㭄\x{200D}ᠯ󠯘.σ\x{0761}\x{200C}\x{200D}", %p)}, undef, "to_unicode\(\'㭄\\u200Dᠯ\󠯘.σ\\u0761\\u200C\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:951\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{17B5}。𐳺\x{0845}󠃧", %p)}, undef, "to_unicode\(\'\\u17B5\。𐳺\\u0845\󠃧\'\)\ throws\ error\ P1\ V5\ V6\ B3\ \[data\/IdnaTest\.txt\:952\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򾏛暑.⾑\x{0662}", %p)}, undef, "to_unicode\(\'򾏛暑.⾑\\u0662\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:953\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򾏛暑.襾\x{0662}", %p)}, undef, "to_unicode\(\'򾏛暑\.襾\\u0662\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:954\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{17D1}≯\x{08AA}。\x{060D}\x{08EC}", %p)}, undef, "to_unicode\(\'\\u17D1\≯\\u08AA\。\\u060D\\u08EC\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:955\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{17D1}>\x{0338}\x{08AA}。\x{060D}\x{08EC}", %p)}, undef, "to_unicode\(\'\\u17D1\>\\u0338\\u08AA\。\\u060D\\u08EC\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:956\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫹񏔜𑚶\x{103A}.򕔔Ⴗ", %p)}, undef, "to_unicode\(\'𞫹񏔜𑚶\\u103A\.򕔔Ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:957\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫹񏔜𑚶\x{103A}.򕔔ⴗ", %p)}, undef, "to_unicode\(\'𞫹񏔜𑚶\\u103A\.򕔔ⴗ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:958\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠆽。𐨿񃱏񛂙", %p)}, undef, "to_unicode\(\'\󠆽。𐨿񃱏񛂙\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:959\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠆽。𐨿񃱏񛂙", %p)}, undef, "to_unicode\(\'\󠆽\。𐨿񃱏񛂙\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:960\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BA9}\x{200C}.𞥖\x{200C}ꡓ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200C.𞥖\\u200Cꡓ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:961\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BA9}\x{200C}.𞥖\x{200C}ꡓ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200C.𞥖\\u200Cꡓ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:962\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BA9}\x{200C}.𞥖\x{200C}ꡓ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200C\.𞥖\\u200Cꡓ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:963\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1BA9}\x{200C}.𞥖\x{200C}ꡓ", %p)}, undef, "to_unicode\(\'\\u1BA9\\u200C\.𞥖\\u200Cꡓ\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:964\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡉ񥜐ß.ጧ", %p)}, undef, "to_unicode\(\'ᡉ񥜐ß\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:965\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡉ񥜐SS.ጧ", %p)}, undef, "to_unicode\(\'ᡉ񥜐SS\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:966\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡉ񥜐ss.ጧ", %p)}, undef, "to_unicode\(\'ᡉ񥜐ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:967\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡉ񥜐Ss.ጧ", %p)}, undef, "to_unicode\(\'ᡉ񥜐Ss\.ጧ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:968\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍴\x{200C}.򞞰\x{200C}", %p)}, undef, "to_unicode\(\'𑍴\\u200C\.򞞰\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:969\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍴\x{200C}.򞞰\x{200C}", %p)}, undef, "to_unicode\(\'𑍴\\u200C\.򞞰\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:970\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CC}򶕐\x{0663}。Ⴜ", %p)}, undef, "to_unicode\(\'\\u06CC򶕐\\u0663\。Ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:971\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06CC}򶕐\x{0663}。ⴜ", %p)}, undef, "to_unicode\(\'\\u06CC򶕐\\u0663\。ⴜ\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:972\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0600}⮣\x{200C}\x{135F}。󯅪𐠨", %p)}, undef, "to_unicode\(\'\\u0600\⮣\\u200C\\u135F。󯅪𐠨\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:973\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0600}⮣\x{200C}\x{135F}。󯅪𐠨", %p)}, undef, "to_unicode\(\'\\u0600\⮣\\u200C\\u135F。󯅪𐠨\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:974\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0600}⮣\x{200C}\x{135F}。󯅪𐠨", %p)}, undef, "to_unicode\(\'\\u0600\⮣\\u200C\\u135F\。󯅪𐠨\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:975\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0600}⮣\x{200C}\x{135F}。󯅪𐠨", %p)}, undef, "to_unicode\(\'\\u0600\⮣\\u200C\\u135F\。󯅪𐠨\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:976\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ。デßꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\。デßꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:977\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ。テ\x{3099}ßꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\。テ\\u3099ßꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:978\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ。テ\x{3099}ßꡢ𑂹", %p)}, "ⴒ.デßꡢ𑂹", "to_unicode\(\'ⴒ\。テ\\u3099ßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:979\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ。テ\x{3099}ßꡢ𑂹", %p)}, "ⴒ.デßꡢ𑂹", "to_unicode\(\'ⴒ\。テ\\u3099ßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:980\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ。デßꡢ𑂹", %p)}, "ⴒ.デßꡢ𑂹", "to_unicode\(\'ⴒ\。デßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:981\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ。デßꡢ𑂹", %p)}, "ⴒ.デßꡢ𑂹", "to_unicode\(\'ⴒ\。デßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:982\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴒ。デSSꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\。デSSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ。テ\x{3099}SSꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\。テ\\u3099SSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:984\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ。テ\x{3099}ssꡢ𑂹", %p)}, "ⴒ.デssꡢ𑂹", "to_unicode\(\'ⴒ\。テ\\u3099ssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:985\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ。デssꡢ𑂹", %p)}, "ⴒ.デssꡢ𑂹", "to_unicode\(\'ⴒ\。デssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:986\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴒ。デSsꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\。デSsꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:987\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ。テ\x{3099}Ssꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\。テ\\u3099Ssꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:988\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--9kj.xn--ss-mj4a0834c49ue", %p)}, "ⴒ.デssꡢ𑂹", "to_unicode\(\'xn\-\-9kj\.xn\-\-ss\-mj4a0834c49ue\'\)\ \[data\/IdnaTest\.txt\:989\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ.デssꡢ𑂹", %p)}, "ⴒ.デssꡢ𑂹", "to_unicode\(\'ⴒ\.デssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:990\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ.テ\x{3099}ssꡢ𑂹", %p)}, "ⴒ.デssꡢ𑂹", "to_unicode\(\'ⴒ\.テ\\u3099ssꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:991\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴒ.テ\x{3099}SSꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\.テ\\u3099SSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:992\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ.デSSꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\.デSSꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:993\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ.デSsꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\.デSsꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:994\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴒ.テ\x{3099}Ssꡢ𑂹", %p)}, undef, "to_unicode\(\'Ⴒ\.テ\\u3099Ssꡢ𑂹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:995\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--9kj.xn--zca146vs88eyh1d", %p)}, "ⴒ.デßꡢ𑂹", "to_unicode\(\'xn\-\-9kj\.xn\-\-zca146vs88eyh1d\'\)\ \[data\/IdnaTest\.txt\:996\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ.デßꡢ𑂹", %p)}, "ⴒ.デßꡢ𑂹", "to_unicode\(\'ⴒ\.デßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:997\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ.デßꡢ𑂹", %p)}, "ⴒ.デßꡢ𑂹", "to_unicode\(\'ⴒ\.デßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:998\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ.テ\x{3099}ßꡢ𑂹", %p)}, "ⴒ.デßꡢ𑂹", "to_unicode\(\'ⴒ\.テ\\u3099ßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:999\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴒ.テ\x{3099}ßꡢ𑂹", %p)}, "ⴒ.デßꡢ𑂹", "to_unicode\(\'ⴒ\.テ\\u3099ßꡢ𑂹\'\)\ \[data\/IdnaTest\.txt\:1000\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑖿\x{0BCD}.7-\x{08A9}", %p)}, undef, "to_unicode\(\'𑖿\\u0BCD.7\-\\u08A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1001\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑖿\x{0BCD}.7-\x{08A9}", %p)}, undef, "to_unicode\(\'𑖿\\u0BCD\.7\-\\u08A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1002\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≯\x{17D2}🟌.\x{1734}񌂒\x{1DC1}\x{0625}", %p)}, undef, "to_unicode\(\'\≯\\u17D2🟌\.\\u1734񌂒\\u1DC1\\u0625\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1003\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{17D2}🟌.\x{1734}񌂒\x{1DC1}\x{0627}\x{0655}", %p)}, undef, "to_unicode\(\'\>\\u0338\\u17D2🟌\.\\u1734񌂒\\u1DC1\\u0627\\u0655\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1004\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑖲򠍜Ⴗ쏔。𐴋", %p)}, undef, "to_unicode\(\'𑖲򠍜Ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1005\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑖲򠍜Ⴗ쏔。𐴋", %p)}, undef, "to_unicode\(\'𑖲򠍜Ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1006\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑖲򠍜ⴗ쏔。𐴋", %p)}, undef, "to_unicode\(\'𑖲򠍜ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1007\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑖲򠍜ⴗ쏔。𐴋", %p)}, undef, "to_unicode\(\'𑖲򠍜ⴗ쏔\。𐴋\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1008\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß。𐋳Ⴌ\x{0591}", %p)}, undef, "to_unicode\(\'ß。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1009\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß。𐋳Ⴌ\x{0591}", %p)}, undef, "to_unicode\(\'ß\。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1010\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß。𐋳ⴌ\x{0591}", %p)}, "ß.𐋳ⴌ\x{0591}", "to_unicode\(\'ß\。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1011\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß。𐋳ⴌ\x{0591}", %p)}, "ß.𐋳ⴌ\x{0591}", "to_unicode\(\'ß\。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1012\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SS。𐋳Ⴌ\x{0591}", %p)}, undef, "to_unicode\(\'SS\。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1013\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss。𐋳ⴌ\x{0591}", %p)}, "ss.𐋳ⴌ\x{0591}", "to_unicode\(\'ss\。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1014\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss.xn--ccb723rvh6l", %p)}, "ss.𐋳ⴌ\x{0591}", "to_unicode\(\'ss\.xn\-\-ccb723rvh6l\'\)\ \[data\/IdnaTest\.txt\:1015\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss.𐋳ⴌ\x{0591}", %p)}, "ss.𐋳ⴌ\x{0591}", "to_unicode\(\'ss\.𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1016\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SS.𐋳Ⴌ\x{0591}", %p)}, undef, "to_unicode\(\'SS\.𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1017\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--zca.xn--ccb723rvh6l", %p)}, "ß.𐋳ⴌ\x{0591}", "to_unicode\(\'xn\-\-zca\.xn\-\-ccb723rvh6l\'\)\ \[data\/IdnaTest\.txt\:1018\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß.𐋳ⴌ\x{0591}", %p)}, "ß.𐋳ⴌ\x{0591}", "to_unicode\(\'ß\.𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1019\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß.𐋳ⴌ\x{0591}", %p)}, "ß.𐋳ⴌ\x{0591}", "to_unicode\(\'ß\.𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1020\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß。𐋳ⴌ\x{0591}", %p)}, "ß.𐋳ⴌ\x{0591}", "to_unicode\(\'ß。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1021\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß。𐋳ⴌ\x{0591}", %p)}, "ß.𐋳ⴌ\x{0591}", "to_unicode\(\'ß。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1022\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SS。𐋳Ⴌ\x{0591}", %p)}, undef, "to_unicode\(\'SS。𐋳Ⴌ\\u0591\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1023\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss。𐋳ⴌ\x{0591}", %p)}, "ss.𐋳ⴌ\x{0591}", "to_unicode\(\'ss。𐋳ⴌ\\u0591\'\)\ \[data\/IdnaTest\.txt\:1024\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}", %p)}, undef, "to_unicode\(\'\-ꡝ𐩁\.\\u200C➇\\uABED\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:1025\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}", %p)}, undef, "to_unicode\(\'\-ꡝ𐩁\.\\u200C➇\\uABED\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:1026\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0B42}\x{08B4}\x{17CD}\x{0DCA}.󠆇\x{200D}", %p)}, undef, "to_unicode\(\'\\u0B42\\u08B4\\u17CD\\u0DCA\.\󠆇\\u200D\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1027\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0B42}\x{08B4}\x{17CD}\x{0DCA}.󠆇\x{200D}", %p)}, undef, "to_unicode\(\'\\u0B42\\u08B4\\u17CD\\u0DCA\.\󠆇\\u200D\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1028\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󠅡\x{200D}󠨿ꡁ.\x{07D3}\x{200C}󠜔", %p)}, undef, "to_unicode\(\'\󠅡\\u200D\󠨿ꡁ\.\\u07D3\\u200C\󠜔\'\)\ throws\ error\ P1\ V6\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1029\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠅡\x{200D}󠨿ꡁ.\x{07D3}\x{200C}󠜔", %p)}, undef, "to_unicode\(\'\󠅡\\u200D\󠨿ꡁ\.\\u07D3\\u200C\󠜔\'\)\ throws\ error\ P1\ V6\ C2\ B3\ C1\ \[data\/IdnaTest\.txt\:1030\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴑ.\x{07D1}\x{FB8A}\x{0634}", %p)}, undef, "to_unicode\(\'Ⴑ.\\u07D1\\uFB8A\\u0634\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1031\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴑ.\x{07D1}\x{0698}\x{0634}", %p)}, undef, "to_unicode\(\'Ⴑ\.\\u07D1\\u0698\\u0634\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1032\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0698}\x{0634}", %p)}, "ⴑ.\x{07D1}\x{0698}\x{0634}", "to_unicode\(\'ⴑ\.\\u07D1\\u0698\\u0634\'\)\ \[data\/IdnaTest\.txt\:1033\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--8kj.xn--zgb3ro7a", %p)}, "ⴑ.\x{07D1}\x{0698}\x{0634}", "to_unicode\(\'xn\-\-8kj\.xn\-\-zgb3ro7a\'\)\ \[data\/IdnaTest\.txt\:1034\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{FB8A}\x{0634}", %p)}, "ⴑ.\x{07D1}\x{0698}\x{0634}", "to_unicode\(\'ⴑ.\\u07D1\\uFB8A\\u0634\'\)\ \[data\/IdnaTest\.txt\:1035\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝩝玵\x{A9C0}。𕹊𝟵", %p)}, undef, "to_unicode\(\'𝩝玵\\uA9C0\。𕹊𝟵\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1036\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝩝玵\x{A9C0}。𕹊9", %p)}, undef, "to_unicode\(\'𝩝玵\\uA9C0\。𕹊9\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1037\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{06CF}󂎶𝟗。Ⴣꜟ𐰾󄮷", %p)}, undef, "to_unicode\(\'\\u200C\\u06CF󂎶𝟗。Ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1038\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{06CF}󂎶𝟗。Ⴣꜟ𐰾󄮷", %p)}, undef, "to_unicode\(\'\\u200C\\u06CF󂎶𝟗。Ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1039\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{06CF}󂎶9。Ⴣꜟ𐰾󄮷", %p)}, undef, "to_unicode\(\'\\u200C\\u06CF󂎶9\。Ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1040\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{06CF}󂎶9。Ⴣꜟ𐰾󄮷", %p)}, undef, "to_unicode\(\'\\u200C\\u06CF󂎶9\。Ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1041\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{06CF}󂎶9。ⴣꜟ𐰾󄮷", %p)}, undef, "to_unicode\(\'\\u200C\\u06CF󂎶9\。ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{06CF}󂎶9。ⴣꜟ𐰾󄮷", %p)}, undef, "to_unicode\(\'\\u200C\\u06CF󂎶9\。ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1043\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{06CF}󂎶𝟗。ⴣꜟ𐰾󄮷", %p)}, undef, "to_unicode\(\'\\u200C\\u06CF󂎶𝟗。ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1044\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{06CF}󂎶𝟗。ⴣꜟ𐰾󄮷", %p)}, undef, "to_unicode\(\'\\u200C\\u06CF󂎶𝟗。ⴣꜟ𐰾󄮷\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ \[data\/IdnaTest\.txt\:1045\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D0}。\x{1B70}𹝗󠇑-", %p)}, undef, "to_unicode\(\'\\u07D0。\\u1B70𹝗\󠇑\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1046\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D0}。\x{1B70}𹝗󠇑-", %p)}, undef, "to_unicode\(\'\\u07D0\。\\u1B70𹝗\󠇑\-\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:1047\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞧺󨸝。絧\x{0EB7}", %p)}, undef, "to_unicode\(\'𞧺󨸝\。絧\\u0EB7\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1048\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B39}Ⴋ.𝟳≯︒\x{17B8}", %p)}, undef, "to_unicode\(\'\\u1B39Ⴋ.𝟳\≯︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1049\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B39}Ⴋ.𝟳>\x{0338}︒\x{17B8}", %p)}, undef, "to_unicode\(\'\\u1B39Ⴋ.𝟳\>\\u0338︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1050\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B39}Ⴋ.7≯。\x{17B8}", %p)}, undef, "to_unicode\(\'\\u1B39Ⴋ\.7\≯\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1051\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B39}Ⴋ.7>\x{0338}。\x{17B8}", %p)}, undef, "to_unicode\(\'\\u1B39Ⴋ\.7\>\\u0338\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1052\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B39}ⴋ.7>\x{0338}。\x{17B8}", %p)}, undef, "to_unicode\(\'\\u1B39ⴋ\.7\>\\u0338\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1053\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B39}ⴋ.7≯。\x{17B8}", %p)}, undef, "to_unicode\(\'\\u1B39ⴋ\.7\≯\。\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1054\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B39}ⴋ.𝟳>\x{0338}︒\x{17B8}", %p)}, undef, "to_unicode\(\'\\u1B39ⴋ.𝟳\>\\u0338︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1055\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B39}ⴋ.𝟳≯︒\x{17B8}", %p)}, undef, "to_unicode\(\'\\u1B39ⴋ.𝟳\≯︒\\u17B8\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1056\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}F\x{ABED}。⤵︒\x{06AD}𐹸", %p)}, undef, "to_unicode\(\'\\u200DF\\uABED\。\⤵︒\\u06AD𐹸\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1057\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}F\x{ABED}。⤵︒\x{06AD}𐹸", %p)}, undef, "to_unicode\(\'\\u200DF\\uABED\。\⤵︒\\u06AD𐹸\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1058\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}。⤵。\x{06AD}𐹸", %p)}, undef, "to_unicode\(\'\\u200DF\\uABED\。\⤵\。\\u06AD𐹸\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1059\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}。⤵。\x{06AD}𐹸", %p)}, undef, "to_unicode\(\'\\u200DF\\uABED\。\⤵\。\\u06AD𐹸\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1060\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{ABED}。⤵。\x{06AD}𐹸", %p)}, undef, "to_unicode\(\'\\u200Df\\uABED\。\⤵\。\\u06AD𐹸\'\)\ throws\ error\ C2\ \[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{200D}f\x{ABED}。⤵。\x{06AD}𐹸", %p)}, undef, "to_unicode\(\'\\u200Df\\uABED\。\⤵\。\\u06AD𐹸\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1062\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--f-0w5e.xn--0ri.xn--gkb6716k", %p)}, "f\x{ABED}.⤵.\x{06AD}𐹸", "to_unicode\(\'xn\-\-f\-0w5e\.xn\-\-0ri\.xn\-\-gkb6716k\'\)\ \[data\/IdnaTest\.txt\:1063\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("f\x{ABED}.⤵.\x{06AD}𐹸", %p)}, "f\x{ABED}.⤵.\x{06AD}𐹸", "to_unicode\(\'f\\uABED\.\⤵\.\\u06AD𐹸\'\)\ \[data\/IdnaTest\.txt\:1064\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("F\x{ABED}.⤵.\x{06AD}𐹸", %p)}, "f\x{ABED}.⤵.\x{06AD}𐹸", "to_unicode\(\'F\\uABED\.\⤵\.\\u06AD𐹸\'\)\ \[data\/IdnaTest\.txt\:1065\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}f\x{ABED}。⤵︒\x{06AD}𐹸", %p)}, undef, "to_unicode\(\'\\u200Df\\uABED\。\⤵︒\\u06AD𐹸\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1066\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}f\x{ABED}。⤵︒\x{06AD}𐹸", %p)}, undef, "to_unicode\(\'\\u200Df\\uABED\。\⤵︒\\u06AD𐹸\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:1067\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0775}🄇𐸷︒。𐹰\x{0F84}", %p)}, undef, "to_unicode\(\'\\u0775🄇𐸷︒。𐹰\\u0F84\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:1068\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0775}6,𐸷。。𐹰\x{0F84}", %p)}, undef, "to_unicode\(\'\\u07756\,𐸷\。\。𐹰\\u0F84\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:1069\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐽜.\x{2DF3}\x{0748}𞬜", %p)}, undef, "to_unicode\(\'𐽜\.\\u2DF3\\u0748𞬜\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐽜.\x{0748}\x{2DF3}𞬜", %p)}, undef, "to_unicode\(\'𐽜\.\\u0748\\u2DF3𞬜\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1071\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴂ䠺。\x{084E}旤𺹼\x{0850}", %p)}, undef, "to_unicode\(\'Ⴂ䠺\。\\u084E旤𺹼\\u0850\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1072\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴂ䠺。\x{084E}旤𺹼\x{0850}", %p)}, undef, "to_unicode\(\'ⴂ䠺\。\\u084E旤𺹼\\u0850\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:1073\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄇伐︒.򟳭\x{1039}", %p)}, undef, "to_unicode\(\'🄇伐︒\.򟳭\\u1039\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1074\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6,伐。.򟳭\x{1039}", %p)}, undef, "to_unicode\(\'6\,伐\。\.򟳭\\u1039\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1075\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹤\x{0DCA}⺶。\x{200D}𐫚Ⴚ\x{1B44}", %p)}, undef, "to_unicode\(\'\\u200D𐹤\\u0DCA⺶\。\\u200D𐫚Ⴚ\\u1B44\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1076\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐹤\x{0DCA}⺶。\x{200D}𐫚Ⴚ\x{1B44}", %p)}, undef, "to_unicode\(\'\\u200D𐹤\\u0DCA⺶\。\\u200D𐫚Ⴚ\\u1B44\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1077\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}𐹤\x{0DCA}⺶。\x{200D}𐫚ⴚ\x{1B44}", %p)}, undef, "to_unicode\(\'\\u200D𐹤\\u0DCA⺶\。\\u200D𐫚ⴚ\\u1B44\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1078\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}𐹤\x{0DCA}⺶。\x{200D}𐫚ⴚ\x{1B44}", %p)}, undef, "to_unicode\(\'\\u200D𐹤\\u0DCA⺶\。\\u200D𐫚ⴚ\\u1B44\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1079\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0FAB}.󐓯򑿜", %p)}, undef, "to_unicode\(\'\\u0FAB.󐓯򑿜\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1080\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAB}.󐓯򑿜", %p)}, undef, "to_unicode\(\'\\u0FAB\.󐓯򑿜\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1081\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}Ⴆ.≠\x{FE8D}", %p)}, undef, "to_unicode\(\'\\u072D\\u200CႦ\.\≠\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1082\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}Ⴆ.≠\x{FE8D}", %p)}, undef, "to_unicode\(\'\\u072D\\u200CႦ\.\≠\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1083\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}Ⴆ.=\x{0338}\x{FE8D}", %p)}, undef, "to_unicode\(\'\\u072D\\u200CႦ\.\=\\u0338\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1084\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}Ⴆ.=\x{0338}\x{FE8D}", %p)}, undef, "to_unicode\(\'\\u072D\\u200CႦ\.\=\\u0338\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1085\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}Ⴆ.≠\x{0627}", %p)}, undef, "to_unicode\(\'\\u072D\\u200CႦ\.\≠\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1086\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}Ⴆ.≠\x{0627}", %p)}, undef, "to_unicode\(\'\\u072D\\u200CႦ\.\≠\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1087\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}Ⴆ.=\x{0338}\x{0627}", %p)}, undef, "to_unicode\(\'\\u072D\\u200CႦ\.\=\\u0338\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1088\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}Ⴆ.=\x{0338}\x{0627}", %p)}, undef, "to_unicode\(\'\\u072D\\u200CႦ\.\=\\u0338\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1089\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}ⴆ.=\x{0338}\x{0627}", %p)}, undef, "to_unicode\(\'\\u072D\\u200Cⴆ\.\=\\u0338\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1090\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}ⴆ.=\x{0338}\x{0627}", %p)}, undef, "to_unicode\(\'\\u072D\\u200Cⴆ\.\=\\u0338\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1091\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}ⴆ.≠\x{0627}", %p)}, undef, "to_unicode\(\'\\u072D\\u200Cⴆ\.\≠\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1092\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}ⴆ.≠\x{0627}", %p)}, undef, "to_unicode\(\'\\u072D\\u200Cⴆ\.\≠\\u0627\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1093\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}ⴆ.=\x{0338}\x{FE8D}", %p)}, undef, "to_unicode\(\'\\u072D\\u200Cⴆ\.\=\\u0338\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1094\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}ⴆ.=\x{0338}\x{FE8D}", %p)}, undef, "to_unicode\(\'\\u072D\\u200Cⴆ\.\=\\u0338\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1095\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}ⴆ.≠\x{FE8D}", %p)}, undef, "to_unicode\(\'\\u072D\\u200Cⴆ\.\≠\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1096\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072D}\x{200C}ⴆ.≠\x{FE8D}", %p)}, undef, "to_unicode\(\'\\u072D\\u200Cⴆ\.\≠\\uFE8D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1097\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07F2}󂉽𝟥ꘌ.\x{07CA}", %p)}, undef, "to_unicode\(\'\\u07F2󂉽𝟥ꘌ.\\u07CA\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1098\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07F2}󂉽3ꘌ.\x{07CA}", %p)}, undef, "to_unicode\(\'\\u07F2󂉽3ꘌ\.\\u07CA\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1099\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.󠆌򝒅-", %p)}, undef, "to_unicode\(\'\-\.\󠆌򝒅\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1100\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲ς", %p)}, undef, "to_unicode\(\'򲼁\\u200C。\\u200C𐳲ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1101\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲ς", %p)}, undef, "to_unicode\(\'򲼁\\u200C。\\u200C𐳲ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1102\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲ς", %p)}, undef, "to_unicode\(\'򲼁\\u200C\。\\u200C𐳲ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1103\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲ς", %p)}, undef, "to_unicode\(\'򲼁\\u200C\。\\u200C𐳲ς\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1104\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲Σ", %p)}, undef, "to_unicode\(\'򲼁\\u200C\。\\u200C𐳲Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1105\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲Σ", %p)}, undef, "to_unicode\(\'򲼁\\u200C\。\\u200C𐳲Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1106\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲σ", %p)}, undef, "to_unicode\(\'򲼁\\u200C\。\\u200C𐳲σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1107\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲σ", %p)}, undef, "to_unicode\(\'򲼁\\u200C\。\\u200C𐳲σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1108\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲Σ", %p)}, undef, "to_unicode\(\'򲼁\\u200C。\\u200C𐳲Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1109\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲Σ", %p)}, undef, "to_unicode\(\'򲼁\\u200C。\\u200C𐳲Σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1110\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲σ", %p)}, undef, "to_unicode\(\'򲼁\\u200C。\\u200C𐳲σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1111\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򲼁\x{200C}。\x{200C}𐳲σ", %p)}, undef, "to_unicode\(\'򲼁\\u200C。\\u200C𐳲σ\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1112\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("堕𑍍󠇣。ᠻᢕ\x{200C}-", %p)}, undef, "to_unicode\(\'堕𑍍\󠇣\。ᠻᢕ\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1113\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("堕𑍍󠇣。ᠻᢕ\x{200C}-", %p)}, undef, "to_unicode\(\'堕𑍍\󠇣\。ᠻᢕ\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:1114\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}ς\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u0678。\\u077Eς\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1115\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}ς\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077Eς\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1116\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}Σ\x{062A}Σ", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077EΣ\\u062AΣ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1117\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}σ\x{062A}σ", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077Eσ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1118\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}Σ\x{062A}σ", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077EΣ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1119\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}Σ\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077EΣ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1120\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{064A}\x{0674}。\x{077E}σ\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u064A\\u0674\。\\u077Eσ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1121\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}Σ\x{062A}Σ", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u0678。\\u077EΣ\\u062AΣ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1122\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}σ\x{062A}σ", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u0678。\\u077Eσ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1123\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}Σ\x{062A}σ", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u0678。\\u077EΣ\\u062Aσ\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1124\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}Σ\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u0678。\\u077EΣ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1125\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹥\x{0BCD}ꡜ\x{0678}。\x{077E}σ\x{062A}ς", %p)}, undef, "to_unicode\(\'𐹥\\u0BCDꡜ\\u0678。\\u077Eσ\\u062Aς\'\)\ throws\ error\ B1\ B2\ B3\ \[data\/IdnaTest\.txt\:1126\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𸷣.-𝟻ß", %p)}, undef, "to_unicode\(\'𸷣.\-𝟻ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1127\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𸷣.-5ß", %p)}, undef, "to_unicode\(\'𸷣\.\-5ß\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1128\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𸷣.-5SS", %p)}, undef, "to_unicode\(\'𸷣\.\-5SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1129\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𸷣.-𝟻SS", %p)}, undef, "to_unicode\(\'𸷣.\-𝟻SS\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1130\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𸷣.-𝟻ss", %p)}, undef, "to_unicode\(\'𸷣.\-𝟻ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1131\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𸷣.-𝟻Ss", %p)}, undef, "to_unicode\(\'𸷣.\-𝟻Ss\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1132\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𑄴.𐅾Ⴥ񓴸", %p)}, undef, "to_unicode\(\'\\u200D𑄴\.𐅾Ⴥ񓴸\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1133\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𑄴.𐅾Ⴥ񓴸", %p)}, undef, "to_unicode\(\'\\u200D𑄴\.𐅾Ⴥ񓴸\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1134\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𑄴.𐅾ⴥ񓴸", %p)}, undef, "to_unicode\(\'\\u200D𑄴\.𐅾ⴥ񓴸\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1135\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𑄴.𐅾ⴥ񓴸", %p)}, undef, "to_unicode\(\'\\u200D𑄴\.𐅾ⴥ񓴸\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1136\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򒭷。ß󞑓\x{200D}", %p)}, undef, "to_unicode\(\'򒭷\。ß󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1137\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򒭷。ß󞑓\x{200D}", %p)}, undef, "to_unicode\(\'򒭷\。ß󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1138\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򒭷。SS󞑓\x{200D}", %p)}, undef, "to_unicode\(\'򒭷\。SS󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1139\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򒭷。SS󞑓\x{200D}", %p)}, undef, "to_unicode\(\'򒭷\。SS󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1140\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򒭷。ss󞑓\x{200D}", %p)}, undef, "to_unicode\(\'򒭷\。ss󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1141\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򒭷。ss󞑓\x{200D}", %p)}, undef, "to_unicode\(\'򒭷\。ss󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1142\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򒭷。Ss󞑓\x{200D}", %p)}, undef, "to_unicode\(\'򒭷\。Ss󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1143\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򒭷。Ss󞑓\x{200D}", %p)}, undef, "to_unicode\(\'򒭷\。Ss󞑓\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1144\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󙀇。󠄘䷚𞤛", %p)}, undef, "to_unicode\(\'\\u200C󙀇\。\󠄘䷚𞤛\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1145\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󙀇。󠄘䷚𞤛", %p)}, undef, "to_unicode\(\'\\u200C󙀇\。\󠄘䷚𞤛\'\)\ throws\ error\ P1\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1146\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐸾\x{200C}𝪟。𐹾", %p)}, undef, "to_unicode\(\'𐸾\\u200C𝪟\。𐹾\'\)\ throws\ error\ P1\ V6\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1147\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐸾\x{200C}𝪟。𐹾", %p)}, undef, "to_unicode\(\'𐸾\\u200C𝪟\。𐹾\'\)\ throws\ error\ P1\ V6\ B3\ C1\ B1\ \[data\/IdnaTest\.txt\:1148\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹ς\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1149\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹ς\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1150\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹ς\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1151\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹ς\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1152\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹ς\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1153\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹ς\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1154\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹ς\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1155\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹ς=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹ς\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1156\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹Σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1157\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹Σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1158\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹Σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1159\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹Σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1160\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1161\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1162\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1163\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋\。\\u1BAA𑂹σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1164\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹Σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1165\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹Σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1166\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹Σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1167\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹Σ≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹Σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1168\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1169\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ≠", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹σ\≠\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1170\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1171\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A929}񂥚\x{200C}😋。\x{1BAA}𑂹σ=\x{0338}", %p)}, undef, "to_unicode\(\'\\uA929񂥚\\u200C😋。\\u1BAA𑂹σ\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:1172\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒋。⒈\x{200D}򛶪", %p)}, undef, "to_unicode\(\'⒋。⒈\\u200D򛶪\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1173\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒋。⒈\x{200D}򛶪", %p)}, undef, "to_unicode\(\'⒋。⒈\\u200D򛶪\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1174\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4.。1.\x{200D}򛶪", %p)}, undef, "to_unicode\(\'4\.\。1\.\\u200D򛶪\'\)\ throws\ error\ P1\ V6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:1175\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4.。1.\x{200D}򛶪", %p)}, undef, "to_unicode\(\'4\.\。1\.\\u200D򛶪\'\)\ throws\ error\ P1\ V6\ A4_2\ C2\ \[data\/IdnaTest\.txt\:1176\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}ß。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EEß。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1177\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}ß。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EEß。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1178\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}ß。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EEß\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}SS。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EESS\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1180\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EEss\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1181\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}Ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EESs\。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}SS。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EESS。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EEss。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}Ss。\x{2D7F}\x{1A17}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EESs。\\u2D7F\\u1A17򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}SS。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EESS。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}ss。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EEss。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06EE}Ss。\x{1A17}\x{2D7F}򂚄ᡣ", %p)}, undef, "to_unicode\(\'\\u06EESs。\\u1A17\\u2D7F򂚄ᡣ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1188\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0661}\x{ABED}򚝪.󠀣\x{FE2E}𑁆\x{17D2}", %p)}, undef, "to_unicode\(\'\\u0661\\uABED򚝪\.\󠀣\\uFE2E𑁆\\u17D2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1189\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0661}\x{ABED}򚝪.󠀣𑁆\x{17D2}\x{FE2E}", %p)}, undef, "to_unicode\(\'\\u0661\\uABED򚝪\.\󠀣𑁆\\u17D2\\uFE2E\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1190\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_unicode\(\'Ⴓ𑂹\\u200D򒾎.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1191\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_unicode\(\'Ⴓ𑂹\\u200D򒾎\.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1192\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_unicode\(\'ⴓ𑂹\\u200D򒾎\.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1193\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴓ𑂹\x{200D}򒾎.\x{062E}\x{1CDF}", %p)}, undef, "to_unicode\(\'ⴓ𑂹\\u200D򒾎.\\u062E\\u1CDF\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1194\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}.🄆꡶", %p)}, undef, "to_unicode\(\'\\u0BCD\.🄆꡶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1195\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}.5,꡶", %p)}, undef, "to_unicode\(\'\\u0BCD\.5\,꡶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1196\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񥛿𴫊۸。󠠾-", %p)}, undef, "to_unicode\(\'񥛿𴫊۸\。\󠠾\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1197\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𷍞\x{06AF}𐹦。\x{0667}\x{0854}\x{084F}", %p)}, undef, "to_unicode\(\'𷍞\\u06AF𐹦\。\\u0667\\u0854\\u084F\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:1198\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ꡀႾ🄂.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DꡀႾ🄂\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1199\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ꡀႾ🄂.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DꡀႾ🄂\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1200\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ꡀႾ1,.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DꡀႾ1\,\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1201\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ꡀႾ1,.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_unicode\(\'\\u200DꡀႾ1\,\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ꡀⴞ1,.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dꡀⴞ1\,\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1203\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ꡀⴞ1,.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dꡀⴞ1\,\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1204\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ꡀⴞ🄂.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dꡀⴞ🄂\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1205\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}ꡀⴞ🄂.𝨛\x{07E6}򄚍\x{200C}", %p)}, undef, "to_unicode\(\'\\u200Dꡀⴞ🄂\.𝨛\\u07E6򄚍\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:1206\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0665}ᡙ.\x{1BAA}񒂱⾆", %p)}, undef, "to_unicode\(\'\\u0665ᡙ.\\u1BAA񒂱⾆\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1207\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0665}ᡙ.\x{1BAA}񒂱舌", %p)}, undef, "to_unicode\(\'\\u0665ᡙ\.\\u1BAA񒂱舌\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1208\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㇕󠤹󏶍.񵧳", %p)}, undef, "to_unicode\(\'㇕\󠤹󏶍\.񵧳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1209\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠇜𞓇-򒬁.4Ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\󠇜𞓇\-򒬁\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1210\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠇜𞓇-򒬁.4Ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\󠇜𞓇\-򒬁\.4Ⴄ\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1211\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠇜𞓇-򒬁.4ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\󠇜𞓇\-򒬁\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1212\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠇜𞓇-򒬁.4ⴄ\x{200C}", %p)}, undef, "to_unicode\(\'\󠇜𞓇\-򒬁\.4ⴄ\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1213\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。󠫫ß\x{0825}", %p)}, undef, "to_unicode\(\'ᚭ。\󠫫ß\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1214\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。󠫫ß\x{0825}", %p)}, undef, "to_unicode\(\'ᚭ\。\󠫫ß\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1215\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。󠫫SS\x{0825}", %p)}, undef, "to_unicode\(\'ᚭ\。\󠫫SS\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1216\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。󠫫ss\x{0825}", %p)}, undef, "to_unicode\(\'ᚭ\。\󠫫ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1217\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。󠫫Ss\x{0825}", %p)}, undef, "to_unicode\(\'ᚭ\。\󠫫Ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1218\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。󠫫SS\x{0825}", %p)}, undef, "to_unicode\(\'ᚭ。\󠫫SS\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1219\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。󠫫ss\x{0825}", %p)}, undef, "to_unicode\(\'ᚭ。\󠫫ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1220\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᚭ。󠫫Ss\x{0825}", %p)}, undef, "to_unicode\(\'ᚭ。\󠫫Ss\\u0825\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1221\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("₁。ᠻ\x{063D}", %p)}, undef, "to_unicode\(\'₁。ᠻ\\u063D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1222\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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("1。ᠻ\x{063D}", %p)}, undef, "to_unicode\(\'1\。ᠻ\\u063D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1223\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("􎑪\x{200C}.\x{FE7E}񵐊𥏫", %p)}, undef, "to_unicode\(\'􎑪\\u200C\.\\uFE7E񵐊𥏫\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1224\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􎑪\x{200C}.\x{FE7E}񵐊𥏫", %p)}, undef, "to_unicode\(\'􎑪\\u200C\.\\uFE7E񵐊𥏫\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1225\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􎑪\x{200C}.\x{0020}\x{0652}񵐊𥏫", %p)}, undef, "to_unicode\(\'􎑪\\u200C\.\\u0020\\u0652񵐊𥏫\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1226\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􎑪\x{200C}.\x{0020}\x{0652}񵐊𥏫", %p)}, undef, "to_unicode\(\'􎑪\\u200C\.\\u0020\\u0652񵐊𥏫\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1227\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝪤≯。╎", %p)}, undef, "to_unicode\(\'𝪤\≯。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1228\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝪤>\x{0338}。╎", %p)}, undef, "to_unicode\(\'𝪤\>\\u0338。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1229\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝪤≯。╎", %p)}, undef, "to_unicode\(\'𝪤\≯\。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1230\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝪤>\x{0338}。╎", %p)}, undef, "to_unicode\(\'𝪤\>\\u0338\。\╎\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1231\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴋ≮􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_unicode\(\'Ⴋ\≮􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1232\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴋ≮􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_unicode\(\'Ⴋ\≮􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1233\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴋ<\x{0338}􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_unicode\(\'Ⴋ\<\\u0338􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1234\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴋ<\x{0338}􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_unicode\(\'Ⴋ\<\\u0338􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1235\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴋ<\x{0338}􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_unicode\(\'ⴋ\<\\u0338􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1236\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴋ<\x{0338}􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_unicode\(\'ⴋ\<\\u0338􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1237\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴋ≮􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_unicode\(\'ⴋ\≮􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1238\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴋ≮􋆞。\x{200D}\x{08EB}𐋣", %p)}, undef, "to_unicode\(\'ⴋ\≮􋆞\。\\u200D\\u08EB𐋣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1239\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑋪.򕱀≯", %p)}, undef, "to_unicode\(\'𑋪\.򕱀\≯\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑋪.򕱀>\x{0338}", %p)}, undef, "to_unicode\(\'𑋪\.򕱀\>\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򁟟\x{0C4D}.\x{A802}É\x{180B}𑘿", %p)}, undef, "to_unicode\(\'򁟟\\u0C4D.\\uA802É\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1242\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򁟟\x{0C4D}.\x{A802}E\x{0301}\x{180B}𑘿", %p)}, undef, "to_unicode\(\'򁟟\\u0C4D.\\uA802E\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1243\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򁟟\x{0C4D}.\x{A802}É\x{180B}𑘿", %p)}, undef, "to_unicode\(\'򁟟\\u0C4D\.\\uA802É\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1244\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򁟟\x{0C4D}.\x{A802}E\x{0301}\x{180B}𑘿", %p)}, undef, "to_unicode\(\'򁟟\\u0C4D\.\\uA802E\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1245\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򁟟\x{0C4D}.\x{A802}e\x{0301}\x{180B}𑘿", %p)}, undef, "to_unicode\(\'򁟟\\u0C4D\.\\uA802e\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1246\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򁟟\x{0C4D}.\x{A802}é\x{180B}𑘿", %p)}, undef, "to_unicode\(\'򁟟\\u0C4D\.\\uA802é\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1247\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򁟟\x{0C4D}.\x{A802}e\x{0301}\x{180B}𑘿", %p)}, undef, "to_unicode\(\'򁟟\\u0C4D.\\uA802e\\u0301\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1248\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򁟟\x{0C4D}.\x{A802}é\x{180B}𑘿", %p)}, undef, "to_unicode\(\'򁟟\\u0C4D.\\uA802é\\u180B𑘿\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡶ\x{200D}𑖿。︒ꡒ", %p)}, undef, "to_unicode\(\'ᡶ\\u200D𑖿。︒ꡒ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡶ\x{200D}𑖿。︒ꡒ", %p)}, undef, "to_unicode\(\'ᡶ\\u200D𑖿。︒ꡒ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1251\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᡶ\x{200D}𑖿。。ꡒ", %p)}, undef, "to_unicode\(\'ᡶ\\u200D𑖿\。\。ꡒ\'\)\ throws\ error\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1252\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᡶ\x{200D}𑖿。。ꡒ", %p)}, undef, "to_unicode\(\'ᡶ\\u200D𑖿\。\。ꡒ\'\)\ throws\ error\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1253\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}≮", %p)}, undef, "to_unicode\(\'𐵞񱐾\\u1BF3\\u200C。ᡏ\\uFE0B\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}<\x{0338}", %p)}, undef, "to_unicode\(\'𐵞񱐾\\u1BF3\\u200C。ᡏ\\uFE0B\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1255\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}≮", %p)}, undef, "to_unicode\(\'𐵞񱐾\\u1BF3\\u200C\。ᡏ\\uFE0B\≮\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1256\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐵞񱐾\x{1BF3}\x{200C}。ᡏ\x{FE0B}<\x{0338}", %p)}, undef, "to_unicode\(\'𐵞񱐾\\u1BF3\\u200C\。ᡏ\\uFE0B\<\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1257\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ.\x{0325}ꡇ", %p)}, undef, "to_unicode\(\'Ⴣ.\\u0325ꡇ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1258\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ.\x{0325}ꡇ", %p)}, undef, "to_unicode\(\'Ⴣ\.\\u0325ꡇ\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1259\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0325}ꡇ", %p)}, undef, "to_unicode\(\'ⴣ\.\\u0325ꡇ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1260\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0325}ꡇ", %p)}, undef, "to_unicode\(\'ⴣ.\\u0325ꡇ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1261\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⟯𐮙.󂮼𫜏Ⴤ񨋴", %p)}, undef, "to_unicode\(\'\⟯𐮙.󂮼𫜏Ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⟯𐮙.󂮼𫜏Ⴤ񨋴", %p)}, undef, "to_unicode\(\'\⟯𐮙\.󂮼𫜏Ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⟯𐮙.󂮼𫜏ⴤ񨋴", %p)}, undef, "to_unicode\(\'\⟯𐮙\.󂮼𫜏ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⟯𐮙.󂮼𫜏ⴤ񨋴", %p)}, undef, "to_unicode\(\'\⟯𐮙.󂮼𫜏ⴤ񨋴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1265\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DCD}𝨮≮.🀴", %p)}, undef, "to_unicode\(\'\\u1DCD𝨮\≮.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1266\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DCD}𝨮<\x{0338}.🀴", %p)}, undef, "to_unicode\(\'\\u1DCD𝨮\<\\u0338.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1267\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DCD}𝨮≮.🀴", %p)}, undef, "to_unicode\(\'\\u1DCD𝨮\≮\.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1268\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DCD}𝨮<\x{0338}.🀴", %p)}, undef, "to_unicode\(\'\\u1DCD𝨮\<\\u0338\.🀴\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1269\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸≮Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\≮Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1270\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\<\\u0338Ⴢ.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1271\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸≮Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\≮Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1272\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸<\x{0338}Ⴢ.Ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\<\\u0338Ⴢ\.Ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1273\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\<\\u0338ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1274\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸≮ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\≮ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1275\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸≮Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\≮Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1276\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\<\\u0338Ⴢ\.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1277\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸<\x{0338}ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\<\\u0338ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1278\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸≮ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\≮ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1279\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸≮Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\≮Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1280\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹦𞳸<\x{0338}Ⴢ.ⴃ", %p)}, undef, "to_unicode\(\'𐹦𞳸\<\\u0338Ⴢ.ⴃ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1281\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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}。-", %p)}, undef, "to_unicode\(\'\\uA8E7\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1282\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𑋪𽣟󠽐。饈≠𐹻", %p)}, undef, "to_unicode\(\'𑋪𽣟\󠽐。饈\≠𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1283\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑋪𽣟󠽐。饈=\x{0338}𐹻", %p)}, undef, "to_unicode\(\'𑋪𽣟\󠽐。饈\=\\u0338𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1284\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑋪𽣟󠽐。饈≠𐹻", %p)}, undef, "to_unicode\(\'𑋪𽣟\󠽐\。饈\≠𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1285\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑋪𽣟󠽐。饈=\x{0338}𐹻", %p)}, undef, "to_unicode\(\'𑋪𽣟\󠽐\。饈\=\\u0338𐹻\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1286\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{067A}𐫫⁷。≯邅󠃞4", %p)}, undef, "to_unicode\(\'\\u067A𐫫⁷。\≯邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1287\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{067A}𐫫⁷。>\x{0338}邅󠃞4", %p)}, undef, "to_unicode\(\'\\u067A𐫫⁷。\>\\u0338邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1288\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{067A}𐫫7。≯邅󠃞4", %p)}, undef, "to_unicode\(\'\\u067A𐫫7\。\≯邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1289\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{067A}𐫫7。>\x{0338}邅󠃞4", %p)}, undef, "to_unicode\(\'\\u067A𐫫7\。\>\\u0338邅\󠃞4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1290\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񱙏ᡇ-𝨊.\x{0665}𐋫𐹶򍙹", %p)}, undef, "to_unicode\(\'񱙏ᡇ\-𝨊\.\\u0665𐋫𐹶򍙹\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1291\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹶ᠴ\x{0B41}.넨-󶗾", %p)}, undef, "to_unicode\(\'񎹶ᠴ\\u0B41\.넨\-󶗾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1292\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹶ᠴ\x{0B41}.넨-󶗾", %p)}, undef, "to_unicode\(\'񎹶ᠴ\\u0B41\.넨\-󶗾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1293\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{076E}\x{06CC}\x{200D}⒈。𐋣-", %p)}, undef, "to_unicode\(\'\\u076E\\u06CC\\u200D⒈\。𐋣\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:1294\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{076E}\x{06CC}\x{200D}⒈。𐋣-", %p)}, undef, "to_unicode\(\'\\u076E\\u06CC\\u200D⒈\。𐋣\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:1295\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{076E}\x{06CC}\x{200D}1.。𐋣-", %p)}, undef, "to_unicode\(\'\\u076E\\u06CC\\u200D1\.\。𐋣\-\'\)\ throws\ error\ V3\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1296\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{076E}\x{06CC}\x{200D}1.。𐋣-", %p)}, undef, "to_unicode\(\'\\u076E\\u06CC\\u200D1\.\。𐋣\-\'\)\ throws\ error\ V3\ C2\ A4_2\ \[data\/IdnaTest\.txt\:1297\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴌ。󭾖𞥉", %p)}, undef, "to_unicode\(\'Ⴌ\。󭾖𞥉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1298\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴌ。󭾖𞥉", %p)}, undef, "to_unicode\(\'ⴌ\。󭾖𞥉\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1299\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡒ𐠗.\x{17D2}󠄓-󩚨", %p)}, undef, "to_unicode\(\'ᡒ𐠗\.\\u17D2\󠄓\-󩚨\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1300\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈󊻊\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1301\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈󊻊\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1302\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈󊻊\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1303\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈󊻊\x{200D}-。웈", %p)}, undef, "to_unicode\(\'⒈󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1304\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.󊻊\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1305\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.󊻊\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1306\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.󊻊\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1307\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.󊻊\x{200D}-。웈", %p)}, undef, "to_unicode\(\'1\.󊻊\\u200D\-\。웈\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:1308\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:1309\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:1310\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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--m9j.xn--wkk6036d", %p)}, "て.㇎𐨸", "to_unicode\(\'xn\-\-m9j\.xn\-\-wkk6036d\'\)\ \[data\/IdnaTest\.txt\:1311\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:1312\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_unicode\(\'ς。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1313\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_unicode\(\'ς\。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1314\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_unicode\(\'Σ\。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1315\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_unicode\(\'σ\。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1316\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_unicode\(\'Σ。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1317\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}\x{1712}", %p)}, undef, "to_unicode\(\'σ。\\uA8C4\\u1712\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1318\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𑈵󡚑񟺼.ႢႵ", %p)}, undef, "to_unicode\(\'𑈵󡚑񟺼\.ႢႵ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1319\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵󡚑񟺼.ⴂⴕ", %p)}, undef, "to_unicode\(\'𑈵󡚑񟺼\.ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1320\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵󡚑񟺼.Ⴂⴕ", %p)}, undef, "to_unicode\(\'𑈵󡚑񟺼\.Ⴂⴕ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1321\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🀾🄈⾛\x{0741}.\x{200D}󡉠\x{068D}", %p)}, undef, "to_unicode\(\'🀾🄈⾛\\u0741.\\u200D󡉠\\u068D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1322\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🀾🄈⾛\x{0741}.\x{200D}󡉠\x{068D}", %p)}, undef, "to_unicode\(\'🀾🄈⾛\\u0741.\\u200D󡉠\\u068D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1323\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🀾7,走\x{0741}.\x{200D}󡉠\x{068D}", %p)}, undef, "to_unicode\(\'🀾7\,走\\u0741\.\\u200D󡉠\\u068D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1324\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🀾7,走\x{0741}.\x{200D}󡉠\x{068D}", %p)}, undef, "to_unicode\(\'🀾7\,走\\u0741\.\\u200D󡉠\\u068D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1325\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ。Ӏ򧥽", %p)}, undef, "to_unicode\(\'ᡙ。Ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1326\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ。Ӏ򧥽", %p)}, undef, "to_unicode\(\'ᡙ\。Ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1327\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ。ӏ򧥽", %p)}, undef, "to_unicode\(\'ᡙ\。ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1328\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ。ӏ򧥽", %p)}, undef, "to_unicode\(\'ᡙ。ӏ򧥽\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1329\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0666}-。񅭣⺖ᄾ", %p)}, undef, "to_unicode\(\'\\u0666\-\。񅭣⺖ᄾ\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1330\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-𐋷󠇐。\x{07EF}", %p)}, undef, "to_unicode\(\'\-𐋷\󠇐\。\\u07EF\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1331\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}𐹴󠴚멈.\x{2D7F}􍼶", %p)}, undef, "to_unicode\(\'\\u200C𐹴\󠴚멈\.\\u2D7F􍼶\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1332\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}𐹴󠴚멈.\x{2D7F}􍼶", %p)}, undef, "to_unicode\(\'\\u200C𐹴\󠴚멈\.\\u2D7F􍼶\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1333\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}𐹴󠴚멈.\x{2D7F}􍼶", %p)}, undef, "to_unicode\(\'\\u200C𐹴\󠴚멈\.\\u2D7F􍼶\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1334\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}𐹴󠴚멈.\x{2D7F}􍼶", %p)}, undef, "to_unicode\(\'\\u200C𐹴\󠴚멈\.\\u2D7F􍼶\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:1335\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.ᢣ𐹵", %p)}, undef, "to_unicode\(\'\≮\.ᢣ𐹵\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1336\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.ᢣ𐹵", %p)}, undef, "to_unicode\(\'\<\\u0338\.ᢣ𐹵\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1337\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞤴⾆。\x{200C}𑘿񡭠𐲈", %p)}, undef, "to_unicode\(\'𞤴⾆。\\u200C𑘿񡭠𐲈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1338\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞤴⾆。\x{200C}𑘿񡭠𐲈", %p)}, undef, "to_unicode\(\'𞤴⾆。\\u200C𑘿񡭠𐲈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1339\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞤴舌。\x{200C}𑘿񡭠𐲈", %p)}, undef, "to_unicode\(\'𞤴舌\。\\u200C𑘿񡭠𐲈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1340\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞤴舌。\x{200C}𑘿񡭠𐲈", %p)}, undef, "to_unicode\(\'𞤴舌\。\\u200C𑘿񡭠𐲈\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:1341\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.𝟷ς𞷼ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.𝟷ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1342\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.𝟷ς𞷼ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.𝟷ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1343\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.1ς𞷼ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.1ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1344\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.1ς𞷼ς", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.1ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1345\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.1ς𞷼ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.1ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1346\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.1ς𞷼ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.1ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1347\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.1Σ𞷼Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.1Σ𞷼Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1348\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.1Σ𞷼Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.1Σ𞷼Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1349\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.1σ𞷼σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.1σ𞷼σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1350\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.1σ𞷼σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.1σ𞷼σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1351\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.𝟷ς𞷼ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.𝟷ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1352\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.𝟷ς𞷼ς", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.𝟷ς𞷼ς\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1353\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.𝟷Σ𞷼Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.𝟷Σ𞷼Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1354\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴠ-.𝟷Σ𞷼Σ", %p)}, undef, "to_unicode\(\'\\u200CჀ\-\.𝟷Σ𞷼Σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1355\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.𝟷σ𞷼σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.𝟷σ𞷼σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ⴠ-.𝟷σ𞷼σ", %p)}, undef, "to_unicode\(\'\\u200Cⴠ\-\.𝟷σ𞷼σ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1357\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4C}\x{18A9}󸥿。𝟪Ⴜ", %p)}, undef, "to_unicode\(\'\\u0E4C\\u18A9󸥿。𝟪Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1358\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4C}\x{18A9}󸥿。8Ⴜ", %p)}, undef, "to_unicode\(\'\\u0E4C\\u18A9󸥿\。8Ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1359\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4C}\x{18A9}󸥿。8ⴜ", %p)}, undef, "to_unicode\(\'\\u0E4C\\u18A9󸥿\。8ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1360\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0E4C}\x{18A9}󸥿。𝟪ⴜ", %p)}, undef, "to_unicode\(\'\\u0E4C\\u18A9󸥿。𝟪ⴜ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1361\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_unicode\(\'䪏\\u0640᠇𑓀。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1362\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_unicode\(\'䪏\\u0640᠇𑓀。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1363\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_unicode\(\'䪏\\u0640᠇𑓀\。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1364\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("䪏\x{0640}᠇𑓀。뭕𐫃\x{1072}", %p)}, undef, "to_unicode\(\'䪏\\u0640᠇𑓀\。뭕𐫃\\u1072\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1365\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𑍍。󠙉󠇂", %p)}, undef, "to_unicode\(\'𑍍。\󠙉\󠇂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1366\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍍。󠙉󠇂", %p)}, undef, "to_unicode\(\'𑍍\。\󠙉\󠇂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1367\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𙞤󠁧。ς\x{200D}\x{0600}𑄴", %p)}, undef, "to_unicode\(\'𙞤\󠁧\。ς\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1368\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𙞤󠁧。ς\x{200D}\x{0600}𑄴", %p)}, undef, "to_unicode\(\'𙞤\󠁧\。ς\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1369\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𙞤󠁧。Σ\x{200D}\x{0600}𑄴", %p)}, undef, "to_unicode\(\'𙞤\󠁧\。Σ\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1370\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𙞤󠁧。Σ\x{200D}\x{0600}𑄴", %p)}, undef, "to_unicode\(\'𙞤\󠁧\。Σ\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𙞤󠁧。σ\x{200D}\x{0600}𑄴", %p)}, undef, "to_unicode\(\'𙞤\󠁧\。σ\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1372\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𙞤󠁧。σ\x{200D}\x{0600}𑄴", %p)}, undef, "to_unicode\(\'𙞤\󠁧\。σ\\u200D\\u0600𑄴\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1373\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0842}\x{07CB}𑄳.\x{0DCA}", %p)}, undef, "to_unicode\(\'\\u0842\\u07CB𑄳.\\u0DCA\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1374\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0842}\x{07CB}𑄳.\x{0DCA}", %p)}, undef, "to_unicode\(\'\\u0842\\u07CB𑄳\.\\u0DCA\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1375\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󋮸󑧠񛎑-。\x{200C}", %p)}, undef, "to_unicode\(\'󋮸󑧠񛎑\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1376\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󋮸󑧠񛎑-。\x{200C}", %p)}, undef, "to_unicode\(\'󋮸󑧠񛎑\-\。\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:1377\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐹵.𞡮", %p)}, undef, "to_unicode\(\'𐹵.𞡮\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1378\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐹵.𞡮", %p)}, undef, "to_unicode\(\'𐹵\.𞡮\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1379\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-ᢉ。Ↄ", %p)}, undef, "to_unicode\(\'\-ᢉ。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1380\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ᢉ。Ↄ", %p)}, undef, "to_unicode\(\'\-ᢉ\。Ↄ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1381\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:1382\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:1383\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}-︒\x{0817}。ß哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\u0817\。ß哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1384\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{0817}。ß哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\u0817\。ß哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1385\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{0817}。ß哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\u0817\。ß哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1386\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{0817}。ß哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\u0817\。ß哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1387\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{0817}。SS哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\u0817\。SS哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1388\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{0817}。SS哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\u0817\。SS哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1389\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{0817}。ss哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\u0817\。ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1390\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{0817}。ss哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\u0817\。ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1391\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{0817}。Ss哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\u0817\。Ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1392\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-。\x{0817}。Ss哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-\。\\u0817\。Ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1393\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{0817}。SS哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\u0817\。SS哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1394\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{0817}。SS哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\u0817\。SS哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1395\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{0817}。ss哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\u0817\。ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1396\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{0817}。ss哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\u0817\。ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1397\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{0817}。Ss哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\u0817\。Ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1398\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-︒\x{0817}。Ss哑\x{200C}𞤆", %p)}, undef, "to_unicode\(\'\\u200D\-︒\\u0817\。Ss哑\\u200C𞤆\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1399\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒.𑂵\x{1BAB}", %p)}, undef, "to_unicode\(\'︒.𑂵\\u1BAB\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:1400\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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\:1401\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{07AB}。\x{200D}", %p)}, undef, "to_unicode\(\'\\u07AB\。\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1402\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07AB}。\x{200D}", %p)}, undef, "to_unicode\(\'\\u07AB\。\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:1403\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}⥤。𞶣", %p)}, undef, "to_unicode\(\'\\u200D\⥤。𞶣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1404\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}⥤。𞶣", %p)}, undef, "to_unicode\(\'\\u200D\⥤。𞶣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1405\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}⥤。𞶣", %p)}, undef, "to_unicode\(\'\\u200D\⥤\。𞶣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1406\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}⥤。𞶣", %p)}, undef, "to_unicode\(\'\\u200D\⥤\。𞶣\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1407\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-Ⴄ𝟢\x{0669}.\x{1C32}ς", %p)}, undef, "to_unicode\(\'\-Ⴄ𝟢\\u0669.\\u1C32ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1408\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-Ⴄ0\x{0669}.\x{1C32}ς", %p)}, undef, "to_unicode\(\'\-Ⴄ0\\u0669\.\\u1C32ς\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1409\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}ς", %p)}, undef, "to_unicode\(\'\-ⴄ0\\u0669\.\\u1C32ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1410\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-Ⴄ0\x{0669}.\x{1C32}Σ", %p)}, undef, "to_unicode\(\'\-Ⴄ0\\u0669\.\\u1C32Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1411\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}σ", %p)}, undef, "to_unicode\(\'\-ⴄ0\\u0669\.\\u1C32σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1412\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}ς", %p)}, undef, "to_unicode\(\'\-ⴄ𝟢\\u0669.\\u1C32ς\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1413\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-Ⴄ𝟢\x{0669}.\x{1C32}Σ", %p)}, undef, "to_unicode\(\'\-Ⴄ𝟢\\u0669.\\u1C32Σ\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1414\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0669}.\x{1C32}σ", %p)}, undef, "to_unicode\(\'\-ⴄ𝟢\\u0669.\\u1C32σ\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1415\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("򟣀。-", %p)}, undef, "to_unicode\(\'򟣀\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:1416\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠𐋮.񓓍𑖴ß≯", %p)}, undef, "to_unicode\(\'\⋠𐋮.񓓍𑖴ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1417\]") 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\:1418\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠𐋮.񓓍𑖴ß≯", %p)}, undef, "to_unicode\(\'\⋠𐋮\.񓓍𑖴ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1419\]") 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\:1420\]") 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\:1421\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠𐋮.񓓍𑖴SS≯", %p)}, undef, "to_unicode\(\'\⋠𐋮\.񓓍𑖴SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1422\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠𐋮.񓓍𑖴ss≯", %p)}, undef, "to_unicode\(\'\⋠𐋮\.񓓍𑖴ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1423\]") 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\:1424\]") 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\:1425\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠𐋮.񓓍𑖴Ss≯", %p)}, undef, "to_unicode\(\'\⋠𐋮\.񓓍𑖴Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1426\]") 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\:1427\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠𐋮.񓓍𑖴SS≯", %p)}, undef, "to_unicode\(\'\⋠𐋮.񓓍𑖴SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1428\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠𐋮.񓓍𑖴ss≯", %p)}, undef, "to_unicode\(\'\⋠𐋮.񓓍𑖴ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1429\]") 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\:1430\]") 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\:1431\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋠𐋮.񓓍𑖴Ss≯", %p)}, undef, "to_unicode\(\'\⋠𐋮.񓓍𑖴Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1432\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𐋸\x{0662}。𑋥\x{08DE}򫰮", %p)}, undef, "to_unicode\(\'1𐋸\\u0662。𑋥\\u08DE򫰮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1433\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𐋸\x{0662}。𑋥\x{08DE}򫰮", %p)}, undef, "to_unicode\(\'1𐋸\\u0662\。𑋥\\u08DE򫰮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1434\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{0663}Ⴢ򈡄\x{200C}", %p)}, undef, "to_unicode\(\'儭\-。\\u0663Ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1435\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{0663}Ⴢ򈡄\x{200C}", %p)}, undef, "to_unicode\(\'儭\-。\\u0663Ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1436\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{0663}Ⴢ򈡄\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。\\u0663Ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1437\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{0663}Ⴢ򈡄\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。\\u0663Ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1438\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{0663}ⴢ򈡄\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。\\u0663ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1439\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{0663}ⴢ򈡄\x{200C}", %p)}, undef, "to_unicode\(\'儭\-\。\\u0663ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1440\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{0663}ⴢ򈡄\x{200C}", %p)}, undef, "to_unicode\(\'儭\-。\\u0663ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1441\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("儭-。\x{0663}ⴢ򈡄\x{200C}", %p)}, undef, "to_unicode\(\'儭\-。\\u0663ⴢ򈡄\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1442\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟺𐋷\x{0845}.ᡀ𚎑", %p)}, undef, "to_unicode\(\'𝟺𐋷\\u0845.ᡀ𚎑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1443\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4𐋷\x{0845}.ᡀ𚎑", %p)}, undef, "to_unicode\(\'4𐋷\\u0845\.ᡀ𚎑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1444\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯-\x{06BE}\x{20D4}.⒈𐹱", %p)}, undef, "to_unicode\(\'\≯\-\\u06BE\\u20D4\.⒈𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1445\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}-\x{06BE}\x{20D4}.⒈𐹱", %p)}, undef, "to_unicode\(\'\>\\u0338\-\\u06BE\\u20D4\.⒈𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯-\x{06BE}\x{20D4}.1.𐹱", %p)}, undef, "to_unicode\(\'\≯\-\\u06BE\\u20D4\.1\.𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1447\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}-\x{06BE}\x{20D4}.1.𐹱", %p)}, undef, "to_unicode\(\'\>\\u0338\-\\u06BE\\u20D4\.1\.𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1448\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝩔.󚝷蚀", %p)}, undef, "to_unicode\(\'𝩔.󚝷蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1449\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝩔.󚝷蚀", %p)}, undef, "to_unicode\(\'𝩔\.󚝷蚀\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1450\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0867}Ⴘ.𞮸\x{0F84}ß\x{102D}", %p)}, undef, "to_unicode\(\'\\u0867Ⴘ\.𞮸\\u0F84ß\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1451\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0867}ⴘ.𞮸\x{0F84}ß\x{102D}", %p)}, undef, "to_unicode\(\'\\u0867ⴘ\.𞮸\\u0F84ß\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1452\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0867}Ⴘ.𞮸\x{0F84}SS\x{102D}", %p)}, undef, "to_unicode\(\'\\u0867Ⴘ\.𞮸\\u0F84SS\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1453\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0867}ⴘ.𞮸\x{0F84}ss\x{102D}", %p)}, undef, "to_unicode\(\'\\u0867ⴘ\.𞮸\\u0F84ss\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1454\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0867}Ⴘ.𞮸\x{0F84}Ss\x{102D}", %p)}, undef, "to_unicode\(\'\\u0867Ⴘ\.𞮸\\u0F84Ss\\u102D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1455\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAD}\x{0605}󋧄。凬", %p)}, undef, "to_unicode\(\'\\u0FAD\\u0605󋧄。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1456\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAD}\x{0605}󋧄。凬", %p)}, undef, "to_unicode\(\'\\u0FAD\\u0605󋧄\。凬\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1457\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⇿🄈\x{200D}𐮀。\x{1734}", %p)}, undef, "to_unicode\(\'\⇿🄈\\u200D𐮀。\\u1734\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1458\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⇿🄈\x{200D}𐮀。\x{1734}", %p)}, undef, "to_unicode\(\'\⇿🄈\\u200D𐮀。\\u1734\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1459\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⇿7,\x{200D}𐮀。\x{1734}", %p)}, undef, "to_unicode\(\'\⇿7\,\\u200D𐮀\。\\u1734\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1460\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⇿7,\x{200D}𐮀。\x{1734}", %p)}, undef, "to_unicode\(\'\⇿7\,\\u200D𐮀\。\\u1734\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1461\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{08A3}。𑋪\x{062B}", %p)}, undef, "to_unicode\(\'\\u08A3\。𑋪\\u062B\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1462\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0743}≮.\x{0E36}", %p)}, undef, "to_unicode\(\'\\u0743\≮\.\\u0E36\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1463\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0743}<\x{0338}.\x{0E36}", %p)}, undef, "to_unicode\(\'\\u0743\<\\u0338\.\\u0E36\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1464\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴢ≯褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_unicode\(\'Ⴢ\≯褦.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1465\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴢ>\x{0338}褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_unicode\(\'Ⴢ\>\\u0338褦.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1466\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴢ≯褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_unicode\(\'Ⴢ\≯褦\.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1467\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴢ>\x{0338}褦.ᢋꡱႾ\x{0679}", %p)}, undef, "to_unicode\(\'Ⴢ\>\\u0338褦\.ᢋꡱႾ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1468\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴢ>\x{0338}褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_unicode\(\'ⴢ\>\\u0338褦\.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1469\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴢ≯褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_unicode\(\'ⴢ\≯褦\.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1470\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴢ>\x{0338}褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_unicode\(\'ⴢ\>\\u0338褦.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1471\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴢ≯褦.ᢋꡱⴞ\x{0679}", %p)}, undef, "to_unicode\(\'ⴢ\≯褦.ᢋꡱⴞ\\u0679\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1472\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񔻃\x{1B3C}\x{200C}\x{2D7F}。\x{0760}ᡟ\x{0778}", %p)}, undef, "to_unicode\(\'񔻃\\u1B3C\\u200C\\u2D7F\。\\u0760ᡟ\\u0778\'\)\ throws\ error\ P1\ V6\ C1\ B2\ \[data\/IdnaTest\.txt\:1473\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񔻃\x{1B3C}\x{200C}\x{2D7F}。\x{0760}ᡟ\x{0778}", %p)}, undef, "to_unicode\(\'񔻃\\u1B3C\\u200C\\u2D7F\。\\u0760ᡟ\\u0778\'\)\ throws\ error\ P1\ V6\ C1\ B2\ \[data\/IdnaTest\.txt\:1474\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.≯", %p)}, undef, "to_unicode\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1475\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.≯", %p)}, undef, "to_unicode\(\'\\u200C\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1476\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1477\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1478\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𣴟𽙙-.𑇀-悜", %p)}, undef, "to_unicode\(\'𣴟𽙙\-.𑇀\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1479\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𣴟𽙙-.𑇀-悜", %p)}, undef, "to_unicode\(\'𣴟𽙙\-\.𑇀\-悜\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:1480\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫀𐿓➻ᢗ.-\x{200D}\x{0FA1}\x{1B42}", %p)}, undef, "to_unicode\(\'𐫀𐿓\➻ᢗ\.\-\\u200D\\u0FA1\\u1B42\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:1481\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫀𐿓➻ᢗ.-\x{200D}\x{0FA1}\x{1B42}", %p)}, undef, "to_unicode\(\'𐫀𐿓\➻ᢗ\.\-\\u200D\\u0FA1\\u1B42\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:1482\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒐\x{200C}衃Ⴝ.\x{067F}Ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃Ⴝ\.\\u067FႴ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1483\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒐\x{200C}衃Ⴝ.\x{067F}Ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃Ⴝ\.\\u067FႴ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1484\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9.\x{200C}衃Ⴝ.\x{067F}Ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃Ⴝ\.\\u067FႴ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1485\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9.\x{200C}衃Ⴝ.\x{067F}Ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃Ⴝ\.\\u067FႴ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1486\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("9.\x{200C}衃ⴝ.\x{067F}ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1487\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("9.\x{200C}衃ⴝ.\x{067F}ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1488\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("9.\x{200C}衃Ⴝ.\x{067F}ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃Ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1489\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9.\x{200C}衃Ⴝ.\x{067F}ⴔ", %p)}, undef, "to_unicode\(\'9\.\\u200C衃Ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1490\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒐\x{200C}衃ⴝ.\x{067F}ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1491\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒐\x{200C}衃ⴝ.\x{067F}ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1492\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒐\x{200C}衃Ⴝ.\x{067F}ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃Ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1493\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒐\x{200C}衃Ⴝ.\x{067F}ⴔ", %p)}, undef, "to_unicode\(\'⒐\\u200C衃Ⴝ\.\\u067Fⴔ\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:1494\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0756}\x{200C}。--🞞", %p)}, undef, "to_unicode\(\'\\u0756\\u200C\。\-\-🞞\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1495\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0756}\x{200C}。--🞞", %p)}, undef, "to_unicode\(\'\\u0756\\u200C\。\-\-🞞\'\)\ throws\ error\ V3\ B3\ C1\ \[data\/IdnaTest\.txt\:1496\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{FD74}.\x{062E}", %p)}, "\x{0637}\x{0645}\x{064A}.\x{062E}", "to_unicode\(\'\\uFD74.\\u062E\'\)\ \[data\/IdnaTest\.txt\:1497\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0637}\x{0645}\x{064A}.\x{062E}", %p)}, "\x{0637}\x{0645}\x{064A}.\x{062E}", "to_unicode\(\'\\u0637\\u0645\\u064A\.\\u062E\'\)\ \[data\/IdnaTest\.txt\:1498\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--2gb2ap.xn--tgb", %p)}, "\x{0637}\x{0645}\x{064A}.\x{062E}", "to_unicode\(\'xn\-\-2gb2ap\.xn\-\-tgb\'\)\ \[data\/IdnaTest\.txt\:1499\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1DE4}-.-\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u1DE4\-.\-\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1500\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1DE4}-.-\x{0E3A}", %p)}, undef, "to_unicode\(\'\\u1DE4\-\.\-\\u0E3A\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:1501\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{030C}\x{06A7}-.𝩦", %p)}, undef, "to_unicode\(\'\\u030C\\u06A7\-\.𝩦\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:1502\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{07E3}\x{FB1E}\x{1AB8}𐹯.\x{A953}⒌򕠠", %p)}, undef, "to_unicode\(\'\\u07E3\\uFB1E\\u1AB8𐹯\.\\uA953⒌򕠠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1503\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07E3}\x{FB1E}\x{1AB8}𐹯.\x{A953}5.򕠠", %p)}, undef, "to_unicode\(\'\\u07E3\\uFB1E\\u1AB8𐹯\.\\uA9535\.򕠠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1504\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06D7}₀。󠀠\x{200C}𐻼\x{200D}", %p)}, undef, "to_unicode\(\'\\u06D7₀\。\󠀠\\u200C𐻼\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1505\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06D7}₀。󠀠\x{200C}𐻼\x{200D}", %p)}, undef, "to_unicode\(\'\\u06D7₀\。\󠀠\\u200C𐻼\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1506\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06D7}0。󠀠\x{200C}𐻼\x{200D}", %p)}, undef, "to_unicode\(\'\\u06D70\。\󠀠\\u200C𐻼\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1507\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06D7}0。󠀠\x{200C}𐻼\x{200D}", %p)}, undef, "to_unicode\(\'\\u06D70\。\󠀠\\u200C𐻼\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1508\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴚ𐋸\x{2060}。𝟝󋷳\x{0D4D}", %p)}, undef, "to_unicode\(\'Ⴚ𐋸\\u2060\。𝟝󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1509\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴚ𐋸\x{2060}。5󋷳\x{0D4D}", %p)}, undef, "to_unicode\(\'Ⴚ𐋸\\u2060\。5󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1510\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴚ𐋸\x{2060}。5󋷳\x{0D4D}", %p)}, undef, "to_unicode\(\'ⴚ𐋸\\u2060\。5󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1511\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴚ𐋸\x{2060}。𝟝󋷳\x{0D4D}", %p)}, undef, "to_unicode\(\'ⴚ𐋸\\u2060\。𝟝󋷳\\u0D4D\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1512\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}-\x{0645}\x{1AB4}.\x{0D62}\x{0F9F}", %p)}, undef, "to_unicode\(\'\\u200D\-\\u0645\\u1AB4\.\\u0D62\\u0F9F\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1513\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}-\x{0645}\x{1AB4}.\x{0D62}\x{0F9F}", %p)}, undef, "to_unicode\(\'\\u200D\-\\u0645\\u1AB4\.\\u0D62\\u0F9F\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1514\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≠.ꡝ", %p)}, undef, "to_unicode\(\'\≠\.ꡝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1515\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}.ꡝ", %p)}, undef, "to_unicode\(\'\=\\u0338\.ꡝ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1516\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{1A1B}。㌪", %p)}, "ᢕ\x{1A1B}.ハイツ", "to_unicode\(\'ᢕ\\u1A1B。㌪\'\)\ \[data\/IdnaTest\.txt\:1517\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{1A1B}。ハイツ", %p)}, "ᢕ\x{1A1B}.ハイツ", "to_unicode\(\'ᢕ\\u1A1B\。ハイツ\'\)\ \[data\/IdnaTest\.txt\:1518\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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--fbf49e.xn--eck4c5a", %p)}, "ᢕ\x{1A1B}.ハイツ", "to_unicode\(\'xn\-\-fbf49e\.xn\-\-eck4c5a\'\)\ \[data\/IdnaTest\.txt\:1519\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{1A1B}.ハイツ", %p)}, "ᢕ\x{1A1B}.ハイツ", "to_unicode\(\'ᢕ\\u1A1B\.ハイツ\'\)\ \[data\/IdnaTest\.txt\:1520\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0757}\x{0366}≮.\x{AAF6}-", %p)}, undef, "to_unicode\(\'\\u0757\\u0366\≮\.\\uAAF6\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1521\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0757}\x{0366}<\x{0338}.\x{AAF6}-", %p)}, undef, "to_unicode\(\'\\u0757\\u0366\<\\u0338\.\\uAAF6\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:1522\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₆榎𑤮\x{094D}。᠇\x{034B}𞻖󠳶", %p)}, undef, "to_unicode\(\'₆榎𑤮\\u094D。᠇\\u034B𞻖\󠳶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1523\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6榎𑤮\x{094D}。᠇\x{034B}𞻖󠳶", %p)}, undef, "to_unicode\(\'6榎𑤮\\u094D\。᠇\\u034B𞻖\󠳶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1524\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󺸫.󆺙", %p)}, undef, "to_unicode\(\'󺸫.󆺙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1525\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󺸫.󆺙", %p)}, undef, "to_unicode\(\'󺸫\.󆺙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1526\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}︒。ᢟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D︒。ᢟ\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1527\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}︒。ᢟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D︒。ᢟ\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1528\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。。ᢟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D\。\。ᢟ\\u200C\'\)\ throws\ error\ C2\ A4_2\ C1\ \[data\/IdnaTest\.txt\:1529\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。。ᢟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u200D\。\。ᢟ\\u200C\'\)\ throws\ error\ C2\ A4_2\ C1\ \[data\/IdnaTest\.txt\:1530\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--pbf", %p)}, "ᢟ", "to_unicode\(\'xn\-\-pbf\'\)\ \[data\/IdnaTest\.txt\:1531\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢟ", %p)}, "ᢟ", "to_unicode\(\'ᢟ\'\)\ \[data\/IdnaTest\.txt\:1532\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0604}\x{200C}𐹬。≩", %p)}, undef, "to_unicode\(\'\\u0604\\u200C𐹬\。\≩\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1533\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0604}\x{200C}𐹬。≩", %p)}, undef, "to_unicode\(\'\\u0604\\u200C𐹬\。\≩\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1534\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{A9C0}𖬳\x{0F74}𝟭。-⋎", %p)}, undef, "to_unicode\(\'\\uA9C0𖬳\\u0F74𝟭\。\-\⋎\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1535\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{A9C0}\x{0F74}𖬳𝟭。-⋎", %p)}, undef, "to_unicode\(\'\\uA9C0\\u0F74𖬳𝟭\。\-\⋎\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1536\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{A9C0}\x{0F74}𖬳1。-⋎", %p)}, undef, "to_unicode\(\'\\uA9C0\\u0F74𖬳1\。\-\⋎\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:1537\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("񃬫。뙏", %p)}, undef, "to_unicode\(\'񃬫\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1538\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񃬫。뙏", %p)}, undef, "to_unicode\(\'񃬫\。뙏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1539\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󋢒\x{A948}󇽘ᢉ.\x{074F}", %p)}, undef, "to_unicode\(\'󋢒\\uA948󇽘ᢉ\.\\u074F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1540\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。溑", %p)}, undef, "to_unicode\(\'\\u200D。溑\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1541\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。溑", %p)}, undef, "to_unicode\(\'\\u200D。溑\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1542\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。溑", %p)}, undef, "to_unicode\(\'\\u200D\。溑\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1543\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。溑", %p)}, undef, "to_unicode\(\'\\u200D\。溑\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:1544\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--c9w", %p)}, "溑", "to_unicode\(\'xn\-\-c9w\'\)\ \[data\/IdnaTest\.txt\:1545\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("溑", %p)}, "溑", "to_unicode\(\'溑\'\)\ \[data\/IdnaTest\.txt\:1546\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{075F}皥.-", %p)}, undef, "to_unicode\(\'\\u075F皥.\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1547\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{075F}皥.-", %p)}, undef, "to_unicode\(\'\\u075F皥\.\-\'\)\ throws\ error\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:1548\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𞡍󠅛ᠫ.⒈\x{06B4}", %p)}, undef, "to_unicode\(\'𞡍\󠅛ᠫ.⒈\\u06B4\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:1549\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𞡍󠅛ᠫ.1.\x{06B4}", %p)}, undef, "to_unicode\(\'𞡍\󠅛ᠫ\.1\.\\u06B4\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:1550\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}ā\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1551\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}ā\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1552\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}a\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1553\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}a\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}ā\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}ā\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}a\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1557\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}a\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1558\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}𝨬\x{200D}。\x{1160}a\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C𝨬\\u200D\。\\u1160a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1559\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}𝨬\x{200D}。\x{1160}a\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C𝨬\\u200D\。\\u1160a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1560\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}𝨬\x{200D}。\x{1160}ā\x{0600}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C𝨬\\u200D\。\\u1160ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1561\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}𝨬\x{200D}。\x{1160}ā\x{0600}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C𝨬\\u200D\。\\u1160ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1562\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}Ā\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160Ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1563\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}Ā\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160Ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1564\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}A\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160A\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1565\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{1160}A\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\u1160A\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1566\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}a\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C𝨬\\u200D\。\\uFFA0a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1567\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}a\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C𝨬\\u200D\。\\uFFA0a\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1568\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}ā\x{0600}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C𝨬\\u200D\。\\uFFA0ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1569\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}ā\x{0600}", %p)}, undef, "to_unicode\(\'ⴛ\\u200C𝨬\\u200D\。\\uFFA0ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1570\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}Ā\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0Ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1571\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}Ā\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0Ā\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1572\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}A\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0A\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1573\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴛ\x{200C}𝨬\x{200D}。\x{FFA0}A\x{0304}\x{0600}", %p)}, undef, "to_unicode\(\'Ⴛ\\u200C𝨬\\u200D\。\\uFFA0A\\u0304\\u0600\'\)\ throws\ error\ P1\ V6\ C1\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1574\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FDEB}\x{200C}。曳⾑𐋰≯", %p)}, undef, "to_unicode\(\'\\uFDEB\\u200C。曳⾑𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1575\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FDEB}\x{200C}。曳⾑𐋰≯", %p)}, undef, "to_unicode\(\'\\uFDEB\\u200C。曳⾑𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1576\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FDEB}\x{200C}。曳⾑𐋰>\x{0338}", %p)}, undef, "to_unicode\(\'\\uFDEB\\u200C。曳⾑𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1577\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FDEB}\x{200C}。曳⾑𐋰>\x{0338}", %p)}, undef, "to_unicode\(\'\\uFDEB\\u200C。曳⾑𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1578\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FDEB}\x{200C}。曳襾𐋰≯", %p)}, undef, "to_unicode\(\'\\uFDEB\\u200C\。曳襾𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1579\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FDEB}\x{200C}。曳襾𐋰≯", %p)}, undef, "to_unicode\(\'\\uFDEB\\u200C\。曳襾𐋰\≯\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1580\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FDEB}\x{200C}。曳襾𐋰>\x{0338}", %p)}, undef, "to_unicode\(\'\\uFDEB\\u200C\。曳襾𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1581\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FDEB}\x{200C}。曳襾𐋰>\x{0338}", %p)}, undef, "to_unicode\(\'\\uFDEB\\u200C\。曳襾𐋰\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1582\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯⒈。ß", %p)}, undef, "to_unicode\(\'\≯⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1583\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}⒈。ß", %p)}, undef, "to_unicode\(\'\>\\u0338⒈\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1584\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯1.。ß", %p)}, undef, "to_unicode\(\'\≯1\.\。ß\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1585\]") 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\:1586\]") 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\:1587\]") 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\:1588\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}⒈。SS", %p)}, undef, "to_unicode\(\'\>\\u0338⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1589\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯⒈。SS", %p)}, undef, "to_unicode\(\'\≯⒈\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1590\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{200D}𐣙。\x{067D}-₆Ⴙ", %p)}, undef, "to_unicode\(\'\\u0603\\u200D𐣙。\\u067D\-₆Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1591\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{200D}𐣙。\x{067D}-₆Ⴙ", %p)}, undef, "to_unicode\(\'\\u0603\\u200D𐣙。\\u067D\-₆Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1592\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{200D}𐣙。\x{067D}-6Ⴙ", %p)}, undef, "to_unicode\(\'\\u0603\\u200D𐣙\。\\u067D\-6Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1593\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{200D}𐣙。\x{067D}-6Ⴙ", %p)}, undef, "to_unicode\(\'\\u0603\\u200D𐣙\。\\u067D\-6Ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1594\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{200D}𐣙。\x{067D}-6ⴙ", %p)}, undef, "to_unicode\(\'\\u0603\\u200D𐣙\。\\u067D\-6ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1595\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{200D}𐣙。\x{067D}-6ⴙ", %p)}, undef, "to_unicode\(\'\\u0603\\u200D𐣙\。\\u067D\-6ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1596\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{200D}𐣙。\x{067D}-₆ⴙ", %p)}, undef, "to_unicode\(\'\\u0603\\u200D𐣙。\\u067D\-₆ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1597\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{200D}𐣙。\x{067D}-₆ⴙ", %p)}, undef, "to_unicode\(\'\\u0603\\u200D𐣙。\\u067D\-₆ⴙ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:1598\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1599\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1600\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。=\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C。\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。=\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C。\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。≠", %p)}, undef, "to_unicode\(\'\\u200C\。\≠\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。=\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。=\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1606\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{A953}𝪥.\x{076F}𑈵\x{05C1}\x{200C}", %p)}, undef, "to_unicode\(\'\\uA953𝪥\.\\u076F𑈵\\u05C1\\u200C\'\)\ throws\ error\ V5\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1607\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{A953}𝪥.\x{076F}𑈵\x{05C1}\x{200C}", %p)}, undef, "to_unicode\(\'\\uA953𝪥\.\\u076F𑈵\\u05C1\\u200C\'\)\ throws\ error\ V5\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1608\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𻠷\x{200D}򑄕.\x{2DE1}Ↄ≠-", %p)}, undef, "to_unicode\(\'𻠷\\u200D򑄕\.\\u2DE1Ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠷\x{200D}򑄕.\x{2DE1}Ↄ≠-", %p)}, undef, "to_unicode\(\'𻠷\\u200D򑄕\.\\u2DE1Ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠷\x{200D}򑄕.\x{2DE1}Ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'𻠷\\u200D򑄕\.\\u2DE1Ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠷\x{200D}򑄕.\x{2DE1}Ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'𻠷\\u200D򑄕\.\\u2DE1Ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠷\x{200D}򑄕.\x{2DE1}ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'𻠷\\u200D򑄕\.\\u2DE1ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠷\x{200D}򑄕.\x{2DE1}ↄ=\x{0338}-", %p)}, undef, "to_unicode\(\'𻠷\\u200D򑄕\.\\u2DE1ↄ\=\\u0338\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1614\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠷\x{200D}򑄕.\x{2DE1}ↄ≠-", %p)}, undef, "to_unicode\(\'𻠷\\u200D򑄕\.\\u2DE1ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1615\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠷\x{200D}򑄕.\x{2DE1}ↄ≠-", %p)}, undef, "to_unicode\(\'𻠷\\u200D򑄕\.\\u2DE1ↄ\≠\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ C2\ \[data\/IdnaTest\.txt\:1616\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}ς\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDς\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1617\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}ς\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDς\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1618\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}ς\x{200D}7。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDς\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}ς\x{200D}7。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDς\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}Σ\x{200D}7。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDΣ\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1621\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}Σ\x{200D}7。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDΣ\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1622\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}σ\x{200D}7。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDσ\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1623\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}σ\x{200D}7。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDσ\\u200D7\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1624\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}Σ\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDΣ\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1625\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}Σ\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDΣ\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1626\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}σ\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDσ\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1627\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CD}σ\x{200D}𝟳。蔑𯨺", %p)}, undef, "to_unicode\(\'\\u07CDσ\\u200D𝟳\。蔑𯨺\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:1628\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹶.𐹹", %p)}, undef, "to_unicode\(\'𐹶\.𐹹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:1629\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-\x{06A1}.񝧄", %p)}, undef, "to_unicode\(\'\-\\u06A1\.񝧄\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1630\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯𐪳𑒵。誆⒈", %p)}, undef, "to_unicode\(\'\≯𐪳𑒵\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1631\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}𐪳𑒵。誆⒈", %p)}, undef, "to_unicode\(\'\>\\u0338𐪳𑒵\。誆⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1632\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯𐪳𑒵。誆1.", %p)}, undef, "to_unicode\(\'\≯𐪳𑒵\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1633\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}𐪳𑒵。誆1.", %p)}, undef, "to_unicode\(\'\>\\u0338𐪳𑒵\。誆1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1634\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F79}\x{FC74}䐊\x{1BA5}.︒𐲞💫\x{0647}", %p)}, undef, "to_unicode\(\'\\u0F79\\uFC74䐊\\u1BA5.︒𐲞💫\\u0647\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1635\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0FB3}\x{0F71}\x{0F80}\x{062A}\x{0649}䐊\x{1BA5}.。𐲞💫\x{0647}", %p)}, undef, "to_unicode\(\'\\u0FB3\\u0F71\\u0F80\\u062A\\u0649䐊\\u1BA5\.\。𐲞💫\\u0647\'\)\ throws\ error\ V5\ B1\ A4_2\ \[data\/IdnaTest\.txt\:1636\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("퀬-\x{DF7E}񒆢.\x{200C}𞣕򷤗۴", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E񒆢\.\\u200C𞣕򷤗۴\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}񒆢.\x{200C}𞣕򷤗۴", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E񒆢\.\\u200C𞣕򷤗۴\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}񒆢.\x{200C}𞣕򷤗۴", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E񒆢\.\\u200C𞣕򷤗۴\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1639\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬-\x{DF7E}񒆢.\x{200C}𞣕򷤗۴", %p)}, undef, "to_unicode\(\'퀬\-\\uDF7E񒆢\.\\u200C𞣕򷤗۴\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1640\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬", %p)}, "퀬", "to_unicode\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1641\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("퀬", %p)}, "퀬", "to_unicode\(\'퀬\'\)\ \[data\/IdnaTest\.txt\:1642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--8n7b", %p)}, "퀬", "to_unicode\(\'xn\-\-8n7b\'\)\ \[data\/IdnaTest\.txt\:1643\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴌ.\x{0664}︒\x{0F84}𞴌", %p)}, undef, "to_unicode\(\'Ⴌ\.\\u0664︒\\u0F84𞴌\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1644\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴌ.\x{0664}。\x{0F84}𞴌", %p)}, undef, "to_unicode\(\'Ⴌ\.\\u0664\。\\u0F84𞴌\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1645\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴌ.\x{0664}。\x{0F84}𞴌", %p)}, undef, "to_unicode\(\'ⴌ\.\\u0664\。\\u0F84𞴌\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:1646\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴌ.\x{0664}︒\x{0F84}𞴌", %p)}, undef, "to_unicode\(\'ⴌ\.\\u0664︒\\u0F84𞴌\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1647\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򻖲󠬬。𞸙\x{A927}", %p)}, undef, "to_unicode\(\'򻖲\󠬬\。𞸙\\uA927\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1648\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򻖲󠬬。\x{0636}\x{A927}", %p)}, undef, "to_unicode\(\'򻖲\󠬬\。\\u0636\\uA927\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1649\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󠜤\x{0362}.\x{0F7B}󠅑\x{1A60}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\󠜤\\u0362.\\u0F7B\󠅑\\u1A60\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1650\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󠜤\x{0362}.\x{0F7B}󠅑\x{1A60}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\󠜤\\u0362.\\u0F7B\󠅑\\u1A60\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1651\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󠜤\x{0362}.\x{0F7B}󠅑\x{1A60}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\󠜤\\u0362\.\\u0F7B\󠅑\\u1A60\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1652\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󠜤\x{0362}.\x{0F7B}󠅑\x{1A60}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D\󠜤\\u0362\.\\u0F7B\󠅑\\u1A60\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:1653\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񵫶。🄂", %p)}, undef, "to_unicode\(\'񵫶。🄂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1654\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񵫶。1,", %p)}, undef, "to_unicode\(\'񵫶\。1\,\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1655\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{036E}刍.🠗", %p)}, undef, "to_unicode\(\'\\u036E刍\.🠗\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1656\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⺄3。\x{0FA9}𝟒", %p)}, undef, "to_unicode\(\'⺄3。\\u0FA9𝟒\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1657\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⺄3。\x{0FA9}4", %p)}, undef, "to_unicode\(\'⺄3\。\\u0FA94\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1658\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫡6Ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_unicode\(\'𐫡6Ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1659\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫡6Ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_unicode\(\'𐫡6Ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1660\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫡6Ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_unicode\(\'𐫡6Ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1661\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫡6Ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_unicode\(\'𐫡6Ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1662\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫡6ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_unicode\(\'𐫡6ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1663\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫡6ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_unicode\(\'𐫡6ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1664\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫡6ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_unicode\(\'𐫡6ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1665\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫡6ⴔ辘.𞫬𐮈\x{200C}", %p)}, undef, "to_unicode\(\'𐫡6ⴔ辘\.𞫬𐮈\\u200C\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:1666\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑘷.ᡱ\x{06C6}򵶨۹", %p)}, undef, "to_unicode\(\'𑘷\.ᡱ\\u06C6򵶨۹\'\)\ throws\ error\ P1\ V5\ V6\ B5\ \[data\/IdnaTest\.txt\:1667\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A87D}≯.󁛲𳎟", %p)}, undef, "to_unicode\(\'\\uA87D\≯.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1668\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A87D}>\x{0338}.󁛲𳎟", %p)}, undef, "to_unicode\(\'\\uA87D\>\\u0338.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1669\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A87D}≯.󁛲𳎟", %p)}, undef, "to_unicode\(\'\\uA87D\≯\.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1670\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A87D}>\x{0338}.󁛲𳎟", %p)}, undef, "to_unicode\(\'\\uA87D\>\\u0338\.󁛲𳎟\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1671\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ςო\x{072D}.ς𐫟", %p)}, undef, "to_unicode\(\'ςო\\u072D\.ς𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1672\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σო\x{072D}.Σ𐫟", %p)}, undef, "to_unicode\(\'Σო\\u072D\.Σ𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1673\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σო\x{072D}.σ𐫟", %p)}, undef, "to_unicode\(\'σო\\u072D\.σ𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1674\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σო\x{072D}.σ𐫟", %p)}, undef, "to_unicode\(\'Σო\\u072D\.σ𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1675\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σო\x{072D}.ς𐫟", %p)}, undef, "to_unicode\(\'Σო\\u072D\.ς𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1676\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σო\x{072D}.ς𐫟", %p)}, undef, "to_unicode\(\'σო\\u072D\.ς𐫟\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1677\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_unicode\(\'򇋓\\uA67C쐮𐮭。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1678\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_unicode\(\'򇋓\\uA67C쐮𐮭。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1679\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_unicode\(\'򇋓\\uA67C쐮𐮭\。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1680\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򇋓\x{A67C}쐮𐮭。⩒", %p)}, undef, "to_unicode\(\'򇋓\\uA67C쐮𐮭\。\⩒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1681\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\﹅.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1682\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\﹅.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1683\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\﹅.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1684\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\﹅.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1685\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\﹅\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1686\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫≠Ⴞ", %p)}, undef, "to_unicode\(\'\﹅\.\\u200D䤫\≠Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1687\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\﹅\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1688\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫=\x{0338}Ⴞ", %p)}, undef, "to_unicode\(\'\﹅\.\\u200D䤫\=\\u0338Ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1689\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\﹅\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1690\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\﹅\.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1691\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\﹅\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1692\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\﹅\.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1693\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\﹅.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1694\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫=\x{0338}ⴞ", %p)}, undef, "to_unicode\(\'\﹅.\\u200D䤫\=\\u0338ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1695\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\﹅.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1696\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("﹅.\x{200D}䤫≠ⴞ", %p)}, undef, "to_unicode\(\'\﹅.\\u200D䤫\≠ⴞ\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1697\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱎𑄴.𐹱▟", %p)}, undef, "to_unicode\(\'𐱎𑄴.𐹱\▟\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1698\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱎𑄴.𐹱▟", %p)}, undef, "to_unicode\(\'𐱎𑄴\.𐹱\▟\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1699\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒊⒈󠅵。9", %p)}, undef, "to_unicode\(\'⒊⒈\󠅵\。9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3.1.󠅵。9", %p)}, undef, "to_unicode\(\'3\.1\.\󠅵\。9\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:1701\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}𑄫≮.𐹾𴙜4₉", %p)}, undef, "to_unicode\(\'\-\\u200C𑄫\≮.𐹾𴙜4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1702\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}𑄫≮.𐹾𴙜4₉", %p)}, undef, "to_unicode\(\'\-\\u200C𑄫\≮.𐹾𴙜4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1703\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}𑄫<\x{0338}.𐹾𴙜4₉", %p)}, undef, "to_unicode\(\'\-\\u200C𑄫\<\\u0338.𐹾𴙜4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1704\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}𑄫<\x{0338}.𐹾𴙜4₉", %p)}, undef, "to_unicode\(\'\-\\u200C𑄫\<\\u0338.𐹾𴙜4₉\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1705\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}𑄫≮.𐹾𴙜49", %p)}, undef, "to_unicode\(\'\-\\u200C𑄫\≮\.𐹾𴙜49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1706\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}𑄫≮.𐹾𴙜49", %p)}, undef, "to_unicode\(\'\-\\u200C𑄫\≮\.𐹾𴙜49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1707\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}𑄫<\x{0338}.𐹾𴙜49", %p)}, undef, "to_unicode\(\'\-\\u200C𑄫\<\\u0338\.𐹾𴙜49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}𑄫<\x{0338}.𐹾𴙜49", %p)}, undef, "to_unicode\(\'\-\\u200C𑄫\<\\u0338\.𐹾𴙜49\'\)\ throws\ error\ P1\ V3\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:1709\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≯딾。\x{08B4}", %p)}, undef, "to_unicode\(\'\-\≯딾。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1710\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("->\x{0338}딾。\x{08B4}", %p)}, undef, "to_unicode\(\'\-\>\\u0338딾。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1711\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≯딾。\x{08B4}", %p)}, undef, "to_unicode\(\'\-\≯딾\。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1712\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("->\x{0338}딾。\x{08B4}", %p)}, undef, "to_unicode\(\'\-\>\\u0338딾\。\\u08B4\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1713\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⪽⒈𐹢-。󠗪\x{200C}", %p)}, undef, "to_unicode\(\'\⪽⒈𐹢\-。\󠗪\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1714\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⪽⒈𐹢-。󠗪\x{200C}", %p)}, undef, "to_unicode\(\'\⪽⒈𐹢\-。\󠗪\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1715\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⪽1.𐹢-。󠗪\x{200C}", %p)}, undef, "to_unicode\(\'\⪽1\.𐹢\-\。\󠗪\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1716\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⪽1.𐹢-。󠗪\x{200C}", %p)}, undef, "to_unicode\(\'\⪽1\.𐹢\-\。\󠗪\\u200C\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1717\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{1A73}.\x{031D}", %p)}, undef, "to_unicode\(\'\\u1A73.\\u031D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1718\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{1A73}.\x{031D}", %p)}, undef, "to_unicode\(\'\\u1A73\.\\u031D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1719\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("훉≮。\x{FE00}", %p)}, undef, "to_unicode\(\'훉\≮。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1720\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("훉<\x{0338}。\x{FE00}", %p)}, undef, "to_unicode\(\'훉\<\\u0338。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1721\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("훉≮。\x{FE00}", %p)}, undef, "to_unicode\(\'훉\≮\。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1722\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("훉<\x{0338}。\x{FE00}", %p)}, undef, "to_unicode\(\'훉\<\\u0338\。\\uFE00\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1723\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0AC3}񂔠⭤.򬚵𝟸𑚫\x{08A4}", %p)}, undef, "to_unicode\(\'\\u0AC3񂔠\⭤.򬚵𝟸𑚫\\u08A4\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1724\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0AC3}񂔠⭤.򬚵2𑚫\x{08A4}", %p)}, undef, "to_unicode\(\'\\u0AC3񂔠\⭤\.򬚵2𑚫\\u08A4\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1725\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󨭺ß𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_unicode\(\'󨭺ß𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1726\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󨭺ß𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_unicode\(\'󨭺ß𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1727\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󨭺SS𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_unicode\(\'󨭺SS𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1728\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󨭺SS𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_unicode\(\'󨭺SS𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1729\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󨭺ss𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_unicode\(\'󨭺ss𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1730\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󨭺ss𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_unicode\(\'󨭺ss𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1731\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󨭺Ss𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_unicode\(\'󨭺Ss𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1732\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󨭺Ss𐫁\x{200C}。\x{0666}𐧍\x{06B4}-", %p)}, undef, "to_unicode\(\'󨭺Ss𐫁\\u200C\。\\u0666𐧍\\u06B4\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ C1\ B1\ \[data\/IdnaTest\.txt\:1733\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C6}。Ↄ🙣놮-", %p)}, undef, "to_unicode\(\'\\u06C6\。Ↄ🙣놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1734\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06C6}。Ↄ🙣놮-", %p)}, undef, "to_unicode\(\'\\u06C6\。Ↄ🙣놮\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:1735\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06C6}。ↄ🙣놮-", %p)}, undef, "to_unicode\(\'\\u06C6\。ↄ🙣놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1736\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06C6}。ↄ🙣놮-", %p)}, undef, "to_unicode\(\'\\u06C6\。ↄ🙣놮\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:1737\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐶗\x{200D}.𘎮\x{06A3}", %p)}, undef, "to_unicode\(\'𐶗\\u200D\.𘎮\\u06A3\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1738\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐶗\x{200D}.𘎮\x{06A3}", %p)}, undef, "to_unicode\(\'𐶗\\u200D\.𘎮\\u06A3\'\)\ throws\ error\ P1\ V6\ B3\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1739\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ\x{08ED}𞫅≯。𖾏\x{0304}𝨨", %p)}, undef, "to_unicode\(\'Ⴜ\\u08ED𞫅\≯\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1740\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ\x{08ED}𞫅>\x{0338}。𖾏\x{0304}𝨨", %p)}, undef, "to_unicode\(\'Ⴜ\\u08ED𞫅\>\\u0338\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1741\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴜ\x{08ED}𞫅>\x{0338}。𖾏\x{0304}𝨨", %p)}, undef, "to_unicode\(\'ⴜ\\u08ED𞫅\>\\u0338\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1742\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴜ\x{08ED}𞫅≯。𖾏\x{0304}𝨨", %p)}, undef, "to_unicode\(\'ⴜ\\u08ED𞫅\≯\。𖾏\\u0304𝨨\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:1743\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐋵。𐳜", %p)}, "𐋵.𐳜", "to_unicode\(\'𐋵\。𐳜\'\)\ \[data\/IdnaTest\.txt\:1744\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("xn--p97c.xn--4c0d", %p)}, "𐋵.𐳜", "to_unicode\(\'xn\-\-p97c\.xn\-\-4c0d\'\)\ \[data\/IdnaTest\.txt\:1745\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐋵.𐳜", %p)}, "𐋵.𐳜", "to_unicode\(\'𐋵\.𐳜\'\)\ \[data\/IdnaTest\.txt\:1746\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≮󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_unicode\(\'\≮\󠁽.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1747\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_unicode\(\'\<\\u0338\󠁽.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1748\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_unicode\(\'\≮\󠁽\.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1749\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}󠁽.򷇻𐨎\x{2E48}󭵷", %p)}, undef, "to_unicode\(\'\<\\u0338\󠁽\.򷇻𐨎\\u2E48󭵷\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1750\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𖬲\x{031F}ꡍ.\x{A947}\x{0664}⎈", %p)}, undef, "to_unicode\(\'𖬲\\u031Fꡍ.\\uA947\\u0664\⎈\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1751\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{031F}𖬲ꡍ.\x{A947}\x{0664}⎈", %p)}, undef, "to_unicode\(\'\\u031F𖬲ꡍ.\\uA947\\u0664\⎈\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1752\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{031F}𖬲ꡍ.\x{A947}\x{0664}⎈", %p)}, undef, "to_unicode\(\'\\u031F𖬲ꡍ\.\\uA947\\u0664\⎈\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1753\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𞶅ᡣ\x{200C}\x{07E7}.𑂹\x{20E5}", %p)}, undef, "to_unicode\(\'𞶅ᡣ\\u200C\\u07E7.𑂹\\u20E5\'\)\ throws\ error\ P1\ V6\ V5\ B2\ \[data\/IdnaTest\.txt\:1754\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞶅ᡣ\x{200C}\x{07E7}.\x{20E5}𑂹", %p)}, undef, "to_unicode\(\'𞶅ᡣ\\u200C\\u07E7.\\u20E5𑂹\'\)\ throws\ error\ P1\ V6\ V5\ B2\ \[data\/IdnaTest\.txt\:1755\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞶅ᡣ\x{200C}\x{07E7}.\x{20E5}𑂹", %p)}, undef, "to_unicode\(\'𞶅ᡣ\\u200C\\u07E7\.\\u20E5𑂹\'\)\ throws\ error\ P1\ V6\ V5\ B2\ \[data\/IdnaTest\.txt\:1756\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑄴。\x{200D}󙤲⮡񤩻", %p)}, undef, "to_unicode\(\'𑄴。\\u200D󙤲\⮡񤩻\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1757\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑄴。\x{200D}󙤲⮡񤩻", %p)}, undef, "to_unicode\(\'𑄴。\\u200D󙤲\⮡񤩻\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1758\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑄴。\x{200D}󙤲⮡񤩻", %p)}, undef, "to_unicode\(\'𑄴\。\\u200D󙤲\⮡񤩻\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1759\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑄴。\x{200D}󙤲⮡񤩻", %p)}, undef, "to_unicode\(\'𑄴\。\\u200D󙤲\⮡񤩻\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:1760\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𞶌。⒚", %p)}, undef, "to_unicode\(\'\-𞶌\。⒚\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1761\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𞶌。19.", %p)}, undef, "to_unicode\(\'\-𞶌\。19\.\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1762\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󙭿\x{0638}\x{200C}。\x{074E}\x{200D}", %p)}, undef, "to_unicode\(\'󙭿\\u0638\\u200C。\\u074E\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:1763\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󙭿\x{0638}\x{200C}。\x{074E}\x{200D}", %p)}, undef, "to_unicode\(\'󙭿\\u0638\\u200C。\\u074E\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:1764\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󙭿\x{0638}\x{200C}。\x{074E}\x{200D}", %p)}, undef, "to_unicode\(\'󙭿\\u0638\\u200C\。\\u074E\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:1765\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󙭿\x{0638}\x{200C}。\x{074E}\x{200D}", %p)}, undef, "to_unicode\(\'󙭿\\u0638\\u200C\。\\u074E\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:1766\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{033E}𑍰。ᡣ8₅", %p)}, "ß\x{033E}𑍰.ᡣ85", "to_unicode\(\'ß\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1767\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{033E}𑍰。ᡣ8₅", %p)}, "ß\x{033E}𑍰.ᡣ85", "to_unicode\(\'ß\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1768\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{033E}𑍰。ᡣ85", %p)}, "ß\x{033E}𑍰.ᡣ85", "to_unicode\(\'ß\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1769\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{033E}𑍰。ᡣ85", %p)}, "ß\x{033E}𑍰.ᡣ85", "to_unicode\(\'ß\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1770\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("SS\x{033E}𑍰。ᡣ85", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'SS\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1771\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss\x{033E}𑍰。ᡣ85", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'ss\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1772\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Ss\x{033E}𑍰。ᡣ85", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'Ss\\u033E𑍰\。ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1773\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--ss-izb2489y.xn--85-f8o", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'xn\-\-ss\-izb2489y\.xn\-\-85\-f8o\'\)\ \[data\/IdnaTest\.txt\:1774\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss\x{033E}𑍰.ᡣ85", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'ss\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1775\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("SS\x{033E}𑍰.ᡣ85", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'SS\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1776\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Ss\x{033E}𑍰.ᡣ85", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'Ss\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1777\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--zca82j0w93b.xn--85-f8o", %p)}, "ß\x{033E}𑍰.ᡣ85", "to_unicode\(\'xn\-\-zca82j0w93b\.xn\-\-85\-f8o\'\)\ \[data\/IdnaTest\.txt\:1778\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{033E}𑍰.ᡣ85", %p)}, "ß\x{033E}𑍰.ᡣ85", "to_unicode\(\'ß\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1779\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ß\x{033E}𑍰.ᡣ85", %p)}, "ß\x{033E}𑍰.ᡣ85", "to_unicode\(\'ß\\u033E𑍰\.ᡣ85\'\)\ \[data\/IdnaTest\.txt\:1780\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("SS\x{033E}𑍰。ᡣ8₅", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'SS\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1781\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ss\x{033E}𑍰。ᡣ8₅", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'ss\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1782\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Ss\x{033E}𑍰。ᡣ8₅", %p)}, "ss\x{033E}𑍰.ᡣ85", "to_unicode\(\'Ss\\u033E𑍰\。ᡣ8₅\'\)\ \[data\/IdnaTest\.txt\:1783\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0D4D}𑘳魅𝟣.₃\x{066C}ß", %p)}, undef, "to_unicode\(\'\\u0D4D𑘳魅𝟣.₃\\u066Cß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1784\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0D4D}𑘳魅1.3\x{066C}ß", %p)}, undef, "to_unicode\(\'\\u0D4D𑘳魅1\.3\\u066Cß\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1785\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0D4D}𑘳魅1.3\x{066C}SS", %p)}, undef, "to_unicode\(\'\\u0D4D𑘳魅1\.3\\u066CSS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1786\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0D4D}𑘳魅1.3\x{066C}ss", %p)}, undef, "to_unicode\(\'\\u0D4D𑘳魅1\.3\\u066Css\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1787\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0D4D}𑘳魅1.3\x{066C}Ss", %p)}, undef, "to_unicode\(\'\\u0D4D𑘳魅1\.3\\u066CSs\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1788\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0D4D}𑘳魅𝟣.₃\x{066C}SS", %p)}, undef, "to_unicode\(\'\\u0D4D𑘳魅𝟣.₃\\u066CSS\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1789\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0D4D}𑘳魅𝟣.₃\x{066C}ss", %p)}, undef, "to_unicode\(\'\\u0D4D𑘳魅𝟣.₃\\u066Css\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1790\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0D4D}𑘳魅𝟣.₃\x{066C}Ss", %p)}, undef, "to_unicode\(\'\\u0D4D𑘳魅𝟣.₃\\u066CSs\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1791\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐫖。𑈵⒈\x{1039}⚺", %p)}, undef, "to_unicode\(\'𐫖。𑈵⒈\\u1039\⚺\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1792\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫖。𑈵1.\x{1039}⚺", %p)}, undef, "to_unicode\(\'𐫖\。𑈵1\.\\u1039\⚺\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1793\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑘸છ。嵨", %p)}, undef, "to_unicode\(\'𑘸છ\。嵨\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:1794\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴔ≠Ⴀ.𐹶𐹱", %p)}, undef, "to_unicode\(\'Ⴔ\≠Ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1795\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ=\x{0338}Ⴀ.𐹶𐹱", %p)}, undef, "to_unicode\(\'Ⴔ\=\\u0338Ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1796\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴔ=\x{0338}ⴀ.𐹶𐹱", %p)}, undef, "to_unicode\(\'ⴔ\=\\u0338ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1797\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴔ≠ⴀ.𐹶𐹱", %p)}, undef, "to_unicode\(\'ⴔ\≠ⴀ\.𐹶𐹱\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:1798\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}⒙\x{0A47}。\x{0656}", %p)}, undef, "to_unicode\(\'\-\\u200C⒙\\u0A47。\\u0656\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1799\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}⒙\x{0A47}。\x{0656}", %p)}, undef, "to_unicode\(\'\-\\u200C⒙\\u0A47。\\u0656\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:1800\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}18.\x{0A47}。\x{0656}", %p)}, undef, "to_unicode\(\'\-\\u200C18\.\\u0A47\。\\u0656\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:1801\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200C}18.\x{0A47}。\x{0656}", %p)}, undef, "to_unicode\(\'\-\\u200C18\.\\u0A47\。\\u0656\'\)\ throws\ error\ V3\ V5\ C1\ \[data\/IdnaTest\.txt\:1802\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒.ʌ\x{07DF}-𐹲", %p)}, undef, "to_unicode\(\'︒\.ʌ\\u07DF\-𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1803\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("。.ʌ\x{07DF}-𐹲", %p)}, undef, "to_unicode\(\'\。\.ʌ\\u07DF\-𐹲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1804\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("。.Ʌ\x{07DF}-𐹲", %p)}, undef, "to_unicode\(\'\。\.Ʌ\\u07DF\-𐹲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:1805\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("︒.Ʌ\x{07DF}-𐹲", %p)}, undef, "to_unicode\(\'︒\.Ʌ\\u07DF\-𐹲\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1806\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A41}︒。􋔒󠄻", %p)}, undef, "to_unicode\(\'\\u0A41︒\。􋔒\󠄻\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1807\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A41}。。􋔒󠄻", %p)}, undef, "to_unicode\(\'\\u0A41\。\。􋔒\󠄻\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:1808\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0632}ß􈠸。ꡄ", %p)}, undef, "to_unicode\(\'\\u0632ß􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1809\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0632}SS􈠸。ꡄ", %p)}, undef, "to_unicode\(\'\\u0632SS􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1810\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0632}ss􈠸。ꡄ", %p)}, undef, "to_unicode\(\'\\u0632ss􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1811\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0632}Ss􈠸。ꡄ", %p)}, undef, "to_unicode\(\'\\u0632Ss􈠸\。ꡄ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1812\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}\x{200D}\x{0723}𐹹。򲑃󬗝\x{200C}\x{0F79}", %p)}, undef, "to_unicode\(\'\\u2D7F\\u200D\\u0723𐹹\。򲑃󬗝\\u200C\\u0F79\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1813\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}\x{200D}\x{0723}𐹹。򲑃󬗝\x{200C}\x{0F79}", %p)}, undef, "to_unicode\(\'\\u2D7F\\u200D\\u0723𐹹\。򲑃󬗝\\u200C\\u0F79\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1814\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}\x{200D}\x{0723}𐹹。򲑃󬗝\x{200C}\x{0FB3}\x{0F71}\x{0F80}", %p)}, undef, "to_unicode\(\'\\u2D7F\\u200D\\u0723𐹹\。򲑃󬗝\\u200C\\u0FB3\\u0F71\\u0F80\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1815\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2D7F}\x{200D}\x{0723}𐹹。򲑃󬗝\x{200C}\x{0FB3}\x{0F71}\x{0F80}", %p)}, undef, "to_unicode\(\'\\u2D7F\\u200D\\u0723𐹹\。򲑃󬗝\\u200C\\u0FB3\\u0F71\\u0F80\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1816\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1817\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1818\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1819\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1820\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1821\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ß\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍\.\-ß\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1822\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1823\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ß\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍\.\-ß\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1824\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1825\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍\.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1826\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1827\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍\.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1828\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1829\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍\.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1830\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1831\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍\.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1832\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1833\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍\.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1834\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1835\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍\.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1836\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1837\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-SS\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍.\-SS\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1838\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1839\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-SS\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍.\-SS\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1840\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1841\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍.\-ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1842\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1843\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍.\-ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1844\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1845\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-Ss\x{200C}=\x{0338}", %p)}, undef, "to_unicode\(\'\󠝍.\-Ss\\u200C\=\\u0338\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1846\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1847\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝍.-Ss\x{200C}≠", %p)}, undef, "to_unicode\(\'\󠝍.\-Ss\\u200C\≠\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:1848\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DF}\x{200C}。≯𐋲≠", %p)}, undef, "to_unicode\(\'\\u07DF\\u200C。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1849\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DF}\x{200C}。≯𐋲≠", %p)}, undef, "to_unicode\(\'\\u07DF\\u200C。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1850\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DF}\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_unicode\(\'\\u07DF\\u200C。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1851\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DF}\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_unicode\(\'\\u07DF\\u200C。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1852\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DF}\x{200C}。≯𐋲≠", %p)}, undef, "to_unicode\(\'\\u07DF\\u200C\。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1853\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DF}\x{200C}。≯𐋲≠", %p)}, undef, "to_unicode\(\'\\u07DF\\u200C\。\≯𐋲\≠\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1854\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DF}\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_unicode\(\'\\u07DF\\u200C\。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1855\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DF}\x{200C}。>\x{0338}𐋲=\x{0338}", %p)}, undef, "to_unicode\(\'\\u07DF\\u200C\。\>\\u0338𐋲\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:1856\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹩\x{088E}\x{031C}􊧭。\x{20E9}🄀", %p)}, undef, "to_unicode\(\'𐹩\\u088E\\u031C􊧭\。\\u20E9🄀\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1857\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹩\x{088E}\x{031C}􊧭。\x{20E9}0.", %p)}, undef, "to_unicode\(\'𐹩\\u088E\\u031C􊧭\。\\u20E90\.\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1858\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_unicode\(\'Ⴄ.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1859\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_unicode\(\'Ⴄ.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1860\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1861\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1862\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_unicode\(\'ⴄ\.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1863\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_unicode\(\'ⴄ\.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1864\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0767}󙄁Σ", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200D\\u0767󙄁Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1865\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0767}󙄁Σ", %p)}, undef, "to_unicode\(\'Ⴄ\.\\u200D\\u0767󙄁Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1866\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0767}󙄁σ", %p)}, undef, "to_unicode\(\'ⴄ\.\\u200D\\u0767󙄁σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1867\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0767}󙄁σ", %p)}, undef, "to_unicode\(\'ⴄ\.\\u200D\\u0767󙄁σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1868\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_unicode\(\'ⴄ.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1869\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0767}󙄁ς", %p)}, undef, "to_unicode\(\'ⴄ.\\u200D\\u0767󙄁ς\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1870\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0767}󙄁Σ", %p)}, undef, "to_unicode\(\'Ⴄ.\\u200D\\u0767󙄁Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1871\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴄ.\x{200D}\x{0767}󙄁Σ", %p)}, undef, "to_unicode\(\'Ⴄ.\\u200D\\u0767󙄁Σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1872\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0767}󙄁σ", %p)}, undef, "to_unicode\(\'ⴄ.\\u200D\\u0767󙄁σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1873\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴄ.\x{200D}\x{0767}󙄁σ", %p)}, undef, "to_unicode\(\'ⴄ.\\u200D\\u0767󙄁σ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1874\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󐠫\x{0365}.Ⴕ", %p)}, undef, "to_unicode\(\'󐠫\\u0365\.Ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1875\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󐠫\x{0365}.ⴕ", %p)}, undef, "to_unicode\(\'󐠫\\u0365\.ⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1876\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{0AC3}𞨮。\x{200C}𑘿󠔹\x{200D}", %p)}, undef, "to_unicode\(\'\≯\\u0AC3𞨮\。\\u200C𑘿\󠔹\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1877\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{0AC3}𞨮。\x{200C}𑘿󠔹\x{200D}", %p)}, undef, "to_unicode\(\'\≯\\u0AC3𞨮\。\\u200C𑘿\󠔹\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1878\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{0AC3}𞨮。\x{200C}𑘿󠔹\x{200D}", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0AC3𞨮\。\\u200C𑘿\󠔹\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1879\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{0AC3}𞨮。\x{200C}𑘿󠔹\x{200D}", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0AC3𞨮\。\\u200C𑘿\󠔹\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:1880\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1DF0}。񊩧", %p)}, undef, "to_unicode\(\'\\u200C\\u1DF0。񊩧\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1881\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1DF0}。񊩧", %p)}, undef, "to_unicode\(\'\\u200C\\u1DF0。񊩧\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1882\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1DF0}。񊩧", %p)}, undef, "to_unicode\(\'\\u200C\\u1DF0\。񊩧\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1883\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1DF0}。񊩧", %p)}, undef, "to_unicode\(\'\\u200C\\u1DF0\。񊩧\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:1884\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈𑁅焅.񖠲\x{200D}\x{06D1}", %p)}, undef, "to_unicode\(\'⒈𑁅焅\.񖠲\\u200D\\u06D1\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1885\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈𑁅焅.񖠲\x{200D}\x{06D1}", %p)}, undef, "to_unicode\(\'⒈𑁅焅\.񖠲\\u200D\\u06D1\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1886\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.𑁅焅.񖠲\x{200D}\x{06D1}", %p)}, undef, "to_unicode\(\'1\.𑁅焅\.񖠲\\u200D\\u06D1\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1887\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.𑁅焅.񖠲\x{200D}\x{06D1}", %p)}, undef, "to_unicode\(\'1\.𑁅焅\.񖠲\\u200D\\u06D1\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:1888\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁐ς≮.ς\x{A9B8}ᡤ0", %p)}, undef, "to_unicode\(\'\󠁐ς\≮\.ς\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1889\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁐ς<\x{0338}.ς\x{A9B8}ᡤ0", %p)}, undef, "to_unicode\(\'\󠁐ς\<\\u0338\.ς\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1890\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁐Σ<\x{0338}.Σ\x{A9B8}ᡤ0", %p)}, undef, "to_unicode\(\'\󠁐Σ\<\\u0338\.Σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1891\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁐Σ≮.Σ\x{A9B8}ᡤ0", %p)}, undef, "to_unicode\(\'\󠁐Σ\≮\.Σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1892\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁐σ≮.σ\x{A9B8}ᡤ0", %p)}, undef, "to_unicode\(\'\󠁐σ\≮\.σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1893\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁐σ<\x{0338}.σ\x{A9B8}ᡤ0", %p)}, undef, "to_unicode\(\'\󠁐σ\<\\u0338\.σ\\uA9B8ᡤ0\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1894\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򎲖ß𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_unicode\(\'򎲖ß𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1895\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򎲖SS𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_unicode\(\'򎲖SS𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򎲖ss𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_unicode\(\'򎲖ss𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1897\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򎲖Ss𑁅ᡦ.\x{0E34}\x{0850}", %p)}, undef, "to_unicode\(\'򎲖Ss𑁅ᡦ\.\\u0E34\\u0850\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:1898\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{0717}。⒈", %p)}, undef, "to_unicode\(\'\-\\u0717。⒈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:1899\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{0717}。1.", %p)}, undef, "to_unicode\(\'\-\\u0717\。1\.\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:1900\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0BCD}", %p)}, "𨇆ᢪ9.ᡆ\x{0BCD}", "to_unicode\(\'𨇆ᢪ𝟡\。ᡆ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:1901\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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("𨇆ᢪ9。ᡆ\x{0BCD}", %p)}, "𨇆ᢪ9.ᡆ\x{0BCD}", "to_unicode\(\'𨇆ᢪ9\。ᡆ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:1902\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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--9-rdkz5694a.xn--xmc994d", %p)}, "𨇆ᢪ9.ᡆ\x{0BCD}", "to_unicode\(\'xn\-\-9\-rdkz5694a\.xn\-\-xmc994d\'\)\ \[data\/IdnaTest\.txt\:1903\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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("𨇆ᢪ9.ᡆ\x{0BCD}", %p)}, "𨇆ᢪ9.ᡆ\x{0BCD}", "to_unicode\(\'𨇆ᢪ9\.ᡆ\\u0BCD\'\)\ \[data\/IdnaTest\.txt\:1904\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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}", %p)}, undef, "to_unicode\(\'𐹨𞺸𐹽\󠆼\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[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_unicode("𐹨𞺸𐹽󠆼.\x{200D}", %p)}, undef, "to_unicode\(\'𐹨𞺸𐹽\󠆼\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1906\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹨\x{0630}𐹽󠆼.\x{200D}", %p)}, undef, "to_unicode\(\'𐹨\\u0630𐹽\󠆼\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1907\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹨\x{0630}𐹽󠆼.\x{200D}", %p)}, undef, "to_unicode\(\'𐹨\\u0630𐹽\󠆼\.\\u200D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:1908\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝟘.Ⴇ񜚙𞸀򋝟", %p)}, undef, "to_unicode\(\'𝟘.Ⴇ񜚙𞸀򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1909\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.Ⴇ񜚙\x{0627}򋝟", %p)}, undef, "to_unicode\(\'0\.Ⴇ񜚙\\u0627򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1910\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.ⴇ񜚙\x{0627}򋝟", %p)}, undef, "to_unicode\(\'0\.ⴇ񜚙\\u0627򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟘.ⴇ񜚙𞸀򋝟", %p)}, undef, "to_unicode\(\'𝟘.ⴇ񜚙𞸀򋝟\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:1912\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}😅.󠂱ᠨ", %p)}, undef, "to_unicode\(\'\\u1734😅\.\󠂱ᠨ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:1913\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-ᠺ.򀬭", %p)}, undef, "to_unicode\(\'\\u200D\-ᠺ\.򀬭\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1914\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}-ᠺ.򀬭", %p)}, undef, "to_unicode\(\'\\u200D\-ᠺ\.򀬭\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:1915\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡖ\x{0767}\x{06D5}寐。\x{200C}≯⩓", %p)}, undef, "to_unicode\(\'ᡖ\\u0767\\u06D5寐。\\u200C\≯\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1916\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡖ\x{0767}\x{06D5}寐。\x{200C}≯⩓", %p)}, undef, "to_unicode\(\'ᡖ\\u0767\\u06D5寐。\\u200C\≯\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1917\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡖ\x{0767}\x{06D5}寐。\x{200C}>\x{0338}⩓", %p)}, undef, "to_unicode\(\'ᡖ\\u0767\\u06D5寐。\\u200C\>\\u0338\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1918\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡖ\x{0767}\x{06D5}寐。\x{200C}>\x{0338}⩓", %p)}, undef, "to_unicode\(\'ᡖ\\u0767\\u06D5寐。\\u200C\>\\u0338\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1919\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡖ\x{0767}\x{06D5}寐。\x{200C}≯⩓", %p)}, undef, "to_unicode\(\'ᡖ\\u0767\\u06D5寐\。\\u200C\≯\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1920\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡖ\x{0767}\x{06D5}寐。\x{200C}≯⩓", %p)}, undef, "to_unicode\(\'ᡖ\\u0767\\u06D5寐\。\\u200C\≯\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1921\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡖ\x{0767}\x{06D5}寐。\x{200C}>\x{0338}⩓", %p)}, undef, "to_unicode\(\'ᡖ\\u0767\\u06D5寐\。\\u200C\>\\u0338\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1922\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡖ\x{0767}\x{06D5}寐。\x{200C}>\x{0338}⩓", %p)}, undef, "to_unicode\(\'ᡖ\\u0767\\u06D5寐\。\\u200C\>\\u0338\⩓\'\)\ throws\ error\ P1\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:1923\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ႺႴ\x{FE85}", %p)}, undef, "to_unicode\(\'\\u200D。򧯞ႺႴ\\uFE85\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ႺႴ\x{FE85}", %p)}, undef, "to_unicode\(\'\\u200D。򧯞ႺႴ\\uFE85\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ႺႴ\x{0624}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞ႺႴ\\u0624\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1926\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ႺႴ\x{0624}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞ႺႴ\\u0624\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1927\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ႺႴ\x{0648}\x{0654}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞ႺႴ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ႺႴ\x{0648}\x{0654}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞ႺႴ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1929\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ⴚⴔ\x{0648}\x{0654}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞ⴚⴔ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1930\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ⴚⴔ\x{0648}\x{0654}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞ⴚⴔ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ⴚⴔ\x{0624}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞ⴚⴔ\\u0624\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ⴚⴔ\x{0624}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞ⴚⴔ\\u0624\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞Ⴚⴔ\x{0624}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞Ⴚⴔ\\u0624\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞Ⴚⴔ\x{0624}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞Ⴚⴔ\\u0624\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1935\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞Ⴚⴔ\x{0648}\x{0654}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞Ⴚⴔ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1936\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞Ⴚⴔ\x{0648}\x{0654}", %p)}, undef, "to_unicode\(\'\\u200D\。򧯞Ⴚⴔ\\u0648\\u0654\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ⴚⴔ\x{FE85}", %p)}, undef, "to_unicode\(\'\\u200D。򧯞ⴚⴔ\\uFE85\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞ⴚⴔ\x{FE85}", %p)}, undef, "to_unicode\(\'\\u200D。򧯞ⴚⴔ\\uFE85\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞Ⴚⴔ\x{FE85}", %p)}, undef, "to_unicode\(\'\\u200D。򧯞Ⴚⴔ\\uFE85\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。򧯞Ⴚⴔ\x{FE85}", %p)}, undef, "to_unicode\(\'\\u200D。򧯞Ⴚⴔ\\uFE85\'\)\ throws\ error\ P1\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:1941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-3.\x{200D}ヌᡰ", %p)}, undef, "to_unicode\(\'\-3\.\\u200Dヌᡰ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-3.\x{200D}ヌᡰ", %p)}, undef, "to_unicode\(\'\-3\.\\u200Dヌᡰ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:1943\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⑰\x{0665}ß\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_unicode\(\'⑰\\u0665ß\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1944\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⑰\x{0665}ß\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_unicode\(\'⑰\\u0665ß\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1945\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("17\x{0665}ß\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_unicode\(\'17\\u0665ß\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1946\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("17\x{0665}ß\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_unicode\(\'17\\u0665ß\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1947\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("17\x{0665}SS\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_unicode\(\'17\\u0665SS\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1948\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("17\x{0665}SS\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_unicode\(\'17\\u0665SS\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1949\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("17\x{0665}ss\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_unicode\(\'17\\u0665ss\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1950\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("17\x{0665}ss\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_unicode\(\'17\\u0665ss\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1951\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("17\x{0665}Ss\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_unicode\(\'17\\u0665Ss\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1952\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("17\x{0665}Ss\x{200D}。󠟐򑉓\x{062A}\x{064A}-", %p)}, undef, "to_unicode\(\'17\\u0665Ss\\u200D\。\󠟐򑉓\\u062A\\u064A\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1953\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⑰\x{0665}SS\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_unicode\(\'⑰\\u0665SS\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1954\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⑰\x{0665}SS\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_unicode\(\'⑰\\u0665SS\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1955\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⑰\x{0665}ss\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_unicode\(\'⑰\\u0665ss\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1956\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⑰\x{0665}ss\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_unicode\(\'⑰\\u0665ss\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1957\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⑰\x{0665}Ss\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_unicode\(\'⑰\\u0665Ss\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1958\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⑰\x{0665}Ss\x{200D}。󠟐򑉓\x{FC75}-", %p)}, undef, "to_unicode\(\'⑰\\u0665Ss\\u200D\。\󠟐򑉓\\uFC75\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:1959\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꇟ-\x{07D5}𐫠。񛳊\x{200C}", %p)}, undef, "to_unicode\(\'ꇟ\-\\u07D5𐫠\。񛳊\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1960\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꇟ-\x{07D5}𐫠。񛳊\x{200C}", %p)}, undef, "to_unicode\(\'ꇟ\-\\u07D5𐫠\。񛳊\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:1961\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{066C}.\x{0FA3}\x{FB58}𐨿蟵", %p)}, undef, "to_unicode\(\'\\u066C\.\\u0FA3\\uFB58𐨿蟵\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1962\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{066C}.\x{0FA3}\x{067E}𐨿蟵", %p)}, undef, "to_unicode\(\'\\u066C\.\\u0FA3\\u067E𐨿蟵\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:1963\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-.򟊕\x{0756}\x{0C4D}", %p)}, undef, "to_unicode\(\'\-\.򟊕\\u0756\\u0C4D\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:1964\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󆕀ς.\x{FDC8}녫ß", %p)}, undef, "to_unicode\(\'󆕀ς\.\\uFDC8녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1965\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󆕀ς.\x{FDC8}녫ß", %p)}, undef, "to_unicode\(\'󆕀ς\.\\uFDC8녫ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1966\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󆕀Σ.\x{FDC8}녫SS", %p)}, undef, "to_unicode\(\'󆕀Σ\.\\uFDC8녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1967\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󆕀Σ.\x{FDC8}녫SS", %p)}, undef, "to_unicode\(\'󆕀Σ\.\\uFDC8녫SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1968\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󆕀σ.\x{FDC8}녫ss", %p)}, undef, "to_unicode\(\'󆕀σ\.\\uFDC8녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1969\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󆕀σ.\x{FDC8}녫ss", %p)}, undef, "to_unicode\(\'󆕀σ\.\\uFDC8녫ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1970\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󆕀Σ.\x{FDC8}녫Ss", %p)}, undef, "to_unicode\(\'󆕀Σ\.\\uFDC8녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1971\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󆕀Σ.\x{FDC8}녫Ss", %p)}, undef, "to_unicode\(\'󆕀Σ\.\\uFDC8녫Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:1972\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ𑖿\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1973\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ𑖿\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1974\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ𑖿\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1975\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ𑖿\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1976\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ𑖿\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1977\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ𑖿\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1978\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ𑖿\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1979\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'Ⅎ𑖿\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1980\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ𑖿\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1981\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ𑖿\\u200D\。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1982\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ𑖿\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ𑖿\\u200D\。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1984\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ𑖿\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1985\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ𑖿\x{200D}。=\x{0338}\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ𑖿\\u200D。\=\\u0338\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1986\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ𑖿\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1987\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ𑖿\x{200D}。≠\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'ⅎ𑖿\\u200D。\≠\\u200D\\u200C\'\)\ throws\ error\ P1\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:1988\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋺\x{09CD}\x{0BCD}򽕵.\x{200C}\x{1BF2}\x{0719}", %p)}, undef, "to_unicode\(\'𐋺\\u09CD\\u0BCD򽕵.\\u200C\\u1BF2\\u0719\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1989\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋺\x{09CD}\x{0BCD}򽕵.\x{200C}\x{1BF2}\x{0719}", %p)}, undef, "to_unicode\(\'𐋺\\u09CD\\u0BCD򽕵.\\u200C\\u1BF2\\u0719\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1990\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋺\x{09CD}\x{0BCD}򽕵.\x{200C}\x{1BF2}\x{0719}", %p)}, undef, "to_unicode\(\'𐋺\\u09CD\\u0BCD򽕵\.\\u200C\\u1BF2\\u0719\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1991\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋺\x{09CD}\x{0BCD}򽕵.\x{200C}\x{1BF2}\x{0719}", %p)}, undef, "to_unicode\(\'𐋺\\u09CD\\u0BCD򽕵\.\\u200C\\u1BF2\\u0719\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:1992\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񶪗𑍰.≯", %p)}, undef, "to_unicode\(\'񶪗𑍰.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1993\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񶪗𑍰.>\x{0338}", %p)}, undef, "to_unicode\(\'񶪗𑍰.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1994\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񶪗𑍰.≯", %p)}, undef, "to_unicode\(\'񶪗𑍰\.\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1995\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񶪗𑍰.>\x{0338}", %p)}, undef, "to_unicode\(\'񶪗𑍰\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:1996\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐱼Ⴓ.\x{3099}", %p)}, undef, "to_unicode\(\'\\u200D𐱼Ⴓ.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1997\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐱼Ⴓ.\x{3099}", %p)}, undef, "to_unicode\(\'\\u200D𐱼Ⴓ.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1998\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐱼Ⴓ.\x{3099}", %p)}, undef, "to_unicode\(\'\\u200D𐱼Ⴓ\.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:1999\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐱼Ⴓ.\x{3099}", %p)}, undef, "to_unicode\(\'\\u200D𐱼Ⴓ\.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2000\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐱼ⴓ.\x{3099}", %p)}, undef, "to_unicode\(\'\\u200D𐱼ⴓ\.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2001\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐱼ⴓ.\x{3099}", %p)}, undef, "to_unicode\(\'\\u200D𐱼ⴓ\.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2002\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐱼ⴓ.\x{3099}", %p)}, undef, "to_unicode\(\'\\u200D𐱼ⴓ.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2003\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}𐱼ⴓ.\x{3099}", %p)}, undef, "to_unicode\(\'\\u200D𐱼ⴓ.\\u3099\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2004\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐭮ß\x{0E36}.\x{0698}", %p)}, undef, "to_unicode\(\'𐭮ß\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2005\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐭮ß\x{0E36}.\x{0698}", %p)}, undef, "to_unicode\(\'𐭮ß\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2006\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐭮SS\x{0E36}.\x{0698}", %p)}, undef, "to_unicode\(\'𐭮SS\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2007\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐭮ss\x{0E36}.\x{0698}", %p)}, undef, "to_unicode\(\'𐭮ss\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2008\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐭮Ss\x{0E36}.\x{0698}", %p)}, undef, "to_unicode\(\'𐭮Ss\\u0E36\.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2009\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐭮SS\x{0E36}.\x{0698}", %p)}, undef, "to_unicode\(\'𐭮SS\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2010\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐭮ss\x{0E36}.\x{0698}", %p)}, undef, "to_unicode\(\'𐭮ss\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2011\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐭮Ss\x{0E36}.\x{0698}", %p)}, undef, "to_unicode\(\'𐭮Ss\\u0E36.\\u0698\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2012\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A806}\x{2DE4}鸮\x{1714}.ς", %p)}, undef, "to_unicode\(\'\\uA806\\u2DE4鸮\\u1714\.ς\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2013\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A806}\x{2DE4}鸮\x{1714}.Σ", %p)}, undef, "to_unicode\(\'\\uA806\\u2DE4鸮\\u1714\.Σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2014\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A806}\x{2DE4}鸮\x{1714}.σ", %p)}, undef, "to_unicode\(\'\\uA806\\u2DE4鸮\\u1714\.σ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2015\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒗𐫤。-\x{A806}", %p)}, undef, "to_unicode\(\'⒗𐫤\。\-\\uA806\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2016\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("16.𐫤。-\x{A806}", %p)}, undef, "to_unicode\(\'16\.𐫤\。\-\\uA806\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2017\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᠤ\x{0855}🎮。𐹡ꡛ⒈", %p)}, undef, "to_unicode\(\'ᠤ\\u0855🎮。𐹡ꡛ⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2018\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0855}🎮。𐹡ꡛ1.", %p)}, undef, "to_unicode\(\'ᠤ\\u0855🎮\。𐹡ꡛ1\.\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2019\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{2433}𕔫𝟧𐹶.\x{0679}8\x{1DC2}𐹻", %p)}, undef, "to_unicode\(\'\\u2433𕔫𝟧𐹶\.\\u06798\\u1DC2𐹻\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B4\ \[data\/IdnaTest\.txt\:2020\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{2433}𕔫5𐹶.\x{0679}8\x{1DC2}𐹻", %p)}, undef, "to_unicode\(\'\\u2433𕔫5𐹶\.\\u06798\\u1DC2𐹻\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B4\ \[data\/IdnaTest\.txt\:2021\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹺.🄀⒒-򹉒", %p)}, undef, "to_unicode\(\'𐹺\.🄀⒒\-򹉒\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2022\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹺.0.11.-򹉒", %p)}, undef, "to_unicode\(\'𐹺\.0\.11\.\-򹉒\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2023\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2024\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2025\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς-。\x{200C}1-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2026\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς-。\x{200C}1-", %p)}, undef, "to_unicode\(\'ς\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2027\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ-。\x{200C}1-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2028\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ-。\x{200C}1-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2029\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ-。\x{200C}1-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2030\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ-。\x{200C}1-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C1\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2031\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2032\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'Σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2033\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2034\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ-。\x{200C}𝟭-", %p)}, undef, "to_unicode\(\'σ\-\。\\u200C𝟭\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2035\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ACD}-\x{1BAB}.\x{1DEB}Ⴄ", %p)}, undef, "to_unicode\(\'\\u0ACD\-\\u1BAB.\\u1DEBႤ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2036\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ACD}-\x{1BAB}.\x{1DEB}Ⴄ", %p)}, undef, "to_unicode\(\'\\u0ACD\-\\u1BAB\.\\u1DEBႤ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2037\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0ACD}-\x{1BAB}.\x{1DEB}ⴄ", %p)}, undef, "to_unicode\(\'\\u0ACD\-\\u1BAB\.\\u1DEBⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2038\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0ACD}-\x{1BAB}.\x{1DEB}ⴄ", %p)}, undef, "to_unicode\(\'\\u0ACD\-\\u1BAB.\\u1DEBⴄ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2039\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("񢒷℟ᢨ\x{FD05}。⦟⒈", %p)}, undef, "to_unicode\(\'񢒷℟ᢨ\\uFD05。\⦟⒈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2040\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񢒷℟ᢨ\x{0635}\x{0649}。⦟1.", %p)}, undef, "to_unicode\(\'񢒷℟ᢨ\\u0635\\u0649\。\⦟1\.\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2041\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁂.ᡇ\x{0348}\x{200C}", %p)}, undef, "to_unicode\(\'\󠁂.ᡇ\\u0348\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁂.ᡇ\x{0348}\x{200C}", %p)}, undef, "to_unicode\(\'\󠁂.ᡇ\\u0348\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2043\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁂.ᡇ\x{0348}\x{200C}", %p)}, undef, "to_unicode\(\'\󠁂\.ᡇ\\u0348\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2044\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠁂.ᡇ\x{0348}\x{200C}", %p)}, undef, "to_unicode\(\'\󠁂\.ᡇ\\u0348\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2045\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("慹ᢏ≮\x{0DCA}.\x{FE8E}", %p)}, undef, "to_unicode\(\'慹ᢏ\≮\\u0DCA.\\uFE8E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2046\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("慹ᢏ<\x{0338}\x{0DCA}.\x{FE8E}", %p)}, undef, "to_unicode\(\'慹ᢏ\<\\u0338\\u0DCA.\\uFE8E\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2047\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("慹ᢏ≮\x{0DCA}.\x{0627}", %p)}, undef, "to_unicode\(\'慹ᢏ\≮\\u0DCA\.\\u0627\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2048\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("慹ᢏ<\x{0338}\x{0DCA}.\x{0627}", %p)}, undef, "to_unicode\(\'慹ᢏ\<\\u0338\\u0DCA\.\\u0627\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2049\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。𖬵⒈ꡍ󨮞", %p)}, undef, "to_unicode\(\'\\u200D\。𖬵⒈ꡍ󨮞\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2050\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。𖬵⒈ꡍ󨮞", %p)}, undef, "to_unicode\(\'\\u200D\。𖬵⒈ꡍ󨮞\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2051\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。𖬵1.ꡍ󨮞", %p)}, undef, "to_unicode\(\'\\u200D\。𖬵1\.ꡍ󨮞\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2052\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。𖬵1.ꡍ󨮞", %p)}, undef, "to_unicode\(\'\\u200D\。𖬵1\.ꡍ󨮞\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2053\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₈ᠥ.𞤤≠", %p)}, undef, "to_unicode\(\'₈ᠥ.𞤤\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2054\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₈ᠥ.𞤤=\x{0338}", %p)}, undef, "to_unicode\(\'₈ᠥ.𞤤\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2055\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8ᠥ.𞤤≠", %p)}, undef, "to_unicode\(\'8ᠥ\.𞤤\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2056\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8ᠥ.𞤤=\x{0338}", %p)}, undef, "to_unicode\(\'8ᠥ\.𞤤\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2057\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06A7}\x{069F}񰍸.⒒\x{0680}\x{2DF0}", %p)}, undef, "to_unicode\(\'\\u06A7\\u069F񰍸\.⒒\\u0680\\u2DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:2058\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06A7}\x{069F}񰍸.11.\x{0680}\x{2DF0}", %p)}, undef, "to_unicode\(\'\\u06A7\\u069F񰍸\.11\.\\u0680\\u2DF0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2059\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍀-𐹢𝟜.󠔸𝩜⒏", %p)}, undef, "to_unicode\(\'𑍀\-𐹢𝟜\.\󠔸𝩜⒏\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2060\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍀-𐹢4.󠔸𝩜8.", %p)}, undef, "to_unicode\(\'𑍀\-𐹢4\.\󠔸𝩜8\.\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2061\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⫐。Ⴠ-򏐆", %p)}, undef, "to_unicode\(\'\⫐。Ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2062\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⫐。Ⴠ-򏐆", %p)}, undef, "to_unicode\(\'\⫐\。Ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2063\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⫐。ⴠ-򏐆", %p)}, undef, "to_unicode\(\'\⫐\。ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2064\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⫐。ⴠ-򏐆", %p)}, undef, "to_unicode\(\'\⫐。ⴠ\-򏐆\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2065\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{17D2}⟃.⦟⋫", %p)}, undef, "to_unicode\(\'\\u17D2\⟃.\⦟\⋫\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2066\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{17D2}⟃.⦟⊳\x{0338}", %p)}, undef, "to_unicode\(\'\\u17D2\⟃.\⦟\⊳\\u0338\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2067\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{17D2}⟃.⦟⋫", %p)}, undef, "to_unicode\(\'\\u17D2\⟃\.\⦟\⋫\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2068\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{17D2}⟃.⦟⊳\x{0338}", %p)}, undef, "to_unicode\(\'\\u17D2\⟃\.\⦟\⊳\\u0338\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2069\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("򣎳-𐹦。󓽪ᠹ", %p)}, undef, "to_unicode\(\'򣎳\-𐹦\。󓽪ᠹ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072A}。󠑏𞣒𐿦𐹦", %p)}, undef, "to_unicode\(\'\\u072A\。\󠑏𞣒𐿦𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2071\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0790}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'\\u0790ꌄ。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2072\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0790}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'\\u0790ꌄ。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2073\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0790}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'\\u0790ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[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_unicode("\x{0790}ꌄ。\x{200D}ᣬ", %p)}, undef, "to_unicode\(\'\\u0790ꌄ\。\\u200Dᣬ\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2075\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("₀𐹧。򾂚≯-", %p)}, undef, "to_unicode\(\'₀𐹧\。򾂚\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2076\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₀𐹧。򾂚>\x{0338}-", %p)}, undef, "to_unicode\(\'₀𐹧\。򾂚\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2077\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0𐹧。򾂚≯-", %p)}, undef, "to_unicode\(\'0𐹧\。򾂚\≯\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2078\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0𐹧。򾂚>\x{0338}-", %p)}, undef, "to_unicode\(\'0𐹧\。򾂚\>\\u0338\-\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2079\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠣖𐹨-\x{08DF}.𐋤\x{0766}", %p)}, undef, "to_unicode\(\'\󠣖𐹨\-\\u08DF\.𐋤\\u0766\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2080\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_unicode\(\'\≠。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2081\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_unicode\(\'\=\\u0338。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2082\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_unicode\(\'\≠\。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2083\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{0337}\x{0665}Ⴡ\x{0711}", %p)}, undef, "to_unicode\(\'\=\\u0338\。\\u0337\\u0665Ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2084\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_unicode\(\'\=\\u0338\。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2085\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_unicode\(\'\≠\。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2086\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_unicode\(\'\=\\u0338。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2087\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。\x{0337}\x{0665}ⴡ\x{0711}", %p)}, undef, "to_unicode\(\'\≠。\\u0337\\u0665ⴡ\\u0711\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2088\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0335}≠.Ⴀ𐫓", %p)}, undef, "to_unicode\(\'\\u0335\≠\.Ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2089\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0335}=\x{0338}.Ⴀ𐫓", %p)}, undef, "to_unicode\(\'\\u0335\=\\u0338\.Ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2090\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0335}=\x{0338}.ⴀ𐫓", %p)}, undef, "to_unicode\(\'\\u0335\=\\u0338\.ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2091\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0335}≠.ⴀ𐫓", %p)}, undef, "to_unicode\(\'\\u0335\≠\.ⴀ𐫓\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2092\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{08F6}\x{069F}.\x{06EE}閪𐹺\x{1CD2}", %p)}, undef, "to_unicode\(\'\󠇌\\u08F6\\u069F.\\u06EE閪𐹺\\u1CD2\'\)\ throws\ error\ V5\ B1\ B2\ \[data\/IdnaTest\.txt\:2093\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{08F6}\x{069F}.\x{06EE}閪𐹺\x{1CD2}", %p)}, undef, "to_unicode\(\'\󠇌\\u08F6\\u069F\.\\u06EE閪𐹺\\u1CD2\'\)\ throws\ error\ V5\ B1\ B2\ \[data\/IdnaTest\.txt\:2094\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}󠄪𞢊\x{1C2F}。󠇂\x{0953}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\󠄪𞢊\\u1C2F。\󠇂\\u0953\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2095\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}󠄪𞢊\x{1C2F}。󠇂\x{0953}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\󠄪𞢊\\u1C2F。\󠇂\\u0953\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2096\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}󠄪𞢊\x{1C2F}。󠇂\x{0953}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\󠄪𞢊\\u1C2F\。\󠇂\\u0953\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2097\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}󠄪𞢊\x{1C2F}。󠇂\x{0953}-ᛟ", %p)}, undef, "to_unicode\(\'\\u200D\󠄪𞢊\\u1C2F\。\󠇂\\u0953\-ᛟ\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:2098\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("헁񿙡\x{1A60}򁰰。\x{071C}𝟜", %p)}, undef, "to_unicode\(\'헁񿙡\\u1A60򁰰\。\\u071C𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2099\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("헁񿙡\x{1A60}򁰰。\x{071C}𝟜", %p)}, undef, "to_unicode\(\'헁񿙡\\u1A60򁰰\。\\u071C𝟜\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2100\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("헁񿙡\x{1A60}򁰰。\x{071C}4", %p)}, undef, "to_unicode\(\'헁񿙡\\u1A60򁰰\。\\u071C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2101\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("헁񿙡\x{1A60}򁰰。\x{071C}4", %p)}, undef, "to_unicode\(\'헁񿙡\\u1A60򁰰\。\\u071C4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2102\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹻。񫡍\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'𐹻。񫡍\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2103\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹻。񫡍\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'𐹻。񫡍\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2104\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹻。񫡍\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'𐹻\。񫡍\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2105\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹻。񫡍\x{200C}Ⴞ", %p)}, undef, "to_unicode\(\'𐹻\。񫡍\\u200CႾ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2106\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹻。񫡍\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'𐹻\。񫡍\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2107\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹻。񫡍\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'𐹻\。񫡍\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2108\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹻。񫡍\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'𐹻。񫡍\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2109\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹻。񫡍\x{200C}ⴞ", %p)}, undef, "to_unicode\(\'𐹻。񫡍\\u200Cⴞ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2110\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}.\x{06DA}\x{0F84}馋", %p)}, undef, "to_unicode\(\'\\u0B4D\.\\u06DA\\u0F84馋\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2111\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}.\x{0F84}\x{06DA}馋", %p)}, undef, "to_unicode\(\'\\u0B4D\.\\u0F84\\u06DA馋\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2112\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򿒓򔸨\x{200D}。󱾁", %p)}, undef, "to_unicode\(\'򿒓򔸨\\u200D。󱾁\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2113\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򿒓򔸨\x{200D}。󱾁", %p)}, undef, "to_unicode\(\'򿒓򔸨\\u200D。󱾁\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2114\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򿒓򔸨\x{200D}。󱾁", %p)}, undef, "to_unicode\(\'򿒓򔸨\\u200D\。󱾁\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2115\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򿒓򔸨\x{200D}。󱾁", %p)}, undef, "to_unicode\(\'򿒓򔸨\\u200D\。󱾁\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2116\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0626}󠞂姶🄉.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_unicode\(\'\\u0626\󠞂姶🄉.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:2117\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0626}󠞂姶🄉.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_unicode\(\'\\u0626\󠞂姶🄉.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:2118\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{064A}\x{0654}󠞂姶🄉.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_unicode\(\'\\u064A\\u0654\󠞂姶🄉.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:2119\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{064A}\x{0654}󠞂姶🄉.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_unicode\(\'\\u064A\\u0654\󠞂姶🄉.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ C2\ \[data\/IdnaTest\.txt\:2120\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0626}󠞂姶8,.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_unicode\(\'\\u0626\󠞂姶8\,\.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2121\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0626}󠞂姶8,.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_unicode\(\'\\u0626\󠞂姶8\,\.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2122\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{064A}\x{0654}󠞂姶8,.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_unicode\(\'\\u064A\\u0654\󠞂姶8\,\.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2123\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{064A}\x{0654}󠞂姶8,.۷\x{200D}󠚦\x{200D}", %p)}, undef, "to_unicode\(\'\\u064A\\u0654\󠞂姶8\,\.۷\\u200D\󠚦\\u200D\'\)\ throws\ error\ P1\ V6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2124\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{FCCB}.𐹴⿆\x{A8C4}", %p)}, undef, "to_unicode\(\'\\uFCCB\.𐹴⿆\\uA8C4\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2125\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0644}\x{062E}.𐹴麥\x{A8C4}", %p)}, undef, "to_unicode\(\'\\u0644\\u062E\.𐹴麥\\uA8C4\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2126\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_unicode\(\'Ⴔ\\u0724。𐹼\\u0C48۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2127\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_unicode\(\'Ⴔ\\u0724。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2128\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_unicode\(\'Ⴔ\\u0724\。𐹼\\u0C48۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2129\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_unicode\(\'Ⴔ\\u0724\。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2130\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_unicode\(\'ⴔ\\u0724\。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2131\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_unicode\(\'ⴔ\\u0724\。𐹼\\u0C48۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2132\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴔ\x{0724}。𐹼\x{0C46}\x{0C56}۹", %p)}, undef, "to_unicode\(\'ⴔ\\u0724。𐹼\\u0C46\\u0C56۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2133\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴔ\x{0724}。𐹼\x{0C48}۹", %p)}, undef, "to_unicode\(\'ⴔ\\u0724。𐹼\\u0C48۹\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2134\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󠏬𐫂\x{200C}.︒-󠇕-", %p)}, undef, "to_unicode\(\'\󠏬𐫂\\u200C.︒\-\󠇕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:2135\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠏬𐫂\x{200C}.︒-󠇕-", %p)}, undef, "to_unicode\(\'\󠏬𐫂\\u200C.︒\-\󠇕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:2136\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠏬𐫂\x{200C}.。-󠇕-", %p)}, undef, "to_unicode\(\'\󠏬𐫂\\u200C\.\。\-\󠇕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2137\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠏬𐫂\x{200C}.。-󠇕-", %p)}, undef, "to_unicode\(\'\󠏬𐫂\\u200C\.\。\-\󠇕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2138\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{0661}⒖\x{200C}.𝪩\x{FBD9}", %p)}, undef, "to_unicode\(\'⒈\\u0661⒖\\u200C\.𝪩\\uFBD9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2139\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{0661}⒖\x{200C}.𝪩\x{FBD9}", %p)}, undef, "to_unicode\(\'⒈\\u0661⒖\\u200C\.𝪩\\uFBD9\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2140\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("1.\x{0661}15.\x{200C}.𝪩\x{06C6}", %p)}, undef, "to_unicode\(\'1\.\\u066115\.\\u200C\.𝪩\\u06C6\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2141\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("1.\x{0661}15.\x{200C}.𝪩\x{06C6}", %p)}, undef, "to_unicode\(\'1\.\\u066115\.\\u200C\.𝪩\\u06C6\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:2142\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{20ED}。-\x{1734}Ⴋ", %p)}, undef, "to_unicode\(\'\\u20ED\。\-\\u1734Ⴋ\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:2143\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{20ED}。-\x{1734}ⴋ", %p)}, undef, "to_unicode\(\'\\u20ED\。\-\\u1734ⴋ\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:2144\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ßჀ.\x{07CD}刯Ⴝ", %p)}, undef, "to_unicode\(\'ßჀ\.\\u07CD刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2145\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07CD}刯ⴝ", %p)}, undef, "to_unicode\(\'ßⴠ\.\\u07CD刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2146\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SSჀ.\x{07CD}刯Ⴝ", %p)}, undef, "to_unicode\(\'SSჀ\.\\u07CD刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2147\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07CD}刯ⴝ", %p)}, undef, "to_unicode\(\'ssⴠ\.\\u07CD刯ⴝ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2148\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ssⴠ.\x{07CD}刯Ⴝ", %p)}, undef, "to_unicode\(\'Ssⴠ\.\\u07CD刯Ⴝ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2149\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4DႣℲ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2150\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4DႣℲ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2151\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4DႣℲ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2152\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}ႣℲ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4DႣℲ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2153\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4Dⴃⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2154\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4Dⴃⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2155\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4DႣⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2156\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4DႣⅎ\。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2157\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4Dⴃⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2158\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4Dⴃⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2159\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4DႣⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2160\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}Ⴃⅎ。\x{06B6}툻𞧥", %p)}, undef, "to_unicode\(\'\\u0B4DႣⅎ。\\u06B6툻𞧥\'\)\ throws\ error\ P1\ V5\ V6\ B2\ \[data\/IdnaTest\.txt\:2161\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{07E7}𐹫ᢏ", %p)}, undef, "to_unicode\(\'🝞\.\\u07E7𐹫ᢏ\'\)\ throws\ error\ B2\ B3\ \[data\/IdnaTest\.txt\:2162\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0845}𝪩。₇𑚶", %p)}, "\x{0845}𝪩.7𑚶", "to_unicode\(\'\\u0845𝪩\。₇𑚶\'\)\ \[data\/IdnaTest\.txt\:2163\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0845}𝪩。7𑚶", %p)}, "\x{0845}𝪩.7𑚶", "to_unicode\(\'\\u0845𝪩\。7𑚶\'\)\ \[data\/IdnaTest\.txt\:2164\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("xn--3vb6099u.xn--7-4j0j", %p)}, "\x{0845}𝪩.7𑚶", "to_unicode\(\'xn\-\-3vb6099u\.xn\-\-7\-4j0j\'\)\ \[data\/IdnaTest\.txt\:2165\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0845}𝪩.7𑚶", %p)}, "\x{0845}𝪩.7𑚶", "to_unicode\(\'\\u0845𝪩\.7𑚶\'\)\ \[data\/IdnaTest\.txt\:2166\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴣ\x{0663}.\x{200C}\x{A672}≮\x{FDE2}", %p)}, undef, "to_unicode\(\'Ⴣ\\u0663\.\\u200C\\uA672\≮\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2167\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ\x{0663}.\x{200C}\x{A672}≮\x{FDE2}", %p)}, undef, "to_unicode\(\'Ⴣ\\u0663\.\\u200C\\uA672\≮\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2168\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ\x{0663}.\x{200C}\x{A672}<\x{0338}\x{FDE2}", %p)}, undef, "to_unicode\(\'Ⴣ\\u0663\.\\u200C\\uA672\<\\u0338\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2169\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴣ\x{0663}.\x{200C}\x{A672}<\x{0338}\x{FDE2}", %p)}, undef, "to_unicode\(\'Ⴣ\\u0663\.\\u200C\\uA672\<\\u0338\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2170\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴣ\x{0663}.\x{200C}\x{A672}<\x{0338}\x{FDE2}", %p)}, undef, "to_unicode\(\'ⴣ\\u0663\.\\u200C\\uA672\<\\u0338\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2171\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴣ\x{0663}.\x{200C}\x{A672}<\x{0338}\x{FDE2}", %p)}, undef, "to_unicode\(\'ⴣ\\u0663\.\\u200C\\uA672\<\\u0338\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2172\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴣ\x{0663}.\x{200C}\x{A672}≮\x{FDE2}", %p)}, undef, "to_unicode\(\'ⴣ\\u0663\.\\u200C\\uA672\≮\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2173\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴣ\x{0663}.\x{200C}\x{A672}≮\x{FDE2}", %p)}, undef, "to_unicode\(\'ⴣ\\u0663\.\\u200C\\uA672\≮\\uFDE2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2174\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𝟵隁⽷.𖬰\x{200C}", %p)}, undef, "to_unicode\(\'𝟵隁⽷.𖬰\\u200C\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2175\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𝟵隁⽷.𖬰\x{200C}", %p)}, undef, "to_unicode\(\'𝟵隁⽷.𖬰\\u200C\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2176\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("9隁糸.𖬰\x{200C}", %p)}, undef, "to_unicode\(\'9隁糸\.𖬰\\u200C\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2177\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("9隁糸.𖬰\x{200C}", %p)}, undef, "to_unicode\(\'9隁糸\.𖬰\\u200C\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2178\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒏𐹷。Ⴣ𑘿彦", %p)}, undef, "to_unicode\(\'⒏𐹷。Ⴣ𑘿彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8.𐹷。Ⴣ𑘿彦", %p)}, undef, "to_unicode\(\'8\.𐹷\。Ⴣ𑘿彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2180\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("8.𐹷。ⴣ𑘿彦", %p)}, undef, "to_unicode\(\'8\.𐹷\。ⴣ𑘿彦\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2181\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒏𐹷。ⴣ𑘿彦", %p)}, undef, "to_unicode\(\'⒏𐹷。ⴣ𑘿彦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-问󕀙⒛。\x{0664}-󘖶橬", %p)}, undef, "to_unicode\(\'\-问󕀙⒛\。\\u0664\-󘖶橬\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-问󕀙20.。\x{0664}-󘖶橬", %p)}, undef, "to_unicode\(\'\-问󕀙20\.\。\\u0664\-󘖶橬\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:2184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DFE}Ⴌ\x{200C}𐫥。𝟸", %p)}, undef, "to_unicode\(\'\\u1DFEႬ\\u200C𐫥\。𝟸\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DFE}Ⴌ\x{200C}𐫥。𝟸", %p)}, undef, "to_unicode\(\'\\u1DFEႬ\\u200C𐫥\。𝟸\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DFE}Ⴌ\x{200C}𐫥。2", %p)}, undef, "to_unicode\(\'\\u1DFEႬ\\u200C𐫥\。2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DFE}Ⴌ\x{200C}𐫥。2", %p)}, undef, "to_unicode\(\'\\u1DFEႬ\\u200C𐫥\。2\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2188\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1DFE}ⴌ\x{200C}𐫥。2", %p)}, undef, "to_unicode\(\'\\u1DFEⴌ\\u200C𐫥\。2\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2189\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1DFE}ⴌ\x{200C}𐫥。2", %p)}, undef, "to_unicode\(\'\\u1DFEⴌ\\u200C𐫥\。2\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2190\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1DFE}ⴌ\x{200C}𐫥。𝟸", %p)}, undef, "to_unicode\(\'\\u1DFEⴌ\\u200C𐫥\。𝟸\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2191\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1DFE}ⴌ\x{200C}𐫥。𝟸", %p)}, undef, "to_unicode\(\'\\u1DFEⴌ\\u200C𐫥\。𝟸\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2192\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{DC5F}。\x{1BF2}𐹫󠇷", %p)}, undef, "to_unicode\(\'\\uDC5F\。\\u1BF2𐹫\󠇷\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2193\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE28}\x{135D}⾶。₇︒눇≮", %p)}, undef, "to_unicode\(\'\\uFE28\\u135D⾶。₇︒눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2194\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE28}\x{135D}⾶。₇︒눇<\x{0338}", %p)}, undef, "to_unicode\(\'\\uFE28\\u135D⾶。₇︒눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2195\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE28}\x{135D}飛。7。눇≮", %p)}, undef, "to_unicode\(\'\\uFE28\\u135D飛\。7\。눇\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2196\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE28}\x{135D}飛。7。눇<\x{0338}", %p)}, undef, "to_unicode\(\'\\uFE28\\u135D飛\。7\。눇\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2197\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{2DFD}𐹽\x{200D}.\x{200C}⿃", %p)}, undef, "to_unicode\(\'\\u200C\\u2DFD𐹽\\u200D.\\u200C⿃\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2198\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{2DFD}𐹽\x{200D}.\x{200C}⿃", %p)}, undef, "to_unicode\(\'\\u200C\\u2DFD𐹽\\u200D.\\u200C⿃\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2199\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{2DFD}𐹽\x{200D}.\x{200C}鳥", %p)}, undef, "to_unicode\(\'\\u200C\\u2DFD𐹽\\u200D\.\\u200C鳥\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2200\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{2DFD}𐹽\x{200D}.\x{200C}鳥", %p)}, undef, "to_unicode\(\'\\u200C\\u2DFD𐹽\\u200D\.\\u200C鳥\'\)\ throws\ error\ B1\ C1\ C2\ \[data\/IdnaTest\.txt\:2201\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󠶡.\x{200D}🜮𐥮󠇠", %p)}, undef, "to_unicode\(\'\󠶡.\\u200D🜮𐥮\󠇠\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠶡.\x{200D}🜮𐥮󠇠", %p)}, undef, "to_unicode\(\'\󠶡.\\u200D🜮𐥮\󠇠\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2203\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠶡.\x{200D}🜮𐥮󠇠", %p)}, undef, "to_unicode\(\'\󠶡\.\\u200D🜮𐥮\󠇠\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2204\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠶡.\x{200D}🜮𐥮󠇠", %p)}, undef, "to_unicode\(\'\󠶡\.\\u200D🜮𐥮\󠇠\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2205\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("ᡉ𑇊.\x{0726}\x{200D}", %p)}, undef, "to_unicode\(\'ᡉ𑇊\.\\u0726\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:2206\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("ᡉ𑇊.\x{0726}\x{200D}", %p)}, undef, "to_unicode\(\'ᡉ𑇊\.\\u0726\\u200D\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:2207\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("xn--87e0688j.xn--wnb", %p)}, "ᡉ𑇊.\x{0726}", "to_unicode\(\'xn\-\-87e0688j\.xn\-\-wnb\'\)\ \[data\/IdnaTest\.txt\:2208\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("ᡉ𑇊.\x{0726}", %p)}, "ᡉ𑇊.\x{0726}", "to_unicode\(\'ᡉ𑇊\.\\u0726\'\)\ \[data\/IdnaTest\.txt\:2209\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0662}\x{103A}-.򡕻\x{09CD}𞜎", %p)}, undef, "to_unicode\(\'\\u0662\\u103A\-.򡕻\\u09CD𞜎\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2210\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0662}\x{103A}-.򡕻\x{09CD}𞜎", %p)}, undef, "to_unicode\(\'\\u0662\\u103A\-\.򡕻\\u09CD𞜎\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2211\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢≮", %p)}, undef, "to_unicode\(\'4\\u1A60\-\\u0664。𝉄\\u200C𐹢\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2212\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢≮", %p)}, undef, "to_unicode\(\'4\\u1A60\-\\u0664。𝉄\\u200C𐹢\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2213\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢<\x{0338}", %p)}, undef, "to_unicode\(\'4\\u1A60\-\\u0664。𝉄\\u200C𐹢\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2214\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢<\x{0338}", %p)}, undef, "to_unicode\(\'4\\u1A60\-\\u0664。𝉄\\u200C𐹢\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2215\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢≮", %p)}, undef, "to_unicode\(\'4\\u1A60\-\\u0664\。𝉄\\u200C𐹢\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2216\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢≮", %p)}, undef, "to_unicode\(\'4\\u1A60\-\\u0664\。𝉄\\u200C𐹢\≮\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2217\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢<\x{0338}", %p)}, undef, "to_unicode\(\'4\\u1A60\-\\u0664\。𝉄\\u200C𐹢\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2218\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{1A60}-\x{0664}。𝉄\x{200C}𐹢<\x{0338}", %p)}, undef, "to_unicode\(\'4\\u1A60\-\\u0664\。𝉄\\u200C𐹢\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2219\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{FFA0}\x{0F84}\x{0342}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uFFA0\\u0F84\\u0342\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2220\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{FFA0}\x{0F84}\x{0342}", %p)}, undef, "to_unicode\(\'\\u200C\。\\uFFA0\\u0F84\\u0342\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2221\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{1160}\x{0F84}\x{0342}", %p)}, undef, "to_unicode\(\'\\u200C\。\\u1160\\u0F84\\u0342\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2222\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。\x{1160}\x{0F84}\x{0342}", %p)}, undef, "to_unicode\(\'\\u200C\。\\u1160\\u0F84\\u0342\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2223\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯񙛤.\x{200D}䷕񆡚", %p)}, undef, "to_unicode\(\'\≯񙛤.\\u200D䷕񆡚\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2224\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯񙛤.\x{200D}䷕񆡚", %p)}, undef, "to_unicode\(\'\≯񙛤.\\u200D䷕񆡚\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2225\]") 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\:2226\]") 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\:2227\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯񙛤.\x{200D}䷕񆡚", %p)}, undef, "to_unicode\(\'\≯񙛤\.\\u200D䷕񆡚\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2228\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯񙛤.\x{200D}䷕񆡚", %p)}, undef, "to_unicode\(\'\≯񙛤\.\\u200D䷕񆡚\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2229\]") 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\:2230\]") 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\:2231\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_unicode\(\'ᡦß\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2232\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_unicode\(\'ᡦß\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2233\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0635}\x{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_unicode\(\'ᡦSS\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2234\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0635}\x{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_unicode\(\'ᡦss\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2235\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0635}\x{0645}\x{0645}。7\x{07E3}", %p)}, undef, "to_unicode\(\'ᡦSs\\u0635\\u0645\\u0645\。7\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2236\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_unicode\(\'ᡦSS\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2237\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_unicode\(\'ᡦss\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2238\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{FDC5}。𝟕\x{07E3}", %p)}, undef, "to_unicode\(\'ᡦSs\\uFDC5。𝟕\\u07E3\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:2239\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ß\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_unicode\(\'ß\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_unicode\(\'ß\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_unicode\(\'ß\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2242\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_unicode\(\'SS\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2243\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_unicode\(\'ss\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2244\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{1CD8}\x{0611}𞫑。\x{0643}\x{0644}򴍇𐹥", %p)}, undef, "to_unicode\(\'Ss\\u1CD8\\u0611𞫑\。\\u0643\\u0644򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2245\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_unicode\(\'SS\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2246\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_unicode\(\'ss\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2247\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{1CD8}\x{0611}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_unicode\(\'Ss\\u1CD8\\u0611𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2248\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_unicode\(\'SS\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_unicode\(\'ss\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{0611}\x{1CD8}𞫑。\x{FCEB}򴍇𐹥", %p)}, undef, "to_unicode\(\'Ss\\u0611\\u1CD8𞫑\。\\uFCEB򴍇𐹥\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ \[data\/IdnaTest\.txt\:2251\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。🗦⒌\x{076B}", %p)}, undef, "to_unicode\(\'\-。🗦⒌\\u076B\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2252\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-。🗦5.\x{076B}", %p)}, undef, "to_unicode\(\'\-\。🗦5\.\\u076B\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2253\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𓯃ς.-≮𐢞", %p)}, undef, "to_unicode\(\'𓯃ς.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃ς.-<\x{0338}𐢞", %p)}, undef, "to_unicode\(\'𓯃ς.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2255\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃ς.-≮𐢞", %p)}, undef, "to_unicode\(\'𓯃ς\.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2256\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃ς.-<\x{0338}𐢞", %p)}, undef, "to_unicode\(\'𓯃ς\.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2257\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃Σ.-<\x{0338}𐢞", %p)}, undef, "to_unicode\(\'𓯃Σ\.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2258\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃Σ.-≮𐢞", %p)}, undef, "to_unicode\(\'𓯃Σ\.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2259\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃σ.-≮𐢞", %p)}, undef, "to_unicode\(\'𓯃σ\.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2260\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃σ.-<\x{0338}𐢞", %p)}, undef, "to_unicode\(\'𓯃σ\.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2261\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃Σ.-<\x{0338}𐢞", %p)}, undef, "to_unicode\(\'𓯃Σ.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃Σ.-≮𐢞", %p)}, undef, "to_unicode\(\'𓯃Σ.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃σ.-≮𐢞", %p)}, undef, "to_unicode\(\'𓯃σ.\-\≮𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𓯃σ.-<\x{0338}𐢞", %p)}, undef, "to_unicode\(\'𓯃σ.\-\<\\u0338𐢞\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2265\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠣ\x{0697}ꡜ.񪁡⎩\x{17D2}𞶊", %p)}, undef, "to_unicode\(\'ᠣ\\u0697ꡜ.񪁡\⎩\\u17D2𞶊\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2266\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠣ\x{0697}ꡜ.񪁡⎩\x{17D2}𞶊", %p)}, undef, "to_unicode\(\'ᠣ\\u0697ꡜ\.񪁡\⎩\\u17D2𞶊\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2267\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪟\x{06AA}\x{0757}\x{0761}。𐋦𝅼󠄧", %p)}, "𐪟\x{06AA}\x{0757}\x{0761}.𐋦𝅼", "to_unicode\(\'𐪟\\u06AA\\u0757\\u0761\。𐋦𝅼\󠄧\'\)\ \[data\/IdnaTest\.txt\:2268\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--dkb06a4a7332t.xn--987cj167a", %p)}, "𐪟\x{06AA}\x{0757}\x{0761}.𐋦𝅼", "to_unicode\(\'xn\-\-dkb06a4a7332t\.xn\-\-987cj167a\'\)\ \[data\/IdnaTest\.txt\:2269\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐪟\x{06AA}\x{0757}\x{0761}.𐋦𝅼", %p)}, "𐪟\x{06AA}\x{0757}\x{0761}.𐋦𝅼", "to_unicode\(\'𐪟\\u06AA\\u0757\\u0761\.𐋦𝅼\'\)\ \[data\/IdnaTest\.txt\:2270\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("₂󘈲--。ᢢ\x{200C}𞾰\x{1BAA}", %p)}, undef, "to_unicode\(\'₂󘈲\-\-\。ᢢ\\u200C𞾰\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:2271\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₂󘈲--。ᢢ\x{200C}𞾰\x{1BAA}", %p)}, undef, "to_unicode\(\'₂󘈲\-\-\。ᢢ\\u200C𞾰\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:2272\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2󘈲--。ᢢ\x{200C}𞾰\x{1BAA}", %p)}, undef, "to_unicode\(\'2󘈲\-\-\。ᢢ\\u200C𞾰\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:2273\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2󘈲--。ᢢ\x{200C}𞾰\x{1BAA}", %p)}, undef, "to_unicode\(\'2󘈲\-\-\。ᢢ\\u200C𞾰\\u1BAA\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ C1\ \[data\/IdnaTest\.txt\:2274\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-􆒿.ᢖ\x{0853}-", %p)}, undef, "to_unicode\(\'\-􆒿.ᢖ\\u0853\-\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2275\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-􆒿.ᢖ\x{0853}-", %p)}, undef, "to_unicode\(\'\-􆒿\.ᢖ\\u0853\-\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2276\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-ß。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2277\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-ß。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2278\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-ß\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2279\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-ß\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2280\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-SS。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-SS\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2281\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-SS。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-SS\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2282\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-ss\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2283\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-ss\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2284\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-Ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2285\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-Ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss\。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2286\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-SS。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-SS。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2287\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-SS。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-SS。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2288\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-ss。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2289\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-ss。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2290\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-Ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2291\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{200C}-Ss。ᡪ𐹥\x{07DE}", %p)}, undef, "to_unicode\(\'\\u200C\-Ss。ᡪ𐹥\\u07DE\'\)\ throws\ error\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2292\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u1039\\u1DEF.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2293\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u1039\\u1DEF.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2294\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u1039\\u1DEF\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2295\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("꧐Ӏ\x{1039}\x{1DEF}.눵", %p)}, undef, "to_unicode\(\'꧐Ӏ\\u1039\\u1DEF\.눵\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2296\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "꧐ӏ\x{1039}\x{1DEF}.눵", "to_unicode\(\'꧐ӏ\\u1039\\u1DEF\.눵\'\)\ \[data\/IdnaTest\.txt\:2297\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "꧐ӏ\x{1039}\x{1DEF}.눵", "to_unicode\(\'꧐ӏ\\u1039\\u1DEF\.눵\'\)\ \[data\/IdnaTest\.txt\:2298\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--s5a859c44knm0l.xn--2e1b", %p)}, "꧐ӏ\x{1039}\x{1DEF}.눵", "to_unicode\(\'xn\-\-s5a859c44knm0l\.xn\-\-2e1b\'\)\ \[data\/IdnaTest\.txt\:2299\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "꧐ӏ\x{1039}\x{1DEF}.눵", "to_unicode\(\'꧐ӏ\\u1039\\u1DEF.눵\'\)\ \[data\/IdnaTest\.txt\:2300\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("꧐ӏ\x{1039}\x{1DEF}.눵", %p)}, "꧐ӏ\x{1039}\x{1DEF}.눵", "to_unicode\(\'꧐ӏ\\u1039\\u1DEF.눵\'\)\ \[data\/IdnaTest\.txt\:2301\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0FBC}。鞯𐫦\x{17CB}", %p)}, undef, "to_unicode\(\'\\u0FBC。鞯𐫦\\u17CB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2302\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0FBC}。鞯𐫦\x{17CB}", %p)}, undef, "to_unicode\(\'\\u0FBC\。鞯𐫦\\u17CB\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2303\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𹺛🕢。񶐎≯⾇", %p)}, undef, "to_unicode\(\'𹺛🕢\。񶐎\≯⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2304\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𹺛🕢。񶐎>\x{0338}⾇", %p)}, undef, "to_unicode\(\'𹺛🕢\。񶐎\>\\u0338⾇\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2305\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𹺛🕢。񶐎≯舛", %p)}, undef, "to_unicode\(\'𹺛🕢\。񶐎\≯舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2306\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𹺛🕢。񶐎>\x{0338}舛", %p)}, undef, "to_unicode\(\'𹺛🕢\。񶐎\>\\u0338舛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2307\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062F}\x{066B}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\\u062F\\u066B\\u200C.\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2308\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062F}\x{066B}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\\u062F\\u066B\\u200C.\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2309\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062F}\x{066B}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\\u062F\\u066B\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2310\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062F}\x{066B}\x{200C}.\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'\\u062F\\u066B\\u200C\.\\u200D\\u200C\'\)\ throws\ error\ B3\ C1\ C2\ \[data\/IdnaTest\.txt\:2311\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--ugb4j.", %p)}, "\x{062F}\x{066B}.", "to_unicode\(\'xn\-\-ugb4j\.\'\)\ \[data\/IdnaTest\.txt\:2312\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{062F}\x{066B}.", %p)}, "\x{062F}\x{066B}.", "to_unicode\(\'\\u062F\\u066B\.\'\)\ \[data\/IdnaTest\.txt\:2313\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹄砪≯𐫉。≯\x{17BA}󣺋\x{200C}", %p)}, undef, "to_unicode\(\'񎹄砪\≯𐫉。\≯\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2314\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹄砪≯𐫉。≯\x{17BA}󣺋\x{200C}", %p)}, undef, "to_unicode\(\'񎹄砪\≯𐫉。\≯\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2315\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹄砪>\x{0338}𐫉。>\x{0338}\x{17BA}󣺋\x{200C}", %p)}, undef, "to_unicode\(\'񎹄砪\>\\u0338𐫉。\>\\u0338\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2316\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹄砪>\x{0338}𐫉。>\x{0338}\x{17BA}󣺋\x{200C}", %p)}, undef, "to_unicode\(\'񎹄砪\>\\u0338𐫉。\>\\u0338\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2317\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹄砪≯𐫉。≯\x{17BA}󣺋\x{200C}", %p)}, undef, "to_unicode\(\'񎹄砪\≯𐫉\。\≯\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2318\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹄砪≯𐫉。≯\x{17BA}󣺋\x{200C}", %p)}, undef, "to_unicode\(\'񎹄砪\≯𐫉\。\≯\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2319\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹄砪>\x{0338}𐫉。>\x{0338}\x{17BA}󣺋\x{200C}", %p)}, undef, "to_unicode\(\'񎹄砪\>\\u0338𐫉\。\>\\u0338\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2320\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񎹄砪>\x{0338}𐫉。>\x{0338}\x{17BA}󣺋\x{200C}", %p)}, undef, "to_unicode\(\'񎹄砪\>\\u0338𐫉\。\>\\u0338\\u17BA󣺋\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2321\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴥ.\x{094D}㊸", %p)}, undef, "to_unicode\(\'Ⴥ\.\\u094D㊸\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2322\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴥ.\x{094D}43", %p)}, undef, "to_unicode\(\'Ⴥ\.\\u094D43\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2323\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{094D}43", %p)}, undef, "to_unicode\(\'ⴥ\.\\u094D43\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2324\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{094D}㊸", %p)}, undef, "to_unicode\(\'ⴥ\.\\u094D㊸\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2325\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝟎\x{066C}。Ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_unicode\(\'𝟎\\u066C\。Ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2326\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0\x{066C}。Ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_unicode\(\'0\\u066C\。Ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[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("0\x{066C}。ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_unicode\(\'0\\u066C\。ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2328\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𝟎\x{066C}。ⴒᡋ\x{1DD3}𐹴", %p)}, undef, "to_unicode\(\'𝟎\\u066C\。ⴒᡋ\\u1DD3𐹴\'\)\ throws\ error\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:2329\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󝆆\x{20EB}\x{FFA0}\x{1DE1}.򼇅𑓂", %p)}, undef, "to_unicode\(\'󝆆\\u20EB\\uFFA0\\u1DE1\.򼇅𑓂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2330\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󝆆\x{20EB}\x{1160}\x{1DE1}.򼇅𑓂", %p)}, undef, "to_unicode\(\'󝆆\\u20EB\\u1160\\u1DE1\.򼇅𑓂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2331\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{AA31}.۳\x{200C}\x{0C4D}", %p)}, undef, "to_unicode\(\'\\uAA31\.۳\\u200C\\u0C4D\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2332\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{AA31}.۳\x{200C}\x{0C4D}", %p)}, undef, "to_unicode\(\'\\uAA31\.۳\\u200C\\u0C4D\'\)\ throws\ error\ V5\ C1\ \[data\/IdnaTest\.txt\:2333\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐫜.︒ᠦ", %p)}, undef, "to_unicode\(\'𐫜.︒ᠦ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2334\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫜.。ᠦ", %p)}, undef, "to_unicode\(\'𐫜\.\。ᠦ\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:2335\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0C4D}\x{0FB3}。𐦽", %p)}, undef, "to_unicode\(\'\\u0C4D\\u0FB3。𐦽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2336\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0C4D}\x{0FB3}。𐦽", %p)}, undef, "to_unicode\(\'\\u0C4D\\u0FB3\。𐦽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2337\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𞯟。𐫒񥂰", %p)}, undef, "to_unicode\(\'𞯟\。𐫒񥂰\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2338\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}㴼.\x{200C}\x{0669}\x{FE29}񅋵", %p)}, undef, "to_unicode\(\'\\u0BCD㴼.\\u200C\\u0669\\uFE29񅋵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2339\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}㴼.\x{200C}\x{0669}\x{FE29}񅋵", %p)}, undef, "to_unicode\(\'\\u0BCD㴼.\\u200C\\u0669\\uFE29񅋵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2340\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}㴼.\x{200C}\x{0669}\x{FE29}񅋵", %p)}, undef, "to_unicode\(\'\\u0BCD㴼\.\\u200C\\u0669\\uFE29񅋵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2341\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}㴼.\x{200C}\x{0669}\x{FE29}񅋵", %p)}, undef, "to_unicode\(\'\\u0BCD㴼\.\\u200C\\u0669\\uFE29񅋵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2342\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𬙭\x{0600}👙。\x{0955}", %p)}, undef, "to_unicode\(\'𬙭\\u0600👙。\\u0955\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2343\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𬙭\x{0600}👙。\x{0955}", %p)}, undef, "to_unicode\(\'𬙭\\u0600👙\。\\u0955\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2344\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢔ뾜󠛸\x{09CD}。\x{089D}\x{0600}", %p)}, undef, "to_unicode\(\'ᢔ뾜\󠛸\\u09CD\。\\u089D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2345\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢔ뾜󠛸\x{09CD}。\x{089D}\x{0600}", %p)}, undef, "to_unicode\(\'ᢔ뾜\󠛸\\u09CD\。\\u089D\\u0600\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2346\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹷≠。𐋲󠱲\x{200C}", %p)}, undef, "to_unicode\(\'𐹷\≠。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2347\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹷≠。𐋲󠱲\x{200C}", %p)}, undef, "to_unicode\(\'𐹷\≠。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2348\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹷=\x{0338}。𐋲󠱲\x{200C}", %p)}, undef, "to_unicode\(\'𐹷\=\\u0338。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2349\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹷=\x{0338}。𐋲󠱲\x{200C}", %p)}, undef, "to_unicode\(\'𐹷\=\\u0338。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2350\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹷≠。𐋲󠱲\x{200C}", %p)}, undef, "to_unicode\(\'𐹷\≠\。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2351\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹷≠。𐋲󠱲\x{200C}", %p)}, undef, "to_unicode\(\'𐹷\≠\。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2352\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹷=\x{0338}。𐋲󠱲\x{200C}", %p)}, undef, "to_unicode\(\'𐹷\=\\u0338\。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2353\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹷=\x{0338}。𐋲󠱲\x{200C}", %p)}, undef, "to_unicode\(\'𐹷\=\\u0338\。𐋲\󠱲\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2354\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}򯏪\x{0ACD}.\x{200D}\x{0D4D}𞩪", %p)}, undef, "to_unicode\(\'\\u115F򯏪\\u0ACD.\\u200D\\u0D4D𞩪\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2355\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}򯏪\x{0ACD}.\x{200D}\x{0D4D}𞩪", %p)}, undef, "to_unicode\(\'\\u115F򯏪\\u0ACD.\\u200D\\u0D4D𞩪\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}򯏪\x{0ACD}.\x{200D}\x{0D4D}𞩪", %p)}, undef, "to_unicode\(\'\\u115F򯏪\\u0ACD\.\\u200D\\u0D4D𞩪\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2357\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}򯏪\x{0ACD}.\x{200D}\x{0D4D}𞩪", %p)}, undef, "to_unicode\(\'\\u115F򯏪\\u0ACD\.\\u200D\\u0D4D𞩪\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2358\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񦞷\x{1714}󠄄\x{0F19}。≮", %p)}, undef, "to_unicode\(\'񦞷\\u1714\󠄄\\u0F19\。\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2359\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񦞷\x{1714}󠄄\x{0F19}。<\x{0338}", %p)}, undef, "to_unicode\(\'񦞷\\u1714\󠄄\\u0F19\。\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2360\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝨬.󠅙暀≠", %p)}, undef, "to_unicode\(\'𝨬\.\󠅙暀\≠\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2361\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝨬.󠅙暀=\x{0338}", %p)}, undef, "to_unicode\(\'𝨬\.\󠅙暀\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2362\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{068E}\x{0CCD}。𞮆𿵧󠁶", %p)}, undef, "to_unicode\(\'\\u068E\\u0CCD。𞮆𿵧\󠁶\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2363\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{068E}\x{0CCD}。𞮆𿵧󠁶", %p)}, undef, "to_unicode\(\'\\u068E\\u0CCD\。𞮆𿵧\󠁶\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2364\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A92A}\x{200D}⒈。Ⴌ𐢐", %p)}, undef, "to_unicode\(\'\\uA92A\\u200D⒈。Ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2365\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A92A}\x{200D}⒈。Ⴌ𐢐", %p)}, undef, "to_unicode\(\'\\uA92A\\u200D⒈。Ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2366\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A92A}\x{200D}1.。Ⴌ𐢐", %p)}, undef, "to_unicode\(\'\\uA92A\\u200D1\.\。Ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2367\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A92A}\x{200D}1.。Ⴌ𐢐", %p)}, undef, "to_unicode\(\'\\uA92A\\u200D1\.\。Ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2368\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{A92A}\x{200D}1.。ⴌ𐢐", %p)}, undef, "to_unicode\(\'\\uA92A\\u200D1\.\。ⴌ𐢐\'\)\ throws\ error\ V5\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2369\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{A92A}\x{200D}1.。ⴌ𐢐", %p)}, undef, "to_unicode\(\'\\uA92A\\u200D1\.\。ⴌ𐢐\'\)\ throws\ error\ V5\ C2\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:2370\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{A92A}\x{200D}⒈。ⴌ𐢐", %p)}, undef, "to_unicode\(\'\\uA92A\\u200D⒈。ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A92A}\x{200D}⒈。ⴌ𐢐", %p)}, undef, "to_unicode\(\'\\uA92A\\u200D⒈。ⴌ𐢐\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B5\ B6\ \[data\/IdnaTest\.txt\:2372\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠾸𐨿񃰂\x{0691}.ς𡛬󵼸", %p)}, undef, "to_unicode\(\'\󠾸𐨿񃰂\\u0691\.ς𡛬󵼸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2373\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠾸𐨿񃰂\x{0691}.Σ𡛬󵼸", %p)}, undef, "to_unicode\(\'\󠾸𐨿񃰂\\u0691\.Σ𡛬󵼸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2374\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠾸𐨿񃰂\x{0691}.σ𡛬󵼸", %p)}, undef, "to_unicode\(\'\󠾸𐨿񃰂\\u0691\.σ𡛬󵼸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2375\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢛ。\x{200C}ᠳ񩿹", %p)}, undef, "to_unicode\(\'ᢛ\。\\u200Cᠳ񩿹\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2376\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢛ。\x{200C}ᠳ񩿹", %p)}, undef, "to_unicode\(\'ᢛ\。\\u200Cᠳ񩿹\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2377\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{06DA}\x{20E2}.\x{A672}ꡋ𐫉𝅿", %p)}, undef, "to_unicode\(\'\\u06DA\\u20E2\.\\uA672ꡋ𐫉𝅿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2378\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("䂹򪾥𐋦.\x{200D}", %p)}, undef, "to_unicode\(\'䂹򪾥𐋦.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2379\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䂹򪾥𐋦.\x{200D}", %p)}, undef, "to_unicode\(\'䂹򪾥𐋦.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2380\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䂹򪾥𐋦.\x{200D}", %p)}, undef, "to_unicode\(\'䂹򪾥𐋦\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2381\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䂹򪾥𐋦.\x{200D}", %p)}, undef, "to_unicode\(\'䂹򪾥𐋦\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2382\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}\x{200C}\x{0667}\x{200C}。𐲟🄉", %p)}, undef, "to_unicode\(\'\\u0BCD\\u200C\\u0667\\u200C。𐲟🄉\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2383\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}\x{200C}\x{0667}\x{200C}。𐲟🄉", %p)}, undef, "to_unicode\(\'\\u0BCD\\u200C\\u0667\\u200C。𐲟🄉\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2384\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}\x{200C}\x{0667}\x{200C}。𐲟8,", %p)}, undef, "to_unicode\(\'\\u0BCD\\u200C\\u0667\\u200C\。𐲟8\,\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ B3\ \[data\/IdnaTest\.txt\:2385\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0BCD}\x{200C}\x{0667}\x{200C}。𐲟8,", %p)}, undef, "to_unicode\(\'\\u0BCD\\u200C\\u0667\\u200C\。𐲟8\,\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ B3\ \[data\/IdnaTest\.txt\:2386\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒。Ⴃ≯", %p)}, undef, "to_unicode\(\'︒。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2387\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒。Ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'︒。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2388\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。。Ⴃ≯", %p)}, undef, "to_unicode\(\'\。\。Ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2389\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。。Ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'\。\。Ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2390\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。。ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'\。\。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2391\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。。ⴃ≯", %p)}, undef, "to_unicode\(\'\。\。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2392\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒。ⴃ>\x{0338}", %p)}, undef, "to_unicode\(\'︒。ⴃ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2393\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒。ⴃ≯", %p)}, undef, "to_unicode\(\'︒。ⴃ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2394\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹡。󠁙\x{200D}", %p)}, undef, "to_unicode\(\'𐹡。\󠁙\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2395\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹡。󠁙\x{200D}", %p)}, undef, "to_unicode\(\'𐹡。\󠁙\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2396\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹡。󠁙\x{200D}", %p)}, undef, "to_unicode\(\'𐹡\。\󠁙\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2397\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹡。󠁙\x{200D}", %p)}, undef, "to_unicode\(\'𐹡\。\󠁙\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2398\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ𐹮。︒𐫁\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ𐹮。︒𐫁\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2399\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ𐹮。︒𐫁\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ𐹮。︒𐫁\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2400\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ𐹮。。𐫁\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ𐹮\。\。𐫁\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2401\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ𐹮。。𐫁\x{200D}Ⴏ", %p)}, undef, "to_unicode\(\'Ⴞ𐹮\。\。𐫁\\u200DႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2402\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴞ𐹮。。𐫁\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ𐹮\。\。𐫁\\u200Dⴏ\'\)\ throws\ error\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2403\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴞ𐹮。。𐫁\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ𐹮\。\。𐫁\\u200Dⴏ\'\)\ throws\ error\ B5\ B6\ A4_2\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2404\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ⴞ𐹮。︒𐫁\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ𐹮。︒𐫁\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2405\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ𐹮。︒𐫁\x{200D}ⴏ", %p)}, undef, "to_unicode\(\'ⴞ𐹮。︒𐫁\\u200Dⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ C2\ \[data\/IdnaTest\.txt\:2406\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴆ𝟹。-\x{1DF1}-𐫝", %p)}, undef, "to_unicode\(\'\\u200CႦ𝟹\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2407\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴆ𝟹。-\x{1DF1}-𐫝", %p)}, undef, "to_unicode\(\'\\u200CႦ𝟹\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2408\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴆ3。-\x{1DF1}-𐫝", %p)}, undef, "to_unicode\(\'\\u200CႦ3\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2409\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴆ3。-\x{1DF1}-𐫝", %p)}, undef, "to_unicode\(\'\\u200CႦ3\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ P1\ V6\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2410\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}ⴆ3。-\x{1DF1}-𐫝", %p)}, undef, "to_unicode\(\'\\u200Cⴆ3\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2411\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}ⴆ3。-\x{1DF1}-𐫝", %p)}, undef, "to_unicode\(\'\\u200Cⴆ3\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2412\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}ⴆ𝟹。-\x{1DF1}-𐫝", %p)}, undef, "to_unicode\(\'\\u200Cⴆ𝟹\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2413\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}ⴆ𝟹。-\x{1DF1}-𐫝", %p)}, undef, "to_unicode\(\'\\u200Cⴆ𝟹\。\-\\u1DF1\-𐫝\'\)\ throws\ error\ V3\ C1\ B1\ \[data\/IdnaTest\.txt\:2414\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("箃Ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\\u0342。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2415\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃Ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\\u0342。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2416\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃Ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\\u0342\。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2417\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃Ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_unicode\(\'箃Ⴡ\-\\u0342\。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2418\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_unicode\(\'箃ⴡ\-\\u0342\。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2419\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_unicode\(\'箃ⴡ\-\\u0342\。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2420\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃ⴡ-\x{0342}。=\x{0338}-👣", %p)}, undef, "to_unicode\(\'箃ⴡ\-\\u0342。\=\\u0338\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2421\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("箃ⴡ-\x{0342}。≠-👣", %p)}, undef, "to_unicode\(\'箃ⴡ\-\\u0342。\≠\-👣\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2422\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07DC}.ꡜ", %p)}, "\x{07DC}.ꡜ", "to_unicode\(\'\\u07DC\.ꡜ\'\)\ \[data\/IdnaTest\.txt\:2423\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--3sb.xn--1c9a", %p)}, "\x{07DC}.ꡜ", "to_unicode\(\'xn\-\-3sb\.xn\-\-1c9a\'\)\ \[data\/IdnaTest\.txt\:2424\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{200D}.ᢏ", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\.ᢏ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2425\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200D}.ᢏ", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\.ᢏ\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2426\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--89e", %p)}, "ᢏ", "to_unicode\(\'xn\-\-89e\'\)\ \[data\/IdnaTest\.txt\:2427\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢏ", %p)}, "ᢏ", "to_unicode\(\'ᢏ\'\)\ \[data\/IdnaTest\.txt\:2428\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("≤𐹮ᡱ.ς\x{1BAA}蜹", %p)}, undef, "to_unicode\(\'\≤𐹮ᡱ\.ς\\u1BAA蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2429\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("≤𐹮ᡱ.Σ\x{1BAA}蜹", %p)}, undef, "to_unicode\(\'\≤𐹮ᡱ\.Σ\\u1BAA蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2430\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("≤𐹮ᡱ.σ\x{1BAA}蜹", %p)}, undef, "to_unicode\(\'\≤𐹮ᡱ\.σ\\u1BAA蜹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2431\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("򩎰ス􅲆𐹡.򉬄", %p)}, undef, "to_unicode\(\'򩎰ス􅲆𐹡.򉬄\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2432\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򩎰ス􅲆𐹡.򉬄", %p)}, undef, "to_unicode\(\'򩎰ス􅲆𐹡\.򉬄\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2433\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C7}𜖴.\x{05BB}\x{D850}ꡢ", %p)}, undef, "to_unicode\(\'\\u05C7𜖴.\\u05BB\\uD850ꡢ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2434\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C7}𜖴.\x{05BB}\x{D850}ꡢ", %p)}, undef, "to_unicode\(\'\\u05C7𜖴\.\\u05BB\\uD850ꡢ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2435\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0662}󤺆\x{200C}。ᢡ", %p)}, undef, "to_unicode\(\'\\u0662󤺆\\u200C\。ᢡ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2436\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0662}󤺆\x{200C}。ᢡ", %p)}, undef, "to_unicode\(\'\\u0662󤺆\\u200C\。ᢡ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2437\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑋪\x{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_unicode\(\'𑋪\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ C1\ \[data\/IdnaTest\.txt\:2438\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑋪\x{200D}\x{200C}。-\x{200C}", %p)}, undef, "to_unicode\(\'𑋪\\u200D\\u200C\。\-\\u200C\'\)\ throws\ error\ V5\ V3\ C1\ \[data\/IdnaTest\.txt\:2439\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("︒。\x{1039}\x{0720}", %p)}, undef, "to_unicode\(\'︒。\\u1039\\u0720\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:2440\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。。\x{1039}\x{0720}", %p)}, undef, "to_unicode\(\'\。\。\\u1039\\u0720\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2441\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢇß。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_unicode\(\'ᢇß\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2442\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢇß。ጫᡏ\x{068C}2", %p)}, undef, "to_unicode\(\'ᢇß\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2443\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢇSS。ጫᡏ\x{068C}2", %p)}, undef, "to_unicode\(\'ᢇSS\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2444\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢇss。ጫᡏ\x{068C}2", %p)}, undef, "to_unicode\(\'ᢇss\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2445\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢇSs。ጫᡏ\x{068C}2", %p)}, undef, "to_unicode\(\'ᢇSs\。ጫᡏ\\u068C2\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢇSS。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_unicode\(\'ᢇSS\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2447\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢇss。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_unicode\(\'ᢇss\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2448\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢇSs。ጫᡏ\x{068C}𝟐", %p)}, undef, "to_unicode\(\'ᢇSs\。ጫᡏ\\u068C𝟐\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:2449\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞾰\x{FCDE}ᚲ.\x{0F83}󠀥𝟚\x{AAF6}", %p)}, undef, "to_unicode\(\'𞾰\\uFCDEᚲ\.\\u0F83\󠀥𝟚\\uAAF6\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2450\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞾰\x{064A}\x{0647}ᚲ.\x{0F83}󠀥2\x{AAF6}", %p)}, undef, "to_unicode\(\'𞾰\\u064A\\u0647ᚲ\.\\u0F83\󠀥2\\uAAF6\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2451\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{1B44}︒\x{200D}.𑕮𬺥", %p)}, undef, "to_unicode\(\'\-\\u1B44︒\\u200D\.𑕮𬺥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2452\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{1B44}︒\x{200D}.𑕮𬺥", %p)}, undef, "to_unicode\(\'\-\\u1B44︒\\u200D\.𑕮𬺥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2453\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{1B44}。\x{200D}.𑕮𬺥", %p)}, undef, "to_unicode\(\'\-\\u1B44\。\\u200D\.𑕮𬺥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2454\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{1B44}。\x{200D}.𑕮𬺥", %p)}, undef, "to_unicode\(\'\-\\u1B44\。\\u200D\.𑕮𬺥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2455\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠖺.≯\x{1AB5}", %p)}, undef, "to_unicode\(\'\󠖺\.\≯\\u1AB5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2456\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠖺.>\x{0338}\x{1AB5}", %p)}, undef, "to_unicode\(\'\󠖺\.\>\\u0338\\u1AB5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2457\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{09CD}‡\x{0601}。𞴅", %p)}, undef, "to_unicode\(\'\-\\u09CD\‡\\u0601\。𞴅\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2458\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06A2}.\x{0717}\x{115F}", %p)}, undef, "to_unicode\(\'\\u06A2.\\u0717\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2459\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06A2}.\x{0717}\x{115F}", %p)}, undef, "to_unicode\(\'\\u06A2\.\\u0717\\u115F\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2460\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㨛񻘅.︒𝟕𑜨", %p)}, undef, "to_unicode\(\'㨛񻘅\.︒𝟕𑜨\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2461\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㨛񻘅.。7𑜨", %p)}, undef, "to_unicode\(\'㨛񻘅\.\。7𑜨\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:2462\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0663}񥐑-。𐦱𐍷\x{0764}≮", %p)}, undef, "to_unicode\(\'\\u0663񥐑\-。𐦱𐍷\\u0764\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2463\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0663}񥐑-。𐦱𐍷\x{0764}<\x{0338}", %p)}, undef, "to_unicode\(\'\\u0663񥐑\-。𐦱𐍷\\u0764\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2464\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0663}񥐑-。𐦱𐍷\x{0764}≮", %p)}, undef, "to_unicode\(\'\\u0663񥐑\-\。𐦱𐍷\\u0764\≮\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2465\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0663}񥐑-。𐦱𐍷\x{0764}<\x{0338}", %p)}, undef, "to_unicode\(\'\\u0663񥐑\-\。𐦱𐍷\\u0764\<\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B3\ \[data\/IdnaTest\.txt\:2466\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{0FA2}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA2\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2467\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{0FA2}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA2\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2468\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2469\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2470\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750\.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2471\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750\.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2472\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750\.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2473\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750\.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2474\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SS\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\u0FA1\\u0FB7\\u0750\.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2475\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\u0FA1\\u0FB7\\u0750\.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2476\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\u0FA1\\u0FB7\\u0750\.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2477\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\u0FA1\\u0FB7\\u0750\.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2478\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ss\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\u0FA1\\u0FB7\\u0750\.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2479\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\u0FA1\\u0FB7\\u0750\.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2480\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2481\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA1\\u0FB7\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2482\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SS\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\u0FA1\\u0FB7\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2483\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\u0FA1\\u0FB7\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2484\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\u0FA1\\u0FB7\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2485\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}\x{0FA1}\x{0FB7}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\u0FA1\\u0FB7\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2486\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ss\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\u0FA1\\u0FB7\\u0750.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2487\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200C}\x{0FA1}\x{0FB7}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\u0FA1\\u0FB7\\u0750.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2488\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0FA2}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA2\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2489\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0FA2}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ß\\u200C\\u0FA2\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2490\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SS\x{200C}\x{0FA2}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\u0FA2\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2491\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200C}\x{0FA2}\x{0750}.℞ჁႶ", %p)}, undef, "to_unicode\(\'SS\\u200C\\u0FA2\\u0750.℞ჁႶ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2492\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}\x{0FA2}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\u0FA2\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2493\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}\x{0FA2}\x{0750}.℞ⴡⴖ", %p)}, undef, "to_unicode\(\'ss\\u200C\\u0FA2\\u0750.℞ⴡⴖ\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2494\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ss\x{200C}\x{0FA2}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\u0FA2\\u0750.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2495\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200C}\x{0FA2}\x{0750}.℞Ⴡⴖ", %p)}, undef, "to_unicode\(\'Ss\\u200C\\u0FA2\\u0750.℞Ⴡⴖ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:2496\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。ς󠁳", %p)}, undef, "to_unicode\(\'\\u200D\。ς\󠁳\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2497\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。ς󠁳", %p)}, undef, "to_unicode\(\'\\u200D\。ς\󠁳\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2498\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。Σ󠁳", %p)}, undef, "to_unicode\(\'\\u200D\。Σ\󠁳\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2499\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。Σ󠁳", %p)}, undef, "to_unicode\(\'\\u200D\。Σ\󠁳\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2500\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。σ󠁳", %p)}, undef, "to_unicode\(\'\\u200D\。σ\󠁳\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2501\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。σ󠁳", %p)}, undef, "to_unicode\(\'\\u200D\。σ\󠁳\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:2502\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮧ß.𐮍\x{200D}ᠨ-", %p)}, undef, "to_unicode\(\'𐮧ß\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2503\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮧ß.𐮍\x{200D}ᠨ-", %p)}, undef, "to_unicode\(\'𐮧ß\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2504\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮧SS.𐮍\x{200D}ᠨ-", %p)}, undef, "to_unicode\(\'𐮧SS\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2505\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮧SS.𐮍\x{200D}ᠨ-", %p)}, undef, "to_unicode\(\'𐮧SS\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2506\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮧ss.𐮍\x{200D}ᠨ-", %p)}, undef, "to_unicode\(\'𐮧ss\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2507\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮧ss.𐮍\x{200D}ᠨ-", %p)}, undef, "to_unicode\(\'𐮧ss\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2508\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮧Ss.𐮍\x{200D}ᠨ-", %p)}, undef, "to_unicode\(\'𐮧Ss\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2509\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮧Ss.𐮍\x{200D}ᠨ-", %p)}, undef, "to_unicode\(\'𐮧Ss\.𐮍\\u200Dᠨ\-\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:2510\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0816}\x{200D}𐮭.\x{0662}󔿾-", %p)}, undef, "to_unicode\(\'\\u0816\\u200D𐮭.\\u0662󔿾\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2511\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0816}\x{200D}𐮭.\x{0662}󔿾-", %p)}, undef, "to_unicode\(\'\\u0816\\u200D𐮭.\\u0662󔿾\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2512\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0816}\x{200D}𐮭.\x{0662}󔿾-", %p)}, undef, "to_unicode\(\'\\u0816\\u200D𐮭\.\\u0662󔿾\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2513\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0816}\x{200D}𐮭.\x{0662}󔿾-", %p)}, undef, "to_unicode\(\'\\u0816\\u200D𐮭\.\\u0662󔿾\-\'\)\ throws\ error\ P1\ V5\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2514\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒒񷻕򨢣𑍫.-򌀇", %p)}, undef, "to_unicode\(\'⒒񷻕򨢣𑍫\.\-򌀇\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2515\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("11.񷻕򨢣𑍫.-򌀇", %p)}, undef, "to_unicode\(\'11\.񷻕򨢣𑍫\.\-򌀇\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:2516\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2517\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2518\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2519\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{200D}", %p)}, undef, "to_unicode\(\'\-\。\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:2520\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0776}.ς¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮\\u0776.ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2521\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0776}.ς¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0776.ς¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2522\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0776}.ς1-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮\\u0776\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2523\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0776}.ς1-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0776\.ς1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2524\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0776}.Σ1-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0776\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2525\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0776}.Σ1-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮\\u0776\.Σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2526\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0776}.σ1-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮\\u0776\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2527\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0776}.σ1-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0776\.σ1\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2528\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0776}.Σ¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0776.Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2529\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0776}.Σ¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮\\u0776.Σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2530\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{0776}.σ¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\≮\\u0776.σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2531\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{0776}.σ¹-\x{DB09}", %p)}, undef, "to_unicode\(\'\<\\u0338\\u0776.σ¹\-\\uDB09\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2532\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ቬ񊱈󙪶。\x{07B9}𝟠", %p)}, undef, "to_unicode\(\'ቬ񊱈󙪶。\\u07B9𝟠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2533\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ቬ񊱈󙪶。\x{07B9}8", %p)}, undef, "to_unicode\(\'ቬ񊱈󙪶\。\\u07B98\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2534\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("𞺯。蔫\x{068A}", %p)}, undef, "to_unicode\(\'𞺯\。蔫\\u068A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2535\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0639}。蔫\x{068A}", %p)}, undef, "to_unicode\(\'\\u0639\。蔫\\u068A\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:2536\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򰡪₃。ꡤ󤪓\x{0FAA}\x{067B}", %p)}, undef, "to_unicode\(\'򰡪₃。ꡤ󤪓\\u0FAA\\u067B\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2537\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򰡪3。ꡤ󤪓\x{0FAA}\x{067B}", %p)}, undef, "to_unicode\(\'򰡪3\。ꡤ󤪓\\u0FAA\\u067B\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2538\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󊧧𐮅≠.ß", %p)}, undef, "to_unicode\(\'󊧧𐮅\≠\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2539\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󊧧𐮅=\x{0338}.ß", %p)}, undef, "to_unicode\(\'󊧧𐮅\=\\u0338\.ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2540\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󊧧𐮅=\x{0338}.SS", %p)}, undef, "to_unicode\(\'󊧧𐮅\=\\u0338\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2541\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󊧧𐮅≠.SS", %p)}, undef, "to_unicode\(\'󊧧𐮅\≠\.SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2542\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0770}\x{08AA}𑍴⒊.\x{0666}𞤵\x{05AE}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0770\\u08AA𑍴⒊\.\\u0666𞤵\\u05AE\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2543\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0770}\x{08AA}𑍴⒊.\x{0666}𞤵\x{05AE}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0770\\u08AA𑍴⒊\.\\u0666𞤵\\u05AE\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2544\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0770}\x{08AA}𑍴3..\x{0666}𞤵\x{05AE}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0770\\u08AA𑍴3\.\.\\u0666𞤵\\u05AE\\u200C\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:2545\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0770}\x{08AA}𑍴3..\x{0666}𞤵\x{05AE}\x{200C}", %p)}, undef, "to_unicode\(\'\\u0770\\u08AA𑍴3\.\.\\u0666𞤵\\u05AE\\u200C\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C1\ \[data\/IdnaTest\.txt\:2546\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{200D}-.Ⴣ󰬳", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.Ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2547\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{200D}-.Ⴣ󰬳", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.Ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2548\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{200D}-.ⴣ󰬳", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2549\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{200D}-.ⴣ󰬳", %p)}, undef, "to_unicode\(\'ς\\u200D\-\.ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2550\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{200D}-.Ⴣ󰬳", %p)}, undef, "to_unicode\(\'Σ\\u200D\-\.Ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2551\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{200D}-.Ⴣ󰬳", %p)}, undef, "to_unicode\(\'Σ\\u200D\-\.Ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2552\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{200D}-.ⴣ󰬳", %p)}, undef, "to_unicode\(\'σ\\u200D\-\.ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2553\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{200D}-.ⴣ󰬳", %p)}, undef, "to_unicode\(\'σ\\u200D\-\.ⴣ󰬳\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:2554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。󠷆𝟲", %p)}, undef, "to_unicode\(\'\≠\。\󠷆𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。󠷆𝟲", %p)}, undef, "to_unicode\(\'\=\\u0338\。\󠷆𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠。󠷆6", %p)}, undef, "to_unicode\(\'\≠\。\󠷆6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2557\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}。󠷆6", %p)}, undef, "to_unicode\(\'\=\\u0338\。\󠷆6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2558\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򉄵.蠔", %p)}, undef, "to_unicode\(\'򉄵\.蠔\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2559\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u0FAE\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2560\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u0FAE\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2561\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u0FAE\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2562\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u0FAE\\u200D.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2563\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u0FAE\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2564\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u0FAE\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2565\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u0FAE\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2566\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FAE}\x{200D}.뼽", %p)}, undef, "to_unicode\(\'\\u0FAE\\u200D\.뼽\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2567\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("₇𑄳򯨓𐸬。⬅\x{0685}-\x{FD46}", %p)}, undef, "to_unicode\(\'₇𑄳򯨓𐸬\。\⬅\\u0685\-\\uFD46\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2568\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("7𑄳򯨓𐸬。⬅\x{0685}-\x{FD46}", %p)}, undef, "to_unicode\(\'7𑄳򯨓𐸬\。\⬅\\u0685\-\\uFD46\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2569\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07E0}", %p)}, undef, "to_unicode\(\'\-。\\u07E0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2570\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07E0}", %p)}, undef, "to_unicode\(\'\-\。\\u07E0\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2571\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1B6B}򪃩。-⒈\x{075C}\x{07E1}", %p)}, undef, "to_unicode\(\'\\u1B6B򪃩。\-⒈\\u075C\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:2572\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B6B}򪃩。-1.\x{075C}\x{07E1}", %p)}, undef, "to_unicode\(\'\\u1B6B򪃩\。\-1\.\\u075C\\u07E1\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:2573\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0677}.-", %p)}, undef, "to_unicode\(\'璛\\u2D7F\\u0677\.\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2574\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{06C7}\x{0674}.-", %p)}, undef, "to_unicode\(\'璛\\u2D7F\\u06C7\\u0674\.\-\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:2575\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_unicode\(\'\\u0596ꡜ\\uA806샕.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2576\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_unicode\(\'\\u0596ꡜ\\uA806샕.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2577\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_unicode\(\'\\u0596ꡜ\\uA806샕\.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2578\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0596}ꡜ\x{A806}샕.𐹳휁", %p)}, undef, "to_unicode\(\'\\u0596ꡜ\\uA806샕\.𐹳휁\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2579\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󌥊.󔾋", %p)}, undef, "to_unicode\(\'󌥊.󔾋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2580\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󌥊.󔾋", %p)}, undef, "to_unicode\(\'󌥊\.󔾋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2581\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06B3}𐺰。\x{ABED}𐮇Ⴍ-", %p)}, undef, "to_unicode\(\'\\u06B3𐺰。\\uABED𐮇Ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2582\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06B3}𐺰。\x{ABED}𐮇Ⴍ-", %p)}, undef, "to_unicode\(\'\\u06B3𐺰\。\\uABED𐮇Ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2583\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06B3}𐺰。\x{ABED}𐮇ⴍ-", %p)}, undef, "to_unicode\(\'\\u06B3𐺰\。\\uABED𐮇ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2584\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06B3}𐺰。\x{ABED}𐮇ⴍ-", %p)}, undef, "to_unicode\(\'\\u06B3𐺰。\\uABED𐮇ⴍ\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:2585\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞹥𐧞\x{FE99}。򴶪₄Ⴋ𷮑", %p)}, undef, "to_unicode\(\'𞹥𐧞\\uFE99\。򴶪₄Ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2586\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞹥𐧞\x{062B}。򴶪4Ⴋ𷮑", %p)}, undef, "to_unicode\(\'𞹥𐧞\\u062B\。򴶪4Ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2587\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞹥𐧞\x{062B}。򴶪4ⴋ𷮑", %p)}, undef, "to_unicode\(\'𞹥𐧞\\u062B\。򴶪4ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2588\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞹥𐧞\x{FE99}。򴶪₄ⴋ𷮑", %p)}, undef, "to_unicode\(\'𞹥𐧞\\uFE99\。򴶪₄ⴋ𷮑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2589\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{066E}︒󠚂.≠", %p)}, undef, "to_unicode\(\'4\\u066E︒\󠚂\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2590\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{066E}︒󠚂.=\x{0338}", %p)}, undef, "to_unicode\(\'4\\u066E︒\󠚂\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2591\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{066E}。󠚂.≠", %p)}, undef, "to_unicode\(\'4\\u066E\。\󠚂\.\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2592\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4\x{066E}。󠚂.=\x{0338}", %p)}, undef, "to_unicode\(\'4\\u066E\。\󠚂\.\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2593\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟓。\x{1920}", %p)}, undef, "to_unicode\(\'𝟓\。\\u1920\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2594\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("5。\x{1920}", %p)}, undef, "to_unicode\(\'5\。\\u1920\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2595\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񩈣.⾕", %p)}, undef, "to_unicode\(\'\\u200C񩈣\.⾕\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2596\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񩈣.⾕", %p)}, undef, "to_unicode\(\'\\u200C񩈣\.⾕\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2597\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񩈣.谷", %p)}, undef, "to_unicode\(\'\\u200C񩈣\.谷\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2598\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񩈣.谷", %p)}, undef, "to_unicode\(\'\\u200C񩈣\.谷\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2599\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒򖒱\x{200D}.-󠄫\x{200C}", %p)}, undef, "to_unicode\(\'︒򖒱\\u200D\.\-\󠄫\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2600\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒򖒱\x{200D}.-󠄫\x{200C}", %p)}, undef, "to_unicode\(\'︒򖒱\\u200D\.\-\󠄫\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。򖒱\x{200D}.-󠄫\x{200C}", %p)}, undef, "to_unicode\(\'\。򖒱\\u200D\.\-\󠄫\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。򖒱\x{200D}.-󠄫\x{200C}", %p)}, undef, "to_unicode\(\'\。򖒱\\u200D\.\-\󠄫\\u200C\'\)\ throws\ error\ P1\ V6\ V3\ C2\ C1\ \[data\/IdnaTest\.txt\:2603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{06A5}。ꡖ", %p)}, undef, "to_unicode\(\'\≯\\u06A5\。ꡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{06A5}。ꡖ", %p)}, undef, "to_unicode\(\'\>\\u0338\\u06A5\。ꡖ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1C36}󷠎𐅓。ᡕ\x{0600}", %p)}, undef, "to_unicode\(\'\\u1C36󷠎𐅓\。ᡕ\\u0600\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2606\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1DF3}\x{084F}⁷𝟹。𝟬", %p)}, undef, "to_unicode\(\'\\u1DF3\\u084F⁷𝟹。𝟬\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2607\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1DF3}\x{084F}73。0", %p)}, undef, "to_unicode\(\'\\u1DF3\\u084F73\。0\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2608\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}.𝟗", %p)}, undef, "to_unicode\(\'\\u200D.𝟗\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.𝟗", %p)}, undef, "to_unicode\(\'\\u200D.𝟗\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.9", %p)}, undef, "to_unicode\(\'\\u200D\.9\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.9", %p)}, undef, "to_unicode\(\'\\u200D\.9\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9", %p)}, "9", "to_unicode\(\'9\'\)\ \[data\/IdnaTest\.txt\:2613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡬ\x{072F}𔾦。ᢚ\x{1039}", %p)}, undef, "to_unicode\(\'ᡬ\\u072F𔾦\。ᢚ\\u1039\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2614\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_unicode\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2615\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_unicode\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2616\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_unicode\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2617\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("ᢤ5ᢐ겙。\x{0329}𐣴", %p)}, undef, "to_unicode\(\'ᢤ5ᢐ겙\。\\u0329𐣴\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2618\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴍ𖮿ᡎ\x{0F7C}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ𖮿ᡎ\\u0F7C\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ𖮿ᡎ\x{0F7C}。Ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ𖮿ᡎ\\u0F7C\。Ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴍ𖮿ᡎ\x{0F7C}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ𖮿ᡎ\\u0F7C\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2621\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴍ𖮿ᡎ\x{0F7C}。ⴞ\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ𖮿ᡎ\\u0F7C\。ⴞ\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2622\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋰。򒠍", %p)}, undef, "to_unicode\(\'𐋰\。򒠍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2623\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚡜\x{17B4}\x{0D4D}.𐹴", %p)}, undef, "to_unicode\(\'𚡜\\u17B4\\u0D4D\.𐹴\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2624\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{059F}Ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_unicode\(\'\\u059FႫ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2625\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{059F}Ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_unicode\(\'\\u059FႫ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2626\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{059F}Ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_unicode\(\'\\u059FႫ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2627\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{059F}Ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_unicode\(\'\\u059FႫ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2628\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{059F}ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_unicode\(\'\\u059Fⴋ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2629\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{059F}ⴋ񴹛󂑻.򰟨0휪\x{05B7}", %p)}, undef, "to_unicode\(\'\\u059Fⴋ񴹛󂑻\.򰟨0휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2630\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{059F}ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_unicode\(\'\\u059Fⴋ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2631\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{059F}ⴋ񴹛󂑻.򰟨𝟢휪\x{05B7}", %p)}, undef, "to_unicode\(\'\\u059Fⴋ񴹛󂑻.򰟨𝟢휪\\u05B7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2632\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐦲.𐼰𐹴", %p)}, undef, "to_unicode\(\'𐦲.𐼰𐹴\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2633\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐦲.𐼰𐹴", %p)}, undef, "to_unicode\(\'𐦲\.𐼰𐹴\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2634\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09CD}₃.8\x{1B44}\x{200D}󠲑", %p)}, undef, "to_unicode\(\'\\u09CD₃\.8\\u1B44\\u200D\󠲑\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2635\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{09CD}3.8\x{1B44}\x{200D}󠲑", %p)}, undef, "to_unicode\(\'\\u09CD3\.8\\u1B44\\u200D\󠲑\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2636\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠝃⩷\x{0FC6}。𐤒󠁖\x{1A1B}", %p)}, undef, "to_unicode\(\'\󠝃\⩷\\u0FC6\。𐤒\󠁖\\u1A1B\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:2637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡟ≠\x{0E3A}򑒮。𞯴𝩗\x{FFA0}", %p)}, undef, "to_unicode\(\'ꡟ\≠\\u0E3A򑒮。𞯴𝩗\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡟ=\x{0338}\x{0E3A}򑒮。𞯴𝩗\x{FFA0}", %p)}, undef, "to_unicode\(\'ꡟ\=\\u0338\\u0E3A򑒮。𞯴𝩗\\uFFA0\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2639\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡟ≠\x{0E3A}򑒮。𞯴𝩗\x{1160}", %p)}, undef, "to_unicode\(\'ꡟ\≠\\u0E3A򑒮\。𞯴𝩗\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2640\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡟ=\x{0338}\x{0E3A}򑒮。𞯴𝩗\x{1160}", %p)}, undef, "to_unicode\(\'ꡟ\=\\u0338\\u0E3A򑒮\。𞯴𝩗\\u1160\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2641\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("鱊。\x{200C}", %p)}, undef, "to_unicode\(\'鱊\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("鱊。\x{200C}", %p)}, undef, "to_unicode\(\'鱊\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:2643\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--rt6a.", %p)}, "鱊.", "to_unicode\(\'xn\-\-rt6a\.\'\)\ \[data\/IdnaTest\.txt\:2644\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("鱊.", %p)}, "鱊.", "to_unicode\(\'鱊\.\'\)\ \[data\/IdnaTest\.txt\:2645\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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("8𐹽.𑚲", %p)}, undef, "to_unicode\(\'8𐹽.𑚲\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2646\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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("8𐹽.𑚲", %p)}, undef, "to_unicode\(\'8𐹽\.𑚲\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2647\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⤴𞨡.ᡆ", %p)}, undef, "to_unicode\(\'\⤴𞨡.ᡆ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2648\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⤴𞨡.ᡆ", %p)}, undef, "to_unicode\(\'\⤴𞨡\.ᡆ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2649\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}ᡐ4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u07CFᡐ4.\\u200D\'\)\ throws\ error\ B2\ C2\ \[data\/IdnaTest\.txt\:2650\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}ᡐ4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u07CFᡐ4.\\u200D\'\)\ throws\ error\ B2\ C2\ \[data\/IdnaTest\.txt\:2651\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}ᡐ4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u07CFᡐ4\.\\u200D\'\)\ throws\ error\ B2\ C2\ \[data\/IdnaTest\.txt\:2652\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}ᡐ4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u07CFᡐ4\.\\u200D\'\)\ throws\ error\ B2\ C2\ \[data\/IdnaTest\.txt\:2653\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒗\x{FE02}\x{1B6B}-.𐹧󠑍", %p)}, undef, "to_unicode\(\'⒗\\uFE02\\u1B6B\-\.𐹧\󠑍\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2654\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("16.\x{FE02}\x{1B6B}-.𐹧󠑍", %p)}, undef, "to_unicode\(\'16\.\\uFE02\\u1B6B\-\.𐹧\󠑍\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2655\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。䏛", %p)}, undef, "to_unicode\(\'\-。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2656\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。䏛", %p)}, undef, "to_unicode\(\'\-\。䏛\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:2657\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}烴.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C烴.\\u200D\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2658\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}烴.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C烴.\\u200D\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2659\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}烴.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C烴\.\\u200D\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2660\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}烴.\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C烴\.\\u200D\'\)\ throws\ error\ C1\ C2\ \[data\/IdnaTest\.txt\:2661\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--srx.", %p)}, "烴.", "to_unicode\(\'xn\-\-srx\.\'\)\ \[data\/IdnaTest\.txt\:2662\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("烴.", %p)}, "烴.", "to_unicode\(\'烴\.\'\)\ \[data\/IdnaTest\.txt\:2663\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈₠򝇵。𐹫\x{200D}򃦻Ⴕ", %p)}, undef, "to_unicode\(\'⒈₠򝇵。𐹫\\u200D򃦻Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2664\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈₠򝇵。𐹫\x{200D}򃦻Ⴕ", %p)}, undef, "to_unicode\(\'⒈₠򝇵。𐹫\\u200D򃦻Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2665\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.₠򝇵。𐹫\x{200D}򃦻Ⴕ", %p)}, undef, "to_unicode\(\'1\.₠򝇵\。𐹫\\u200D򃦻Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2666\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.₠򝇵。𐹫\x{200D}򃦻Ⴕ", %p)}, undef, "to_unicode\(\'1\.₠򝇵\。𐹫\\u200D򃦻Ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2667\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.₠򝇵。𐹫\x{200D}򃦻ⴕ", %p)}, undef, "to_unicode\(\'1\.₠򝇵\。𐹫\\u200D򃦻ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2668\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.₠򝇵。𐹫\x{200D}򃦻ⴕ", %p)}, undef, "to_unicode\(\'1\.₠򝇵\。𐹫\\u200D򃦻ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2669\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈₠򝇵。𐹫\x{200D}򃦻ⴕ", %p)}, undef, "to_unicode\(\'⒈₠򝇵。𐹫\\u200D򃦻ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2670\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈₠򝇵。𐹫\x{200D}򃦻ⴕ", %p)}, undef, "to_unicode\(\'⒈₠򝇵。𐹫\\u200D򃦻ⴕ\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2671\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐲘\x{074E}-ß。󠅉効𐹺𥈡", %p)}, undef, "to_unicode\(\'𐲘\\u074E\-ß。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2672\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐲘\x{074E}-ß。󠅉効𐹺𥈡", %p)}, undef, "to_unicode\(\'𐲘\\u074E\-ß\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2673\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐲘\x{074E}-SS。󠅉効𐹺𥈡", %p)}, undef, "to_unicode\(\'𐲘\\u074E\-SS\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2674\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐲘\x{074E}-ss。󠅉効𐹺𥈡", %p)}, undef, "to_unicode\(\'𐲘\\u074E\-ss\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2675\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐲘\x{074E}-Ss。󠅉効𐹺𥈡", %p)}, undef, "to_unicode\(\'𐲘\\u074E\-Ss\。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2676\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐲘\x{074E}-SS。󠅉効𐹺𥈡", %p)}, undef, "to_unicode\(\'𐲘\\u074E\-SS。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2677\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐲘\x{074E}-ss。󠅉効𐹺𥈡", %p)}, undef, "to_unicode\(\'𐲘\\u074E\-ss。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2678\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐲘\x{074E}-Ss。󠅉効𐹺𥈡", %p)}, undef, "to_unicode\(\'𐲘\\u074E\-Ss。\󠅉効𐹺𥈡\'\)\ throws\ error\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:2679\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("𑄳.🐜", %p)}, undef, "to_unicode\(\'𑄳\.🐜\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2680\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󠉙3𞱢。𝟘𑍍𐷥", %p)}, undef, "to_unicode\(\'\󠉙3𞱢。𝟘𑍍𐷥\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2681\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠉙3𞱢。0𑍍𐷥", %p)}, undef, "to_unicode\(\'\󠉙3𞱢\。0𑍍𐷥\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2682\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0679}6\x{A8EE}ᡮ。\x{0592}", %p)}, undef, "to_unicode\(\'\\u06796\\uA8EEᡮ\。\\u0592\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2683\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0679}6\x{A8EE}ᡮ。\x{0592}", %p)}, undef, "to_unicode\(\'\\u06796\\uA8EEᡮ\。\\u0592\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:2684\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐹾-𠥔Ⴂ。򝾣\x{200D}", %p)}, undef, "to_unicode\(\'𐹾\-𠥔Ⴂ\。򝾣\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2685\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹾-𠥔Ⴂ。򝾣\x{200D}", %p)}, undef, "to_unicode\(\'𐹾\-𠥔Ⴂ\。򝾣\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2686\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹾-𠥔ⴂ。򝾣\x{200D}", %p)}, undef, "to_unicode\(\'𐹾\-𠥔ⴂ\。򝾣\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2687\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹾-𠥔ⴂ。򝾣\x{200D}", %p)}, undef, "to_unicode\(\'𐹾\-𠥔ⴂ\。򝾣\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2688\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{06AE}5≯ß", %p)}, undef, "to_unicode\(\'⾆.\\u06AE5\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2689\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{06AE}5>\x{0338}ß", %p)}, undef, "to_unicode\(\'⾆.\\u06AE5\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2690\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{06AE}5≯ß", %p)}, undef, "to_unicode\(\'舌\.\\u06AE5\≯ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2691\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{06AE}5>\x{0338}ß", %p)}, undef, "to_unicode\(\'舌\.\\u06AE5\>\\u0338ß\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2692\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{06AE}5>\x{0338}SS", %p)}, undef, "to_unicode\(\'舌\.\\u06AE5\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2693\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{06AE}5≯SS", %p)}, undef, "to_unicode\(\'舌\.\\u06AE5\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2694\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{06AE}5≯ss", %p)}, undef, "to_unicode\(\'舌\.\\u06AE5\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2695\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{06AE}5>\x{0338}ss", %p)}, undef, "to_unicode\(\'舌\.\\u06AE5\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2696\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{06AE}5>\x{0338}Ss", %p)}, undef, "to_unicode\(\'舌\.\\u06AE5\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2697\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌.\x{06AE}5≯Ss", %p)}, undef, "to_unicode\(\'舌\.\\u06AE5\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2698\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{06AE}5>\x{0338}SS", %p)}, undef, "to_unicode\(\'⾆.\\u06AE5\>\\u0338SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2699\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{06AE}5≯SS", %p)}, undef, "to_unicode\(\'⾆.\\u06AE5\≯SS\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{06AE}5≯ss", %p)}, undef, "to_unicode\(\'⾆.\\u06AE5\≯ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2701\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{06AE}5>\x{0338}ss", %p)}, undef, "to_unicode\(\'⾆.\\u06AE5\>\\u0338ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2702\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{06AE}5>\x{0338}Ss", %p)}, undef, "to_unicode\(\'⾆.\\u06AE5\>\\u0338Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2703\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆.\x{06AE}5≯Ss", %p)}, undef, "to_unicode\(\'⾆.\\u06AE5\≯Ss\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2704\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}8\x{200D}.򉈡ꡂ", %p)}, undef, "to_unicode\(\'\\uA9C08\\u200D.򉈡ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2705\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}8\x{200D}.򉈡ꡂ", %p)}, undef, "to_unicode\(\'\\uA9C08\\u200D.򉈡ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2706\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}8\x{200D}.򉈡ꡂ", %p)}, undef, "to_unicode\(\'\\uA9C08\\u200D\.򉈡ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2707\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}8\x{200D}.򉈡ꡂ", %p)}, undef, "to_unicode\(\'\\uA9C08\\u200D\.򉈡ꡂ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:2708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󡆸\x{1A69}≮񀹄.񁆗⁷\x{0355}𐫎", %p)}, undef, "to_unicode\(\'󡆸\\u1A69\≮񀹄.񁆗⁷\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2709\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󡆸\x{1A69}<\x{0338}񀹄.񁆗⁷\x{0355}𐫎", %p)}, undef, "to_unicode\(\'󡆸\\u1A69\<\\u0338񀹄.񁆗⁷\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2710\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󡆸\x{1A69}≮񀹄.񁆗7\x{0355}𐫎", %p)}, undef, "to_unicode\(\'󡆸\\u1A69\≮񀹄\.񁆗7\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2711\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󡆸\x{1A69}<\x{0338}񀹄.񁆗7\x{0355}𐫎", %p)}, undef, "to_unicode\(\'󡆸\\u1A69\<\\u0338񀹄\.񁆗7\\u0355𐫎\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2712\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2713\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2714\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2715\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2716\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2717\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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\:2718\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2719\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2720\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2721\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。ς", %p)}, undef, "to_unicode\(\'\\u200CႺ\。ς\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2722\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2723\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2724\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2725\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ\。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2726\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2727\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2728\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2729\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2730\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴚ.Σ", %p)}, undef, "to_unicode\(\'Ⴚ\.Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2731\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2732\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2733\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴚ.ς", %p)}, undef, "to_unicode\(\'Ⴚ\.ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2734\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2735\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴚ.σ", %p)}, undef, "to_unicode\(\'Ⴚ\.σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2736\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2737\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2738\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2739\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Ⴚ。Σ", %p)}, undef, "to_unicode\(\'\\u200CႺ。Σ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2740\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:2741\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\: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("ᡆ.𐹹", %p)}, undef, "to_unicode\(\'ᡆ.𐹹\'\)\ throws\ error\ B1\ \[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("ᡆ.𐹹", %p)}, undef, "to_unicode\(\'ᡆ\.𐹹\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2744\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0E38}\x{AAF6}ᠳ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\u0E38\\uAAF6ᠳ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2745\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0E38}\x{AAF6}ᠳ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\u0E38\\uAAF6ᠳ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2746\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{AAF6}\x{0E38}ᠳ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\uAAF6\\u0E38ᠳ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2747\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{AAF6}\x{0E38}ᠳ", %p)}, undef, "to_unicode\(\'\\u200D⾕\。\\u200C\\uAAF6\\u0E38ᠳ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2748\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{AAF6}\x{0E38}ᠳ", %p)}, undef, "to_unicode\(\'\\u200D谷\。\\u200C\\uAAF6\\u0E38ᠳ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2749\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{AAF6}\x{0E38}ᠳ", %p)}, undef, "to_unicode\(\'\\u200D谷\。\\u200C\\uAAF6\\u0E38ᠳ\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:2750\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0683\-뉔.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2751\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0683\-뉔.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2752\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0683\-뉔.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2753\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0683\-뉔.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2754\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0683\-뉔\.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2755\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0683\-뉔\.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2756\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0683\-뉔\.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2757\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0683}-뉔.ꡟ\x{200C}", %p)}, undef, "to_unicode\(\'\\u0683\-뉔\.ꡟ\\u200C\'\)\ throws\ error\ B2\ B3\ C1\ \[data\/IdnaTest\.txt\:2758\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𻠅5ᦛς.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_unicode\(\'𻠅5ᦛς\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2759\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠅5ᦛς.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_unicode\(\'𻠅5ᦛς\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2760\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠅5ᦛΣ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_unicode\(\'𻠅5ᦛΣ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2761\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠅5ᦛσ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_unicode\(\'𻠅5ᦛσ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2762\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠅5ᦛΣ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_unicode\(\'𻠅5ᦛΣ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2763\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𻠅5ᦛσ.\x{1BF3}\x{067D}\x{0AC2}𖬲", %p)}, undef, "to_unicode\(\'𻠅5ᦛσ\.\\u1BF3\\u067D\\u0AC2𖬲\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:2764\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0852}", %p)}, "淽.\x{0852}", "to_unicode\(\'淽\。\\u0852\'\)\ \[data\/IdnaTest\.txt\:2765\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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--34w.xn--hwb", %p)}, "淽.\x{0852}", "to_unicode\(\'xn\-\-34w\.xn\-\-hwb\'\)\ \[data\/IdnaTest\.txt\:2766\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0852}", %p)}, "淽.\x{0852}", "to_unicode\(\'淽\.\\u0852\'\)\ \[data\/IdnaTest\.txt\:2767\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹳\x{05BC}。-", %p)}, undef, "to_unicode\(\'𐹳\\u05BC\。\-\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:2768\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("򟓒Ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_unicode\(\'򟓒Ⴓ\󠒾。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2769\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟓒Ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_unicode\(\'򟓒Ⴓ\󠒾\。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2770\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟓒ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_unicode\(\'򟓒ⴓ\󠒾\。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2771\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟓒ⴓ󠒾。\x{1C2F}", %p)}, undef, "to_unicode\(\'򟓒ⴓ\󠒾。\\u1C2F\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2772\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2773\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2774\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2775\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。ßႣ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ\。ßႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2776\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0668}\x{062E}ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062Eⴇ\。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2777\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0668}\x{062E}ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062Eⴇ\。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2778\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2779\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ\。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2780\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0668}\x{062E}ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062Eⴇ\。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2781\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0668}\x{062E}ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062Eⴇ\。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2782\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2783\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ\。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2784\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0668}\x{062E}ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062Eⴇ。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2785\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0668}\x{062E}ⴇ。ßⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062Eⴇ。ßⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2786\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2787\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。SSႣ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ。SSႣ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2788\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0668}\x{062E}ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062Eⴇ。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2789\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0668}\x{062E}ⴇ。ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062Eⴇ。ssⴃ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:2790\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2791\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{0668}\x{062E}Ⴇ。Ssⴃ", %p)}, undef, "to_unicode\(\'\\u200C\\u0668\\u062EႧ。Ssⴃ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:2792\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󤚠。𞷿", %p)}, undef, "to_unicode\(\'󤚠。𞷿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2793\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󤚠。𞷿", %p)}, undef, "to_unicode\(\'󤚠\。𞷿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2794\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{A953}\x{A8EE}", %p)}, undef, "to_unicode\(\'\󠅤\\u200D。\\uA953\\uA8EE\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2795\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{A953}\x{A8EE}", %p)}, undef, "to_unicode\(\'\󠅤\\u200D。\\uA953\\uA8EE\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2796\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{A953}\x{A8EE}", %p)}, undef, "to_unicode\(\'\󠅤\\u200D\。\\uA953\\uA8EE\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2797\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{A953}\x{A8EE}", %p)}, undef, "to_unicode\(\'\󠅤\\u200D\。\\uA953\\uA8EE\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2798\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-≠\x{0755}.ꡝ\x{084C}≮𿹕", %p)}, undef, "to_unicode\(\'\-\≠\\u0755.ꡝ\\u084C\≮𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2799\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-=\x{0338}\x{0755}.ꡝ\x{084C}<\x{0338}𿹕", %p)}, undef, "to_unicode\(\'\-\=\\u0338\\u0755.ꡝ\\u084C\<\\u0338𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2800\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≠\x{0755}.ꡝ\x{084C}≮𿹕", %p)}, undef, "to_unicode\(\'\-\≠\\u0755\.ꡝ\\u084C\≮𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2801\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-=\x{0338}\x{0755}.ꡝ\x{084C}<\x{0338}𿹕", %p)}, undef, "to_unicode\(\'\-\=\\u0338\\u0755\.ꡝ\\u084C\<\\u0338𿹕\'\)\ throws\ error\ P1\ V3\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:2802\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠃐≯\x{FC69}𞠷.񯫡≮𑖿ꡨ", %p)}, undef, "to_unicode\(\'\󠃐\≯\\uFC69𞠷.񯫡\≮𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2803\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠃐>\x{0338}\x{FC69}𞠷.񯫡<\x{0338}𑖿ꡨ", %p)}, undef, "to_unicode\(\'\󠃐\>\\u0338\\uFC69𞠷.񯫡\<\\u0338𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2804\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠃐≯\x{0626}\x{064A}𞠷.񯫡≮𑖿ꡨ", %p)}, undef, "to_unicode\(\'\󠃐\≯\\u0626\\u064A𞠷\.񯫡\≮𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2805\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠃐>\x{0338}\x{064A}\x{0654}\x{064A}𞠷.񯫡<\x{0338}𑖿ꡨ", %p)}, undef, "to_unicode\(\'\󠃐\>\\u0338\\u064A\\u0654\\u064A𞠷\.񯫡\<\\u0338𑖿ꡨ\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2806\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠񠄐.𐹧𑈵-𞥋", %p)}, undef, "to_unicode\(\'\≠񠄐\.𐹧𑈵\-𞥋\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2807\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}񠄐.𐹧𑈵-𞥋", %p)}, undef, "to_unicode\(\'\=\\u0338񠄐\.𐹧𑈵\-𞥋\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2808\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠆇\x{1CD7}≠。\x{06DD}𐋤", %p)}, undef, "to_unicode\(\'\󠆇\\u1CD7\≠。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2809\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠆇\x{1CD7}=\x{0338}。\x{06DD}𐋤", %p)}, undef, "to_unicode\(\'\󠆇\\u1CD7\=\\u0338。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2810\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠆇\x{1CD7}≠。\x{06DD}𐋤", %p)}, undef, "to_unicode\(\'\󠆇\\u1CD7\≠\。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2811\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠆇\x{1CD7}=\x{0338}。\x{06DD}𐋤", %p)}, undef, "to_unicode\(\'\󠆇\\u1CD7\=\\u0338\。\\u06DD𐋤\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2812\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß򓍟𺖭。\x{07AF}󠢂ß", %p)}, undef, "to_unicode\(\'ß򓍟𺖭。\\u07AF\󠢂ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2813\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß򓍟𺖭。\x{07AF}󠢂ß", %p)}, undef, "to_unicode\(\'ß򓍟𺖭\。\\u07AF\󠢂ß\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2814\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS򓍟𺖭。\x{07AF}󠢂SS", %p)}, undef, "to_unicode\(\'SS򓍟𺖭\。\\u07AF\󠢂SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2815\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss򓍟𺖭。\x{07AF}󠢂ss", %p)}, undef, "to_unicode\(\'ss򓍟𺖭\。\\u07AF\󠢂ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2816\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss򓍟𺖭。\x{07AF}󠢂Ss", %p)}, undef, "to_unicode\(\'Ss򓍟𺖭\。\\u07AF\󠢂Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2817\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS򓍟𺖭。\x{07AF}󠢂SS", %p)}, undef, "to_unicode\(\'SS򓍟𺖭。\\u07AF\󠢂SS\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2818\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss򓍟𺖭。\x{07AF}󠢂ss", %p)}, undef, "to_unicode\(\'ss򓍟𺖭。\\u07AF\󠢂ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2819\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss򓍟𺖭。\x{07AF}󠢂Ss", %p)}, undef, "to_unicode\(\'Ss򓍟𺖭。\\u07AF\󠢂Ss\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2820\]") 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\:2821\]") 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\:2822\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1713}𐱍\x{200D}.𝩔𞡿񴥼", %p)}, undef, "to_unicode\(\'\\u1713𐱍\\u200D\.𝩔𞡿񴥼\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2823\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1713}𐱍\x{200D}.𝩔𞡿񴥼", %p)}, undef, "to_unicode\(\'\\u1713𐱍\\u200D\.𝩔𞡿񴥼\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2824\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FE98}\x{200C}临。ᢗ򁣒ⶏ\x{066B}", %p)}, undef, "to_unicode\(\'\\u200C\\uFE98\\u200C临\。ᢗ򁣒ⶏ\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2825\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FE98}\x{200C}临。ᢗ򁣒ⶏ\x{066B}", %p)}, undef, "to_unicode\(\'\\u200C\\uFE98\\u200C临\。ᢗ򁣒ⶏ\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2826\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062A}\x{200C}临。ᢗ򁣒ⶏ\x{066B}", %p)}, undef, "to_unicode\(\'\\u200C\\u062A\\u200C临\。ᢗ򁣒ⶏ\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2827\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{062A}\x{200C}临。ᢗ򁣒ⶏ\x{066B}", %p)}, undef, "to_unicode\(\'\\u200C\\u062A\\u200C临\。ᢗ򁣒ⶏ\\u066B\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:2828\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠿴.\x{0363}", %p)}, undef, "to_unicode\(\'\󠿴.\\u0363\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2829\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠿴.\x{0363}", %p)}, undef, "to_unicode\(\'\󠿴\.\\u0363\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2830\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{07EA}𑘿.𑍍", %p)}, undef, "to_unicode\(\'\\u07EA𑘿.𑍍\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2831\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{07EA}𑘿.𑍍", %p)}, undef, "to_unicode\(\'\\u07EA𑘿\.𑍍\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:2832\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𑖼򬆟멹。⒛⧪", %p)}, undef, "to_unicode\(\'𑖼򬆟멹\。⒛\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2833\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑖼򬆟멹。⒛⧪", %p)}, undef, "to_unicode\(\'𑖼򬆟멹\。⒛\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2834\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑖼򬆟멹。20.⧪", %p)}, undef, "to_unicode\(\'𑖼򬆟멹\。20\.\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2835\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑖼򬆟멹。20.⧪", %p)}, undef, "to_unicode\(\'𑖼򬆟멹\。20\.\⧪\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:2836\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_unicode\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2837\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_unicode\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2838\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_unicode\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2839\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_unicode\(\'Ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2840\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_unicode\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2841\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴅ󙐭릖⊨.\x{0645}𐹫3.", %p)}, undef, "to_unicode\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫3\.\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2842\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_unicode\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2843\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴅ󙐭릖⊨.\x{0645}𐹫⒊", %p)}, undef, "to_unicode\(\'ⴅ󙐭릖\⊨\.\\u0645𐹫⒊\'\)\ throws\ error\ P1\ V6\ B4\ \[data\/IdnaTest\.txt\:2844\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。︒", %p)}, undef, "to_unicode\(\'\\u200C。︒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2845\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。︒", %p)}, undef, "to_unicode\(\'\\u200C。︒\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2846\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。。", %p)}, undef, "to_unicode\(\'\\u200C\。\。\'\)\ throws\ error\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2847\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}。。", %p)}, undef, "to_unicode\(\'\\u200C\。\。\'\)\ throws\ error\ C1\ A4_2\ \[data\/IdnaTest\.txt\:2848\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{075F}.₄", %p)}, undef, "to_unicode\(\'\≯\\u075F.₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2849\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{075F}.₄", %p)}, undef, "to_unicode\(\'\>\\u0338\\u075F.₄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2850\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{075F}.4", %p)}, undef, "to_unicode\(\'\≯\\u075F\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2851\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{075F}.4", %p)}, undef, "to_unicode\(\'\>\\u0338\\u075F\.4\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2852\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-𝟹.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-𝟹\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2853\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-𝟹.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-𝟹\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2854\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-3.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-3\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2855\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-3.ß-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-3\.ß\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2856\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-3.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-3\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2857\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-3.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-3\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2858\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-3.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-3\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2859\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-3.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-3\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2860\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-3.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-3\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2861\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-3.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-3\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2862\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-𝟹.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-𝟹\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2863\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-𝟹.SS-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-𝟹\.SS\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2864\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-𝟹.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-𝟹\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2865\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-𝟹.ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-𝟹\.ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2866\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-𝟹.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-𝟹\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2867\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ-𝟹.Ss-\x{200C}-", %p)}, undef, "to_unicode\(\'ᡘ\-𝟹\.Ss\-\\u200C\-\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:2868\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐰠𝟦\x{0626}󎅯。Ӏ", %p)}, undef, "to_unicode\(\'𐰠𝟦\\u0626󎅯。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2869\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐰠𝟦\x{064A}\x{0654}󎅯。Ӏ", %p)}, undef, "to_unicode\(\'𐰠𝟦\\u064A\\u0654󎅯。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2870\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐰠4\x{0626}󎅯。Ӏ", %p)}, undef, "to_unicode\(\'𐰠4\\u0626󎅯\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2871\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐰠4\x{064A}\x{0654}󎅯。Ӏ", %p)}, undef, "to_unicode\(\'𐰠4\\u064A\\u0654󎅯\。Ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2872\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐰠4\x{064A}\x{0654}󎅯。ӏ", %p)}, undef, "to_unicode\(\'𐰠4\\u064A\\u0654󎅯\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2873\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐰠4\x{0626}󎅯。ӏ", %p)}, undef, "to_unicode\(\'𐰠4\\u0626󎅯\。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2874\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐰠𝟦\x{064A}\x{0654}󎅯。ӏ", %p)}, undef, "to_unicode\(\'𐰠𝟦\\u064A\\u0654󎅯。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2875\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐰠𝟦\x{0626}󎅯。ӏ", %p)}, undef, "to_unicode\(\'𐰠𝟦\\u0626󎅯。ӏ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2876\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.𐹪𞦭\x{0F91}󠥢", %p)}, undef, "to_unicode\(\'\-\.𐹪𞦭\\u0F91\󠥢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:2877\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򷈞ᢕ。󠀬󠢬", %p)}, undef, "to_unicode\(\'򷈞ᢕ\。\󠀬\󠢬\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2878\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\≠ႷꡩႫ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2879\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ႷꡩႫ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2880\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\≠ႷꡩႫ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2881\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ႷꡩႫ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ႷꡩႫ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2882\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2883\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\≠ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2884\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\≠Ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2885\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\=\\u0338Ⴗꡩⴋ\。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2886\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\=\\u0338ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2887\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\≠ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2888\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\≠Ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2889\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}Ⴗꡩⴋ。\x{D907}󠀢\x{0671}觴", %p)}, undef, "to_unicode\(\'\=\\u0338Ⴗꡩⴋ。\\uD907\󠀢\\u0671觴\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:2890\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹶.\x{FD12}", %p)}, undef, "to_unicode\(\'𐹶\.\\uFD12\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2891\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹶.\x{0637}\x{064A}", %p)}, undef, "to_unicode\(\'𐹶\.\\u0637\\u064A\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:2892\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1714}𝟯。\x{200D}񹒧𐹡\x{A953}", %p)}, undef, "to_unicode\(\'\\u1714𝟯。\\u200D񹒧𐹡\\uA953\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2893\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1714}𝟯。\x{200D}񹒧𐹡\x{A953}", %p)}, undef, "to_unicode\(\'\\u1714𝟯。\\u200D񹒧𐹡\\uA953\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2894\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1714}3。\x{200D}񹒧𐹡\x{A953}", %p)}, undef, "to_unicode\(\'\\u17143\。\\u200D񹒧𐹡\\uA953\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2895\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1714}3。\x{200D}񹒧𐹡\x{A953}", %p)}, undef, "to_unicode\(\'\\u17143\。\\u200D񹒧𐹡\\uA953\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:2896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򷠯4𱂩.≯𐹡\x{1932}󠇶", %p)}, undef, "to_unicode\(\'򷠯4𱂩\.\≯𐹡\\u1932\󠇶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2897\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򷠯4𱂩.>\x{0338}𐹡\x{1932}󠇶", %p)}, undef, "to_unicode\(\'򷠯4𱂩\.\>\\u0338𐹡\\u1932\󠇶\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2898\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񵲚𝟯。⒈\x{A94A}𝟚񰩭", %p)}, undef, "to_unicode\(\'񵲚𝟯\。⒈\\uA94A𝟚񰩭\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2899\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񵲚3。1.\x{A94A}2񰩭", %p)}, undef, "to_unicode\(\'񵲚3\。1\.\\uA94A2񰩭\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:2900\]") 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\:2901\]") 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\:2902\]") 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\:2903\]") 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\:2904\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}51.。≯8\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D51\.\。\≯8\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2905\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}51.。≯8\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D51\.\。\≯8\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2906\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}51.。>\x{0338}8\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D51\.\。\>\\u03388\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2907\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}51.。>\x{0338}8\x{200D}", %p)}, undef, "to_unicode\(\'\\u200D51\.\。\>\\u03388\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ A4_2\ \[data\/IdnaTest\.txt\:2908\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}𐮍\x{1B37}.𳵷ᠺ≠\x{200C}", %p)}, undef, "to_unicode\(\'\\u06BE𐮍\\u1B37.𳵷ᠺ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2909\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}𐮍\x{1B37}.𳵷ᠺ≠\x{200C}", %p)}, undef, "to_unicode\(\'\\u06BE𐮍\\u1B37.𳵷ᠺ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2910\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}𐮍\x{1B37}.𳵷ᠺ=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06BE𐮍\\u1B37.𳵷ᠺ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}𐮍\x{1B37}.𳵷ᠺ=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06BE𐮍\\u1B37.𳵷ᠺ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2912\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}𐮍\x{1B37}.𳵷ᠺ≠\x{200C}", %p)}, undef, "to_unicode\(\'\\u06BE𐮍\\u1B37\.𳵷ᠺ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2913\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}𐮍\x{1B37}.𳵷ᠺ≠\x{200C}", %p)}, undef, "to_unicode\(\'\\u06BE𐮍\\u1B37\.𳵷ᠺ\≠\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2914\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}𐮍\x{1B37}.𳵷ᠺ=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06BE𐮍\\u1B37\.𳵷ᠺ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2915\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06BE}𐮍\x{1B37}.𳵷ᠺ=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\\u06BE𐮍\\u1B37\.𳵷ᠺ\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2916\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{073F}。𺘼𐹪", %p)}, undef, "to_unicode\(\'\\u073F。𺘼𐹪\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2917\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{073F}。𺘼𐹪", %p)}, undef, "to_unicode\(\'\\u073F\。𺘼𐹪\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[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{0669}。\x{AAB3}", %p)}, undef, "to_unicode\(\'𝟥\\u0669\。\\uAAB3\'\)\ throws\ error\ V5\ B1\ \[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("3\x{0669}。\x{AAB3}", %p)}, undef, "to_unicode\(\'3\\u0669\。\\uAAB3\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2920\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ᢖ\x{066B}𐹸.\x{063E}긷", %p)}, undef, "to_unicode\(\'ᢖ\\u066B𐹸\.\\u063E긷\'\)\ throws\ error\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:2921\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ᢖ\x{066B}𐹸.\x{063E}긷", %p)}, undef, "to_unicode\(\'ᢖ\\u066B𐹸\.\\u063E긷\'\)\ throws\ error\ B5\ B6\ B2\ B3\ \[data\/IdnaTest\.txt\:2922\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("︒Ↄ\x{1DC7}򍐳.Ⴗ𞢍", %p)}, undef, "to_unicode\(\'︒Ↄ\\u1DC7򍐳.Ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2923\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。Ↄ\x{1DC7}򍐳.Ⴗ𞢍", %p)}, undef, "to_unicode\(\'\。Ↄ\\u1DC7򍐳\.Ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。ↄ\x{1DC7}򍐳.ⴗ𞢍", %p)}, undef, "to_unicode\(\'\。ↄ\\u1DC7򍐳\.ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒ↄ\x{1DC7}򍐳.ⴗ𞢍", %p)}, undef, "to_unicode\(\'︒ↄ\\u1DC7򍐳.ⴗ𞢍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:2926\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐹵.\x{1AB2}", %p)}, undef, "to_unicode\(\'𐹵\.\\u1AB2\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:2927\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ς≯。\x{06DD}", %p)}, undef, "to_unicode\(\'ς\≯。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς>\x{0338}。\x{06DD}", %p)}, undef, "to_unicode\(\'ς\>\\u0338。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2929\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς≯。\x{06DD}", %p)}, undef, "to_unicode\(\'ς\≯\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2930\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς>\x{0338}。\x{06DD}", %p)}, undef, "to_unicode\(\'ς\>\\u0338\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ>\x{0338}。\x{06DD}", %p)}, undef, "to_unicode\(\'Σ\>\\u0338\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ≯。\x{06DD}", %p)}, undef, "to_unicode\(\'Σ\≯\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ≯。\x{06DD}", %p)}, undef, "to_unicode\(\'σ\≯\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ>\x{0338}。\x{06DD}", %p)}, undef, "to_unicode\(\'σ\>\\u0338\。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2935\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ>\x{0338}。\x{06DD}", %p)}, undef, "to_unicode\(\'Σ\>\\u0338。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2936\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ≯。\x{06DD}", %p)}, undef, "to_unicode\(\'Σ\≯。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ≯。\x{06DD}", %p)}, undef, "to_unicode\(\'σ\≯。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ>\x{0338}。\x{06DD}", %p)}, undef, "to_unicode\(\'σ\>\\u0338。\\u06DD\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{103A}\x{200D}\x{064A}。\x{0600}", %p)}, undef, "to_unicode\(\'\\u103A\\u200D\\u064A\。\\u0600\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􅭎\x{0A42}Ⴊ򼸑.≮", %p)}, undef, "to_unicode\(\'􅭎\\u0A42Ⴊ򼸑\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􅭎\x{0A42}Ⴊ򼸑.<\x{0338}", %p)}, undef, "to_unicode\(\'􅭎\\u0A42Ⴊ򼸑\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􅭎\x{0A42}ⴊ򼸑.<\x{0338}", %p)}, undef, "to_unicode\(\'􅭎\\u0A42ⴊ򼸑\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2943\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􅭎\x{0A42}ⴊ򼸑.≮", %p)}, undef, "to_unicode\(\'􅭎\\u0A42ⴊ򼸑\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2944\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072B}.۲", %p)}, "\x{072B}.۲", "to_unicode\(\'\\u072B.۲\'\)\ \[data\/IdnaTest\.txt\:2945\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072B}.۲", %p)}, "\x{072B}.۲", "to_unicode\(\'\\u072B\.۲\'\)\ \[data\/IdnaTest\.txt\:2946\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--1nb.xn--fmb", %p)}, "\x{072B}.۲", "to_unicode\(\'xn\-\-1nb\.xn\-\-fmb\'\)\ \[data\/IdnaTest\.txt\:2947\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹩𾤨。ᢕ🄄", %p)}, undef, "to_unicode\(\'𐹩𾤨。ᢕ🄄\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2948\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹩𾤨。ᢕ3,", %p)}, undef, "to_unicode\(\'𐹩𾤨\。ᢕ3\,\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:2949\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{200D}\x{A953}", %p)}, undef, "to_unicode\(\'\-\\uA953𐡃\󠇀。\\u200D\\uA953\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2950\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{200D}\x{A953}", %p)}, undef, "to_unicode\(\'\-\\uA953𐡃\󠇀。\\u200D\\uA953\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2951\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{200D}\x{A953}", %p)}, undef, "to_unicode\(\'\-\\uA953𐡃\󠇀\。\\u200D\\uA953\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2952\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{200D}\x{A953}", %p)}, undef, "to_unicode\(\'\-\\uA953𐡃\󠇀\。\\u200D\\uA953\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:2953\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𑄰\x{200C}𒻝🄆。\x{200C}\x{09CD}󠄟", %p)}, undef, "to_unicode\(\'𑄰\\u200C𒻝🄆。\\u200C\\u09CD\󠄟\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2954\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑄰\x{200C}𒻝🄆。\x{200C}\x{09CD}󠄟", %p)}, undef, "to_unicode\(\'𑄰\\u200C𒻝🄆。\\u200C\\u09CD\󠄟\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2955\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑄰\x{200C}𒻝5,。\x{200C}\x{09CD}󠄟", %p)}, undef, "to_unicode\(\'𑄰\\u200C𒻝5\,\。\\u200C\\u09CD\󠄟\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2956\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑄰\x{200C}𒻝5,。\x{200C}\x{09CD}󠄟", %p)}, undef, "to_unicode\(\'𑄰\\u200C𒻝5\,\。\\u200C\\u09CD\󠄟\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:2957\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("兎。\x{07E0}󠵲𑇀\x{ABED}", %p)}, undef, "to_unicode\(\'兎。\\u07E0\󠵲𑇀\\uABED\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2958\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("兎。\x{07E0}󠵲𑇀\x{ABED}", %p)}, undef, "to_unicode\(\'兎\。\\u07E0\󠵲𑇀\\uABED\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:2959\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟙。\x{200D}𝟸\x{200D}⁷", %p)}, undef, "to_unicode\(\'𝟙。\\u200D𝟸\\u200D⁷\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2960\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟙。\x{200D}𝟸\x{200D}⁷", %p)}, undef, "to_unicode\(\'𝟙。\\u200D𝟸\\u200D⁷\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2961\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1。\x{200D}2\x{200D}7", %p)}, undef, "to_unicode\(\'1\。\\u200D2\\u200D7\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2962\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1。\x{200D}2\x{200D}7", %p)}, undef, "to_unicode\(\'1\。\\u200D2\\u200D7\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:2963\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.27", %p)}, "1.27", "to_unicode\(\'1\.27\'\)\ \[data\/IdnaTest\.txt\:2964\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮮-。,𝟷", %p)}, undef, "to_unicode\(\'𐮮\-。\,𝟷\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2965\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮮-。,1", %p)}, undef, "to_unicode\(\'𐮮\-\。\,1\'\)\ throws\ error\ P1\ V3\ V6\ B3\ \[data\/IdnaTest\.txt\:2966\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{20EA}񋹂𞴌.𐹬⁹", %p)}, undef, "to_unicode\(\'\\u20EA񋹂𞴌.𐹬⁹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2967\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{20EA}񋹂𞴌.𐹬9", %p)}, undef, "to_unicode\(\'\\u20EA񋹂𞴌\.𐹬9\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:2968\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ񹃏\x{1DD8}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ񹃏\\u1DD8⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2969\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ񹃏\x{1DD8}⾇。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ񹃏\\u1DD8⾇\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2970\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ񹃏\x{1DD8}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ񹃏\\u1DD8舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2971\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴜ񹃏\x{1DD8}舛。Ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'Ⴜ񹃏\\u1DD8舛\。Ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2972\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴜ񹃏\x{1DD8}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ񹃏\\u1DD8舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2973\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴜ񹃏\x{1DD8}舛。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ񹃏\\u1DD8舛\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2974\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴜ񹃏\x{1DD8}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ񹃏\\u1DD8⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2975\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴜ񹃏\x{1DD8}⾇。ⴏ♀\x{200C}\x{200C}", %p)}, undef, "to_unicode\(\'ⴜ񹃏\\u1DD8⾇\。ⴏ\♀\\u200C\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:2976\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}𝟰.\x{200D}", %p)}, undef, "to_unicode\(\'\\u1734𝟰\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2977\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}𝟰.\x{200D}", %p)}, undef, "to_unicode\(\'\\u1734𝟰\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2978\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u17344\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2979\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1734}4.\x{200D}", %p)}, undef, "to_unicode\(\'\\u17344\.\\u200D\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:2980\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛Ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2981\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛Ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2982\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛Ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛Ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2984\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛Ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2985\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛Ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2986\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛Ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2987\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛Ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛Ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2988\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2989\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2990\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2991\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛ⴞ癀\。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2992\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2993\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2994\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2995\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񝪛ⴞ癀。\x{0ACD}\x{200D}\x{200C}붼", %p)}, undef, "to_unicode\(\'񝪛ⴞ癀。\\u0ACD\\u200D\\u200C붼\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:2996\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󙧵-𑜫。ᠽ", %p)}, undef, "to_unicode\(\'󙧵\-𑜫\。ᠽ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2997\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡕ𝟧≯ꡊ.氁𻖋ꁫ", %p)}, undef, "to_unicode\(\'ꡕ𝟧\≯ꡊ.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2998\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡕ𝟧>\x{0338}ꡊ.氁𻖋ꁫ", %p)}, undef, "to_unicode\(\'ꡕ𝟧\>\\u0338ꡊ.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:2999\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡕ5≯ꡊ.氁𻖋ꁫ", %p)}, undef, "to_unicode\(\'ꡕ5\≯ꡊ\.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3000\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡕ5>\x{0338}ꡊ.氁𻖋ꁫ", %p)}, undef, "to_unicode\(\'ꡕ5\>\\u0338ꡊ\.氁𻖋ꁫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3001\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0660}\x{0650}.\x{05A9}", %p)}, undef, "to_unicode\(\'\\u0660\\u0650.\\u05A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3002\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0660}\x{0650}.\x{05A9}", %p)}, undef, "to_unicode\(\'\\u0660\\u0650\.\\u05A9\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:3003\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𝨱⒏.⒎𶇻󠠁", %p)}, undef, "to_unicode\(\'\-𝨱⒏.⒎𶇻\󠠁\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3004\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𝨱8..7.𶇻󠠁", %p)}, undef, "to_unicode\(\'\-𝨱8\.\.7\.𶇻\󠠁\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3005\]") 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\:3006\]") 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\:3007\]") 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\:3008\]") 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\:3009\]") 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\:3010\]") 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\:3011\]") 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\:3012\]") 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\:3013\]") 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\:3014\]") 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\:3015\]") 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\:3016\]") 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\:3017\]") 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\:3018\]") 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\:3019\]") 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\:3020\]") 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\:3021\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{0660}≯󧓻\x{200D}", %p)}, undef, "to_unicode\(\'歷。\\u0660\≯󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3022\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{0660}≯󧓻\x{200D}", %p)}, undef, "to_unicode\(\'歷。\\u0660\≯󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3023\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{0660}>\x{0338}󧓻\x{200D}", %p)}, undef, "to_unicode\(\'歷。\\u0660\>\\u0338󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3024\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{0660}>\x{0338}󧓻\x{200D}", %p)}, undef, "to_unicode\(\'歷。\\u0660\>\\u0338󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3025\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{0660}≯󧓻\x{200D}", %p)}, undef, "to_unicode\(\'歷\。\\u0660\≯󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3026\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{0660}≯󧓻\x{200D}", %p)}, undef, "to_unicode\(\'歷\。\\u0660\≯󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3027\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{0660}>\x{0338}󧓻\x{200D}", %p)}, undef, "to_unicode\(\'歷\。\\u0660\>\\u0338󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3028\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("歷。\x{0660}>\x{0338}󧓻\x{200D}", %p)}, undef, "to_unicode\(\'歷\。\\u0660\>\\u0338󧓻\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3029\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}\x{200D}.󱉀󠛓", %p)}, undef, "to_unicode\(\'\\u0732\\u200D.󱉀\󠛓\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3030\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}\x{200D}.󱉀󠛓", %p)}, undef, "to_unicode\(\'\\u0732\\u200D.󱉀\󠛓\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3031\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}\x{200D}.󱉀󠛓", %p)}, undef, "to_unicode\(\'\\u0732\\u200D\.󱉀\󠛓\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3032\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0732}\x{200D}.󱉀󠛓", %p)}, undef, "to_unicode\(\'\\u0732\\u200D\.󱉀\󠛓\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3033\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}ꡎ。񔟅𐽯", %p)}, undef, "to_unicode\(\'\\u200D\\u200Cꡎ。񔟅𐽯\'\)\ throws\ error\ P1\ V6\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3034\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}ꡎ。񔟅𐽯", %p)}, undef, "to_unicode\(\'\\u200D\\u200Cꡎ。񔟅𐽯\'\)\ throws\ error\ P1\ V6\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3035\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}ꡎ。񔟅𐽯", %p)}, undef, "to_unicode\(\'\\u200D\\u200Cꡎ\。񔟅𐽯\'\)\ throws\ error\ P1\ V6\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3036\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}ꡎ。񔟅𐽯", %p)}, undef, "to_unicode\(\'\\u200D\\u200Cꡎ\。񔟅𐽯\'\)\ throws\ error\ P1\ V6\ C2\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3037\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}≠𝟫-.ς⒍\x{0600}≠", %p)}, undef, "to_unicode\(\'\\u0693\≠𝟫\-\.ς⒍\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3038\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}=\x{0338}𝟫-.ς⒍\x{0600}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0693\=\\u0338𝟫\-\.ς⒍\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3039\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}≠9-.ς6.\x{0600}≠", %p)}, undef, "to_unicode\(\'\\u0693\≠9\-\.ς6\.\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3040\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}=\x{0338}9-.ς6.\x{0600}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0693\=\\u03389\-\.ς6\.\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3041\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}=\x{0338}9-.Σ6.\x{0600}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0693\=\\u03389\-\.Σ6\.\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}≠9-.Σ6.\x{0600}≠", %p)}, undef, "to_unicode\(\'\\u0693\≠9\-\.Σ6\.\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3043\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}≠9-.σ6.\x{0600}≠", %p)}, undef, "to_unicode\(\'\\u0693\≠9\-\.σ6\.\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3044\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}=\x{0338}9-.σ6.\x{0600}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0693\=\\u03389\-\.σ6\.\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3045\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}=\x{0338}𝟫-.Σ⒍\x{0600}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0693\=\\u0338𝟫\-\.Σ⒍\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3046\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}≠𝟫-.Σ⒍\x{0600}≠", %p)}, undef, "to_unicode\(\'\\u0693\≠𝟫\-\.Σ⒍\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3047\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}≠𝟫-.σ⒍\x{0600}≠", %p)}, undef, "to_unicode\(\'\\u0693\≠𝟫\-\.σ⒍\\u0600\≠\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3048\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0693}=\x{0338}𝟫-.σ⒍\x{0600}=\x{0338}", %p)}, undef, "to_unicode\(\'\\u0693\=\\u0338𝟫\-\.σ⒍\\u0600\=\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3049\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񵥬.-\x{0682}\x{1CD1}\x{1B39}", %p)}, undef, "to_unicode\(\'񵥬\.\-\\u0682\\u1CD1\\u1B39\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3050\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢌ⒈ß\x{0A4D}。񑜉-", %p)}, undef, "to_unicode\(\'ᢌ⒈ß\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3051\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢌ1.ß\x{0A4D}。񑜉-", %p)}, undef, "to_unicode\(\'ᢌ1\.ß\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3052\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢌ1.SS\x{0A4D}。񑜉-", %p)}, undef, "to_unicode\(\'ᢌ1\.SS\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3053\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢌ1.ss\x{0A4D}。񑜉-", %p)}, undef, "to_unicode\(\'ᢌ1\.ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3054\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢌ1.Ss\x{0A4D}。񑜉-", %p)}, undef, "to_unicode\(\'ᢌ1\.Ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3055\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢌ⒈SS\x{0A4D}。񑜉-", %p)}, undef, "to_unicode\(\'ᢌ⒈SS\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3056\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢌ⒈ss\x{0A4D}。񑜉-", %p)}, undef, "to_unicode\(\'ᢌ⒈ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3057\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢌ⒈Ss\x{0A4D}。񑜉-", %p)}, undef, "to_unicode\(\'ᢌ⒈Ss\\u0A4D\。񑜉\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3058\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3059\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3060\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3061\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ςႦ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDςႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3062\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3063\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3064\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3065\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3066\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3067\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3068\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3069\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍\.\\u0ACDΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3071\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ςⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDςⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3072\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3073\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}ΣႦ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDΣႦ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3074\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3075\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDσⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3076\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3077\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𚑍.\x{0ACD}Σⴆ\x{200D}", %p)}, undef, "to_unicode\(\'𚑍.\\u0ACDΣⴆ\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C2\ \[data\/IdnaTest\.txt\:3078\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾆𐹬.󠻍", %p)}, undef, "to_unicode\(\'⾆𐹬\.\󠻍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3079\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("舌𐹬.󠻍", %p)}, undef, "to_unicode\(\'舌𐹬\.\󠻍\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3080\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠘿𐹭𝩛。⦣⒈", %p)}, undef, "to_unicode\(\'\󠘿𐹭𝩛\。\⦣⒈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3081\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠘿𐹭𝩛。⦣1.", %p)}, undef, "to_unicode\(\'\󠘿𐹭𝩛\。\⦣1\.\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3082\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{200C}\x{0348}︒.\x{094D}", %p)}, undef, "to_unicode\(\'⒈\\u200C\\u0348︒.\\u094D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3083\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{200C}\x{0348}︒.\x{094D}", %p)}, undef, "to_unicode\(\'⒈\\u200C\\u0348︒.\\u094D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3084\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{200C}\x{0348}。.\x{094D}", %p)}, undef, "to_unicode\(\'1\.\\u200C\\u0348\。\.\\u094D\'\)\ throws\ error\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3085\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{200C}\x{0348}。.\x{094D}", %p)}, undef, "to_unicode\(\'1\.\\u200C\\u0348\。\.\\u094D\'\)\ throws\ error\ V5\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3086\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0823}。䰀\x{06DD}𐶡\x{A980}", %p)}, undef, "to_unicode\(\'\\u0823\。䰀\\u06DD𐶡\\uA980\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3087\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200D}.𑚶𯞬", %p)}, undef, "to_unicode\(\'ß\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3088\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200D}.𑚶𯞬", %p)}, undef, "to_unicode\(\'ß\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3089\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200D}.𑚶𯞬", %p)}, undef, "to_unicode\(\'SS\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3090\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200D}.𑚶𯞬", %p)}, undef, "to_unicode\(\'SS\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3091\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}.𑚶𯞬", %p)}, undef, "to_unicode\(\'ss\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3092\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}.𑚶𯞬", %p)}, undef, "to_unicode\(\'ss\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3093\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}.𑚶𯞬", %p)}, undef, "to_unicode\(\'Ss\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3094\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}.𑚶𯞬", %p)}, undef, "to_unicode\(\'Ss\\u200D\.𑚶𯞬\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:3095\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{200C}≮.≮", %p)}, undef, "to_unicode\(\'\\u0CCD\\u200C\≮\.\≮\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3096\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CCD}\x{200C}<\x{0338}.<\x{0338}", %p)}, undef, "to_unicode\(\'\\u0CCD\\u200C\<\\u0338\.\<\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3097\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A69F}.\x{FFA0}", %p)}, undef, "to_unicode\(\'\\uA69F.\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3098\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A69F}.\x{1160}", %p)}, undef, "to_unicode\(\'\\uA69F\.\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3099\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡯ𞱺。𰞔", %p)}, undef, "to_unicode\(\'ꡯ𞱺\。𰞔\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3100\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("爕򾉋.𝟰気", %p)}, undef, "to_unicode\(\'爕򾉋.𝟰気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3101\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("爕򾉋.4気", %p)}, undef, "to_unicode\(\'爕򾉋\.4気\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3102\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒋𑚶Ⴝ-.\x{FD67}\x{1B44}󠄕", %p)}, undef, "to_unicode\(\'⒋𑚶Ⴝ\-.\\uFD67\\u1B44\󠄕\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3103\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4.𑚶Ⴝ-.\x{0634}\x{062D}\x{0645}\x{1B44}󠄕", %p)}, undef, "to_unicode\(\'4\.𑚶Ⴝ\-\.\\u0634\\u062D\\u0645\\u1B44\󠄕\'\)\ throws\ error\ P1\ V3\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3104\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0634}\x{062D}\x{0645}\x{1B44}󠄕", %p)}, undef, "to_unicode\(\'4\.𑚶ⴝ\-\.\\u0634\\u062D\\u0645\\u1B44\󠄕\'\)\ throws\ error\ V3\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:3105\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⒋𑚶ⴝ-.\x{FD67}\x{1B44}󠄕", %p)}, undef, "to_unicode\(\'⒋𑚶ⴝ\-.\\uFD67\\u1B44\󠄕\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3106\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򊼓。񎊯󘙦--", %p)}, undef, "to_unicode\(\'򊼓\。񎊯󘙦\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:3107\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}𐨿", %p)}, undef, "to_unicode\(\'\\u200Dᡲ。\\u200C𐨿\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3108\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}𐨿", %p)}, undef, "to_unicode\(\'\\u200Dᡲ。\\u200C𐨿\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3109\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}𐨿", %p)}, undef, "to_unicode\(\'\\u200Dᡲ\。\\u200C𐨿\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3110\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{200C}𐨿", %p)}, undef, "to_unicode\(\'\\u200Dᡲ\。\\u200C𐨿\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3111\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐴟𐿖\x{07D2}。\x{0842}񡖿ᡨ", %p)}, undef, "to_unicode\(\'𐴟𐿖\\u07D2。\\u0842񡖿ᡨ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3112\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐴟𐿖\x{07D2}。\x{0842}񡖿ᡨ", %p)}, undef, "to_unicode\(\'𐴟𐿖\\u07D2\。\\u0842񡖿ᡨ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3113\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F8E}𐬓􎖤\x{1BAB}.\x{071D}\x{0630}", %p)}, undef, "to_unicode\(\'\\u0F8E𐬓􎖤\\u1BAB\.\\u071D\\u0630\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3114\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3115\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3116\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3117\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。ς\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。ς\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3118\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3119\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3120\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3121\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3122\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3123\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3124\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3125\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3126\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3127\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ\。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3128\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3129\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}Σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。Σ\\u069CΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3130\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3131\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。σ\x{069C}σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3132\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3133\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}σ", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3134\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3135\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。Σ\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。Σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3136\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3137\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򟘰킃󠁎ᠪ。σ\x{069C}ς", %p)}, undef, "to_unicode\(\'򟘰킃\󠁎ᠪ。σ\\u069Cς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3138\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("蔰。󠄣\x{031A}-\x{0B4D}", %p)}, undef, "to_unicode\(\'蔰\。\󠄣\\u031A\-\\u0B4D\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3139\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ςჅ。ꡫ", %p)}, undef, "to_unicode\(\'ςჅ\。ꡫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3140\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:3141\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:3142\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ΣჅ。ꡫ", %p)}, undef, "to_unicode\(\'ΣჅ\。ꡫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3143\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:3144\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:3145\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--4xa203s.xn--hd9a", %p)}, "σⴥ.ꡫ", "to_unicode\(\'xn\-\-4xa203s\.xn\-\-hd9a\'\)\ \[data\/IdnaTest\.txt\:3146\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:3147\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ΣჅ.ꡫ", %p)}, undef, "to_unicode\(\'ΣჅ\.ꡫ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3148\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:3149\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--3xa403s.xn--hd9a", %p)}, "ςⴥ.ꡫ", "to_unicode\(\'xn\-\-3xa403s\.xn\-\-hd9a\'\)\ \[data\/IdnaTest\.txt\:3150\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:3151\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:3152\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0A4D}Ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_unicode\(\'\\u0A4DႩ𐯩.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3153\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A4D}Ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_unicode\(\'\\u0A4DႩ𐯩\.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3154\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A4D}ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_unicode\(\'\\u0A4Dⴉ𐯩\.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3155\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A4D}ⴉ𐯩.\x{1DF4}", %p)}, undef, "to_unicode\(\'\\u0A4Dⴉ𐯩.\\u1DF4\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3156\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("💧≮񰐇\x{0AC2}。𞦞", %p)}, undef, "to_unicode\(\'💧\≮񰐇\\u0AC2\。𞦞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3157\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("💧<\x{0338}񰐇\x{0AC2}。𞦞", %p)}, undef, "to_unicode\(\'💧\<\\u0338񰐇\\u0AC2\。𞦞\'\)\ throws\ error\ P1\ V6\ \[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("\x{0689}。\x{200D}ẏ\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689。\\u200Dẏ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3159\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}ẏ\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689。\\u200Dẏ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3160\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689。\\u200Dy\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3161\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689。\\u200Dy\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3162\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}ẏ\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689\。\\u200Dẏ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3163\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}ẏ\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689\。\\u200Dẏ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3164\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689\。\\u200Dy\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3165\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689\。\\u200Dy\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3166\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}Y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689\。\\u200DY\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3167\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}Y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689\。\\u200DY\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3168\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}Ẏ\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689\。\\u200DẎ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3169\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}Ẏ\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689\。\\u200DẎ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3170\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}Y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689。\\u200DY\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3171\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}Y\x{0307}\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689。\\u200DY\\u0307\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3172\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}Ẏ\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689。\\u200DẎ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3173\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0689}。\x{200D}Ẏ\x{200C}\x{0757}", %p)}, undef, "to_unicode\(\'\\u0689。\\u200DẎ\\u200C\\u0757\'\)\ throws\ error\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:3174\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0661}\x{0E39}。𕄦\x{0B4D}", %p)}, undef, "to_unicode\(\'\\u0661\\u0E39\。𕄦\\u0B4D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3175\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≠\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_unicode\(\'\-\≠\\u1039。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3176\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-=\x{0338}\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_unicode\(\'\-\=\\u0338\\u1039。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3177\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≠\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_unicode\(\'\-\≠\\u1039\。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3178\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-=\x{0338}\x{1039}。嵕𞾸۴\x{103A}", %p)}, undef, "to_unicode\(\'\-\=\\u0338\\u1039\。嵕𞾸۴\\u103A\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:3179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C񖚂𐹯\\u062D.\\u077F\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3180\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C񖚂𐹯\\u062D.\\u077F\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3181\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C񖚂𐹯\\u062D.\\u077F\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C񖚂𐹯\\u062D.\\u077F\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C񖚂𐹯\\u062D\.\\u077F\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}≯\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C񖚂𐹯\\u062D\.\\u077F\\u200D\≯\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C񖚂𐹯\\u062D\.\\u077F\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}񖚂𐹯\x{062D}.\x{077F}\x{200D}>\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'\\u200C񖚂𐹯\\u062D\.\\u077F\\u200D\>\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B3\ C2\ \[data\/IdnaTest\.txt\:3187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_unicode\(\'\≮.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3188\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_unicode\(\'\<\\u0338.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3189\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_unicode\(\'\≮\.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3190\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}.\x{17B5}\x{06AA}\x{0771}", %p)}, undef, "to_unicode\(\'\<\\u0338\.\\u17B5\\u06AA\\u0771\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3191\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠎\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'𞠎\\u200D。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3192\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠎\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'𞠎\\u200D。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3193\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠎\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'𞠎\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3194\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠎\x{200D}。ႩႵ", %p)}, undef, "to_unicode\(\'𞠎\\u200D\。ႩႵ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3195\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𞠎\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'𞠎\\u200D\。ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3196\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𞠎\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'𞠎\\u200D\。ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3197\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𞠎\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'𞠎\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3198\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠎\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'𞠎\\u200D\。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3199\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--e55h.xn--0kjya", %p)}, "𞠎.ⴉⴕ", "to_unicode\(\'xn\-\-e55h\.xn\-\-0kjya\'\)\ \[data\/IdnaTest\.txt\:3200\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𞠎.ⴉⴕ", %p)}, "𞠎.ⴉⴕ", "to_unicode\(\'𞠎\.ⴉⴕ\'\)\ \[data\/IdnaTest\.txt\:3201\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𞠎.ႩႵ", %p)}, undef, "to_unicode\(\'𞠎\.ႩႵ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠎.Ⴉⴕ", %p)}, undef, "to_unicode\(\'𞠎\.Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3203\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𞠎\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'𞠎\\u200D。ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3204\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𞠎\x{200D}。ⴉⴕ", %p)}, undef, "to_unicode\(\'𞠎\\u200D。ⴉⴕ\'\)\ throws\ error\ B3\ C2\ \[data\/IdnaTest\.txt\:3205\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𞠎\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'𞠎\\u200D。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3206\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞠎\x{200D}。Ⴉⴕ", %p)}, undef, "to_unicode\(\'𞠎\\u200D。Ⴉⴕ\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:3207\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.𝨣򾭅󠆻", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ.𝨣򾭅\󠆻\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3208\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.𝨣򾭅󠆻", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ.𝨣򾭅\󠆻\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3209\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.𝨣򾭅󠆻", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ\.𝨣򾭅\󠆻\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3210\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}ㄤ.𝨣򾭅󠆻", %p)}, undef, "to_unicode\(\'\\u200C\\u200Cㄤ\.𝨣򾭅\󠆻\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3211\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋻。-\x{200C}ꡋႷ", %p)}, undef, "to_unicode\(\'𐋻。\-\\u200CꡋႷ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3212\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋻。-\x{200C}ꡋႷ", %p)}, undef, "to_unicode\(\'𐋻。\-\\u200CꡋႷ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3213\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋻。-\x{200C}ꡋႷ", %p)}, undef, "to_unicode\(\'𐋻\。\-\\u200CꡋႷ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3214\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋻。-\x{200C}ꡋႷ", %p)}, undef, "to_unicode\(\'𐋻\。\-\\u200CꡋႷ\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3215\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋻。-\x{200C}ꡋⴗ", %p)}, undef, "to_unicode\(\'𐋻\。\-\\u200Cꡋⴗ\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3216\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋻。-\x{200C}ꡋⴗ", %p)}, undef, "to_unicode\(\'𐋻\。\-\\u200Cꡋⴗ\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3217\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋻。-\x{200C}ꡋⴗ", %p)}, undef, "to_unicode\(\'𐋻。\-\\u200Cꡋⴗ\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3218\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋻。-\x{200C}ꡋⴗ", %p)}, undef, "to_unicode\(\'𐋻。\-\\u200Cꡋⴗ\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:3219\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⋉\x{FBF6}.≠\x{200C}", %p)}, undef, "to_unicode\(\'\⋉\\uFBF6.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3220\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋉\x{FBF6}.≠\x{200C}", %p)}, undef, "to_unicode\(\'\⋉\\uFBF6.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3221\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋉\x{FBF6}.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\⋉\\uFBF6.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3222\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋉\x{FBF6}.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\⋉\\uFBF6.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3223\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋉\x{0626}\x{06D0}.≠\x{200C}", %p)}, undef, "to_unicode\(\'\⋉\\u0626\\u06D0\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3224\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋉\x{0626}\x{06D0}.≠\x{200C}", %p)}, undef, "to_unicode\(\'\⋉\\u0626\\u06D0\.\≠\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3225\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋉\x{064A}\x{0654}\x{06D0}.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\⋉\\u064A\\u0654\\u06D0\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3226\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⋉\x{064A}\x{0654}\x{06D0}.=\x{0338}\x{200C}", %p)}, undef, "to_unicode\(\'\⋉\\u064A\\u0654\\u06D0\.\=\\u0338\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3227\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DEE}\x{0366}。\x{FCC7}\x{1BF3}󠼨", %p)}, undef, "to_unicode\(\'\\u1DEE\\u0366。\\uFCC7\\u1BF3\󠼨\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3228\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DEE}\x{0366}。\x{0643}\x{0644}\x{1BF3}󠼨", %p)}, undef, "to_unicode\(\'\\u1DEE\\u0366\。\\u0643\\u0644\\u1BF3\󠼨\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3229\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ\x{0AC5}₃󠁸.𝟳\x{1DE4}𝆈", %p)}, undef, "to_unicode\(\'Ⴔ\\u0AC5₃\󠁸.𝟳\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3230\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴔ\x{0AC5}3󠁸.7\x{1DE4}𝆈", %p)}, undef, "to_unicode\(\'Ⴔ\\u0AC53\󠁸\.7\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3231\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴔ\x{0AC5}3󠁸.7\x{1DE4}𝆈", %p)}, undef, "to_unicode\(\'ⴔ\\u0AC53\󠁸\.7\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3232\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴔ\x{0AC5}₃󠁸.𝟳\x{1DE4}𝆈", %p)}, undef, "to_unicode\(\'ⴔ\\u0AC5₃\󠁸.𝟳\\u1DE4𝆈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3233\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}⒈𲱳", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C⒈𲱳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3234\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}⒈𲱳", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C⒈𲱳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3235\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}1.𲱳", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C1\.𲱳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3236\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䏈\x{200C}。\x{200C}1.𲱳", %p)}, undef, "to_unicode\(\'䏈\\u200C\。\\u200C1\.𲱳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3237\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𑁆ß\x{2CF0}。󠓏", %p)}, undef, "to_unicode\(\'1𑁆ß\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3238\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𑁆ß\x{2CF0}。󠓏", %p)}, undef, "to_unicode\(\'1𑁆ß\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3239\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𑁆SS\x{2CF0}。󠓏", %p)}, undef, "to_unicode\(\'1𑁆SS\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𑁆ss\x{2CF0}。󠓏", %p)}, undef, "to_unicode\(\'1𑁆ss\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𑁆Ss\x{2CF0}。󠓏", %p)}, undef, "to_unicode\(\'1𑁆Ss\\u2CF0\。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3242\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𑁆SS\x{2CF0}。󠓏", %p)}, undef, "to_unicode\(\'1𑁆SS\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3243\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𑁆ss\x{2CF0}。󠓏", %p)}, undef, "to_unicode\(\'1𑁆ss\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3244\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1𑁆Ss\x{2CF0}。󠓏", %p)}, undef, "to_unicode\(\'1𑁆Ss\\u2CF0。\󠓏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3245\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}򠙛𞭯\x{A806}。ᡮ⒈", %p)}, undef, "to_unicode\(\'\\u200D򠙛𞭯\\uA806。ᡮ⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3246\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}򠙛𞭯\x{A806}。ᡮ⒈", %p)}, undef, "to_unicode\(\'\\u200D򠙛𞭯\\uA806。ᡮ⒈\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3247\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}򠙛𞭯\x{A806}。ᡮ1.", %p)}, undef, "to_unicode\(\'\\u200D򠙛𞭯\\uA806\。ᡮ1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3248\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}򠙛𞭯\x{A806}。ᡮ1.", %p)}, undef, "to_unicode\(\'\\u200D򠙛𞭯\\uA806\。ᡮ1\.\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:3249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠇙.𞾾󢲮򜠀𐫘", %p)}, undef, "to_unicode\(\'\󠇙.𞾾󢲮򜠀𐫘\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠇙.𞾾󢲮򜠀𐫘", %p)}, undef, "to_unicode\(\'\󠇙\.𞾾󢲮򜠀𐫘\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3251\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{071B}𞭈⒈.⛊8򀄷\x{08AA}", %p)}, undef, "to_unicode\(\'\\u071B𞭈⒈.\⛊8򀄷\\u08AA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3252\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{071B}𞭈1..⛊8򀄷\x{08AA}", %p)}, undef, "to_unicode\(\'\\u071B𞭈1\.\.\⛊8򀄷\\u08AA\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3253\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠅄\x{07E9}𑈯\x{06D0}。-󠓉󙒛", %p)}, undef, "to_unicode\(\'\󠅄\\u07E9𑈯\\u06D0\。\-\󠓉󙒛\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.\x{1734}剘ß\x{06B0}", %p)}, undef, "to_unicode\(\'\-\.\\u1734剘ß\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3255\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.\x{1734}剘SS\x{06B0}", %p)}, undef, "to_unicode\(\'\-\.\\u1734剘SS\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3256\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.\x{1734}剘ss\x{06B0}", %p)}, undef, "to_unicode\(\'\-\.\\u1734剘ss\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3257\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.\x{1734}剘Ss\x{06B0}", %p)}, undef, "to_unicode\(\'\-\.\\u1734剘Ss\\u06B0\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3258\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🌞𞿦。-", %p)}, undef, "to_unicode\(\'🌞𞿦。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3259\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🌞𞿦。-", %p)}, undef, "to_unicode\(\'🌞𞿦\。\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:3260\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈󠽆𐹸。≠𐹻𐹦", %p)}, undef, "to_unicode\(\'⒈\󠽆𐹸。\≠𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3261\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈󠽆𐹸。=\x{0338}𐹻𐹦", %p)}, undef, "to_unicode\(\'⒈\󠽆𐹸。\=\\u0338𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.󠽆𐹸。≠𐹻𐹦", %p)}, undef, "to_unicode\(\'1\.\󠽆𐹸\。\≠𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.󠽆𐹸。=\x{0338}𐹻𐹦", %p)}, undef, "to_unicode\(\'1\.\󠽆𐹸\。\=\\u0338𐹻𐹦\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹠󠬾Ⴎ\x{200C}.㖾\x{0669}", %p)}, undef, "to_unicode\(\'𐹠\󠬾Ⴎ\\u200C\.㖾\\u0669\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3265\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹠󠬾Ⴎ\x{200C}.㖾\x{0669}", %p)}, undef, "to_unicode\(\'𐹠\󠬾Ⴎ\\u200C\.㖾\\u0669\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3266\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹠󠬾ⴎ\x{200C}.㖾\x{0669}", %p)}, undef, "to_unicode\(\'𐹠\󠬾ⴎ\\u200C\.㖾\\u0669\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3267\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹠󠬾ⴎ\x{200C}.㖾\x{0669}", %p)}, undef, "to_unicode\(\'𐹠\󠬾ⴎ\\u200C\.㖾\\u0669\'\)\ throws\ error\ P1\ V6\ B1\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3268\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𱅿.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_unicode\(\'𱅿.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3269\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𱅿.\x{07C7}\x{06B8}ႳႧ", %p)}, undef, "to_unicode\(\'𱅿\.\\u07C7\\u06B8ႳႧ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3270\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𱅿.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_unicode\(\'𱅿\.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3271\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𱅿.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_unicode\(\'𱅿\.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3272\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𱅿.\x{07C7}\x{06B8}ⴓⴇ", %p)}, undef, "to_unicode\(\'𱅿.\\u07C7\\u06B8ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3273\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𱅿.\x{07C7}\x{06B8}Ⴓⴇ", %p)}, undef, "to_unicode\(\'𱅿.\\u07C7\\u06B8Ⴓⴇ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3274\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󊝻.𞠞𐭫", %p)}, undef, "to_unicode\(\'\\u200D󊝻\.𞠞𐭫\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3275\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}󊝻.𞠞𐭫", %p)}, undef, "to_unicode\(\'\\u200D󊝻\.𞠞𐭫\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3276\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󲔏⒛󠊁.ᠯ⒈", %p)}, undef, "to_unicode\(\'󲔏⒛\󠊁.ᠯ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3277\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󲔏20.󠊁.ᠯ1.", %p)}, undef, "to_unicode\(\'󲔏20\.\󠊁\.ᠯ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3278\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075E}8𻪑-。񅴬𑇀𐪞\x{09CD}", %p)}, undef, "to_unicode\(\'\\u075E8𻪑\-。񅴬𑇀𐪞\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3279\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075E}8𻪑-。񅴬𑇀𐪞\x{09CD}", %p)}, undef, "to_unicode\(\'\\u075E8𻪑\-\。񅴬𑇀𐪞\\u09CD\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ B5\ B6\ \[data\/IdnaTest\.txt\:3280\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。۰≮ß𐨍", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\≮ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3281\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。۰<\x{0338}ß𐨍", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\<\\u0338ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3282\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。۰<\x{0338}ß𐨍", %p)}, undef, "to_unicode\(\'ⴕ\。۰\<\\u0338ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3283\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。۰≮ß𐨍", %p)}, undef, "to_unicode\(\'ⴕ\。۰\≮ß𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3284\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。۰≮SS𐨍", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\≮SS𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3285\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。۰<\x{0338}SS𐨍", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\<\\u0338SS𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3286\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。۰<\x{0338}ss𐨍", %p)}, undef, "to_unicode\(\'ⴕ\。۰\<\\u0338ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3287\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴕ。۰≮ss𐨍", %p)}, undef, "to_unicode\(\'ⴕ\。۰\≮ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3288\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。۰≮Ss𐨍", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\≮Ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3289\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴕ。۰<\x{0338}Ss𐨍", %p)}, undef, "to_unicode\(\'Ⴕ\。۰\<\\u0338Ss𐨍\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3290\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{0F19}꒱\x{0FA4}", %p)}, undef, "to_unicode\(\'\\u076F\-\.\\u0F19꒱\\u0FA4\'\)\ throws\ error\ V3\ V5\ B3\ \[data\/IdnaTest\.txt\:3291\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{06FC}\x{200C}.≯䕵🍀", %p)}, undef, "to_unicode\(\'\\u06FC\\u200C\.\≯䕵🍀\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3292\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06FC}\x{200C}.≯䕵🍀", %p)}, undef, "to_unicode\(\'\\u06FC\\u200C\.\≯䕵🍀\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3293\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06FC}\x{200C}.>\x{0338}䕵🍀", %p)}, undef, "to_unicode\(\'\\u06FC\\u200C\.\>\\u0338䕵🍀\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3294\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{06FC}\x{200C}.>\x{0338}䕵🍀", %p)}, undef, "to_unicode\(\'\\u06FC\\u200C\.\>\\u0338䕵🍀\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:3295\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{034F}ß\x{FD90}.𐫚۳︒", %p)}, undef, "to_unicode\(\'\\u034Fß\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3296\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{034F}ß\x{FD90}.𐫚۳。", %p)}, undef, "to_unicode\(\'\\u034Fß\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3297\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{034F}SS\x{FD90}.𐫚۳。", %p)}, undef, "to_unicode\(\'\\u034FSS\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3298\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{034F}ss\x{FD90}.𐫚۳。", %p)}, undef, "to_unicode\(\'\\u034Fss\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3299\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{034F}Ss\x{FD90}.𐫚۳。", %p)}, undef, "to_unicode\(\'\\u034FSs\\uFD90\.𐫚۳\。\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3300\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{034F}SS\x{FD90}.𐫚۳︒", %p)}, undef, "to_unicode\(\'\\u034FSS\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3301\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{034F}ss\x{FD90}.𐫚۳︒", %p)}, undef, "to_unicode\(\'\\u034Fss\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3302\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{034F}Ss\x{FD90}.𐫚۳︒", %p)}, undef, "to_unicode\(\'\\u034FSs\\uFD90\.𐫚۳︒\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B3\ \[data\/IdnaTest\.txt\:3303\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≮⤨\x{1DD8}.󠴭Ⴁᡓ", %p)}, undef, "to_unicode\(\'\-\≮\⤨\\u1DD8\.\󠴭Ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3304\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-<\x{0338}⤨\x{1DD8}.󠴭Ⴁᡓ", %p)}, undef, "to_unicode\(\'\-\<\\u0338\⤨\\u1DD8\.\󠴭Ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3305\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-<\x{0338}⤨\x{1DD8}.󠴭ⴁᡓ", %p)}, undef, "to_unicode\(\'\-\<\\u0338\⤨\\u1DD8\.\󠴭ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3306\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-≮⤨\x{1DD8}.󠴭ⴁᡓ", %p)}, undef, "to_unicode\(\'\-\≮\⤨\\u1DD8\.\󠴭ⴁᡓ\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3307\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮉。ᢟ\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'𐮉。ᢟ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3308\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮉。ᢟ\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'𐮉。ᢟ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3309\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮉。ᢟ\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'𐮉\。ᢟ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3310\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮉。ᢟ\x{200D}\x{200C}", %p)}, undef, "to_unicode\(\'𐮉\。ᢟ\\u200D\\u200C\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3311\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--g29c.xn--pbf", %p)}, "𐮉.ᢟ", "to_unicode\(\'xn\-\-g29c\.xn\-\-pbf\'\)\ \[data\/IdnaTest\.txt\:3312\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮉.ᢟ", %p)}, "𐮉.ᢟ", "to_unicode\(\'𐮉\.ᢟ\'\)\ \[data\/IdnaTest\.txt\:3313\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𝩑𑍲.ꡣ\x{1DFF}𐹢", %p)}, undef, "to_unicode\(\'𝩑𑍲.ꡣ\\u1DFF𐹢\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3314\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𝩑𑍲.ꡣ\x{1DFF}𐹢", %p)}, undef, "to_unicode\(\'𝩑𑍲\.ꡣ\\u1DFF𐹢\'\)\ throws\ error\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:3315\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⅎ󠀽𵭘。≯⾑", %p)}, undef, "to_unicode\(\'Ⅎ\󠀽𵭘\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3316\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ󠀽𵭘。>\x{0338}⾑", %p)}, undef, "to_unicode\(\'Ⅎ\󠀽𵭘\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3317\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ󠀽𵭘。≯襾", %p)}, undef, "to_unicode\(\'Ⅎ\󠀽𵭘\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3318\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⅎ󠀽𵭘。>\x{0338}襾", %p)}, undef, "to_unicode\(\'Ⅎ\󠀽𵭘\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3319\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ󠀽𵭘。>\x{0338}襾", %p)}, undef, "to_unicode\(\'ⅎ\󠀽𵭘\。\>\\u0338襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3320\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ󠀽𵭘。≯襾", %p)}, undef, "to_unicode\(\'ⅎ\󠀽𵭘\。\≯襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3321\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ󠀽𵭘。>\x{0338}⾑", %p)}, undef, "to_unicode\(\'ⅎ\󠀽𵭘\。\>\\u0338⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3322\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⅎ󠀽𵭘。≯⾑", %p)}, undef, "to_unicode\(\'ⅎ\󠀽𵭘\。\≯⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3323\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3324\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3325\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3326\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'ς\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3327\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3328\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3329\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3330\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u0EBC𐹯\。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3331\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3332\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'Σ\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3333\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3334\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{0EBC}𐹯。-", %p)}, undef, "to_unicode\(\'σ\\u200D\\u0EBC𐹯。\-\'\)\ throws\ error\ V3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3335\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}.ßႩ-", %p)}, undef, "to_unicode\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3336\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ßႩ-", %p)}, undef, "to_unicode\(\'\\u200C\.ßႩ\-\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:3337\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:3338\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:3339\]") 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\:3340\]") 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\:3341\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:3342\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:3343\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:3344\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:3345\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󆎶ᡄ㓱。⾑", %p)}, undef, "to_unicode\(\'󆎶ᡄ㓱\。⾑\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3346\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󆎶ᡄ㓱。襾", %p)}, undef, "to_unicode\(\'󆎶ᡄ㓱\。襾\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3347\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡥ\x{06D5}\x{0665}≮。≯⯯\x{200D}", %p)}, undef, "to_unicode\(\'ꡥ\\u06D5\\u0665\≮\。\≯\⯯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3348\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡥ\x{06D5}\x{0665}≮。≯⯯\x{200D}", %p)}, undef, "to_unicode\(\'ꡥ\\u06D5\\u0665\≮\。\≯\⯯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3349\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡥ\x{06D5}\x{0665}<\x{0338}。>\x{0338}⯯\x{200D}", %p)}, undef, "to_unicode\(\'ꡥ\\u06D5\\u0665\<\\u0338\。\>\\u0338\⯯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3350\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡥ\x{06D5}\x{0665}<\x{0338}。>\x{0338}⯯\x{200D}", %p)}, undef, "to_unicode\(\'ꡥ\\u06D5\\u0665\<\\u0338\。\>\\u0338\⯯\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3351\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟞。󛼏ꡛᠪ⩋", %p)}, undef, "to_unicode\(\'𝟞。󛼏ꡛᠪ\⩋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3352\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6。󛼏ꡛᠪ⩋", %p)}, undef, "to_unicode\(\'6\。󛼏ꡛᠪ\⩋\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3353\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("-𐣴。\x{2DE5}\x{2D7F}", %p)}, undef, "to_unicode\(\'\-𐣴\。\\u2DE5\\u2D7F\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3354\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("-𐣴。\x{2D7F}\x{2DE5}", %p)}, undef, "to_unicode\(\'\-𐣴\。\\u2D7F\\u2DE5\'\)\ throws\ error\ V3\ V5\ B1\ \[data\/IdnaTest\.txt\:3355\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}⼨𝟏.𝨨񊚚\x{0665}򤝋", %p)}, undef, "to_unicode\(\'\\u200C⼨𝟏\.𝨨񊚚\\u0665򤝋\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}⼨𝟏.𝨨񊚚\x{0665}򤝋", %p)}, undef, "to_unicode\(\'\\u200C⼨𝟏\.𝨨񊚚\\u0665򤝋\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3357\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}寸1.𝨨񊚚\x{0665}򤝋", %p)}, undef, "to_unicode\(\'\\u200C寸1\.𝨨񊚚\\u0665򤝋\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3358\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}寸1.𝨨񊚚\x{0665}򤝋", %p)}, undef, "to_unicode\(\'\\u200C寸1\.𝨨񊚚\\u0665򤝋\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:3359\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("齙--𝟰.ß", %p)}, "齙--4.ß", "to_unicode\(\'齙\-\-𝟰\.ß\'\)\ \[data\/IdnaTest\.txt\:3360\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("齙--𝟰.ß", %p)}, "齙--4.ß", "to_unicode\(\'齙\-\-𝟰\.ß\'\)\ \[data\/IdnaTest\.txt\:3361\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("齙--4.ß", %p)}, "齙--4.ß", "to_unicode\(\'齙\-\-4\.ß\'\)\ \[data\/IdnaTest\.txt\:3362\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("齙--4.ß", %p)}, "齙--4.ß", "to_unicode\(\'齙\-\-4\.ß\'\)\ \[data\/IdnaTest\.txt\:3363\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("齙--4.SS", %p)}, "齙--4.ss", "to_unicode\(\'齙\-\-4\.SS\'\)\ \[data\/IdnaTest\.txt\:3364\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn----4-p16k.ss", %p)}, "齙--4.ss", "to_unicode\(\'xn\-\-\-\-4\-p16k\.ss\'\)\ \[data\/IdnaTest\.txt\:3365\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn----4-p16k.xn--zca", %p)}, "齙--4.ß", "to_unicode\(\'xn\-\-\-\-4\-p16k\.xn\-\-zca\'\)\ \[data\/IdnaTest\.txt\:3366\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("齙--𝟰.SS", %p)}, "齙--4.ss", "to_unicode\(\'齙\-\-𝟰\.SS\'\)\ \[data\/IdnaTest\.txt\:3367\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0B4D}.\x{0660}𐨌\x{200C}", %p)}, undef, "to_unicode\(\'\\u0B4D\.\\u0660𐨌\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3368\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0B4D}.\x{0660}𐨌\x{200C}", %p)}, undef, "to_unicode\(\'\\u0B4D\.\\u0660𐨌\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:3369\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{AB27}𑖼。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\\uAB27𑖼。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3370\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB27}𑖼。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\\uAB27𑖼。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB27}𑖼。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\\uAB27𑖼\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3372\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB27}𑖼。\x{DEDE}-\x{200D}", %p)}, undef, "to_unicode\(\'\\uAB27𑖼\。\\uDEDE\-\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3373\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AB27}𑖼", %p)}, undef, "to_unicode\(\'\\uAB27𑖼\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3374\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0ACD}.\x{08A3}-\x{0591}悎", %p)}, undef, "to_unicode\(\'\\u0ACD.\\u08A3\-\\u0591悎\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:3375\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0ACD}.\x{08A3}-\x{0591}悎", %p)}, undef, "to_unicode\(\'\\u0ACD\.\\u08A3\-\\u0591悎\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:3376\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("񹭻󠗀.\x{067B}􆘢", %p)}, undef, "to_unicode\(\'񹭻\󠗀.\\u067B􆘢\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3377\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񹭻󠗀.\x{067B}􆘢", %p)}, undef, "to_unicode\(\'񹭻\󠗀\.\\u067B􆘢\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3378\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᡨ𞺲\x{07D1}.𐋲", %p)}, undef, "to_unicode\(\'ᡨ𞺲\\u07D1\.𐋲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3379\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ᡨ\x{0642}\x{07D1}.𐋲", %p)}, undef, "to_unicode\(\'ᡨ\\u0642\\u07D1\.𐋲\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:3380\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐰿ꡏ\x{06BB}\x{0668}.\x{DF56}", %p)}, undef, "to_unicode\(\'𐰿ꡏ\\u06BB\\u0668\.\\uDF56\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:3381\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐰿ꡏ\x{06BB}\x{0668}", %p)}, undef, "to_unicode\(\'𐰿ꡏ\\u06BB\\u0668\'\)\ throws\ error\ B2\ \[data\/IdnaTest\.txt\:3382\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ↄ。\x{1734}\x{0E47}𞻻", %p)}, undef, "to_unicode\(\'Ↄ\。\\u1734\\u0E47𞻻\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3383\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ↄ。\x{1734}\x{0E47}𞻻", %p)}, undef, "to_unicode\(\'ↄ\。\\u1734\\u0E47𞻻\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3384\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⭂-。𭨲≮𑚶", %p)}, undef, "to_unicode\(\'\⭂\-\。𭨲\≮𑚶\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3385\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⭂-。𭨲<\x{0338}𑚶", %p)}, undef, "to_unicode\(\'\⭂\-\。𭨲\<\\u0338𑚶\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3386\]") 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\:3387\]") 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\:3388\]") 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\:3389\]") 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\:3390\]") 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\:3391\]") 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\:3392\]") 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\:3393\]") 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\:3394\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹡-\x{AAF6}ꡨ。︒䖐⾆", %p)}, undef, "to_unicode\(\'𐹡\-\\uAAF6ꡨ\。︒䖐⾆\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3395\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("𐹡-\x{AAF6}ꡨ。。䖐舌", %p)}, undef, "to_unicode\(\'𐹡\-\\uAAF6ꡨ\。\。䖐舌\'\)\ throws\ error\ B1\ A4_2\ \[data\/IdnaTest\.txt\:3396\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0F79}Ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0F79Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3397\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F79}Ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0F79Ⴐ。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3398\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FB3}\x{0F71}\x{0F80}Ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0FB3\\u0F71\\u0F80Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3399\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FB3}\x{0F71}\x{0F80}Ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0FB3\\u0F71\\u0F80Ⴐ\。쪡\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3400\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0FB3}\x{0F71}\x{0F80}ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0FB3\\u0F71\\u0F80ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3401\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0FB3}\x{0F71}\x{0F80}ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0FB3\\u0F71\\u0F80ⴐ\。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3402\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0F79}ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0F79ⴐ。쪡\'\)\ throws\ error\ V5\ \[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_unicode("\x{0F79}ⴐ。쪡", %p)}, undef, "to_unicode\(\'\\u0F79ⴐ。쪡\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3404\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0ACD}쩁𐹡.󿍹", %p)}, undef, "to_unicode\(\'\\u0ACD쩁𐹡\.󿍹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3405\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0ACD}쩁𐹡.󿍹", %p)}, undef, "to_unicode\(\'\\u0ACD쩁𐹡\.󿍹\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3406\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡐ0\x{200C}。󠴚𕎃", %p)}, undef, "to_unicode\(\'ꡐ0\\u200C。\󠴚𕎃\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3407\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡐ0\x{200C}。󠴚𕎃", %p)}, undef, "to_unicode\(\'ꡐ0\\u200C。\󠴚𕎃\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3408\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡐ0\x{200C}。󠴚𕎃", %p)}, undef, "to_unicode\(\'ꡐ0\\u200C\。\󠴚𕎃\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3409\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡐ0\x{200C}。󠴚𕎃", %p)}, undef, "to_unicode\(\'ꡐ0\\u200C\。\󠴚𕎃\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3410\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ß", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3411\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ß", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3412\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ß", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9\.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3413\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ß", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9\.\\u200Dß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3414\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}SS", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9\.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3415\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}SS", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9\.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3416\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ss", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9\.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3417\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ss", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9\.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3418\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9\.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3419\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9\.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3420\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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--9-9pl2595ado0c.ss", %p)}, "忰9ꍩ\x{1BE9}.ss", "to_unicode\(\'xn\-\-9\-9pl2595ado0c\.ss\'\)\ \[data\/IdnaTest\.txt\:3421\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.ss", %p)}, "忰9ꍩ\x{1BE9}.ss", "to_unicode\(\'忰9ꍩ\\u1BE9\.ss\'\)\ \[data\/IdnaTest\.txt\:3422\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}SS", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3423\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}SS", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9.\\u200DSS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3424\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ss", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3425\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}ss", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9.\\u200Dss\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3426\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3427\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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("忰9ꍩ\x{1BE9}.\x{200D}Ss", %p)}, undef, "to_unicode\(\'忰9ꍩ\\u1BE9.\\u200DSs\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3428\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ꗷ\x{1BAB}.\x{069C}𞣶", %p)}, undef, "to_unicode\(\'ꗷ\\u1BAB\.\\u069C𞣶\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3429\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒐≯-。︒򐇻-񍘎", %p)}, undef, "to_unicode\(\'⒐\≯\-\。︒򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3430\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒐>\x{0338}-。︒򐇻-񍘎", %p)}, undef, "to_unicode\(\'⒐\>\\u0338\-\。︒򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3431\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9.≯-。。򐇻-񍘎", %p)}, undef, "to_unicode\(\'9\.\≯\-\。\。򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3432\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9.>\x{0338}-。。򐇻-񍘎", %p)}, undef, "to_unicode\(\'9\.\>\\u0338\-\。\。򐇻\-񍘎\'\)\ throws\ error\ P1\ V3\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3433\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񌜃\x{A8EB}Ⴡ󠣼.\x{0847}", %p)}, undef, "to_unicode\(\'񌜃\\uA8EBჁ\󠣼.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3434\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񌜃\x{A8EB}Ⴡ󠣼.\x{0847}", %p)}, undef, "to_unicode\(\'񌜃\\uA8EBჁ\󠣼\.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3435\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񌜃\x{A8EB}ⴡ󠣼.\x{0847}", %p)}, undef, "to_unicode\(\'񌜃\\uA8EBⴡ\󠣼\.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3436\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񌜃\x{A8EB}ⴡ󠣼.\x{0847}", %p)}, undef, "to_unicode\(\'񌜃\\uA8EBⴡ\󠣼.\\u0847\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3437\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1DCB}。𐋩ᢥ-ᡕ", %p)}, undef, "to_unicode\(\'\\u1DCB\。𐋩ᢥ\-ᡕ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3438\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("싇。⾇𐼓Ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3439\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。⾇𐼓Ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3440\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。舛𐼓Ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3441\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。舛𐼓Ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐼓Ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3442\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。舛𐼓ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3443\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。舛𐼓ⴝ", %p)}, undef, "to_unicode\(\'싇\。舛𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3444\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。⾇𐼓ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3445\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("싇。⾇𐼓ⴝ", %p)}, undef, "to_unicode\(\'싇\。⾇𐼓ⴝ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:3446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹮ς。\x{200C}\x{07D4}Ⴠ", %p)}, undef, "to_unicode\(\'𐹮ς\。\\u200C\\u07D4Ⴠ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3447\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹮ς。\x{200C}\x{07D4}Ⴠ", %p)}, undef, "to_unicode\(\'𐹮ς\。\\u200C\\u07D4Ⴠ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3448\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07D4}ⴠ", %p)}, undef, "to_unicode\(\'𐹮ς\。\\u200C\\u07D4ⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3449\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07D4}ⴠ", %p)}, undef, "to_unicode\(\'𐹮ς\。\\u200C\\u07D4ⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3450\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐹮Σ。\x{200C}\x{07D4}Ⴠ", %p)}, undef, "to_unicode\(\'𐹮Σ\。\\u200C\\u07D4Ⴠ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3451\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹮Σ。\x{200C}\x{07D4}Ⴠ", %p)}, undef, "to_unicode\(\'𐹮Σ\。\\u200C\\u07D4Ⴠ\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3452\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07D4}ⴠ", %p)}, undef, "to_unicode\(\'𐹮σ\。\\u200C\\u07D4ⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3453\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{07D4}ⴠ", %p)}, undef, "to_unicode\(\'𐹮σ\。\\u200C\\u07D4ⴠ\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:3454\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("򗡮\x{200C}𐹲.\x{067A}-ß", %p)}, undef, "to_unicode\(\'򗡮\\u200C𐹲\.\\u067A\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3455\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򗡮\x{200C}𐹲.\x{067A}-ß", %p)}, undef, "to_unicode\(\'򗡮\\u200C𐹲\.\\u067A\-ß\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3456\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򗡮\x{200C}𐹲.\x{067A}-SS", %p)}, undef, "to_unicode\(\'򗡮\\u200C𐹲\.\\u067A\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3457\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򗡮\x{200C}𐹲.\x{067A}-SS", %p)}, undef, "to_unicode\(\'򗡮\\u200C𐹲\.\\u067A\-SS\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3458\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򗡮\x{200C}𐹲.\x{067A}-ss", %p)}, undef, "to_unicode\(\'򗡮\\u200C𐹲\.\\u067A\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3459\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򗡮\x{200C}𐹲.\x{067A}-ss", %p)}, undef, "to_unicode\(\'򗡮\\u200C𐹲\.\\u067A\-ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3460\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򗡮\x{200C}𐹲.\x{067A}-Ss", %p)}, undef, "to_unicode\(\'򗡮\\u200C𐹲\.\\u067A\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3461\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򗡮\x{200C}𐹲.\x{067A}-Ss", %p)}, undef, "to_unicode\(\'򗡮\\u200C𐹲\.\\u067A\-Ss\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3462\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}ᢠ.-𞳲𰞝\x{FEEF}", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5ᢠ\.\-𞳲𰞝\\uFEEF\'\)\ throws\ error\ P1\ V6\ V3\ C1\ C2\ B1\ \[data\/IdnaTest\.txt\:3463\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}ᢠ.-𞳲𰞝\x{FEEF}", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5ᢠ\.\-𞳲𰞝\\uFEEF\'\)\ throws\ error\ P1\ V6\ V3\ C1\ C2\ B1\ \[data\/IdnaTest\.txt\:3464\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}ᢠ.-𞳲𰞝\x{0649}", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5ᢠ\.\-𞳲𰞝\\u0649\'\)\ throws\ error\ P1\ V6\ V3\ C1\ C2\ B1\ \[data\/IdnaTest\.txt\:3465\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200D}\x{17B5}ᢠ.-𞳲𰞝\x{0649}", %p)}, undef, "to_unicode\(\'\\u200C\\u200D\\u17B5ᢠ\.\-𞳲𰞝\\u0649\'\)\ throws\ error\ P1\ V6\ V3\ C1\ C2\ B1\ \[data\/IdnaTest\.txt\:3466\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񹸓。\x{0633}≠", %p)}, undef, "to_unicode\(\'񹸓。\\u0633\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3467\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񹸓。\x{0633}=\x{0338}", %p)}, undef, "to_unicode\(\'񹸓。\\u0633\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3468\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񹸓。\x{0633}≠", %p)}, undef, "to_unicode\(\'񹸓\。\\u0633\≠\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3469\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񹸓。\x{0633}=\x{0338}", %p)}, undef, "to_unicode\(\'񹸓\。\\u0633\=\\u0338\'\)\ throws\ error\ P1\ V6\ B3\ \[data\/IdnaTest\.txt\:3470\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_unicode\(\'𑍱𞦝。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3471\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_unicode\(\'𑍱𞦝。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3472\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_unicode\(\'𑍱𞦝\。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3473\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍱𞦝。\x{0668}𐹰덝۵", %p)}, undef, "to_unicode\(\'𑍱𞦝\。\\u0668𐹰덝۵\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3474\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴏ󠄭-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\󠄭\-.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3475\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴏ󠄭-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\󠄭\-.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3476\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴏ󠄭-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\󠄭\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3477\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴏ󠄭-.\x{200D}Ⴉ", %p)}, undef, "to_unicode\(\'Ⴏ\󠄭\-\.\\u200DႩ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3478\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴏ󠄭-.\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\󠄭\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3479\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴏ󠄭-.\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\󠄭\-\.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3480\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴏ󠄭-.\x{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\󠄭\-.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\: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{200D}ⴉ", %p)}, undef, "to_unicode\(\'ⴏ\󠄭\-.\\u200Dⴉ\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3482\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󠌣\x{1B6C}¤񼀤。𐹼\x{2063}𝩑", %p)}, undef, "to_unicode\(\'\󠌣\\u1B6C\¤񼀤\。𐹼\\u2063𝩑\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3483\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ᡞ.𐅥🄇⒈", %p)}, undef, "to_unicode\(\'\≠ᡞ\.𐅥🄇⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3484\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ᡞ.𐅥🄇⒈", %p)}, undef, "to_unicode\(\'\=\\u0338ᡞ\.𐅥🄇⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3485\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠ᡞ.𐅥6,1.", %p)}, undef, "to_unicode\(\'\≠ᡞ\.𐅥6\,1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3486\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}ᡞ.𐅥6,1.", %p)}, undef, "to_unicode\(\'\=\\u0338ᡞ\.𐅥6\,1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3487\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9B8}⩩ß.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_unicode\(\'\\uA9B8\⩩ß\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3488\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9B8}⩩ß.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_unicode\(\'\\uA9B8\⩩ß\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3489\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9B8}⩩SS.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_unicode\(\'\\uA9B8\⩩SS\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3490\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9B8}⩩SS.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_unicode\(\'\\uA9B8\⩩SS\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3491\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9B8}⩩ss.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_unicode\(\'\\uA9B8\⩩ss\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3492\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9B8}⩩ss.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_unicode\(\'\\uA9B8\⩩ss\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3493\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9B8}⩩Ss.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_unicode\(\'\\uA9B8\⩩Ss\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3494\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9B8}⩩Ss.ᠤ򂅯\x{200C}𐹦", %p)}, undef, "to_unicode\(\'\\uA9B8\⩩Ss\.ᠤ򂅯\\u200C𐹦\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:3495\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{0678}𮓵Ⴇ。𑂳", %p)}, undef, "to_unicode\(\'ß\\u0678𮓵Ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3496\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{064A}\x{0674}𮓵Ⴇ。𑂳", %p)}, undef, "to_unicode\(\'ß\\u064A\\u0674𮓵Ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3497\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{064A}\x{0674}𮓵ⴇ。𑂳", %p)}, undef, "to_unicode\(\'ß\\u064A\\u0674𮓵ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3498\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{064A}\x{0674}𮓵Ⴇ。𑂳", %p)}, undef, "to_unicode\(\'SS\\u064A\\u0674𮓵Ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3499\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{064A}\x{0674}𮓵ⴇ。𑂳", %p)}, undef, "to_unicode\(\'ss\\u064A\\u0674𮓵ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3500\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{064A}\x{0674}𮓵Ⴇ。𑂳", %p)}, undef, "to_unicode\(\'Ss\\u064A\\u0674𮓵Ⴇ\。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3501\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{0678}𮓵ⴇ。𑂳", %p)}, undef, "to_unicode\(\'ß\\u0678𮓵ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3502\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{0678}𮓵Ⴇ。𑂳", %p)}, undef, "to_unicode\(\'SS\\u0678𮓵Ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3503\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{0678}𮓵ⴇ。𑂳", %p)}, undef, "to_unicode\(\'ss\\u0678𮓵ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3504\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{0678}𮓵Ⴇ。𑂳", %p)}, undef, "to_unicode\(\'Ss\\u0678𮓵Ⴇ。𑂳\'\)\ throws\ error\ P1\ V6\ V5\ B5\ \[data\/IdnaTest\.txt\:3505\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{ABED}。𝨁-𑁆", %p)}, undef, "to_unicode\(\'\\uABED\。𝨁\-𑁆\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3506\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("⮉-.𒿏󠁼ß", %p)}, undef, "to_unicode\(\'\⮉\-.𒿏\󠁼ß\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3507\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⮉-.𒿏󠁼ß", %p)}, undef, "to_unicode\(\'\⮉\-\.𒿏\󠁼ß\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3508\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⮉-.𒿏󠁼SS", %p)}, undef, "to_unicode\(\'\⮉\-\.𒿏\󠁼SS\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3509\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⮉-.𒿏󠁼ss", %p)}, undef, "to_unicode\(\'\⮉\-\.𒿏\󠁼ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3510\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⮉-.𒿏󠁼Ss", %p)}, undef, "to_unicode\(\'\⮉\-\.𒿏\󠁼Ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3511\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⮉-.𒿏󠁼SS", %p)}, undef, "to_unicode\(\'\⮉\-.𒿏\󠁼SS\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3512\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⮉-.𒿏󠁼ss", %p)}, undef, "to_unicode\(\'\⮉\-.𒿏\󠁼ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3513\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⮉-.𒿏󠁼Ss", %p)}, undef, "to_unicode\(\'\⮉\-.𒿏\󠁼Ss\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3514\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0775}-≮。𐹽\x{FE29}\x{0724}", %p)}, undef, "to_unicode\(\'\\u0775\-\≮\。𐹽\\uFE29\\u0724\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3515\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0775}-<\x{0338}。𐹽\x{FE29}\x{0724}", %p)}, undef, "to_unicode\(\'\\u0775\-\<\\u0338\。𐹽\\uFE29\\u0724\'\)\ throws\ error\ P1\ V6\ B3\ B1\ \[data\/IdnaTest\.txt\:3516\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟥󠳮\x{0CCD}\x{0347}.𑖿\x{0F84}8󠇩", %p)}, undef, "to_unicode\(\'𝟥\󠳮\\u0CCD\\u0347.𑖿\\u0F848\󠇩\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3517\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3󠳮\x{0CCD}\x{0347}.𑖿\x{0F84}8󠇩", %p)}, undef, "to_unicode\(\'3\󠳮\\u0CCD\\u0347\.𑖿\\u0F848\󠇩\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3518\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。񃲑\x{200D}\x{0E4C}", %p)}, undef, "to_unicode\(\'\-。񃲑\\u200D\\u0E4C\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3519\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。񃲑\x{200D}\x{0E4C}", %p)}, undef, "to_unicode\(\'\-。񃲑\\u200D\\u0E4C\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3520\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。񃲑\x{200D}\x{0E4C}", %p)}, undef, "to_unicode\(\'\-\。񃲑\\u200D\\u0E4C\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3521\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。񃲑\x{200D}\x{0E4C}", %p)}, undef, "to_unicode\(\'\-\。񃲑\\u200D\\u0E4C\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:3522\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟓➲𝟐񱬭。𝩎򮖚", %p)}, undef, "to_unicode\(\'𝟓\➲𝟐񱬭。𝩎򮖚\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3523\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("5➲2񱬭。𝩎򮖚", %p)}, undef, "to_unicode\(\'5\➲2񱬭\。𝩎򮖚\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:3524\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.-├񷏳", %p)}, undef, "to_unicode\(\'\-\.\-\├񷏳\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3525\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{059D}ᢝ。\x{200D}🔘", %p)}, undef, "to_unicode\(\'\\u059Dᢝ。\\u200D🔘\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:3526\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{059D}ᢝ。\x{200D}🔘", %p)}, undef, "to_unicode\(\'\\u059Dᢝ。\\u200D🔘\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:3527\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{059D}ᢝ。\x{200D}🔘", %p)}, undef, "to_unicode\(\'\\u059Dᢝ\。\\u200D🔘\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:3528\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{059D}ᢝ。\x{200D}🔘", %p)}, undef, "to_unicode\(\'\\u059Dᢝ\。\\u200D🔘\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:3529\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("쥥󂿯Ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯Ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3530\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯Ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯Ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3531\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯Ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯Ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3532\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯Ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯Ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3533\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯Ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯Ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3534\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯Ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯Ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3535\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯Ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯Ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3536\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯Ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯Ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3537\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3538\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3539\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3540\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯ⴎ.\x{200C}1.1.ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯ⴎ\.\\u200C1\.1\.ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3541\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3542\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3543\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3544\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("쥥󂿯ⴎ.\x{200C}⒈⒈ᡥ", %p)}, undef, "to_unicode\(\'쥥󂿯ⴎ.\\u200C⒈⒈ᡥ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3545\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠀲𝟶\x{067C}-。\x{0B4D}", %p)}, undef, "to_unicode\(\'\󠀲𝟶\\u067C\-\。\\u0B4D\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3546\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠀲0\x{067C}-。\x{0B4D}", %p)}, undef, "to_unicode\(\'\󠀲0\\u067C\-\。\\u0B4D\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3547\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς.𐸹ꜘ⒈", %p)}, undef, "to_unicode\(\'ς.𐸹ꜘ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3548\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς.𐸹ꜘ1.", %p)}, undef, "to_unicode\(\'ς\.𐸹ꜘ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3549\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ.𐸹ꜘ1.", %p)}, undef, "to_unicode\(\'Σ\.𐸹ꜘ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3550\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ.𐸹ꜘ1.", %p)}, undef, "to_unicode\(\'σ\.𐸹ꜘ1\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3551\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ.𐸹ꜘ⒈", %p)}, undef, "to_unicode\(\'Σ.𐸹ꜘ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3552\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ.𐸹ꜘ⒈", %p)}, undef, "to_unicode\(\'σ.𐸹ꜘ⒈\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3553\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠳘-。𐹹򐴥򻚗", %p)}, undef, "to_unicode\(\'\󠳘\-。𐹹򐴥򻚗\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠳘-。𐹹򐴥򻚗", %p)}, undef, "to_unicode\(\'\󠳘\-\。𐹹򐴥򻚗\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞵆-󠔪。𝟻\x{200C}\x{05F7}", %p)}, undef, "to_unicode\(\'𞵆\-\󠔪。𝟻\\u200C\\u05F7\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞵆-󠔪。𝟻\x{200C}\x{05F7}", %p)}, undef, "to_unicode\(\'𞵆\-\󠔪。𝟻\\u200C\\u05F7\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3557\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞵆-󠔪。5\x{200C}\x{05F7}", %p)}, undef, "to_unicode\(\'𞵆\-\󠔪\。5\\u200C\\u05F7\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3558\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞵆-󠔪。5\x{200C}\x{05F7}", %p)}, undef, "to_unicode\(\'𞵆\-\󠔪\。5\\u200C\\u05F7\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C1\ \[data\/IdnaTest\.txt\:3559\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dß.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3560\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dß.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3561\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dß.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3562\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dß.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3563\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dß\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3564\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dß\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3565\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dß\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3566\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dß\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3567\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSS\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3568\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSS\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3569\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSS\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3570\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSS\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3571\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dss\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3572\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dss\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3573\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dss\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3574\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dss\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3575\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSs\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3576\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSs\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3577\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSs\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3578\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSs\.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3579\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSS.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3580\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSS.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3581\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSS.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3582\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}SS.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSS.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3583\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dss.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3584\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dss.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3585\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dss.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3586\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200Dss.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3587\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSs.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3588\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSs.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3589\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSs.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3590\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}Ss.\x{074E}0\x{135D}", %p)}, undef, "to_unicode\(\'𐹸늿\\u200DSs.\\u074E0\\u135D\'\)\ throws\ error\ B1\ C2\ \[data\/IdnaTest\.txt\:3591\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("9\x{0C3E}.󡇎\x{0722}", %p)}, undef, "to_unicode\(\'9\\u0C3E.󡇎\\u0722\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3592\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("9\x{0C3E}.󡇎\x{0722}", %p)}, undef, "to_unicode\(\'9\\u0C3E\.󡇎\\u0722\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3593\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐱇󠽵ß⺀", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐱇\󠽵ß⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3594\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐱇󠽵ß⺀", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐱇\󠽵ß⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3595\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐱇󠽵ß⺀", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐱇\󠽵ß⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3596\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐱇󠽵ß⺀", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐱇\󠽵ß⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3597\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐱇󠽵SS⺀", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐱇\󠽵SS⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3598\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐱇󠽵SS⺀", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐱇\󠽵SS⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3599\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐱇󠽵ss⺀", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐱇\󠽵ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3600\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐱇󠽵ss⺀", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐱇\󠽵ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐱇󠽵Ss⺀", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐱇\󠽵Ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1160}.𐱇󠽵Ss⺀", %p)}, undef, "to_unicode\(\'\\u200C\\u1160\.𐱇\󠽵Ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐱇󠽵SS⺀", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐱇\󠽵SS⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐱇󠽵SS⺀", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐱇\󠽵SS⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐱇󠽵ss⺀", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐱇\󠽵ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3606\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐱇󠽵ss⺀", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐱇\󠽵ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3607\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐱇󠽵Ss⺀", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐱇\󠽵Ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3608\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{FFA0}.𐱇󠽵Ss⺀", %p)}, undef, "to_unicode\(\'\\u200C\\uFFA0\.𐱇\󠽵Ss⺀\'\)\ throws\ error\ P1\ V6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:3609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒Ⴖ𝅷.\x{200C}", %p)}, undef, "to_unicode\(\'︒Ⴖ\𝅷.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒Ⴖ𝅷.\x{200C}", %p)}, undef, "to_unicode\(\'︒Ⴖ\𝅷.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。Ⴖ𝅷.\x{200C}", %p)}, undef, "to_unicode\(\'\。Ⴖ\𝅷\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。Ⴖ𝅷.\x{200C}", %p)}, undef, "to_unicode\(\'\。Ⴖ\𝅷\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。ⴖ𝅷.\x{200C}", %p)}, undef, "to_unicode\(\'\。ⴖ\𝅷\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3614\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。ⴖ𝅷.\x{200C}", %p)}, undef, "to_unicode\(\'\。ⴖ\𝅷\.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3615\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒ⴖ𝅷.\x{200C}", %p)}, undef, "to_unicode\(\'︒ⴖ\𝅷.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3616\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒ⴖ𝅷.\x{200C}", %p)}, undef, "to_unicode\(\'︒ⴖ\𝅷.\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3617\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠸ.\x{200C}Ⴃ\x{0F90}", %p)}, undef, "to_unicode\(\'ᠸ.\\u200CႣ\\u0F90\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3618\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠸ.\x{200C}Ⴃ\x{0F90}", %p)}, undef, "to_unicode\(\'ᠸ.\\u200CႣ\\u0F90\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠸ.\x{200C}Ⴃ\x{0F90}", %p)}, undef, "to_unicode\(\'ᠸ\.\\u200CႣ\\u0F90\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠸ.\x{200C}Ⴃ\x{0F90}", %p)}, undef, "to_unicode\(\'ᠸ\.\\u200CႣ\\u0F90\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3621\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0F90}", %p)}, undef, "to_unicode\(\'ᠸ\.\\u200Cⴃ\\u0F90\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3622\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0F90}", %p)}, undef, "to_unicode\(\'ᠸ\.\\u200Cⴃ\\u0F90\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3623\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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--r7e.xn--gfd191m", %p)}, "ᠸ.ⴃ\x{0F90}", "to_unicode\(\'xn\-\-r7e\.xn\-\-gfd191m\'\)\ \[data\/IdnaTest\.txt\:3624\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0F90}", %p)}, "ᠸ.ⴃ\x{0F90}", "to_unicode\(\'ᠸ\.ⴃ\\u0F90\'\)\ \[data\/IdnaTest\.txt\:3625\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᠸ.Ⴃ\x{0F90}", %p)}, undef, "to_unicode\(\'ᠸ\.Ⴃ\\u0F90\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3626\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0F90}", %p)}, undef, "to_unicode\(\'ᠸ.\\u200Cⴃ\\u0F90\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3627\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0F90}", %p)}, undef, "to_unicode\(\'ᠸ.\\u200Cⴃ\\u0F90\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:3628\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}\x{200C}。2䫷⋻", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。2䫷\⋻\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3629\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}。2䫷⋻", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。2䫷\⋻\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3630\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}。2䫷⋻", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。2䫷\⋻\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3631\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200C}。2䫷⋻", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\。2䫷\⋻\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:3632\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--2-poow91p", %p)}, "2䫷⋻", "to_unicode\(\'xn\-\-2\-poow91p\'\)\ \[data\/IdnaTest\.txt\:3633\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2䫷⋻", %p)}, "2䫷⋻", "to_unicode\(\'2䫷\⋻\'\)\ \[data\/IdnaTest\.txt\:3634\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-󠅾󥘨。򻀠", %p)}, undef, "to_unicode\(\'\-\󠅾󥘨\。򻀠\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3635\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󝺜︒\x{200C}㟀.\x{07E7}⒈", %p)}, undef, "to_unicode\(\'󝺜︒\\u200C㟀.\\u07E7⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3636\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󝺜︒\x{200C}㟀.\x{07E7}⒈", %p)}, undef, "to_unicode\(\'󝺜︒\\u200C㟀.\\u07E7⒈\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󝺜。\x{200C}㟀.\x{07E7}1.", %p)}, undef, "to_unicode\(\'󝺜\。\\u200C㟀\.\\u07E71\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󝺜。\x{200C}㟀.\x{07E7}1.", %p)}, undef, "to_unicode\(\'󝺜\。\\u200C㟀\.\\u07E71\.\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3639\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05AA}。-\x{200D}", %p)}, undef, "to_unicode\(\'\󠆮ꡬ\\u05AA\。\-\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3640\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05AA}。-\x{200D}", %p)}, undef, "to_unicode\(\'\󠆮ꡬ\\u05AA\。\-\\u200D\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:3641\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠𐬉", %p)}, undef, "to_unicode\(\'\\u200C.Ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠𐬉", %p)}, undef, "to_unicode\(\'\\u200C.Ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3643\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}𐬉", %p)}, undef, "to_unicode\(\'\\u200C.Ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3644\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}𐬉", %p)}, undef, "to_unicode\(\'\\u200C.Ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3645\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠𐬉", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3646\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ≠𐬉", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3647\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}𐬉", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3648\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.Ⴉ=\x{0338}𐬉", %p)}, undef, "to_unicode\(\'\\u200C\.Ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3649\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}𐬉", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3650\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}𐬉", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3651\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ≠𐬉", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3652\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ≠𐬉", %p)}, undef, "to_unicode\(\'\\u200C\.ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3653\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}𐬉", %p)}, undef, "to_unicode\(\'\\u200C.ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3654\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ=\x{0338}𐬉", %p)}, undef, "to_unicode\(\'\\u200C.ⴉ\=\\u0338𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3655\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ≠𐬉", %p)}, undef, "to_unicode\(\'\\u200C.ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3656\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.ⴉ≠𐬉", %p)}, undef, "to_unicode\(\'\\u200C.ⴉ\≠𐬉\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3657\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮈。≯ς", %p)}, undef, "to_unicode\(\'𐮈\。\≯ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3658\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮈。>\x{0338}ς", %p)}, undef, "to_unicode\(\'𐮈\。\>\\u0338ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3659\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮈。>\x{0338}Σ", %p)}, undef, "to_unicode\(\'𐮈\。\>\\u0338Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3660\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮈。≯Σ", %p)}, undef, "to_unicode\(\'𐮈\。\≯Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3661\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮈。≯σ", %p)}, undef, "to_unicode\(\'𐮈\。\≯σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3662\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐮈。>\x{0338}σ", %p)}, undef, "to_unicode\(\'𐮈\。\>\\u0338σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3663\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱸𞴇.𞥂︒򨹓Ⴐ", %p)}, undef, "to_unicode\(\'𐱸𞴇\.𞥂︒򨹓Ⴐ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3664\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱸𞴇.𞥂。򨹓Ⴐ", %p)}, undef, "to_unicode\(\'𐱸𞴇\.𞥂\。򨹓Ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3665\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱸𞴇.𞥂。򨹓ⴐ", %p)}, undef, "to_unicode\(\'𐱸𞴇\.𞥂\。򨹓ⴐ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3666\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱸𞴇.𞥂︒򨹓ⴐ", %p)}, undef, "to_unicode\(\'𐱸𞴇\.𞥂︒򨹓ⴐ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3667\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴥ🠠⸄⧲。󠇠", %p)}, undef, "to_unicode\(\'Ⴥ🠠\⸄\⧲。\󠇠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3668\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴥ🠠⸄⧲。󠇠", %p)}, undef, "to_unicode\(\'Ⴥ🠠\⸄\⧲\。\󠇠\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3669\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴥ🠠⸄⧲。󠇠", %p)}, "ⴥ🠠⸄⧲.", "to_unicode\(\'ⴥ🠠\⸄\⧲\。\󠇠\'\)\ \[data\/IdnaTest\.txt\:3670\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--fxi61ietai923l.", %p)}, "ⴥ🠠⸄⧲.", "to_unicode\(\'xn\-\-fxi61ietai923l\.\'\)\ \[data\/IdnaTest\.txt\:3671\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴥ🠠⸄⧲.", %p)}, "ⴥ🠠⸄⧲.", "to_unicode\(\'ⴥ🠠\⸄\⧲\.\'\)\ \[data\/IdnaTest\.txt\:3672\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴥ🠠⸄⧲.", %p)}, undef, "to_unicode\(\'Ⴥ🠠\⸄\⧲\.\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3673\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ⴥ🠠⸄⧲。󠇠", %p)}, "ⴥ🠠⸄⧲.", "to_unicode\(\'ⴥ🠠\⸄\⧲。\󠇠\'\)\ \[data\/IdnaTest\.txt\:3674\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("🄈。󠦐ᢙ", %p)}, undef, "to_unicode\(\'🄈\。\󠦐ᢙ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3675\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("7,。󠦐ᢙ", %p)}, undef, "to_unicode\(\'7\,\。\󠦐ᢙ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3676\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{063D}。섖쮖ß", %p)}, undef, "to_unicode\(\'\≮\\u063D\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3677\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{063D}。섖쮖ß", %p)}, undef, "to_unicode\(\'\<\\u0338\\u063D\。섖쮖ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3678\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{063D}。섖쮖SS", %p)}, undef, "to_unicode\(\'\<\\u0338\\u063D\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3679\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{063D}。섖쮖SS", %p)}, undef, "to_unicode\(\'\≮\\u063D\。섖쮖SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3680\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{063D}。섖쮖ss", %p)}, undef, "to_unicode\(\'\≮\\u063D\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3681\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{063D}。섖쮖ss", %p)}, undef, "to_unicode\(\'\<\\u0338\\u063D\。섖쮖ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3682\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}\x{063D}。섖쮖Ss", %p)}, undef, "to_unicode\(\'\<\\u0338\\u063D\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3683\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮\x{063D}。섖쮖Ss", %p)}, undef, "to_unicode\(\'\≮\\u063D\。섖쮖Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3684\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1A6A}󠍨-。\x{06A2}", %p)}, undef, "to_unicode\(\'\\u1A6A\󠍨\-\。\\u06A2\'\)\ throws\ error\ P1\ V3\ V5\ V6\ \[data\/IdnaTest\.txt\:3685\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞱦\x{06DD}\x{0845}\x{0E3A}。\x{069E}\x{0726}\x{200C}\x{062C}", %p)}, undef, "to_unicode\(\'𞱦\\u06DD\\u0845\\u0E3A\。\\u069E\\u0726\\u200C\\u062C\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3686\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1AB6}.𞨕򗡺", %p)}, undef, "to_unicode\(\'\\u1AB6\.𞨕򗡺\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3687\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("--。󶅄\x{07D9}\x{FD60}\x{FDB5}", %p)}, undef, "to_unicode\(\'\-\-\。󶅄\\u07D9\\uFD60\\uFDB5\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3688\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("--。󶅄\x{07D9}\x{0633}\x{0645}\x{062D}\x{0644}\x{062D}\x{0645}", %p)}, undef, "to_unicode\(\'\-\-\。󶅄\\u07D9\\u0633\\u0645\\u062D\\u0644\\u062D\\u0645\'\)\ throws\ error\ P1\ V3\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3689\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񰋴𐋥𚴢.≯\x{08A2}\x{06C1}򮁎", %p)}, undef, "to_unicode\(\'񰋴𐋥𚴢\.\≯\\u08A2\\u06C1򮁎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3690\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񰋴𐋥𚴢.>\x{0338}\x{08A2}\x{06C1}򮁎", %p)}, undef, "to_unicode\(\'񰋴𐋥𚴢\.\>\\u0338\\u08A2\\u06C1򮁎\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3691\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䔛󠅆󙭅𐹸.-䤷", %p)}, undef, "to_unicode\(\'䔛\󠅆󙭅𐹸.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3692\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䔛󠅆󙭅𐹸.-䤷", %p)}, undef, "to_unicode\(\'䔛\󠅆󙭅𐹸\.\-䤷\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:3693\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0665}.\x{200D}-", %p)}, undef, "to_unicode\(\'\\u0665.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3694\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0665}.\x{200D}-", %p)}, undef, "to_unicode\(\'\\u0665.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3695\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0665}.\x{200D}-", %p)}, undef, "to_unicode\(\'\\u0665\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3696\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0665}.\x{200D}-", %p)}, undef, "to_unicode\(\'\\u0665\.\\u200D\-\'\)\ throws\ error\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:3697\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򳥎帷。≯萺🢓-", %p)}, undef, "to_unicode\(\'򳥎帷。\≯萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3698\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򳥎帷。>\x{0338}萺🢓-", %p)}, undef, "to_unicode\(\'򳥎帷。\>\\u0338萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3699\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򳥎帷。≯萺🢓-", %p)}, undef, "to_unicode\(\'򳥎帷\。\≯萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򳥎帷。>\x{0338}萺🢓-", %p)}, undef, "to_unicode\(\'򳥎帷\。\>\\u0338萺🢓\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:3701\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}攌\x{1BAA}。\x{0641}-Ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\u1BAA\。\\u0641\-Ⴘ\'\)\ throws\ error\ P1\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3702\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}攌\x{1BAA}。\x{0641}-Ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\u1BAA\。\\u0641\-Ⴘ\'\)\ throws\ error\ P1\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3703\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1BAA}。\x{0641}-ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\u1BAA\。\\u0641\-ⴘ\'\)\ throws\ error\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3704\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{1BAA}。\x{0641}-ⴘ", %p)}, undef, "to_unicode\(\'\\u200D攌\\u1BAA\。\\u0641\-ⴘ\'\)\ throws\ error\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3705\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}ꖨ.⒗3􆤫۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ.⒗3􆤫۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3706\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ꖨ.⒗3􆤫۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ.⒗3􆤫۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3707\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ꖨ.16.3􆤫۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ\.16\.3􆤫۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ꖨ.16.3􆤫۳", %p)}, undef, "to_unicode\(\'\\u200Cꖨ\.16\.3􆤫۳\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3709\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈걾6.𞼾\x{06A6}", %p)}, undef, "to_unicode\(\'⒈걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3710\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈걾6.𞼾\x{06A6}", %p)}, undef, "to_unicode\(\'⒈걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3711\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.걾6.𞼾\x{06A6}", %p)}, undef, "to_unicode\(\'1\.걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3712\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.걾6.𞼾\x{06A6}", %p)}, undef, "to_unicode\(\'1\.걾6\.𞼾\\u06A6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3713\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐭹𝟶≮≮.\x{07EC}\x{063F}", %p)}, undef, "to_unicode\(\'𐭹𝟶\≮\≮\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3714\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐭹𝟶<\x{0338}<\x{0338}.\x{07EC}\x{063F}", %p)}, undef, "to_unicode\(\'𐭹𝟶\<\\u0338\<\\u0338\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3715\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐭹0≮≮.\x{07EC}\x{063F}", %p)}, undef, "to_unicode\(\'𐭹0\≮\≮\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3716\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐭹0<\x{0338}<\x{0338}.\x{07EC}\x{063F}", %p)}, undef, "to_unicode\(\'𐭹0\<\\u0338\<\\u0338\.\\u07EC\\u063F\'\)\ throws\ error\ P1\ V6\ V5\ B3\ B1\ \[data\/IdnaTest\.txt\:3717\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝩎.𐹥\x{115F}", %p)}, undef, "to_unicode\(\'𝩎\.𐹥\\u115F\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3718\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{05A2}\x{0E4B}.\x{200D}", %p)}, undef, "to_unicode\(\'𝟏\\u05A2\\u0E4B\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3719\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{05A2}\x{0E4B}.\x{200D}", %p)}, undef, "to_unicode\(\'𝟏\\u05A2\\u0E4B\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3720\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0E4B}\x{05A2}.\x{200D}", %p)}, undef, "to_unicode\(\'𝟏\\u0E4B\\u05A2\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3721\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0E4B}\x{05A2}.\x{200D}", %p)}, undef, "to_unicode\(\'𝟏\\u0E4B\\u05A2\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3722\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0E4B}\x{05A2}.\x{200D}", %p)}, undef, "to_unicode\(\'1\\u0E4B\\u05A2\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3723\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0E4B}\x{05A2}.\x{200D}", %p)}, undef, "to_unicode\(\'1\\u0E4B\\u05A2\.\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3724\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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--1-efc467d.", %p)}, "1\x{0E4B}\x{05A2}.", "to_unicode\(\'xn\-\-1\-efc467d\.\'\)\ \[data\/IdnaTest\.txt\:3725\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0E4B}\x{05A2}.", %p)}, "1\x{0E4B}\x{05A2}.", "to_unicode\(\'1\\u0E4B\\u05A2\.\'\)\ \[data\/IdnaTest\.txt\:3726\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ꡏ≠\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_unicode\(\'ꡏ\≠\\u07DF\\u103A。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3727\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏ≠\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_unicode\(\'ꡏ\≠\\u07DF\\u103A。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3728\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏ=\x{0338}\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_unicode\(\'ꡏ\=\\u0338\\u07DF\\u103A。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3729\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏ=\x{0338}\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_unicode\(\'ꡏ\=\\u0338\\u07DF\\u103A。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3730\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏ≠\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_unicode\(\'ꡏ\≠\\u07DF\\u103A\。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3731\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏ≠\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_unicode\(\'ꡏ\≠\\u07DF\\u103A\。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3732\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏ=\x{0338}\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_unicode\(\'ꡏ\=\\u0338\\u07DF\\u103A\。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3733\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡏ=\x{0338}\x{07DF}\x{103A}。-\x{200C}𐮀", %p)}, undef, "to_unicode\(\'ꡏ\=\\u0338\\u07DF\\u103A\。\-\\u200C𐮀\'\)\ throws\ error\ P1\ V6\ V3\ B5\ B6\ B1\ C1\ \[data\/IdnaTest\.txt\:3734\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐹹𑜩-\x{08AA}。𐫚", %p)}, undef, "to_unicode\(\'𐹹𑜩\-\\u08AA。𐫚\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3735\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𐹹𑜩-\x{08AA}。𐫚", %p)}, undef, "to_unicode\(\'𐹹𑜩\-\\u08AA\。𐫚\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3736\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("F\x{1AB4}。񸃫🌿", %p)}, undef, "to_unicode\(\'F\\u1AB4。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3737\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("F\x{1AB4}。񸃫🌿", %p)}, undef, "to_unicode\(\'F\\u1AB4\。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3738\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("f\x{1AB4}。񸃫🌿", %p)}, undef, "to_unicode\(\'f\\u1AB4\。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3739\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("f\x{1AB4}。񸃫🌿", %p)}, undef, "to_unicode\(\'f\\u1AB4。񸃫🌿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3740\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵𑍍\x{05C1}。𝟮Ⴘ\x{1B03}𪌓", %p)}, undef, "to_unicode\(\'𑈵𑍍\\u05C1\。𝟮Ⴘ\\u1B03𪌓\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3741\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵𑍍\x{05C1}。2Ⴘ\x{1B03}𪌓", %p)}, undef, "to_unicode\(\'𑈵𑍍\\u05C1\。2Ⴘ\\u1B03𪌓\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3742\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑈵𑍍\x{05C1}。2ⴘ\x{1B03}𪌓", %p)}, undef, "to_unicode\(\'𑈵𑍍\\u05C1\。2ⴘ\\u1B03𪌓\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3743\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑈵𑍍\x{05C1}。𝟮ⴘ\x{1B03}𪌓", %p)}, undef, "to_unicode\(\'𑈵𑍍\\u05C1\。𝟮ⴘ\\u1B03𪌓\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3744\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󙐃\x{200C}\x{200C}⒈。勉\x{08F6}", %p)}, undef, "to_unicode\(\'󙐃\\u200C\\u200C⒈\。勉\\u08F6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3745\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󙐃\x{200C}\x{200C}⒈。勉\x{08F6}", %p)}, undef, "to_unicode\(\'󙐃\\u200C\\u200C⒈\。勉\\u08F6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3746\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󙐃\x{200C}\x{200C}1.。勉\x{08F6}", %p)}, undef, "to_unicode\(\'󙐃\\u200C\\u200C1\.\。勉\\u08F6\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3747\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󙐃\x{200C}\x{200C}1.。勉\x{08F6}", %p)}, undef, "to_unicode\(\'󙐃\\u200C\\u200C1\.\。勉\\u08F6\'\)\ throws\ error\ P1\ V6\ C1\ A4_2\ \[data\/IdnaTest\.txt\:3748\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07DE}.􋧲򆔛򚝌", %p)}, undef, "to_unicode\(\'\\u07DE\.􋧲򆔛򚝌\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3749\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。⒈≯𝟵", %p)}, undef, "to_unicode\(\'\\u200C\\u200C。⒈\≯𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3750\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。⒈≯𝟵", %p)}, undef, "to_unicode\(\'\\u200C\\u200C。⒈\≯𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3751\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。⒈>\x{0338}𝟵", %p)}, undef, "to_unicode\(\'\\u200C\\u200C。⒈\>\\u0338𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3752\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。⒈>\x{0338}𝟵", %p)}, undef, "to_unicode\(\'\\u200C\\u200C。⒈\>\\u0338𝟵\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3753\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.≯9", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\≯9\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3754\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.≯9", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\≯9\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3755\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.>\x{0338}9", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\>\\u03389\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3756\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{200C}。1.>\x{0338}9", %p)}, undef, "to_unicode\(\'\\u200C\\u200C\。1\.\>\\u03389\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:3757\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}󠁔񹨕.񡆍≯ᡱ", %p)}, undef, "to_unicode\(\'\\u115F\󠁔񹨕\.񡆍\≯ᡱ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3758\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}󠁔񹨕.񡆍>\x{0338}ᡱ", %p)}, undef, "to_unicode\(\'\\u115F\󠁔񹨕\.񡆍\>\\u0338ᡱ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3759\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⽛󠇧\x{200D}\x{06A4}.𑆻-\x{20E0}򔔷", %p)}, undef, "to_unicode\(\'⽛\󠇧\\u200D\\u06A4\.𑆻\-\\u20E0򔔷\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3760\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⽛󠇧\x{200D}\x{06A4}.𑆻-\x{20E0}򔔷", %p)}, undef, "to_unicode\(\'⽛\󠇧\\u200D\\u06A4\.𑆻\-\\u20E0򔔷\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3761\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("牙󠇧\x{200D}\x{06A4}.𑆻-\x{20E0}򔔷", %p)}, undef, "to_unicode\(\'牙\󠇧\\u200D\\u06A4\.𑆻\-\\u20E0򔔷\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3762\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("牙󠇧\x{200D}\x{06A4}.𑆻-\x{20E0}򔔷", %p)}, undef, "to_unicode\(\'牙\󠇧\\u200D\\u06A4\.𑆻\-\\u20E0򔔷\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3763\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{035D}.\x{2D7F}-", %p)}, undef, "to_unicode\(\'\\u035D.\\u2D7F\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3764\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{035D}.\x{2D7F}-", %p)}, undef, "to_unicode\(\'\\u035D\.\\u2D7F\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3765\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("䮸ß.┶☍紙\x{0710}", %p)}, undef, "to_unicode\(\'䮸ß\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3766\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䮸SS.┶☍紙\x{0710}", %p)}, undef, "to_unicode\(\'䮸SS\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3767\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䮸ss.┶☍紙\x{0710}", %p)}, undef, "to_unicode\(\'䮸ss\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3768\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䮸Ss.┶☍紙\x{0710}", %p)}, undef, "to_unicode\(\'䮸Ss\.\┶\☍紙\\u0710\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3769\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-Ⴞ.-⎟≈𞴈", %p)}, undef, "to_unicode\(\'\-Ⴞ\.\-\⎟\≈𞴈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3770\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ⴞ.-⎟≈𞴈", %p)}, undef, "to_unicode\(\'\-ⴞ\.\-\⎟\≈𞴈\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:3771\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󊡝𐹮𑜝。𵘅\x{07EA}𚷖ᠥ", %p)}, undef, "to_unicode\(\'󊡝𐹮𑜝。𵘅\\u07EA𚷖ᠥ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3772\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󊡝𐹮𑜝。𵘅\x{07EA}𚷖ᠥ", %p)}, undef, "to_unicode\(\'󊡝𐹮𑜝\。𵘅\\u07EA𚷖ᠥ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3773\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B02}-\x{200D}\x{1CE8}.\x{067A}\x{200D}񻭁", %p)}, undef, "to_unicode\(\'\\u1B02\-\\u200D\\u1CE8.\\u067A\\u200D񻭁\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3774\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B02}-\x{200D}\x{1CE8}.\x{067A}\x{200D}񻭁", %p)}, undef, "to_unicode\(\'\\u1B02\-\\u200D\\u1CE8.\\u067A\\u200D񻭁\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3775\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B02}-\x{200D}\x{1CE8}.\x{067A}\x{200D}񻭁", %p)}, undef, "to_unicode\(\'\\u1B02\-\\u200D\\u1CE8\.\\u067A\\u200D񻭁\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3776\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B02}-\x{200D}\x{1CE8}.\x{067A}\x{200D}񻭁", %p)}, undef, "to_unicode\(\'\\u1B02\-\\u200D\\u1CE8\.\\u067A\\u200D񻭁\'\)\ throws\ error\ P1\ V5\ V6\ C2\ B2\ B3\ \[data\/IdnaTest\.txt\:3777\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۱。≠\x{0667}", %p)}, undef, "to_unicode\(\'۱\。\≠\\u0667\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3778\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("۱。=\x{0338}\x{0667}", %p)}, undef, "to_unicode\(\'۱\。\=\\u0338\\u0667\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3779\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A8C4}廊.\x{07D4}", %p)}, undef, "to_unicode\(\'\\uA8C4廊\.\\u07D4\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3780\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200D}\x{17CF}-.-Ⴐ𐹥", %p)}, undef, "to_unicode\(\'\\u200D\\u17CF\-.\-Ⴐ𐹥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3781\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{17CF}-.-Ⴐ𐹥", %p)}, undef, "to_unicode\(\'\\u200D\\u17CF\-.\-Ⴐ𐹥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3782\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{17CF}-.-Ⴐ𐹥", %p)}, undef, "to_unicode\(\'\\u200D\\u17CF\-\.\-Ⴐ𐹥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3783\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{17CF}-.-Ⴐ𐹥", %p)}, undef, "to_unicode\(\'\\u200D\\u17CF\-\.\-Ⴐ𐹥\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3784\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{17CF}-.-ⴐ𐹥", %p)}, undef, "to_unicode\(\'\\u200D\\u17CF\-\.\-ⴐ𐹥\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3785\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{17CF}-.-ⴐ𐹥", %p)}, undef, "to_unicode\(\'\\u200D\\u17CF\-\.\-ⴐ𐹥\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3786\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{17CF}-.-ⴐ𐹥", %p)}, undef, "to_unicode\(\'\\u200D\\u17CF\-.\-ⴐ𐹥\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3787\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{17CF}-.-ⴐ𐹥", %p)}, undef, "to_unicode\(\'\\u200D\\u17CF\-.\-ⴐ𐹥\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3788\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᡈ𐹯挏򨆦.-", %p)}, undef, "to_unicode\(\'ᡈ𐹯挏򨆦\.\-\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:3789\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{084C}", %p)}, undef, "to_unicode\(\'𞸷。𐹪\\u084C\'\)\ throws\ error\ B1\ \[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_unicode("\x{062E}。𐹪\x{084C}", %p)}, undef, "to_unicode\(\'\\u062E\。𐹪\\u084C\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3791\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_unicode\(\'Ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3792\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_unicode\(\'Ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3793\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_unicode\(\'Ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3794\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_unicode\(\'Ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3795\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_unicode\(\'ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3796\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_unicode\(\'ⴞ\󠛸盥\.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3797\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_unicode\(\'ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3798\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴞ󠛸盥.ꡧ릫", %p)}, undef, "to_unicode\(\'ⴞ\󠛸盥.ꡧ릫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3799\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("✦󃕌𐮮𐹸。≯\x{200C}\x{A8E5}", %p)}, undef, "to_unicode\(\'\✦󃕌𐮮𐹸。\≯\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3800\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("✦󃕌𐮮𐹸。≯\x{200C}\x{A8E5}", %p)}, undef, "to_unicode\(\'\✦󃕌𐮮𐹸。\≯\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3801\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("✦󃕌𐮮𐹸。>\x{0338}\x{200C}\x{A8E5}", %p)}, undef, "to_unicode\(\'\✦󃕌𐮮𐹸。\>\\u0338\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3802\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("✦󃕌𐮮𐹸。>\x{0338}\x{200C}\x{A8E5}", %p)}, undef, "to_unicode\(\'\✦󃕌𐮮𐹸。\>\\u0338\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3803\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("✦󃕌𐮮𐹸。≯\x{200C}\x{A8E5}", %p)}, undef, "to_unicode\(\'\✦󃕌𐮮𐹸\。\≯\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3804\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("✦󃕌𐮮𐹸。≯\x{200C}\x{A8E5}", %p)}, undef, "to_unicode\(\'\✦󃕌𐮮𐹸\。\≯\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3805\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("✦󃕌𐮮𐹸。>\x{0338}\x{200C}\x{A8E5}", %p)}, undef, "to_unicode\(\'\✦󃕌𐮮𐹸\。\>\\u0338\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3806\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("✦󃕌𐮮𐹸。>\x{0338}\x{200C}\x{A8E5}", %p)}, undef, "to_unicode\(\'\✦󃕌𐮮𐹸\。\>\\u0338\\u200C\\uA8E5\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3807\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0351}⎛\x{200D}。\x{0662}\x{0668}𐦋-", %p)}, undef, "to_unicode\(\'ᛎ\\u0351\⎛\\u200D。\\u0662\\u0668𐦋\-\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3808\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0351}⎛\x{200D}。\x{0662}\x{0668}𐦋-", %p)}, undef, "to_unicode\(\'ᛎ\\u0351\⎛\\u200D。\\u0662\\u0668𐦋\-\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3809\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0351}⎛\x{200D}。\x{0662}\x{0668}𐦋-", %p)}, undef, "to_unicode\(\'ᛎ\\u0351\⎛\\u200D\。\\u0662\\u0668𐦋\-\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3810\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{0351}⎛\x{200D}。\x{0662}\x{0668}𐦋-", %p)}, undef, "to_unicode\(\'ᛎ\\u0351\⎛\\u200D\。\\u0662\\u0668𐦋\-\'\)\ throws\ error\ V3\ C2\ B1\ \[data\/IdnaTest\.txt\:3811\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0666}.\x{06FB}", %p)}, undef, "to_unicode\(\'\\u0666\.\\u06FB\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3812\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200D}𑁆。⒈", %p)}, undef, "to_unicode\(\'ß\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3813\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß\x{200D}𑁆。⒈", %p)}, undef, "to_unicode\(\'ß\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3814\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}𑁆。1.", %p)}, undef, "to_unicode\(\'ß\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3815\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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}𑁆。1.", %p)}, undef, "to_unicode\(\'ß\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3816\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("SS\x{200D}𑁆。1.", %p)}, undef, "to_unicode\(\'SS\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3817\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("SS\x{200D}𑁆。1.", %p)}, undef, "to_unicode\(\'SS\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3818\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("ss\x{200D}𑁆。1.", %p)}, undef, "to_unicode\(\'ss\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3819\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("ss\x{200D}𑁆。1.", %p)}, undef, "to_unicode\(\'ss\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3820\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("Ss\x{200D}𑁆。1.", %p)}, undef, "to_unicode\(\'Ss\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3821\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("Ss\x{200D}𑁆。1.", %p)}, undef, "to_unicode\(\'Ss\\u200D𑁆\。1\.\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3822\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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--ss-tn4o.1.", %p)}, "ss𑁆.1.", "to_unicode\(\'xn\-\-ss\-tn4o\.1\.\'\)\ \[data\/IdnaTest\.txt\:3823\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("ss𑁆.1.", %p)}, "ss𑁆.1.", "to_unicode\(\'ss𑁆\.1\.\'\)\ \[data\/IdnaTest\.txt\:3824\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("SS𑁆.1.", %p)}, "ss𑁆.1.", "to_unicode\(\'SS𑁆\.1\.\'\)\ \[data\/IdnaTest\.txt\:3825\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.0; is(eval{uts46_to_unicode("Ss𑁆.1.", %p)}, "ss𑁆.1.", "to_unicode\(\'Ss𑁆\.1\.\'\)\ \[data\/IdnaTest\.txt\:3826\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("SS\x{200D}𑁆。⒈", %p)}, undef, "to_unicode\(\'SS\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3827\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS\x{200D}𑁆。⒈", %p)}, undef, "to_unicode\(\'SS\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3828\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}𑁆。⒈", %p)}, undef, "to_unicode\(\'ss\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3829\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss\x{200D}𑁆。⒈", %p)}, undef, "to_unicode\(\'ss\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3830\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}𑁆。⒈", %p)}, undef, "to_unicode\(\'Ss\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3831\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss\x{200D}𑁆。⒈", %p)}, undef, "to_unicode\(\'Ss\\u200D𑁆。⒈\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:3832\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B44}\x{200C}򦃽𐴮。\x{200D}", %p)}, undef, "to_unicode\(\'\\u1B44\\u200C򦃽𐴮\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3833\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1B44}\x{200C}򦃽𐴮。\x{200D}", %p)}, undef, "to_unicode\(\'\\u1B44\\u200C򦃽𐴮\。\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:3834\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{17BC}", %p)}, "ᡏ.ꡂ\x{17BC}", "to_unicode\(\'ᡏ。ꡂ\\u17BC\'\)\ \[data\/IdnaTest\.txt\:3835\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{17BC}", %p)}, "ᡏ.ꡂ\x{17BC}", "to_unicode\(\'ᡏ\。ꡂ\\u17BC\'\)\ \[data\/IdnaTest\.txt\:3836\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--f8e.xn--73e9015e", %p)}, "ᡏ.ꡂ\x{17BC}", "to_unicode\(\'xn\-\-f8e\.xn\-\-73e9015e\'\)\ \[data\/IdnaTest\.txt\:3837\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{17BC}", %p)}, "ᡏ.ꡂ\x{17BC}", "to_unicode\(\'ᡏ\.ꡂ\\u17BC\'\)\ \[data\/IdnaTest\.txt\:3838\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{17D2}。\x{071F}\x{0954}\x{200C}𑄴", %p)}, undef, "to_unicode\(\'ᡦ\\u17D2\。\\u071F\\u0954\\u200C𑄴\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:3839\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{17D2}。\x{071F}\x{0954}\x{200C}𑄴", %p)}, undef, "to_unicode\(\'ᡦ\\u17D2\。\\u071F\\u0954\\u200C𑄴\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:3840\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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--u4e90a.xn--pnb44if575b", %p)}, "ᡦ\x{17D2}.\x{071F}𑄴\x{0954}", "to_unicode\(\'xn\-\-u4e90a\.xn\-\-pnb44if575b\'\)\ \[data\/IdnaTest\.txt\:3841\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{17D2}.\x{071F}𑄴\x{0954}", %p)}, "ᡦ\x{17D2}.\x{071F}𑄴\x{0954}", "to_unicode\(\'ᡦ\\u17D2\.\\u071F𑄴\\u0954\'\)\ \[data\/IdnaTest\.txt\:3842\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{A4CE}.𑈶\x{0684}", %p)}, undef, "to_unicode\(\'\\uA4CE\.𑈶\\u0684\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3843\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.ß𑇀𑆸", %p)}, "\x{0713}𑜫.ß𑇀𑆸", "to_unicode\(\'\\u0713𑜫.ß𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3844\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.ß𑇀𑆸", %p)}, "\x{0713}𑜫.ß𑇀𑆸", "to_unicode\(\'\\u0713𑜫.ß𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3845\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.ß𑇀𑆸", %p)}, "\x{0713}𑜫.ß𑇀𑆸", "to_unicode\(\'\\u0713𑜫\.ß𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3846\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.ß𑇀𑆸", %p)}, "\x{0713}𑜫.ß𑇀𑆸", "to_unicode\(\'\\u0713𑜫\.ß𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3847\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.SS𑇀𑆸", %p)}, "\x{0713}𑜫.ss𑇀𑆸", "to_unicode\(\'\\u0713𑜫\.SS𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3848\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.ss𑇀𑆸", %p)}, "\x{0713}𑜫.ss𑇀𑆸", "to_unicode\(\'\\u0713𑜫\.ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3849\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.Ss𑇀𑆸", %p)}, "\x{0713}𑜫.ss𑇀𑆸", "to_unicode\(\'\\u0713𑜫\.Ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3850\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("xn--dnb6240l.xn--ss-jk5o5a", %p)}, "\x{0713}𑜫.ss𑇀𑆸", "to_unicode\(\'xn\-\-dnb6240l\.xn\-\-ss\-jk5o5a\'\)\ \[data\/IdnaTest\.txt\:3851\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("xn--dnb6240l.xn--zca2180lxa", %p)}, "\x{0713}𑜫.ß𑇀𑆸", "to_unicode\(\'xn\-\-dnb6240l\.xn\-\-zca2180lxa\'\)\ \[data\/IdnaTest\.txt\:3852\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.SS𑇀𑆸", %p)}, "\x{0713}𑜫.ss𑇀𑆸", "to_unicode\(\'\\u0713𑜫.SS𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3853\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.ss𑇀𑆸", %p)}, "\x{0713}𑜫.ss𑇀𑆸", "to_unicode\(\'\\u0713𑜫.ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3854\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{0713}𑜫.Ss𑇀𑆸", %p)}, "\x{0713}𑜫.ss𑇀𑆸", "to_unicode\(\'\\u0713𑜫.Ss𑇀𑆸\'\)\ \[data\/IdnaTest\.txt\:3855\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝟠≮\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_unicode\(\'𝟠\≮\\u200C。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3856\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟠≮\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_unicode\(\'𝟠\≮\\u200C。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3857\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟠<\x{0338}\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_unicode\(\'𝟠\<\\u0338\\u200C。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3858\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟠<\x{0338}\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_unicode\(\'𝟠\<\\u0338\\u200C。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3859\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8≮\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_unicode\(\'8\≮\\u200C\。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3860\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8≮\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_unicode\(\'8\≮\\u200C\。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3861\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8<\x{0338}\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_unicode\(\'8\<\\u0338\\u200C\。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3862\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8<\x{0338}\x{200C}。\x{0734}\x{17B4}", %p)}, undef, "to_unicode\(\'8\<\\u0338\\u200C\。\\u0734\\u17B4\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:3863\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ≯︒𫅍.Ⴀ", %p)}, undef, "to_unicode\(\'ᡙ\≯︒𫅍.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3864\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ>\x{0338}︒𫅍.Ⴀ", %p)}, undef, "to_unicode\(\'ᡙ\>\\u0338︒𫅍.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3865\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ≯。𫅍.Ⴀ", %p)}, undef, "to_unicode\(\'ᡙ\≯\。𫅍\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3866\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ>\x{0338}。𫅍.Ⴀ", %p)}, undef, "to_unicode\(\'ᡙ\>\\u0338\。𫅍\.Ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3867\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ>\x{0338}。𫅍.ⴀ", %p)}, undef, "to_unicode\(\'ᡙ\>\\u0338\。𫅍\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3868\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ≯。𫅍.ⴀ", %p)}, undef, "to_unicode\(\'ᡙ\≯\。𫅍\.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3869\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ>\x{0338}︒𫅍.ⴀ", %p)}, undef, "to_unicode\(\'ᡙ\>\\u0338︒𫅍.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3870\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡙ≯︒𫅍.ⴀ", %p)}, undef, "to_unicode\(\'ᡙ\≯︒𫅍.ⴀ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3871\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{17D1}.-\x{08FE}", %p)}, undef, "to_unicode\(\'\\u17D1.\-\\u08FE\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3872\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{17D1}.-\x{08FE}", %p)}, undef, "to_unicode\(\'\\u17D1\.\-\\u08FE\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:3873\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᵬ󠅳.핒⒒⒈󍤢", %p)}, undef, "to_unicode\(\'ᵬ\󠅳.핒⒒⒈󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3874\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᵬ󠅳.핒⒒⒈󍤢", %p)}, undef, "to_unicode\(\'ᵬ\󠅳.핒⒒⒈󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3875\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᵬ󠅳.핒11.1.󍤢", %p)}, undef, "to_unicode\(\'ᵬ\󠅳\.핒11\.1\.󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3876\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᵬ󠅳.핒11.1.󍤢", %p)}, undef, "to_unicode\(\'ᵬ\󠅳\.핒11\.1\.󍤢\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3877\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ς\x{0ACD}𐋢.𐹨", %p)}, undef, "to_unicode\(\'ς\\u0ACD𐋢.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3878\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("ς\x{0ACD}𐋢.𐹨", %p)}, undef, "to_unicode\(\'ς\\u0ACD𐋢\.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3879\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_unicode\(\'Σ\\u0ACD𐋢\.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3880\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_unicode\(\'σ\\u0ACD𐋢\.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3881\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("Σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_unicode\(\'Σ\\u0ACD𐋢.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3882\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("σ\x{0ACD}𐋢.𐹨", %p)}, undef, "to_unicode\(\'σ\\u0ACD𐋢.𐹨\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3883\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{A806}\x{200C}𐋻\x{200D}.\x{2DE3}\x{072B}𐹥", %p)}, undef, "to_unicode\(\'\\uA806\\u200C𐋻\\u200D\.\\u2DE3\\u072B𐹥\'\)\ throws\ error\ V5\ C2\ B1\ \[data\/IdnaTest\.txt\:3884\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{A806}\x{200C}𐋻\x{200D}.\x{2DE3}\x{072B}𐹥", %p)}, undef, "to_unicode\(\'\\uA806\\u200C𐋻\\u200D\.\\u2DE3\\u072B𐹥\'\)\ throws\ error\ V5\ C2\ B1\ \[data\/IdnaTest\.txt\:3885\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝍕。𸻞\x{08A2}", %p)}, undef, "to_unicode\(\'𝍕\。𸻞\\u08A2\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:3886\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐬨􆧪。򨳋", %p)}, undef, "to_unicode\(\'𐬨􆧪\。򨳋\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:3887\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹾\x{1DC7}ꡔ。ς񶞒󠤤\x{17B5}", %p)}, undef, "to_unicode\(\'𐹾\\u1DC7ꡔ\。ς񶞒\󠤤\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3888\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹾\x{1DC7}ꡔ。Σ񶞒󠤤\x{17B5}", %p)}, undef, "to_unicode\(\'𐹾\\u1DC7ꡔ\。Σ񶞒\󠤤\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3889\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹾\x{1DC7}ꡔ。σ񶞒󠤤\x{17B5}", %p)}, undef, "to_unicode\(\'𐹾\\u1DC7ꡔ\。σ񶞒\󠤤\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3890\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𐯽\x{074E}\x{0819}。\x{0CCD}𝟥", %p)}, undef, "to_unicode\(\'\-𐯽\\u074E\\u0819\。\\u0CCD𝟥\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3891\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𐯽\x{074E}\x{0819}。\x{0CCD}3", %p)}, undef, "to_unicode\(\'\-𐯽\\u074E\\u0819\。\\u0CCD3\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:3892\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󠔟。򡵱≮𐽨", %p)}, undef, "to_unicode\(\'\\u200C\󠔟。򡵱\≮𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3893\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󠔟。򡵱≮𐽨", %p)}, undef, "to_unicode\(\'\\u200C\󠔟。򡵱\≮𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3894\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󠔟。򡵱<\x{0338}𐽨", %p)}, undef, "to_unicode\(\'\\u200C\󠔟。򡵱\<\\u0338𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3895\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󠔟。򡵱<\x{0338}𐽨", %p)}, undef, "to_unicode\(\'\\u200C\󠔟。򡵱\<\\u0338𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󠔟。򡵱≮𐽨", %p)}, undef, "to_unicode\(\'\\u200C\󠔟\。򡵱\≮𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3897\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󠔟。򡵱≮𐽨", %p)}, undef, "to_unicode\(\'\\u200C\󠔟\。򡵱\≮𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3898\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󠔟。򡵱<\x{0338}𐽨", %p)}, undef, "to_unicode\(\'\\u200C\󠔟\。򡵱\<\\u0338𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3899\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}󠔟。򡵱<\x{0338}𐽨", %p)}, undef, "to_unicode\(\'\\u200C\󠔟\。򡵱\<\\u0338𐽨\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:3900\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈꘍𿅦.𝟡𓕹", %p)}, undef, "to_unicode\(\'⒈꘍𿅦.𝟡𓕹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3901\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.꘍𿅦.9𓕹", %p)}, undef, "to_unicode\(\'1\.꘍𿅦\.9𓕹\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3902\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{AAED}\x{06CC}𐪆.𐹷󠁈", %p)}, undef, "to_unicode\(\'\\uAAED\\u06CC𐪆\.𐹷\󠁈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:3903\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{1734}", %p)}, undef, "to_unicode\(\'ς.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3904\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{1734}", %p)}, undef, "to_unicode\(\'ς\.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3905\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{1734}", %p)}, undef, "to_unicode\(\'Σ\.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3906\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{1734}", %p)}, undef, "to_unicode\(\'σ\.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3907\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{1734}", %p)}, undef, "to_unicode\(\'Σ.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3908\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{1734}", %p)}, undef, "to_unicode\(\'σ.𑄴\\u1734\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3909\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1073}\x{200C}≯𐼸.󠅛", %p)}, undef, "to_unicode\(\'\\u1073\\u200C\≯𐼸.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3910\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1073}\x{200C}≯𐼸.󠅛", %p)}, undef, "to_unicode\(\'\\u1073\\u200C\≯𐼸.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1073}\x{200C}>\x{0338}𐼸.󠅛", %p)}, undef, "to_unicode\(\'\\u1073\\u200C\>\\u0338𐼸.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3912\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1073}\x{200C}>\x{0338}𐼸.󠅛", %p)}, undef, "to_unicode\(\'\\u1073\\u200C\>\\u0338𐼸.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3913\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1073}\x{200C}≯𐼸.󠅛", %p)}, undef, "to_unicode\(\'\\u1073\\u200C\≯𐼸\.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3914\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1073}\x{200C}≯𐼸.󠅛", %p)}, undef, "to_unicode\(\'\\u1073\\u200C\≯𐼸\.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3915\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1073}\x{200C}>\x{0338}𐼸.󠅛", %p)}, undef, "to_unicode\(\'\\u1073\\u200C\>\\u0338𐼸\.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3916\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1073}\x{200C}>\x{0338}𐼸.󠅛", %p)}, undef, "to_unicode\(\'\\u1073\\u200C\>\\u0338𐼸\.\󠅛\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:3917\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羚。≯", %p)}, undef, "to_unicode\(\'羚。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3918\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羚。>\x{0338}", %p)}, undef, "to_unicode\(\'羚。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3919\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羚。≯", %p)}, undef, "to_unicode\(\'羚\。\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3920\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("羚。>\x{0338}", %p)}, undef, "to_unicode\(\'羚\。\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3921\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A953}\x{1759}.\x{0850}", %p)}, undef, "to_unicode\(\'\\uA953\\u1759.\\u0850\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3922\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A953}\x{1759}.\x{0850}", %p)}, undef, "to_unicode\(\'\\uA953\\u1759\.\\u0850\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:3923\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡ҠჀ𝟑", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D。𐹡ҠჀ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡ҠჀ𝟑", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D。𐹡ҠჀ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡ҠჀ3", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D\。𐹡ҠჀ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3926\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡ҠჀ3", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D\。𐹡ҠჀ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3927\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡ҡⴠ3", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D\。𐹡ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡ҡⴠ3", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D\。𐹡ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3929\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡Ҡⴠ3", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D\。𐹡Ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3930\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡Ҡⴠ3", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D\。𐹡Ҡⴠ3\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡ҡⴠ𝟑", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D。𐹡ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡ҡⴠ𝟑", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D。𐹡ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡Ҡⴠ𝟑", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D。𐹡Ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛝏\x{2DED}\x{200D}。𐹡Ҡⴠ𝟑", %p)}, undef, "to_unicode\(\'򛝏\\u2DED\\u200D。𐹡Ҡⴠ𝟑\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:3935\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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}。\x{0661}\x{17D3}", %p)}, undef, "to_unicode\(\'\\u063F\。\\u0661\\u17D3\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:3936\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("򈾫\x{A8C4}。𐹾𒜸𑇀ß", %p)}, undef, "to_unicode\(\'򈾫\\uA8C4。𐹾𒜸𑇀ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򈾫\x{A8C4}。𐹾𒜸𑇀ß", %p)}, undef, "to_unicode\(\'򈾫\\uA8C4\。𐹾𒜸𑇀ß\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򈾫\x{A8C4}。𐹾𒜸𑇀SS", %p)}, undef, "to_unicode\(\'򈾫\\uA8C4\。𐹾𒜸𑇀SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򈾫\x{A8C4}。𐹾𒜸𑇀ss", %p)}, undef, "to_unicode\(\'򈾫\\uA8C4\。𐹾𒜸𑇀ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򈾫\x{A8C4}。𐹾𒜸𑇀Ss", %p)}, undef, "to_unicode\(\'򈾫\\uA8C4\。𐹾𒜸𑇀Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򈾫\x{A8C4}。𐹾𒜸𑇀SS", %p)}, undef, "to_unicode\(\'򈾫\\uA8C4。𐹾𒜸𑇀SS\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򈾫\x{A8C4}。𐹾𒜸𑇀ss", %p)}, undef, "to_unicode\(\'򈾫\\uA8C4。𐹾𒜸𑇀ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3943\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򈾫\x{A8C4}。𐹾𒜸𑇀Ss", %p)}, undef, "to_unicode\(\'򈾫\\uA8C4。𐹾𒜸𑇀Ss\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3944\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹨򏝨\x{17B4}.󠪅︒≠", %p)}, undef, "to_unicode\(\'𐹨򏝨\\u17B4\.\󠪅︒\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3945\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹨򏝨\x{17B4}.󠪅︒=\x{0338}", %p)}, undef, "to_unicode\(\'𐹨򏝨\\u17B4\.\󠪅︒\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3946\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹨򏝨\x{17B4}.󠪅。≠", %p)}, undef, "to_unicode\(\'𐹨򏝨\\u17B4\.\󠪅\。\≠\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3947\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹨򏝨\x{17B4}.󠪅。=\x{0338}", %p)}, undef, "to_unicode\(\'𐹨򏝨\\u17B4\.\󠪅\。\=\\u0338\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3948\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠬩񲜍ỗ⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_unicode\(\'\󠬩񲜍ỗ⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3949\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠬩񲜍o\x{0302}\x{0303}⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_unicode\(\'\󠬩񲜍o\\u0302\\u0303⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3950\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠬩񲜍ỗ1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_unicode\(\'\󠬩񲜍ỗ1\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3951\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠬩񲜍o\x{0302}\x{0303}1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_unicode\(\'\󠬩񲜍o\\u0302\\u03031\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3952\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠬩񲜍O\x{0302}\x{0303}1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_unicode\(\'\󠬩񲜍O\\u0302\\u03031\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3953\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠬩񲜍Ỗ1..񣽍񝩖\x{1DF0}9", %p)}, undef, "to_unicode\(\'\󠬩񲜍Ỗ1\.\.񣽍񝩖\\u1DF09\'\)\ throws\ error\ P1\ V6\ A4_2\ \[data\/IdnaTest\.txt\:3954\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠬩񲜍O\x{0302}\x{0303}⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_unicode\(\'\󠬩񲜍O\\u0302\\u0303⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3955\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠬩񲜍Ỗ⒈.񣽍񝩖\x{1DF0}𝟫", %p)}, undef, "to_unicode\(\'\󠬩񲜍Ỗ⒈.񣽍񝩖\\u1DF0𝟫\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3956\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。ᡅ", %p)}, undef, "to_unicode\(\'\\u200D。ᡅ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3957\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。ᡅ", %p)}, undef, "to_unicode\(\'\\u200D。ᡅ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3958\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。ᡅ", %p)}, undef, "to_unicode\(\'\\u200D\。ᡅ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3959\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}。ᡅ", %p)}, undef, "to_unicode\(\'\\u200D\。ᡅ\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:3960\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--47e", %p)}, "ᡅ", "to_unicode\(\'xn\-\-47e\'\)\ \[data\/IdnaTest\.txt\:3961\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡅ", %p)}, "ᡅ", "to_unicode\(\'ᡅ\'\)\ \[data\/IdnaTest\.txt\:3962\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("𑌀ꡫ.\x{07D8}", %p)}, undef, "to_unicode\(\'𑌀ꡫ\.\\u07D8\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:3963\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝆋\x{200C}-。󚇠ß", %p)}, undef, "to_unicode\(\'𝆋\\u200C\-\。󚇠ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3964\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝆋\x{200C}-。󚇠ß", %p)}, undef, "to_unicode\(\'𝆋\\u200C\-\。󚇠ß\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3965\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝆋\x{200C}-。󚇠SS", %p)}, undef, "to_unicode\(\'𝆋\\u200C\-\。󚇠SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3966\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝆋\x{200C}-。󚇠SS", %p)}, undef, "to_unicode\(\'𝆋\\u200C\-\。󚇠SS\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3967\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝆋\x{200C}-。󚇠ss", %p)}, undef, "to_unicode\(\'𝆋\\u200C\-\。󚇠ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3968\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝆋\x{200C}-。󚇠ss", %p)}, undef, "to_unicode\(\'𝆋\\u200C\-\。󚇠ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3969\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝆋\x{200C}-。󚇠Ss", %p)}, undef, "to_unicode\(\'𝆋\\u200C\-\。󚇠Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3970\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝆋\x{200C}-。󚇠Ss", %p)}, undef, "to_unicode\(\'𝆋\\u200C\-\。󚇠Ss\'\)\ throws\ error\ P1\ V3\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:3971\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ς🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200Cς🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3972\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ς🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200Cς🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3973\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ς🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200Cς🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3974\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}ς🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200Cς🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3975\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Σ🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200CΣ🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3976\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Σ🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200CΣ🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3977\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}σ🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200Cσ🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3978\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}σ🀸16..\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200Cσ🀸16\.\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V5\ V6\ C1\ A4_2\ B1\ \[data\/IdnaTest\.txt\:3979\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Σ🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200CΣ🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3980\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}Σ🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200CΣ🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3981\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}σ🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200Cσ🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3982\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}σ🀸⒗.\x{1C2E}􂲆\x{06B3}", %p)}, undef, "to_unicode\(\'\\u200Cσ🀸⒗\.\\u1C2E􂲆\\u06B3\'\)\ throws\ error\ P1\ V6\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:3983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-.𐿙", %p)}, undef, "to_unicode\(\'\-\.𐿙\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:3984\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񜲳\x{076D}.\x{0FA2}\x{0758}", %p)}, undef, "to_unicode\(\'񜲳\\u076D\.\\u0FA2\\u0758\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3985\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񜲳\x{076D}.\x{0FA1}\x{0FB7}\x{0758}", %p)}, undef, "to_unicode\(\'񜲳\\u076D\.\\u0FA1\\u0FB7\\u0758\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:3986\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0FE6}ᠬ񃣈.𐫯", %p)}, undef, "to_unicode\(\'\\u0FE6ᠬ񃣈\.𐫯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:3987\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2𭡦\x{077B}ß。\x{07DE}", %p)}, undef, "to_unicode\(\'2𭡦\\u077Bß\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3988\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2𭡦\x{077B}SS。\x{07DE}", %p)}, undef, "to_unicode\(\'2𭡦\\u077BSS\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3989\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2𭡦\x{077B}ss。\x{07DE}", %p)}, undef, "to_unicode\(\'2𭡦\\u077Bss\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3990\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2𭡦\x{077B}Ss。\x{07DE}", %p)}, undef, "to_unicode\(\'2𭡦\\u077BSs\。\\u07DE\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:3991\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3992\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3993\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3994\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3995\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮\.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3996\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮\.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3997\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338\.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3998\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}ß-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338\.\\u0639ß\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:3999\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338\.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4000\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338\.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4001\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮\.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4002\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮\.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4003\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮\.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4004\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮\.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4005\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338\.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4006\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338\.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4007\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338\.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4008\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338\.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4009\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮\.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4010\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮\.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4011\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4012\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4013\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4014\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}SS-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮.\\u0639SS\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4015\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4016\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4017\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4018\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338.\\u0639ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4019\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4020\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}<\x{0338}.\x{0639}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\<\\u0338.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4021\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4022\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㸳\x{06A6}≮.\x{0639}Ss-\x{200D}", %p)}, undef, "to_unicode\(\'㸳\\u06A6\≮.\\u0639Ss\-\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4023\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-򍯄\x{0FA3}\x{081E}.\x{AAEC}-︒", %p)}, undef, "to_unicode\(\'\-򍯄\\u0FA3\\u081E\.\\uAAEC\-︒\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4024\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-򍯄\x{0FA3}\x{081E}.\x{AAEC}-。", %p)}, undef, "to_unicode\(\'\-򍯄\\u0FA3\\u081E\.\\uAAEC\-\。\'\)\ throws\ error\ P1\ V3\ V6\ V5\ \[data\/IdnaTest\.txt\:4025\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒.񴻫𝨖", %p)}, undef, "to_unicode\(\'︒\.񴻫𝨖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4026\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("。.񴻫𝨖", %p)}, undef, "to_unicode\(\'\。\.񴻫𝨖\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4027\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠄻󠄙。\x{200C}⓾\x{200C}\x{074D}", %p)}, undef, "to_unicode\(\'\󠄻\󠄙\。\\u200C⓾\\u200C\\u074D\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:4028\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠄻󠄙。\x{200C}⓾\x{200C}\x{074D}", %p)}, undef, "to_unicode\(\'\󠄻\󠄙\。\\u200C⓾\\u200C\\u074D\'\)\ throws\ error\ B1\ C1\ \[data\/IdnaTest\.txt\:4029\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞼸ᠷ\x{066B}。\x{08F4}\x{07E5}𝩞", %p)}, undef, "to_unicode\(\'𞼸ᠷ\\u066B。\\u08F4\\u07E5𝩞\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4030\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞼸ᠷ\x{066B}。\x{08F4}\x{07E5}𝩞", %p)}, undef, "to_unicode\(\'𞼸ᠷ\\u066B\。\\u08F4\\u07E5𝩞\'\)\ throws\ error\ P1\ V6\ V5\ B2\ B1\ \[data\/IdnaTest\.txt\:4031\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A69F}.-񛴭", %p)}, undef, "to_unicode\(\'\\uA69F\.\-񛴭\'\)\ throws\ error\ P1\ V5\ V3\ V6\ \[data\/IdnaTest\.txt\:4032\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠦠.赏", %p)}, undef, "to_unicode\(\'\󠦠.赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4033\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠦠.赏", %p)}, undef, "to_unicode\(\'\󠦠\.赏\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4034\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D1}\x{0630}。Ⴁ", %p)}, undef, "to_unicode\(\'\\u07D1\\u0630。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4035\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07D1}\x{0630}。Ⴁ", %p)}, undef, "to_unicode\(\'\\u07D1\\u0630\。Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4036\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0630}。ⴁ", %p)}, "\x{07D1}\x{0630}.ⴁ", "to_unicode\(\'\\u07D1\\u0630\。ⴁ\'\)\ \[data\/IdnaTest\.txt\:4037\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--vgb74f.xn--skj", %p)}, "\x{07D1}\x{0630}.ⴁ", "to_unicode\(\'xn\-\-vgb74f\.xn\-\-skj\'\)\ \[data\/IdnaTest\.txt\:4038\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0630}.ⴁ", %p)}, "\x{07D1}\x{0630}.ⴁ", "to_unicode\(\'\\u07D1\\u0630\.ⴁ\'\)\ \[data\/IdnaTest\.txt\:4039\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{07D1}\x{0630}.Ⴁ", %p)}, undef, "to_unicode\(\'\\u07D1\\u0630\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4040\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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}\x{0630}。ⴁ", %p)}, "\x{07D1}\x{0630}.ⴁ", "to_unicode\(\'\\u07D1\\u0630。ⴁ\'\)\ \[data\/IdnaTest\.txt\:4041\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0A01}Ⴊᡨς。-", %p)}, undef, "to_unicode\(\'\\u0A01Ⴊᡨς。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0A01}Ⴊᡨς。-", %p)}, undef, "to_unicode\(\'\\u0A01Ⴊᡨς\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[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{0A01}ⴊᡨς。-", %p)}, undef, "to_unicode\(\'\\u0A01ⴊᡨς\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4044\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0A01}ႪᡨΣ。-", %p)}, undef, "to_unicode\(\'\\u0A01ႪᡨΣ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4045\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0A01}ⴊᡨσ。-", %p)}, undef, "to_unicode\(\'\\u0A01ⴊᡨσ\。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4046\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0A01}Ⴊᡨσ。-", %p)}, undef, "to_unicode\(\'\\u0A01Ⴊᡨσ\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4047\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0A01}ⴊᡨς。-", %p)}, undef, "to_unicode\(\'\\u0A01ⴊᡨς。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4048\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0A01}ႪᡨΣ。-", %p)}, undef, "to_unicode\(\'\\u0A01ႪᡨΣ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4049\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0A01}ⴊᡨσ。-", %p)}, undef, "to_unicode\(\'\\u0A01ⴊᡨσ。\-\'\)\ throws\ error\ V5\ V3\ \[data\/IdnaTest\.txt\:4050\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0A01}Ⴊᡨσ。-", %p)}, undef, "to_unicode\(\'\\u0A01Ⴊᡨσ。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4051\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ.𦛀\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ.𦛀\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4052\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ.𦛀\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ.𦛀\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4053\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ.𦛀\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\.𦛀\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4054\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴍ.𦛀\x{200C}", %p)}, undef, "to_unicode\(\'Ⴍ\.𦛀\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4055\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:4056\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴍ.𦛀\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ\.𦛀\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4057\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("xn--4kj.xn--2m2k", %p)}, "ⴍ.𦛀", "to_unicode\(\'xn\-\-4kj\.xn\-\-2m2k\'\)\ \[data\/IdnaTest\.txt\:4058\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:4059\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴍ.𦛀", %p)}, undef, "to_unicode\(\'Ⴍ\.𦛀\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4060\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴍ.𦛀\x{200C}", %p)}, undef, "to_unicode\(\'ⴍ.𦛀\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4061\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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\:4062\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󈯇𐆔.\x{07E6}\x{1A60}󆫚𑓂", %p)}, undef, "to_unicode\(\'󈯇𐆔\.\\u07E6\\u1A60󆫚𑓂\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4063\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_unicode\(\'\≯\\u0F8F\\u06B5。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4064\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0F8F\\u06B5。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4065\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_unicode\(\'\≯\\u0F8F\\u06B5\。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4066\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{0F8F}\x{06B5}。\x{0662}᠈", %p)}, undef, "to_unicode\(\'\>\\u0338\\u0F8F\\u06B5\。\\u0662᠈\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4067\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򪗢\x{0601}\x{FC34}\x{0666}。ႨꡍႯ", %p)}, undef, "to_unicode\(\'򪗢\\u0601\\uFC34\\u0666\。ႨꡍႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4068\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򪗢\x{0601}\x{0642}\x{0645}\x{0666}。ႨꡍႯ", %p)}, undef, "to_unicode\(\'򪗢\\u0601\\u0642\\u0645\\u0666\。ႨꡍႯ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4069\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򪗢\x{0601}\x{0642}\x{0645}\x{0666}。ⴈꡍⴏ", %p)}, undef, "to_unicode\(\'򪗢\\u0601\\u0642\\u0645\\u0666\。ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򪗢\x{0601}\x{0642}\x{0645}\x{0666}。Ⴈꡍⴏ", %p)}, undef, "to_unicode\(\'򪗢\\u0601\\u0642\\u0645\\u0666\。Ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4071\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򪗢\x{0601}\x{FC34}\x{0666}。ⴈꡍⴏ", %p)}, undef, "to_unicode\(\'򪗢\\u0601\\uFC34\\u0666\。ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4072\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򪗢\x{0601}\x{FC34}\x{0666}。Ⴈꡍⴏ", %p)}, undef, "to_unicode\(\'򪗢\\u0601\\uFC34\\u0666\。Ⴈꡍⴏ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4073\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐤺。𑖼", %p)}, undef, "to_unicode\(\'𐤺\。𑖼\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4074\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{AAEC}⎤9\x{075F}", %p)}, undef, "to_unicode\(\'𝟔𐹽.\\uAAEC\⎤9\\u075F\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4075\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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("6𐹽.\x{AAEC}⎤9\x{075F}", %p)}, undef, "to_unicode\(\'6𐹽\.\\uAAEC\⎤9\\u075F\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4076\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐫐𐹾𞽂.𝩏", %p)}, undef, "to_unicode\(\'𐫐𐹾𞽂.𝩏\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4077\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫐𐹾𞽂.𝩏", %p)}, undef, "to_unicode\(\'𐫐𐹾𞽂\.𝩏\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4078\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("❫󥖿ᠠ.𞲻\x{200D}𞤙", %p)}, undef, "to_unicode\(\'\❫󥖿ᠠ.𞲻\\u200D𞤙\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4079\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("❫󥖿ᠠ.𞲻\x{200D}𞤙", %p)}, undef, "to_unicode\(\'\❫󥖿ᠠ.𞲻\\u200D𞤙\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4080\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("❫󥖿ᠠ.𞲻\x{200D}𞤙", %p)}, undef, "to_unicode\(\'\❫󥖿ᠠ\.𞲻\\u200D𞤙\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4081\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("❫󥖿ᠠ.𞲻\x{200D}𞤙", %p)}, undef, "to_unicode\(\'\❫󥖿ᠠ\.𞲻\\u200D𞤙\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4082\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072E}󈐓\x{FBD4}-.≠𹔭\x{1BF3}", %p)}, undef, "to_unicode\(\'\\u072E󈐓\\uFBD4\-.\≠𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4083\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072E}󈐓\x{FBD4}-.=\x{0338}𹔭\x{1BF3}", %p)}, undef, "to_unicode\(\'\\u072E󈐓\\uFBD4\-.\=\\u0338𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4084\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072E}󈐓\x{06AD}-.≠𹔭\x{1BF3}", %p)}, undef, "to_unicode\(\'\\u072E󈐓\\u06AD\-\.\≠𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4085\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{072E}󈐓\x{06AD}-.=\x{0338}𹔭\x{1BF3}", %p)}, undef, "to_unicode\(\'\\u072E󈐓\\u06AD\-\.\=\\u0338𹔭\\u1BF3\'\)\ throws\ error\ P1\ V3\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4086\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟛.󗹙", %p)}, undef, "to_unicode\(\'𝟛.󗹙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4087\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3.󗹙", %p)}, undef, "to_unicode\(\'3\.󗹙\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4088\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}.Ⴞ𐋷", %p)}, undef, "to_unicode\(\'\-\\u200D\.Ⴞ𐋷\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4089\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}.Ⴞ𐋷", %p)}, undef, "to_unicode\(\'\-\\u200D\.Ⴞ𐋷\'\)\ throws\ error\ P1\ V3\ V6\ C2\ \[data\/IdnaTest\.txt\:4090\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-\x{200D}.ⴞ𐋷", %p)}, undef, "to_unicode\(\'\-\\u200D\.ⴞ𐋷\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:4091\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-\x{200D}.ⴞ𐋷", %p)}, undef, "to_unicode\(\'\-\\u200D\.ⴞ𐋷\'\)\ throws\ error\ V3\ C2\ \[data\/IdnaTest\.txt\:4092\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}ςß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dςß\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4093\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}ςß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dςß\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4094\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}ςß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dςß\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4095\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}ςß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dςß\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4096\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}ΣSS\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4097\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}ΣSS\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4098\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}σss\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dσss\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4099\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}σss\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dσss\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4100\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}Σss\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣss\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4101\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}Σss\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣss\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4102\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}Σß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣß\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4103\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}Σß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣß\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4104\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}σß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dσß\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4105\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}σß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dσß\\uA675\.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4106\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}ΣSS\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4107\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}ΣSS\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣSS\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4108\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}σss\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dσss\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4109\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}σss\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dσss\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4110\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}Σss\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣss\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4111\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}Σss\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣss\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4112\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}Σß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣß\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4113\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}Σß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200DΣß\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4114\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}σß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dσß\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4115\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}σß\x{A675}.𑘿", %p)}, undef, "to_unicode\(\'\\u200Dσß\\uA675.𑘿\'\)\ throws\ error\ V5\ C2\ \[data\/IdnaTest\.txt\:4116\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4117\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4118\]") 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\:4119\]") 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\:4120\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4121\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠.\x{200D}", %p)}, undef, "to_unicode\(\'\≠\.\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4122\]") 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\:4123\]") 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\:4124\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐦽。\x{070F}\x{0643}󠳠򲯕", %p)}, undef, "to_unicode\(\'𐦽。\\u070F\\u0643\󠳠򲯕\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4125\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐦽。\x{070F}\x{0643}󠳠򲯕", %p)}, undef, "to_unicode\(\'𐦽\。\\u070F\\u0643\󠳠򲯕\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4126\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}ς.ς\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4Dς.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4127\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}ς.ς\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4Dς\.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4128\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}Σ.Σ\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4DΣ\.Σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4129\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}σ.ς\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4Dσ\.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4130\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}σ.σ\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4Dσ\.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4131\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}Σ.σ\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4DΣ\.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4132\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}Σ.ς\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4DΣ\.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4133\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}Σ.Σ\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4DΣ.Σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4134\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}σ.ς\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4Dσ.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4135\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}σ.σ\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4Dσ.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4136\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}Σ.σ\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4DΣ.σ\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4137\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󦨋\x{0B4D}Σ.ς\x{2D7F}", %p)}, undef, "to_unicode\(\'󦨋\\u0B4DΣ.ς\\u2D7F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4138\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0649}\x{0843}牅\x{20E3}。\x{FEFA}\x{0BCD}񣨧Ⴙ", %p)}, undef, "to_unicode\(\'\\u0649\\u0843牅\\u20E3。\\uFEFA\\u0BCD񣨧Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4139\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0625}\x{0BCD}񣨧Ⴙ", %p)}, undef, "to_unicode\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0625\\u0BCD񣨧Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4140\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0627}\x{0BCD}\x{0655}񣨧Ⴙ", %p)}, undef, "to_unicode\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0627\\u0BCD\\u0655񣨧Ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4141\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0627}\x{0BCD}\x{0655}񣨧ⴙ", %p)}, undef, "to_unicode\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0627\\u0BCD\\u0655񣨧ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4142\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0649}\x{0843}牅\x{20E3}。\x{0644}\x{0625}\x{0BCD}񣨧ⴙ", %p)}, undef, "to_unicode\(\'\\u0649\\u0843牅\\u20E3\。\\u0644\\u0625\\u0BCD񣨧ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4143\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0649}\x{0843}牅\x{20E3}。\x{FEFA}\x{0BCD}񣨧ⴙ", %p)}, undef, "to_unicode\(\'\\u0649\\u0843牅\\u20E3。\\uFEFA\\u0BCD񣨧ⴙ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4144\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{EA0B}。륧", %p)}, undef, "to_unicode\(\'\\uEA0B。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4145\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{EA0B}。륧", %p)}, undef, "to_unicode\(\'\\uEA0B。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4146\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{EA0B}。륧", %p)}, undef, "to_unicode\(\'\\uEA0B\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4147\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{EA0B}。륧", %p)}, undef, "to_unicode\(\'\\uEA0B\。륧\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4148\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹱\x{200D}。򠊑", %p)}, undef, "to_unicode\(\'𐹱\\u200D\。򠊑\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4149\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹱\x{200D}。򠊑", %p)}, undef, "to_unicode\(\'𐹱\\u200D\。򠊑\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4150\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴘꡁ𑚰。-", %p)}, undef, "to_unicode\(\'Ⴘꡁ𑚰。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4151\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴘꡁ𑚰。-", %p)}, undef, "to_unicode\(\'Ⴘꡁ𑚰\。\-\'\)\ throws\ error\ P1\ V6\ V3\ \[data\/IdnaTest\.txt\:4152\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ⴘꡁ𑚰。-", %p)}, undef, "to_unicode\(\'ⴘꡁ𑚰\。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4153\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v6.1; is(eval{uts46_to_unicode("ⴘꡁ𑚰。-", %p)}, undef, "to_unicode\(\'ⴘꡁ𑚰。\-\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4154\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1714}ꡊ₆\x{06B5}。󠢀𐶳", %p)}, undef, "to_unicode\(\'\\u1714ꡊ₆\\u06B5\。\󠢀𐶳\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4155\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1714}ꡊ6\x{06B5}。󠢀𐶳", %p)}, undef, "to_unicode\(\'\\u1714ꡊ6\\u06B5\。\󠢀𐶳\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4156\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򄘈.🂹ᡯ\x{0772}\x{072A}", %p)}, undef, "to_unicode\(\'򄘈\.🂹ᡯ\\u0772\\u072A\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4157\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{076F}񰱲。-ꡀ", %p)}, undef, "to_unicode\(\'\\u076F񰱲\。\-ꡀ\'\)\ throws\ error\ P1\ V6\ V3\ B2\ B3\ \[data\/IdnaTest\.txt\:4158\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_unicode\(\'ς\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4159\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_unicode\(\'ς\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4160\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_unicode\(\'ς\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4161\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_unicode\(\'ς\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4162\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_unicode\(\'Σ\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4163\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_unicode\(\'Σ\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4164\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_unicode\(\'σ\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4165\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{06C4}襾.\x{200C}\x{07D1}\x{200C}1.", %p)}, undef, "to_unicode\(\'σ\\u06C4襾\.\\u200C\\u07D1\\u200C1\.\'\)\ throws\ error\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4166\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Σ\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_unicode\(\'Σ\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4167\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_unicode\(\'Σ\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4168\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_unicode\(\'σ\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4169\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{06C4}⾑.\x{200C}\x{07D1}\x{200C}⒈", %p)}, undef, "to_unicode\(\'σ\\u06C4⾑.\\u200C\\u07D1\\u200C⒈\'\)\ throws\ error\ P1\ V6\ B5\ B1\ C1\ \[data\/IdnaTest\.txt\:4170\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡤ󐿐.𐦞", %p)}, undef, "to_unicode\(\'ꡤ󐿐.𐦞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4171\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡤ󐿐.𐦞", %p)}, undef, "to_unicode\(\'ꡤ󐿐\.𐦞\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4172\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}󿉛\x{1C32}。\x{200C}\x{0645}򱧗", %p)}, undef, "to_unicode\(\'\\uA9C0󿉛\\u1C32。\\u200C\\u0645򱧗\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4173\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}󿉛\x{1C32}。\x{200C}\x{0645}򱧗", %p)}, undef, "to_unicode\(\'\\uA9C0󿉛\\u1C32。\\u200C\\u0645򱧗\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4174\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}󿉛\x{1C32}。\x{200C}\x{0645}򱧗", %p)}, undef, "to_unicode\(\'\\uA9C0󿉛\\u1C32\。\\u200C\\u0645򱧗\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4175\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A9C0}󿉛\x{1C32}。\x{200C}\x{0645}򱧗", %p)}, undef, "to_unicode\(\'\\uA9C0󿉛\\u1C32\。\\u200C\\u0645򱧗\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4176\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡘ\\u0E4C𾎮\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4177\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡘ\\u0E4C𾎮\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4178\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡘ\\u0E4C𾎮\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4179\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡘ\\u0E4C𾎮\-.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4180\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡘ\\u0E4C𾎮\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4181\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡘ\\u0E4C𾎮\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4182\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡘ\\u0E4C𾎮\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4183\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡘ\x{0E4C}𾎮-.\x{200C}먿", %p)}, undef, "to_unicode\(\'ᡘ\\u0E4C𾎮\-\.\\u200C먿\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4184\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􅬜。ᡖ", %p)}, undef, "to_unicode\(\'􅬜。ᡖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4185\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􅬜。ᡖ", %p)}, undef, "to_unicode\(\'􅬜\。ᡖ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4186\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("嬃\x{009A}.\x{200D}\x{05AA}", %p)}, undef, "to_unicode\(\'嬃\\u009A.\\u200D\\u05AA\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4187\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("嬃\x{009A}.\x{200D}\x{05AA}", %p)}, undef, "to_unicode\(\'嬃\\u009A.\\u200D\\u05AA\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4188\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("嬃\x{009A}.\x{200D}\x{05AA}", %p)}, undef, "to_unicode\(\'嬃\\u009A\.\\u200D\\u05AA\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4189\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("嬃\x{009A}.\x{200D}\x{05AA}", %p)}, undef, "to_unicode\(\'嬃\\u009A\.\\u200D\\u05AA\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4190\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹤󠱎≯.󣎔򅋾", %p)}, undef, "to_unicode\(\'𐹤\󠱎\≯.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4191\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹤󠱎>\x{0338}.󣎔򅋾", %p)}, undef, "to_unicode\(\'𐹤\󠱎\>\\u0338.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4192\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹤󠱎≯.󣎔򅋾", %p)}, undef, "to_unicode\(\'𐹤\󠱎\≯\.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4193\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹤󠱎>\x{0338}.󣎔򅋾", %p)}, undef, "to_unicode\(\'𐹤\󠱎\>\\u0338\.󣎔򅋾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4194\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񂩳\x{07D6}\x{0659}\x{1BAB}.𞶀", %p)}, undef, "to_unicode\(\'񂩳\\u07D6\\u0659\\u1BAB\.𞶀\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4195\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񂩳\x{07D6}\x{1BAB}\x{0659}.𞶀", %p)}, undef, "to_unicode\(\'񂩳\\u07D6\\u1BAB\\u0659\.𞶀\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4196\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.򴈶", %p)}, undef, "to_unicode\(\'\\u200C\.򴈶\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4197\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.򴈶", %p)}, undef, "to_unicode\(\'\\u200C\.򴈶\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4198\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򠪓Ⴃ䠅.\x{FB65}", %p)}, undef, "to_unicode\(\'򠪓Ⴃ䠅.\\uFB65\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4199\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򠪓Ⴃ䠅.\x{067F}", %p)}, undef, "to_unicode\(\'򠪓Ⴃ䠅\.\\u067F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4200\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򠪓ⴃ䠅.\x{067F}", %p)}, undef, "to_unicode\(\'򠪓ⴃ䠅\.\\u067F\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4201\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򠪓ⴃ䠅.\x{FB65}", %p)}, undef, "to_unicode\(\'򠪓ⴃ䠅.\\uFB65\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4202\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0741}\x{0662}𐹮𐮑。𝟨Ⴅ", %p)}, undef, "to_unicode\(\'\\u0741\\u0662𐹮𐮑。𝟨Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4203\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0741}\x{0662}𐹮𐮑。6Ⴅ", %p)}, undef, "to_unicode\(\'\\u0741\\u0662𐹮𐮑\。6Ⴅ\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4204\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0741}\x{0662}𐹮𐮑。6ⴅ", %p)}, undef, "to_unicode\(\'\\u0741\\u0662𐹮𐮑\。6ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4205\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{0741}\x{0662}𐹮𐮑。𝟨ⴅ", %p)}, undef, "to_unicode\(\'\\u0741\\u0662𐹮𐮑。𝟨ⴅ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4206\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-。︒", %p)}, undef, "to_unicode\(\'\-。︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4207\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。。", %p)}, undef, "to_unicode\(\'\-\。\。\'\)\ throws\ error\ V3\ A4_2\ \[data\/IdnaTest\.txt\:4208\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡊჀ。-⁵--", %p)}, undef, "to_unicode\(\'ꡊჀ。\-⁵\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:4209\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡊჀ。-5--", %p)}, undef, "to_unicode\(\'ꡊჀ\。\-5\-\-\'\)\ throws\ error\ P1\ V6\ V2\ V3\ \[data\/IdnaTest\.txt\:4210\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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("ꡊⴠ。-5--", %p)}, undef, "to_unicode\(\'ꡊⴠ\。\-5\-\-\'\)\ throws\ error\ V2\ V3\ \[data\/IdnaTest\.txt\:4211\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\ V2\ V3\ \[data\/IdnaTest\.txt\:4212\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≯\x{D8DD}󠍣。\x{066C}𐹣≯𞡾", %p)}, undef, "to_unicode\(\'\≯\\uD8DD\󠍣。\\u066C𐹣\≯𞡾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4213\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{D8DD}󠍣。\x{066C}𐹣>\x{0338}𞡾", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD8DD\󠍣。\\u066C𐹣\>\\u0338𞡾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4214\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯\x{D8DD}󠍣。\x{066C}𐹣≯𞡾", %p)}, undef, "to_unicode\(\'\≯\\uD8DD\󠍣\。\\u066C𐹣\≯𞡾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4215\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}\x{D8DD}󠍣。\x{066C}𐹣>\x{0338}𞡾", %p)}, undef, "to_unicode\(\'\>\\u0338\\uD8DD\󠍣\。\\u066C𐹣\>\\u0338𞡾\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4216\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㍔\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_unicode\(\'㍔\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4217\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㍔\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_unicode\(\'㍔\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4218\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ルーブル\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_unicode\(\'ルーブル\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4219\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ルーブル\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_unicode\(\'ルーブル\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4220\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ルーフ\x{3099}ル\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_unicode\(\'ルーフ\\u3099ル\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4221\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ルーフ\x{3099}ル\x{0329}\x{084A}\x{200D}。𑌼𵟣\x{05B2}𐹾", %p)}, undef, "to_unicode\(\'ルーフ\\u3099ル\\u0329\\u084A\\u200D\。𑌼𵟣\\u05B2𐹾\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ C2\ B1\ \[data\/IdnaTest\.txt\:4222\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.F", %p)}, undef, "to_unicode\(\'\\u200D\.F\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4223\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.F", %p)}, undef, "to_unicode\(\'\\u200D\.F\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4224\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("f", %p)}, "f", "to_unicode\(\'f\'\)\ \[data\/IdnaTest\.txt\:4225\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4226\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4227\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲\。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4228\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。ß", %p)}, undef, "to_unicode\(\'\\u200D㨲\。ß\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4229\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲\。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4230\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲\。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4231\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--9bm.ss", %p)}, "㨲.ss", "to_unicode\(\'xn\-\-9bm\.ss\'\)\ \[data\/IdnaTest\.txt\:4232\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㨲.ss", %p)}, "㨲.ss", "to_unicode\(\'㨲\.ss\'\)\ \[data\/IdnaTest\.txt\:4233\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4234\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}㨲。SS", %p)}, undef, "to_unicode\(\'\\u200D㨲。SS\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4235\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹲ᠵ。ᡡ", %p)}, undef, "to_unicode\(\'𐹲ᠵ。ᡡ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4236\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹲ᠵ。ᡡ", %p)}, undef, "to_unicode\(\'𐹲ᠵ\。ᡡ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4237\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("⾑\x{06CC}\x{0646}。𐹻ᡘ", %p)}, undef, "to_unicode\(\'⾑\\u06CC\\u0646\。𐹻ᡘ\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4238\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("襾\x{06CC}\x{0646}。𐹻ᡘ", %p)}, undef, "to_unicode\(\'襾\\u06CC\\u0646\。𐹻ᡘ\'\)\ throws\ error\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4239\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("񞭓ς-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_unicode\(\'񞭓ς\-𝍆。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4240\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞭓ς-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_unicode\(\'񞭓ς\-𝍆\。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4241\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞭓Σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_unicode\(\'񞭓Σ\-𝍆\。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4242\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞭓σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_unicode\(\'񞭓σ\-𝍆\。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4243\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞭓Σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_unicode\(\'񞭓Σ\-𝍆。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4244\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񞭓σ-𝍆。\x{07D5}-ꡑ", %p)}, undef, "to_unicode\(\'񞭓σ\-𝍆。\\u07D5\-ꡑ\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4245\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.󅘺", %p)}, undef, "to_unicode\(\'\\u200D.󅘺\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4246\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.󅘺", %p)}, undef, "to_unicode\(\'\\u200D.󅘺\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4247\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.󅘺", %p)}, undef, "to_unicode\(\'\\u200D\.󅘺\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4248\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}.󅘺", %p)}, undef, "to_unicode\(\'\\u200D\.󅘺\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4249\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𲻩\x{EC0E}。≠𝟲", %p)}, undef, "to_unicode\(\'𲻩\\uEC0E。\≠𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4250\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𲻩\x{EC0E}。=\x{0338}𝟲", %p)}, undef, "to_unicode\(\'𲻩\\uEC0E。\=\\u0338𝟲\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4251\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𲻩\x{EC0E}。≠6", %p)}, undef, "to_unicode\(\'𲻩\\uEC0E\。\≠6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4252\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𲻩\x{EC0E}。=\x{0338}6", %p)}, undef, "to_unicode\(\'𲻩\\uEC0E\。\=\\u03386\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4253\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F8F}ᠯ\x{200D}.\x{088C}", %p)}, undef, "to_unicode\(\'\\u0F8Fᠯ\\u200D\.\\u088C\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4254\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0F8F}ᠯ\x{200D}.\x{088C}", %p)}, undef, "to_unicode\(\'\\u0F8Fᠯ\\u200D\.\\u088C\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4255\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FE}ꡔ𞨰\x{0B4D}.󣢅", %p)}, undef, "to_unicode\(\'\\u08FEꡔ𞨰\\u0B4D.󣢅\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4256\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FE}ꡔ𞨰\x{0B4D}.󣢅", %p)}, undef, "to_unicode\(\'\\u08FEꡔ𞨰\\u0B4D\.󣢅\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4257\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0848}。\x{302C}\x{200C}≯🌐", %p)}, undef, "to_unicode\(\'\\u0848\。\\u302C\\u200C\≯🌐\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4258\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0848}。\x{302C}\x{200C}≯🌐", %p)}, undef, "to_unicode\(\'\\u0848\。\\u302C\\u200C\≯🌐\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4259\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0848}。\x{302C}\x{200C}>\x{0338}🌐", %p)}, undef, "to_unicode\(\'\\u0848\。\\u302C\\u200C\>\\u0338🌐\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4260\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0848}。\x{302C}\x{200C}>\x{0338}🌐", %p)}, undef, "to_unicode\(\'\\u0848\。\\u302C\\u200C\>\\u0338🌐\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4261\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝨪𝟕.\x{063A}󯏭Ⴉ", %p)}, undef, "to_unicode\(\'𝨪𝟕\.\\u063A󯏭Ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4262\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝨪7.\x{063A}󯏭Ⴉ", %p)}, undef, "to_unicode\(\'𝨪7\.\\u063A󯏭Ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4263\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝨪7.\x{063A}󯏭ⴉ", %p)}, undef, "to_unicode\(\'𝨪7\.\\u063A󯏭ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4264\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝨪𝟕.\x{063A}󯏭ⴉ", %p)}, undef, "to_unicode\(\'𝨪𝟕\.\\u063A󯏭ⴉ\'\)\ throws\ error\ P1\ V5\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4265\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("閃9\x{0F77}。Ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_unicode\(\'閃9\\u0F77\。Ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4266\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("閃9\x{0FB2}\x{0F71}\x{0F80}。Ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_unicode\(\'閃9\\u0FB2\\u0F71\\u0F80\。Ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4267\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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("閃9\x{0FB2}\x{0F71}\x{0F80}。ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_unicode\(\'閃9\\u0FB2\\u0F71\\u0F80\。ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4268\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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("閃9\x{0F77}。ↄ𐹻\x{07DA}\x{AAF6}", %p)}, undef, "to_unicode\(\'閃9\\u0F77\。ↄ𐹻\\u07DA\\uAAF6\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4269\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1734}\x{06A9}𑄴2.𐋢\x{AA2E}\x{0F18}︒", %p)}, undef, "to_unicode\(\'\\u1734\\u06A9𑄴2\.𐋢\\uAA2E\\u0F18︒\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:4270\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{1734}\x{06A9}𑄴2.𐋢\x{AA2E}\x{0F18}。", %p)}, undef, "to_unicode\(\'\\u1734\\u06A9𑄴2\.𐋢\\uAA2E\\u0F18\。\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4271\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𱛛。≠-󠬇⾛", %p)}, undef, "to_unicode\(\'𱛛。\≠\-\󠬇⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4272\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𱛛。=\x{0338}-󠬇⾛", %p)}, undef, "to_unicode\(\'𱛛。\=\\u0338\-\󠬇⾛\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4273\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𱛛。≠-󠬇走", %p)}, undef, "to_unicode\(\'𱛛\。\≠\-\󠬇走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4274\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𱛛。=\x{0338}-󠬇走", %p)}, undef, "to_unicode\(\'𱛛\。\=\\u0338\-\󠬇走\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4275\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡊ𐹵Ⴊ。-≠\x{1160}", %p)}, undef, "to_unicode\(\'ᡊ𐹵Ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4276\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡊ𐹵Ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_unicode\(\'ᡊ𐹵Ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V6\ V3\ B5\ \[data\/IdnaTest\.txt\:4277\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡊ𐹵ⴊ。-=\x{0338}\x{1160}", %p)}, undef, "to_unicode\(\'ᡊ𐹵ⴊ\。\-\=\\u0338\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4278\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡊ𐹵ⴊ。-≠\x{1160}", %p)}, undef, "to_unicode\(\'ᡊ𐹵ⴊ\。\-\≠\\u1160\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4279\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐥳𐹶𝟒≯。\x{200C}", %p)}, undef, "to_unicode\(\'𐥳𐹶𝟒\≯。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4280\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐥳𐹶𝟒≯。\x{200C}", %p)}, undef, "to_unicode\(\'𐥳𐹶𝟒\≯。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4281\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐥳𐹶𝟒>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'𐥳𐹶𝟒\>\\u0338。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4282\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐥳𐹶𝟒>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'𐥳𐹶𝟒\>\\u0338。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4283\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐥳𐹶4≯。\x{200C}", %p)}, undef, "to_unicode\(\'𐥳𐹶4\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4284\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐥳𐹶4≯。\x{200C}", %p)}, undef, "to_unicode\(\'𐥳𐹶4\≯\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4285\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐥳𐹶4>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'𐥳𐹶4\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4286\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐥳𐹶4>\x{0338}。\x{200C}", %p)}, undef, "to_unicode\(\'𐥳𐹶4\>\\u0338\。\\u200C\'\)\ throws\ error\ P1\ V6\ B3\ B4\ C1\ \[data\/IdnaTest\.txt\:4287\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟎。甯", %p)}, "0.甯", "to_unicode\(\'𝟎\。甯\'\)\ \[data\/IdnaTest\.txt\:4288\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0。甯", %p)}, "0.甯", "to_unicode\(\'0\。甯\'\)\ \[data\/IdnaTest\.txt\:4289\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.xn--qny", %p)}, "0.甯", "to_unicode\(\'0\.xn\-\-qny\'\)\ \[data\/IdnaTest\.txt\:4290\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("0.甯", %p)}, "0.甯", "to_unicode\(\'0\.甯\'\)\ \[data\/IdnaTest\.txt\:4291\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A953}", %p)}, undef, "to_unicode\(\'\-⾆.\\uA953\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4292\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{A953}", %p)}, undef, "to_unicode\(\'\-舌\.\\uA953\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4293\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-。\x{06BB}", %p)}, undef, "to_unicode\(\'\-。\\u06BB\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4294\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-。\x{06BB}", %p)}, undef, "to_unicode\(\'\-\。\\u06BB\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4295\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⧴Ⴋ.≮", %p)}, undef, "to_unicode\(\'\⧴Ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4296\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⧴Ⴋ.<\x{0338}", %p)}, undef, "to_unicode\(\'\⧴Ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4297\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⧴ⴋ.<\x{0338}", %p)}, undef, "to_unicode\(\'\⧴ⴋ\.\<\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4298\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⧴ⴋ.≮", %p)}, undef, "to_unicode\(\'\⧴ⴋ\.\≮\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4299\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}\x{0345}", %p)}, undef, "to_unicode\(\'璼\󠋇。\\u200C\\u0345\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4300\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}\x{0345}", %p)}, undef, "to_unicode\(\'璼\󠋇。\\u200C\\u0345\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4301\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}\x{0345}", %p)}, undef, "to_unicode\(\'璼\󠋇\。\\u200C\\u0345\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4302\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}\x{0345}", %p)}, undef, "to_unicode\(\'璼\󠋇\。\\u200C\\u0345\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4303\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}Ι", %p)}, undef, "to_unicode\(\'璼\󠋇\。\\u200CΙ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4304\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}Ι", %p)}, undef, "to_unicode\(\'璼\󠋇\。\\u200CΙ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4305\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}ι", %p)}, undef, "to_unicode\(\'璼\󠋇\。\\u200Cι\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4306\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}ι", %p)}, undef, "to_unicode\(\'璼\󠋇\。\\u200Cι\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4307\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}Ι", %p)}, undef, "to_unicode\(\'璼\󠋇。\\u200CΙ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4308\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}Ι", %p)}, undef, "to_unicode\(\'璼\󠋇。\\u200CΙ\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4309\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}ι", %p)}, undef, "to_unicode\(\'璼\󠋇。\\u200Cι\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4310\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("璼󠋇。\x{200C}ι", %p)}, undef, "to_unicode\(\'璼\󠋇。\\u200Cι\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4311\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹥8󶁡。-5\x{030A}", %p)}, undef, "to_unicode\(\'𐹥8󶁡。\-5\\u030A\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4312\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹥8󶁡。-5\x{030A}", %p)}, undef, "to_unicode\(\'𐹥8󶁡\。\-5\\u030A\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4313\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4314\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{200C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4315\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4316\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4317\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4318\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4319\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--pc9a", %p)}, "튛.ꡐ", "to_unicode\(\'xn\-\-157b\.xn\-\-pc9a\'\)\ \[data\/IdnaTest\.txt\:4320\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4321\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4322\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ꡀ𐹥𞯍.ᡟⴞ", %p)}, undef, "to_unicode\(\'ꡀ𐹥𞯍\.ᡟⴞ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4323\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡀ𐹥𞯍.ᡟႾ", %p)}, undef, "to_unicode\(\'ꡀ𐹥𞯍\.ᡟႾ\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4324\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞹰𐹦\x{2DE7}𝟧.\x{0662}\x{0663}Ⴇ", %p)}, undef, "to_unicode\(\'𞹰𐹦\\u2DE7𝟧.\\u0662\\u0663Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4325\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0641}𐹦\x{2DE7}5.\x{0662}\x{0663}Ⴇ", %p)}, undef, "to_unicode\(\'\\u0641𐹦\\u2DE75\.\\u0662\\u0663Ⴇ\'\)\ throws\ error\ P1\ V6\ B4\ B1\ \[data\/IdnaTest\.txt\:4326\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{0641}𐹦\x{2DE7}5.\x{0662}\x{0663}ⴇ", %p)}, undef, "to_unicode\(\'\\u0641𐹦\\u2DE75\.\\u0662\\u0663ⴇ\'\)\ throws\ error\ B4\ B1\ \[data\/IdnaTest\.txt\:4327\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{2DE7}𝟧.\x{0662}\x{0663}ⴇ", %p)}, undef, "to_unicode\(\'𞹰𐹦\\u2DE7𝟧.\\u0662\\u0663ⴇ\'\)\ throws\ error\ B4\ B1\ \[data\/IdnaTest\.txt\:4328\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_unicode\(\'Ⴗ.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4329\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_unicode\(\'Ⴗ\.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4330\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_unicode\(\'ⴗ\.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4331\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴗ.𝨆\x{1BF3}\x{FEFF}󙢹", %p)}, undef, "to_unicode\(\'ⴗ.𝨆\\u1BF3\\uFEFF󙢹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4332\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟾򱚉.򱗯𐹮", %p)}, undef, "to_unicode\(\'𝟾򱚉.򱗯𐹮\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4333\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8򱚉.򱗯𐹮", %p)}, undef, "to_unicode\(\'8򱚉\.򱗯𐹮\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4334\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈酫︒。𝨂", %p)}, undef, "to_unicode\(\'⒈酫︒\。𝨂\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4335\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("1.酫。。𝨂", %p)}, undef, "to_unicode\(\'1\.酫\。\。𝨂\'\)\ throws\ error\ V5\ A4_2\ \[data\/IdnaTest\.txt\:4336\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝩑\x{200C}≮𝩆.\x{200C}𑄴", %p)}, undef, "to_unicode\(\'𝩑\\u200C\≮𝩆\.\\u200C𑄴\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4337\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝩑\x{200C}≮𝩆.\x{200C}𑄴", %p)}, undef, "to_unicode\(\'𝩑\\u200C\≮𝩆\.\\u200C𑄴\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4338\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝩑\x{200C}<\x{0338}𝩆.\x{200C}𑄴", %p)}, undef, "to_unicode\(\'𝩑\\u200C\<\\u0338𝩆\.\\u200C𑄴\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4339\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝩑\x{200C}<\x{0338}𝩆.\x{200C}𑄴", %p)}, undef, "to_unicode\(\'𝩑\\u200C\<\\u0338𝩆\.\\u200C𑄴\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:4340\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。ႷႽ¹\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。ႷႽ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4341\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。ႷႽ¹\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。ႷႽ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4342\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。ႷႽ1\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。ႷႽ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4343\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。ႷႽ1\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。ႷႽ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4344\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。ⴗⴝ1\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4345\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。ⴗⴝ1\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4346\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。Ⴗⴝ1\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。Ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4347\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。Ⴗⴝ1\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。Ⴗⴝ1\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4348\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。ⴗⴝ¹\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4349\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。ⴗⴝ¹\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4350\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。Ⴗⴝ¹\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。Ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4351\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞫀。Ⴗⴝ¹\x{200D}", %p)}, undef, "to_unicode\(\'𞫀\。Ⴗⴝ¹\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4352\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{1734}\x{1BF2}2.𐩬󠆅-", %p)}, undef, "to_unicode\(\'\\u1734\\u1BF22\.𐩬\󠆅\-\'\)\ throws\ error\ V5\ V3\ B3\ \[data\/IdnaTest\.txt\:4353\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󠭮򔘮\x{0663}。𼈛𑄳\x{07D1}ꡠ", %p)}, undef, "to_unicode\(\'\󠭮򔘮\\u0663。𼈛𑄳\\u07D1ꡠ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:4354\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠭮򔘮\x{0663}。𼈛𑄳\x{07D1}ꡠ", %p)}, undef, "to_unicode\(\'\󠭮򔘮\\u0663\。𼈛𑄳\\u07D1ꡠ\'\)\ throws\ error\ P1\ V6\ B1\ B5\ \[data\/IdnaTest\.txt\:4355\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。ςᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41。ςᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4356\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。ςᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41。ςᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4357\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。ςᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41\。ςᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4358\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。ςᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41\。ςᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4359\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。Σᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41\。Σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4360\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。Σᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41\。Σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4361\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。σᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41\。σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4362\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。σᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41\。σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4363\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。Σᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41。Σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4364\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。Σᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41。Σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4365\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。σᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41。σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4366\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡷ񷗓\x{0660}\x{0A41}。σᠵ\x{0748}\x{200C}", %p)}, undef, "to_unicode\(\'ᡷ񷗓\\u0660\\u0A41。σᠵ\\u0748\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4367\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}--≮。𐹯", %p)}, undef, "to_unicode\(\'\\u200D\-\-\≮\。𐹯\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4368\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}--≮。𐹯", %p)}, undef, "to_unicode\(\'\\u200D\-\-\≮\。𐹯\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4369\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}--<\x{0338}。𐹯", %p)}, undef, "to_unicode\(\'\\u200D\-\-\<\\u0338\。𐹯\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4370\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}--<\x{0338}。𐹯", %p)}, undef, "to_unicode\(\'\\u200D\-\-\<\\u0338\。𐹯\'\)\ throws\ error\ P1\ V6\ C2\ B1\ \[data\/IdnaTest\.txt\:4371\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑓂。𶕹\x{FE2E}⒕", %p)}, undef, "to_unicode\(\'𑓂\。𶕹\\uFE2E⒕\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4372\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑓂。𶕹\x{FE2E}14.", %p)}, undef, "to_unicode\(\'𑓂\。𶕹\\uFE2E14\.\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4373\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򍑒\x{0765}.\x{1AB3}\x{0666}", %p)}, undef, "to_unicode\(\'򍑒\\u0765.\\u1AB3\\u0666\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4374\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򍑒\x{0765}.\x{1AB3}\x{0666}", %p)}, undef, "to_unicode\(\'򍑒\\u0765\.\\u1AB3\\u0666\'\)\ throws\ error\ P1\ V6\ V5\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:4375\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("󠅆𐮅-。ᢉ", %p)}, undef, "to_unicode\(\'\󠅆𐮅\-\。ᢉ\'\)\ throws\ error\ V3\ B3\ \[data\/IdnaTest\.txt\:4376\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𝟠4󠅊⥄.\x{200D}𐋵\x{06E0}\x{200D}", %p)}, undef, "to_unicode\(\'𝟠4\󠅊\⥄.\\u200D𐋵\\u06E0\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4377\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𝟠4󠅊⥄.\x{200D}𐋵\x{06E0}\x{200D}", %p)}, undef, "to_unicode\(\'𝟠4\󠅊\⥄.\\u200D𐋵\\u06E0\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4378\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("84󠅊⥄.\x{200D}𐋵\x{06E0}\x{200D}", %p)}, undef, "to_unicode\(\'84\󠅊\⥄\.\\u200D𐋵\\u06E0\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4379\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("84󠅊⥄.\x{200D}𐋵\x{06E0}\x{200D}", %p)}, undef, "to_unicode\(\'84\󠅊\⥄\.\\u200D𐋵\\u06E0\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4380\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--84-utz.xn--wlb9710k", %p)}, "84⥄.𐋵\x{06E0}", "to_unicode\(\'xn\-\-84\-utz\.xn\-\-wlb9710k\'\)\ \[data\/IdnaTest\.txt\:4381\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("84⥄.𐋵\x{06E0}", %p)}, "84⥄.𐋵\x{06E0}", "to_unicode\(\'84\⥄\.𐋵\\u06E0\'\)\ \[data\/IdnaTest\.txt\:4382\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-\x{0660}。𐮁", %p)}, undef, "to_unicode\(\'\-\\u0660。𐮁\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4383\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-\x{0660}。𐮁", %p)}, undef, "to_unicode\(\'\-\\u0660\。𐮁\'\)\ throws\ error\ V3\ B1\ \[data\/IdnaTest\.txt\:4384\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("≮𝟕.謖ß≯", %p)}, undef, "to_unicode\(\'\≮𝟕.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4385\]") 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\:4386\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮7.謖ß≯", %p)}, undef, "to_unicode\(\'\≮7\.謖ß\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4387\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}7.謖ß>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03387\.謖ß\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4388\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}7.謖SS>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03387\.謖SS\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4389\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮7.謖SS≯", %p)}, undef, "to_unicode\(\'\≮7\.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4390\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮7.謖ss≯", %p)}, undef, "to_unicode\(\'\≮7\.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4391\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}7.謖ss>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03387\.謖ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4392\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}7.謖Ss>\x{0338}", %p)}, undef, "to_unicode\(\'\<\\u03387\.謖Ss\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4393\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮7.謖Ss≯", %p)}, undef, "to_unicode\(\'\≮7\.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4394\]") 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\:4395\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮𝟕.謖SS≯", %p)}, undef, "to_unicode\(\'\≮𝟕.謖SS\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4396\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮𝟕.謖ss≯", %p)}, undef, "to_unicode\(\'\≮𝟕.謖ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4397\]") 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\:4398\]") 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\:4399\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮𝟕.謖Ss≯", %p)}, undef, "to_unicode\(\'\≮𝟕.謖Ss\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4400\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("朶Ⴉ𐣶.\x{FE0F}\x{1BA2}🞚-", %p)}, undef, "to_unicode\(\'朶Ⴉ𐣶\.\\uFE0F\\u1BA2🞚\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4401\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("朶ⴉ𐣶.\x{FE0F}\x{1BA2}🞚-", %p)}, undef, "to_unicode\(\'朶ⴉ𐣶\.\\uFE0F\\u1BA2🞚\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ B5\ B6\ \[data\/IdnaTest\.txt\:4402\]") 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\:4403\]") 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\:4404\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞶐。󪅒\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'𞶐\。󪅒\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4405\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𞶐。󪅒\x{200C}<\x{0338}\x{200D}", %p)}, undef, "to_unicode\(\'𞶐\。󪅒\\u200C\<\\u0338\\u200D\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4406\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򨰆⒈。\x{200C}𝟤", %p)}, undef, "to_unicode\(\'򨰆⒈。\\u200C𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4407\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򨰆⒈。\x{200C}𝟤", %p)}, undef, "to_unicode\(\'򨰆⒈。\\u200C𝟤\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4408\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򨰆1.。\x{200C}2", %p)}, undef, "to_unicode\(\'򨰆1\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:4409\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򨰆1.。\x{200C}2", %p)}, undef, "to_unicode\(\'򨰆1\.\。\\u200C2\'\)\ throws\ error\ P1\ V6\ A4_2\ C1\ \[data\/IdnaTest\.txt\:4410\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠚄\x{0661}\x{200D}.𐹦񭳐\x{0604}", %p)}, undef, "to_unicode\(\'\󠚄\\u0661\\u200D.𐹦񭳐\\u0604\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4411\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠚄\x{0661}\x{200D}.𐹦񭳐\x{0604}", %p)}, undef, "to_unicode\(\'\󠚄\\u0661\\u200D.𐹦񭳐\\u0604\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4412\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠚄\x{0661}\x{200D}.𐹦񭳐\x{0604}", %p)}, undef, "to_unicode\(\'\󠚄\\u0661\\u200D\.𐹦񭳐\\u0604\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4413\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠚄\x{0661}\x{200D}.𐹦񭳐\x{0604}", %p)}, undef, "to_unicode\(\'\󠚄\\u0661\\u200D\.𐹦񭳐\\u0604\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4414\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0760}\x{0662}\x{0A4D}𐪑.\x{094D}󠆠󨚹", %p)}, undef, "to_unicode\(\'\\u0760\\u0662\\u0A4D𐪑.\\u094D\󠆠󨚹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4415\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0760}\x{0662}\x{0A4D}𐪑.\x{094D}󠆠󨚹", %p)}, undef, "to_unicode\(\'\\u0760\\u0662\\u0A4D𐪑\.\\u094D\󠆠󨚹\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4416\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0669}。𐹥\x{0662}񔂚", %p)}, undef, "to_unicode\(\'\\u0669。𐹥\\u0662񔂚\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4417\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0669}。𐹥\x{0662}񔂚", %p)}, undef, "to_unicode\(\'\\u0669\。𐹥\\u0662񔂚\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4418\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1160}󠊾.8󃜔\x{06FA}", %p)}, undef, "to_unicode\(\'\\u1160\󠊾\.8󃜔\\u06FA\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4419\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。ß\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37。ß\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4420\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。ß\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37。ß\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4421\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。ß\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37\。ß\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4422\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。ß\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37\。ß\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4423\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。SS\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37\。SS\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4424\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。SS\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37\。SS\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4425\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。ss\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37\。ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4426\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。ss\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37\。ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4427\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。Ss\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37\。Ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4428\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。Ss\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37\。Ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4429\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。SS\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37。SS\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4430\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。SS\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37。SS\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4431\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。ss\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37。ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4432\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。ss\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37。ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4433\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。Ss\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37。Ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4434\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.1; is(eval{uts46_to_unicode("\x{200D}\x{200C}\x{1C37}。Ss\x{A671}", %p)}, undef, "to_unicode\(\'\\u200D\\u200C\\u1C37。Ss\\uA671\'\)\ throws\ error\ C2\ C1\ \[data\/IdnaTest\.txt\:4435\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("︒\x{200C}ヶ䒩.\x{076A}", %p)}, undef, "to_unicode\(\'︒\\u200Cヶ䒩\.\\u076A\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4436\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("︒\x{200C}ヶ䒩.\x{076A}", %p)}, undef, "to_unicode\(\'︒\\u200Cヶ䒩\.\\u076A\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4437\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{076A}", %p)}, undef, "to_unicode\(\'\。\\u200Cヶ䒩\.\\u076A\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4438\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{076A}", %p)}, undef, "to_unicode\(\'\。\\u200Cヶ䒩\.\\u076A\'\)\ throws\ error\ C1\ \[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_unicode("xn--qekw60d.xn--upb", %p)}, "ヶ䒩.\x{076A}", "to_unicode\(\'xn\-\-qekw60d\.xn\-\-upb\'\)\ \[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{076A}", %p)}, "ヶ䒩.\x{076A}", "to_unicode\(\'ヶ䒩\.\\u076A\'\)\ \[data\/IdnaTest\.txt\:4441\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}⒈󣡃.񈸴\x{A9C0}", %p)}, undef, "to_unicode\(\'\\u200C⒈󣡃\.񈸴\\uA9C0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4442\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}⒈󣡃.񈸴\x{A9C0}", %p)}, undef, "to_unicode\(\'\\u200C⒈󣡃\.񈸴\\uA9C0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4443\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}1.󣡃.񈸴\x{A9C0}", %p)}, undef, "to_unicode\(\'\\u200C1\.󣡃\.񈸴\\uA9C0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4444\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}1.󣡃.񈸴\x{A9C0}", %p)}, undef, "to_unicode\(\'\\u200C1\.󣡃\.񈸴\\uA9C0\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4445\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{200C}ᢍ🃑。\x{0CCD}򏔌\x{200D}", %p)}, undef, "to_unicode\(\'⒈\\u200Cᢍ🃑\。\\u0CCD򏔌\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ C2\ \[data\/IdnaTest\.txt\:4446\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈\x{200C}ᢍ🃑。\x{0CCD}򏔌\x{200D}", %p)}, undef, "to_unicode\(\'⒈\\u200Cᢍ🃑\。\\u0CCD򏔌\\u200D\'\)\ throws\ error\ P1\ V6\ V5\ C1\ C2\ \[data\/IdnaTest\.txt\:4447\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{200C}ᢍ🃑。\x{0CCD}򏔌\x{200D}", %p)}, undef, "to_unicode\(\'1\.\\u200Cᢍ🃑\。\\u0CCD򏔌\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4448\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.\x{200C}ᢍ🃑。\x{0CCD}򏔌\x{200D}", %p)}, undef, "to_unicode\(\'1\.\\u200Cᢍ🃑\。\\u0CCD򏔌\\u200D\'\)\ throws\ error\ P1\ V5\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:4449\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{035E}。𝟫\x{1B72}䬺⒈", %p)}, undef, "to_unicode\(\'\\u035E。𝟫\\u1B72䬺⒈\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4450\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.0; is(eval{uts46_to_unicode("\x{035E}。9\x{1B72}䬺1.", %p)}, undef, "to_unicode\(\'\\u035E\。9\\u1B72䬺1\.\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4451\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𲈷≯。盚ꡨ", %p)}, undef, "to_unicode\(\'𲈷\≯\。盚ꡨ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4452\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𲈷>\x{0338}。盚ꡨ", %p)}, undef, "to_unicode\(\'𲈷\>\\u0338\。盚ꡨ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4453\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񃟯󠄯。-𑚲𐫳≯", %p)}, undef, "to_unicode\(\'\-񃟯\󠄯\。\-𑚲𐫳\≯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4454\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񃟯󠄯。-𑚲𐫳>\x{0338}", %p)}, undef, "to_unicode\(\'\-񃟯\󠄯\。\-𑚲𐫳\>\\u0338\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4455\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󲓝\x{1BF3}\x{200C}\x{09CD}.\x{FD59}񄳨", %p)}, undef, "to_unicode\(\'󲓝\\u1BF3\\u200C\\u09CD.\\uFD59񄳨\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4456\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󲓝\x{1BF3}\x{200C}\x{09CD}.\x{062C}\x{0645}\x{062D}񄳨", %p)}, undef, "to_unicode\(\'󲓝\\u1BF3\\u200C\\u09CD\.\\u062C\\u0645\\u062D񄳨\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4457\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("⾇.𐫍ᢊᢐ\x{200D}", %p)}, undef, "to_unicode\(\'⾇\.𐫍ᢊᢐ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4458\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("⾇.𐫍ᢊᢐ\x{200D}", %p)}, undef, "to_unicode\(\'⾇\.𐫍ᢊᢐ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4459\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("舛.𐫍ᢊᢐ\x{200D}", %p)}, undef, "to_unicode\(\'舛\.𐫍ᢊᢐ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4460\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("舛.𐫍ᢊᢐ\x{200D}", %p)}, undef, "to_unicode\(\'舛\.𐫍ᢊᢐ\\u200D\'\)\ throws\ error\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4461\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("4񠡉。ᡔ≯", %p)}, undef, "to_unicode\(\'4񠡉\。ᡔ\≯\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4462\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4񠡉。ᡔ>\x{0338}", %p)}, undef, "to_unicode\(\'4񠡉\。ᡔ\>\\u0338\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4463\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󕔢\x{0625}򃁪硲.\x{0688}", %p)}, undef, "to_unicode\(\'󕔢\\u0625򃁪硲.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4464\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󕔢\x{0627}\x{0655}򃁪硲.\x{0688}", %p)}, undef, "to_unicode\(\'󕔢\\u0627\\u0655򃁪硲.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4465\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󕔢\x{0625}򃁪硲.\x{0688}", %p)}, undef, "to_unicode\(\'󕔢\\u0625򃁪硲\.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4466\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󕔢\x{0627}\x{0655}򃁪硲.\x{0688}", %p)}, undef, "to_unicode\(\'󕔢\\u0627\\u0655򃁪硲\.\\u0688\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4467\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{1A78}𐹴Ⴆ\x{032C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u1A78𐹴Ⴆ\\u032C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4468\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}.\x{1A78}𐹴Ⴆ\x{032C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u1A78𐹴Ⴆ\\u032C\'\)\ throws\ error\ P1\ V5\ V6\ C1\ B1\ \[data\/IdnaTest\.txt\:4469\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{1A78}𐹴ⴆ\x{032C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u1A78𐹴ⴆ\\u032C\'\)\ throws\ error\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:4470\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, 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{1A78}𐹴ⴆ\x{032C}", %p)}, undef, "to_unicode\(\'\\u200C\.\\u1A78𐹴ⴆ\\u032C\'\)\ throws\ error\ V5\ C1\ B1\ \[data\/IdnaTest\.txt\:4471\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫁.\x{0C4D}\x{200D}Ϟ", %p)}, undef, "to_unicode\(\'𐫁.\\u0C4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4472\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫁.\x{0C4D}\x{200D}Ϟ", %p)}, undef, "to_unicode\(\'𐫁\.\\u0C4D\\u200DϞ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4473\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫁.\x{0C4D}\x{200D}ϟ", %p)}, undef, "to_unicode\(\'𐫁\.\\u0C4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4474\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐫁.\x{0C4D}\x{200D}ϟ", %p)}, undef, "to_unicode\(\'𐫁.\\u0C4D\\u200Dϟ\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4475\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{FD8E}𑁆。\x{0724}ꡜ-腍", %p)}, undef, "to_unicode\(\'\\u200C\\uFD8E𑁆\。\\u0724ꡜ\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4476\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{FD8E}𑁆。\x{0724}ꡜ-腍", %p)}, undef, "to_unicode\(\'\\u200C\\uFD8E𑁆\。\\u0724ꡜ\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4477\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0645}\x{062E}\x{062C}𑁆。\x{0724}ꡜ-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u0645\\u062E\\u062C𑁆\。\\u0724ꡜ\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4478\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0645}\x{062E}\x{062C}𑁆。\x{0724}ꡜ-腍", %p)}, undef, "to_unicode\(\'\\u200C\\u0645\\u062E\\u062C𑁆\。\\u0724ꡜ\-腍\'\)\ throws\ error\ B1\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4479\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-򤨓𐹮󰫾。𝟛񔡰🄅", %p)}, undef, "to_unicode\(\'\-򤨓𐹮󰫾。𝟛񔡰🄅\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4480\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-򤨓𐹮󰫾。3񔡰4,", %p)}, undef, "to_unicode\(\'\-򤨓𐹮󰫾\。3񔡰4\,\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4481\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⌮.Ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_unicode\(\'\⌮.Ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4482\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⌮.Ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_unicode\(\'\⌮\.Ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4483\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("⌮.ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_unicode\(\'\⌮\.ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4484\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("⌮.ⴂ\x{07D2}𑁆𐋮", %p)}, undef, "to_unicode\(\'\⌮.ⴂ\\u07D2𑁆𐋮\'\)\ throws\ error\ B5\ \[data\/IdnaTest\.txt\:4485\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("軥𐫬.-\x{0AC4}", %p)}, undef, "to_unicode\(\'軥𐫬\.\-\\u0AC4\'\)\ throws\ error\ V3\ B5\ B6\ \[data\/IdnaTest\.txt\:4486\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0602}ᡈ\x{06B6}.󠅕-", %p)}, undef, "to_unicode\(\'\\u0602ᡈ\\u06B6\.\󠅕\-\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4487\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("-𝨉0。\x{2DE5}\x{1939}톇십", %p)}, undef, "to_unicode\(\'\-𝨉0。\\u2DE5\\u1939톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4488\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_unicode\(\'\-𝨉0。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4489\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_unicode\(\'\-𝨉0。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4490\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_unicode\(\'\-𝨉0\。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4491\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("-𝨉0。\x{1939}\x{2DE5}톇십", %p)}, undef, "to_unicode\(\'\-𝨉0\。\\u1939\\u2DE5톇십\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4492\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᢖ︒--。󠅥靈\x{0604}𖪥", %p)}, undef, "to_unicode\(\'ᢖ︒\-\-。\󠅥靈\\u0604𖪥\'\)\ throws\ error\ P1\ V2\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4493\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᢖ。--。󠅥靈\x{0604}𖪥", %p)}, undef, "to_unicode\(\'ᢖ\。\-\-\。\󠅥靈\\u0604𖪥\'\)\ throws\ error\ P1\ V3\ V6\ B5\ \[data\/IdnaTest\.txt\:4494\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}ႿႵრ。\x{0F84}", %p)}, undef, "to_unicode\(\'\\u115FႿႵრ。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4495\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}ႿႵრ。\x{0F84}", %p)}, undef, "to_unicode\(\'\\u115FႿႵრ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4496\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}ⴟⴕრ。\x{0F84}", %p)}, undef, "to_unicode\(\'\\u115Fⴟⴕრ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4497\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}Ⴟⴕრ。\x{0F84}", %p)}, undef, "to_unicode\(\'\\u115FႿⴕრ\。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4498\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}ⴟⴕრ。\x{0F84}", %p)}, undef, "to_unicode\(\'\\u115Fⴟⴕრ。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4499\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{115F}Ⴟⴕრ。\x{0F84}", %p)}, undef, "to_unicode\(\'\\u115FႿⴕრ。\\u0F84\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4500\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄃𐹣.𐹦\x{0AE2}", %p)}, undef, "to_unicode\(\'🄃𐹣\.𐹦\\u0AE2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4501\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("2,𐹣.𐹦\x{0AE2}", %p)}, undef, "to_unicode\(\'2\,𐹣\.𐹦\\u0AE2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4502\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑴤\x{200C}𞶿.\x{069F}ꡃ𑋪", %p)}, undef, "to_unicode\(\'𑴤\\u200C𞶿.\\u069Fꡃ𑋪\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4503\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑴤\x{200C}𞶿.\x{069F}ꡃ𑋪", %p)}, undef, "to_unicode\(\'𑴤\\u200C𞶿.\\u069Fꡃ𑋪\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4504\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑴤\x{200C}𞶿.\x{069F}ꡃ𑋪", %p)}, undef, "to_unicode\(\'𑴤\\u200C𞶿\.\\u069Fꡃ𑋪\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4505\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑴤\x{200C}𞶿.\x{069F}ꡃ𑋪", %p)}, undef, "to_unicode\(\'𑴤\\u200C𞶿\.\\u069Fꡃ𑋪\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ B2\ B3\ \[data\/IdnaTest\.txt\:4506\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}𐿵\x{200C}。\x{06CD}\x{0A3C}\x{17B5}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D𐿵\\u200C\。\\u06CD\\u0A3C\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:4507\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}𐿵\x{200C}。\x{06CD}\x{0A3C}\x{17B5}", %p)}, undef, "to_unicode\(\'\\u200D\\u200D𐿵\\u200C\。\\u06CD\\u0A3C\\u17B5\'\)\ throws\ error\ P1\ V6\ B1\ C2\ C1\ \[data\/IdnaTest\.txt\:4508\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐢒。󠋴𓟷\x{0BCD}", %p)}, undef, "to_unicode\(\'𐢒\。\󠋴𓟷\\u0BCD\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4509\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}≠.𞷺𐹶", %p)}, undef, "to_unicode\(\'\\u0B4D\≠.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4510\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}=\x{0338}.𞷺𐹶", %p)}, undef, "to_unicode\(\'\\u0B4D\=\\u0338.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4511\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}≠.𞷺𐹶", %p)}, undef, "to_unicode\(\'\\u0B4D\≠\.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4512\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0B4D}=\x{0338}.𞷺𐹶", %p)}, undef, "to_unicode\(\'\\u0B4D\=\\u0338\.𞷺𐹶\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4513\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟛\x{0F87}\x{1714}。\x{0B82}-", %p)}, undef, "to_unicode\(\'𝟛\\u0F87\\u1714。\\u0B82\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4514\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟛\x{1714}\x{0F87}。\x{0B82}-", %p)}, undef, "to_unicode\(\'𝟛\\u1714\\u0F87。\\u0B82\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4515\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("3\x{1714}\x{0F87}。\x{0B82}-", %p)}, undef, "to_unicode\(\'3\\u1714\\u0F87\。\\u0B82\-\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4516\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᠫ𝪦𑍍Ⴇ.4", %p)}, undef, "to_unicode\(\'ᠫ𝪦𑍍Ⴇ\.4\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4517\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("ᠫ𝪦𑍍ⴇ.4", %p)}, "ᠫ𝪦𑍍ⴇ.4", "to_unicode\(\'ᠫ𝪦𑍍ⴇ\.4\'\)\ \[data\/IdnaTest\.txt\:4518\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("xn--e7e497h3m2olwqg.4", %p)}, "ᠫ𝪦𑍍ⴇ.4", "to_unicode\(\'xn\-\-e7e497h3m2olwqg\.4\'\)\ \[data\/IdnaTest\.txt\:4519\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ᄹ。󠇣󖮆‴", %p)}, undef, "to_unicode\(\'ᄹ。\󠇣󖮆\‴\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4520\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᄹ。󠇣󖮆′′′", %p)}, undef, "to_unicode\(\'ᄹ\。\󠇣󖮆\′\′\′\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4521\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴆ򏌭.\x{302C}\x{2DF2}\x{068D}", %p)}, undef, "to_unicode\(\'Ⴆ򏌭.\\u302C\\u2DF2\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4522\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_unicode\(\'Ⴆ򏌭.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4523\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_unicode\(\'Ⴆ򏌭\.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4524\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_unicode\(\'ⴆ򏌭\.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4525\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴆ򏌭.\x{2DF2}\x{302C}\x{068D}", %p)}, undef, "to_unicode\(\'ⴆ򏌭.\\u2DF2\\u302C\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4526\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴆ򏌭.\x{302C}\x{2DF2}\x{068D}", %p)}, undef, "to_unicode\(\'ⴆ򏌭.\\u302C\\u2DF2\\u068D\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4527\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'ß𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4528\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'ß𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4529\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'ß𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4530\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'ß𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4531\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß𐥙。𐫃.帼f🠖\x{200C}", %p)}, undef, "to_unicode\(\'ß𐥙\。𐫃\.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4532\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß𐥙。𐫃.帼f🠖\x{200C}", %p)}, undef, "to_unicode\(\'ß𐥙\。𐫃\.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4533\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'SS𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4534\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'SS𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4535\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss𐥙。𐫃.帼f🠖\x{200C}", %p)}, undef, "to_unicode\(\'ss𐥙\。𐫃\.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4536\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss𐥙。𐫃.帼f🠖\x{200C}", %p)}, undef, "to_unicode\(\'ss𐥙\。𐫃\.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4537\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'Ss𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4538\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss𐥙。𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'Ss𐥙\。𐫃\.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4539\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß𐥙︒𐫃.帼f🠖\x{200C}", %p)}, undef, "to_unicode\(\'ß𐥙︒𐫃.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4540\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß𐥙︒𐫃.帼f🠖\x{200C}", %p)}, undef, "to_unicode\(\'ß𐥙︒𐫃.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4541\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'SS𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4542\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'SS𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4543\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss𐥙︒𐫃.帼f🠖\x{200C}", %p)}, undef, "to_unicode\(\'ss𐥙︒𐫃.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4544\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss𐥙︒𐫃.帼f🠖\x{200C}", %p)}, undef, "to_unicode\(\'ss𐥙︒𐫃.帼f🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4545\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'Ss𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4546\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss𐥙︒𐫃.帼F🠖\x{200C}", %p)}, undef, "to_unicode\(\'Ss𐥙︒𐫃.帼F🠖\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4547\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򽌣。𐹾\x{06A6}\x{200D}", %p)}, undef, "to_unicode\(\'򽌣。𐹾\\u06A6\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4548\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򽌣。𐹾\x{06A6}\x{200D}", %p)}, undef, "to_unicode\(\'򽌣。𐹾\\u06A6\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4549\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򽌣。𐹾\x{06A6}\x{200D}", %p)}, undef, "to_unicode\(\'򽌣\。𐹾\\u06A6\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4550\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򽌣。𐹾\x{06A6}\x{200D}", %p)}, undef, "to_unicode\(\'򽌣\。𐹾\\u06A6\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4551\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🡉.񾕀𝟨𐨿", %p)}, undef, "to_unicode\(\'🡉\.񾕀𝟨𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4552\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🡉.񾕀6𐨿", %p)}, undef, "to_unicode\(\'🡉\.񾕀6𐨿\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4553\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0350}𐸌。-۹ႱႨ", %p)}, undef, "to_unicode\(\'\\u0350𐸌\。\-۹ႱႨ\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4554\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0350}𐸌。-۹ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u0350𐸌\。\-۹ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4555\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0350}𐸌。-۹Ⴑⴈ", %p)}, undef, "to_unicode\(\'\\u0350𐸌\。\-۹Ⴑⴈ\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4556\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07CE}.-ᢏ︒", %p)}, undef, "to_unicode\(\'\\u07CE.\-ᢏ︒\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4557\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07CE}.-ᢏ。", %p)}, undef, "to_unicode\(\'\\u07CE\.\-ᢏ\。\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4558\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}𐪙.󠆺--", %p)}, undef, "to_unicode\(\'\\u200C𐪙\.\󠆺\-\-\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4559\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200C}𐪙.󠆺--", %p)}, undef, "to_unicode\(\'\\u200C𐪙\.\󠆺\-\-\'\)\ throws\ error\ V3\ B1\ C1\ \[data\/IdnaTest\.txt\:4560\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐋸󃄒Ⴢ.Ⴁ", %p)}, undef, "to_unicode\(\'𐋸󃄒Ⴢ\.Ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4561\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋸󃄒ⴢ.ⴁ", %p)}, undef, "to_unicode\(\'𐋸󃄒ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4562\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐋸󃄒Ⴢ.ⴁ", %p)}, undef, "to_unicode\(\'𐋸󃄒Ⴢ\.ⴁ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4563\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􉿵𑁆₄򣚆。󾎹🐶ς", %p)}, undef, "to_unicode\(\'􉿵𑁆₄򣚆。󾎹🐶ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4564\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􉿵𑁆4򣚆。󾎹🐶ς", %p)}, undef, "to_unicode\(\'􉿵𑁆4򣚆\。󾎹🐶ς\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4565\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􉿵𑁆4򣚆。󾎹🐶Σ", %p)}, undef, "to_unicode\(\'􉿵𑁆4򣚆\。󾎹🐶Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4566\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􉿵𑁆4򣚆。󾎹🐶σ", %p)}, undef, "to_unicode\(\'􉿵𑁆4򣚆\。󾎹🐶σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4567\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􉿵𑁆₄򣚆。󾎹🐶Σ", %p)}, undef, "to_unicode\(\'􉿵𑁆₄򣚆。󾎹🐶Σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4568\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("􉿵𑁆₄򣚆。󾎹🐶σ", %p)}, undef, "to_unicode\(\'􉿵𑁆₄򣚆。󾎹🐶σ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4569\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0E39}\x{07CC}。\x{1037}ꡓ", %p)}, undef, "to_unicode\(\'\\u0E39\\u07CC\。\\u1037ꡓ\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4570\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0603}\x{062B}𑂁。󦳹Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\u0603\\u062B𑂁。󦳹Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4571\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{062B}𑂁。󦳹Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\u0603\\u062B𑂁。󦳹Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4572\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{062B}𑂁。󦳹Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\u0603\\u062B𑂁\。󦳹Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4573\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{062B}𑂁。󦳹Ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\u0603\\u062B𑂁\。󦳹Ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4574\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{062B}𑂁。󦳹ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\u0603\\u062B𑂁\。󦳹ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4575\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{062B}𑂁。󦳹ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\u0603\\u062B𑂁\。󦳹ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4576\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{062B}𑂁。󦳹ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\u0603\\u062B𑂁。󦳹ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4577\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0603}\x{062B}𑂁。󦳹ⴑ\x{200D}", %p)}, undef, "to_unicode\(\'\\u0603\\u062B𑂁。󦳹ⴑ\\u200D\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4578\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0ACD}\x{FC5A}𑀾\x{200D}。-𐹥", %p)}, undef, "to_unicode\(\'\\u0ACD\\uFC5A𑀾\\u200D。\-𐹥\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4579\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0ACD}\x{FC5A}𑀾\x{200D}。-𐹥", %p)}, undef, "to_unicode\(\'\\u0ACD\\uFC5A𑀾\\u200D。\-𐹥\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4580\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0ACD}\x{064A}\x{064A}𑀾\x{200D}。-𐹥", %p)}, undef, "to_unicode\(\'\\u0ACD\\u064A\\u064A𑀾\\u200D\。\-𐹥\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4581\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.0 (perl v5.13.7) 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{0ACD}\x{064A}\x{064A}𑀾\x{200D}。-𐹥", %p)}, undef, "to_unicode\(\'\\u0ACD\\u064A\\u064A𑀾\\u200D\。\-𐹥\'\)\ throws\ error\ V5\ V3\ B1\ C2\ \[data\/IdnaTest\.txt\:4582\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("񆥔。\x{0855}︒쯙𝟧", %p)}, undef, "to_unicode\(\'񆥔。\\u0855︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4583\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񆥔。\x{0855}︒쯙𝟧", %p)}, undef, "to_unicode\(\'񆥔。\\u0855︒쯙𝟧\'\)\ throws\ error\ P1\ V6\ B2\ \[data\/IdnaTest\.txt\:4584\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񆥔。\x{0855}。쯙5", %p)}, undef, "to_unicode\(\'񆥔\。\\u0855\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4585\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񆥔。\x{0855}。쯙5", %p)}, undef, "to_unicode\(\'񆥔\。\\u0855\。쯙5\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4586\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡮ-。ᡴ≮뻐", %p)}, undef, "to_unicode\(\'ꡮ\-\。ᡴ\≮뻐\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4587\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ꡮ-。ᡴ<\x{0338}뻐", %p)}, undef, "to_unicode\(\'ꡮ\-\。ᡴ\<\\u0338뻐\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4588\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱙-񈞻.\x{07E1}≠", %p)}, undef, "to_unicode\(\'𐱙\-񈞻.\\u07E1\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4589\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱙-񈞻.\x{07E1}=\x{0338}", %p)}, undef, "to_unicode\(\'𐱙\-񈞻.\\u07E1\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4590\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱙-񈞻.\x{07E1}≠", %p)}, undef, "to_unicode\(\'𐱙\-񈞻\.\\u07E1\≠\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4591\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐱙-񈞻.\x{07E1}=\x{0338}", %p)}, undef, "to_unicode\(\'𐱙\-񈞻\.\\u07E1\=\\u0338\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4592\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵ςႼ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵ςႼ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4593\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵ςႼ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵ςႼ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4594\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵ςⴜ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵ςⴜ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4595\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵ΣႼ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵ΣႼ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4596\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵σⴜ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵σⴜ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4597\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵Σⴜ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵Σⴜ\.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4598\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵ςⴜ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵ςⴜ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4599\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵ΣႼ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵ΣႼ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4600\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵σⴜ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵σⴜ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4601\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-񄚵Σⴜ.𐹢", %p)}, undef, "to_unicode\(\'\-񄚵Σⴜ.𐹢\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4602\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠠍.\x{200D}𝟮\x{0F86}", %p)}, undef, "to_unicode\(\'\󠠍\.\\u200D𝟮\\u0F86\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4603\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠠍.\x{200D}𝟮\x{0F86}", %p)}, undef, "to_unicode\(\'\󠠍\.\\u200D𝟮\\u0F86\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4604\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠠍.\x{200D}2\x{0F86}", %p)}, undef, "to_unicode\(\'\󠠍\.\\u200D2\\u0F86\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4605\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠠍.\x{200D}2\x{0F86}", %p)}, undef, "to_unicode\(\'\󠠍\.\\u200D2\\u0F86\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4606\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯𝟖。\x{0D4D}𐮊򔦳", %p)}, undef, "to_unicode\(\'\≯𝟖。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4607\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}𝟖。\x{0D4D}𐮊򔦳", %p)}, undef, "to_unicode\(\'\>\\u0338𝟖。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4608\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≯8。\x{0D4D}𐮊򔦳", %p)}, undef, "to_unicode\(\'\≯8\。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4609\]") or ($@ and diag($@)); is(eval{uts46_to_unicode(">\x{0338}8。\x{0D4D}𐮊򔦳", %p)}, undef, "to_unicode\(\'\>\\u03388\。\\u0D4D𐮊򔦳\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4610\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C2}Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05C2Ↄ\\u0664。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4611\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C2}Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05C2Ↄ\\u0664。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4612\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C2}Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05C2Ↄ\\u0664\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4613\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{05C2}Ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05C2Ↄ\\u0664\。\\u200C\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4614\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05C2}ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05C2ↄ\\u0664\。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4615\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05C2}ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05C2ↄ\\u0664\。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4616\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05C2}ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05C2ↄ\\u0664。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4617\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{05C2}ↄ\x{0664}。\x{200C}", %p)}, undef, "to_unicode\(\'\\u05C2ↄ\\u0664。\\u200C\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4618\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{0962}𝟵\x{200D}𞺻.\x{200D}\x{06AA}⒈", %p)}, undef, "to_unicode\(\'\\u0962𝟵\\u200D𞺻\.\\u200D\\u06AA⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4619\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0962}𝟵\x{200D}𞺻.\x{200D}\x{06AA}⒈", %p)}, undef, "to_unicode\(\'\\u0962𝟵\\u200D𞺻\.\\u200D\\u06AA⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4620\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0962}9\x{200D}\x{063A}.\x{200D}\x{06AA}1.", %p)}, undef, "to_unicode\(\'\\u09629\\u200D\\u063A\.\\u200D\\u06AA1\.\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:4621\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0962}9\x{200D}\x{063A}.\x{200D}\x{06AA}1.", %p)}, undef, "to_unicode\(\'\\u09629\\u200D\\u063A\.\\u200D\\u06AA1\.\'\)\ throws\ error\ V5\ B1\ C2\ \[data\/IdnaTest\.txt\:4622\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑖿。嬶ß葽", %p)}, undef, "to_unicode\(\'𑖿\。嬶ß葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4623\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑖿。嬶SS葽", %p)}, undef, "to_unicode\(\'𑖿\。嬶SS葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4624\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑖿。嬶ss葽", %p)}, undef, "to_unicode\(\'𑖿\。嬶ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4625\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑖿。嬶Ss葽", %p)}, undef, "to_unicode\(\'𑖿\。嬶Ss葽\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4626\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𑇀⒈。񔾭𐹲", %p)}, undef, "to_unicode\(\'𑇀⒈\。񔾭𐹲\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4627\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑇀1.。񔾭𐹲", %p)}, undef, "to_unicode\(\'𑇀1\.\。񔾭𐹲\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ B5\ B6\ \[data\/IdnaTest\.txt\:4628\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍀︒≮.𺅧𐧅\x{06B7}", %p)}, undef, "to_unicode\(\'𑍀︒\≮.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4629\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍀︒<\x{0338}.𺅧𐧅\x{06B7}", %p)}, undef, "to_unicode\(\'𑍀︒\<\\u0338.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4630\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍀。≮.𺅧𐧅\x{06B7}", %p)}, undef, "to_unicode\(\'𑍀\。\≮\.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4631\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑍀。<\x{0338}.𺅧𐧅\x{06B7}", %p)}, undef, "to_unicode\(\'𑍀\。\<\\u0338\.𺅧𐧅\\u06B7\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4632\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠀳𐹫򇬇.󠐊ς𸰟񧋭", %p)}, undef, "to_unicode\(\'\󠀳𐹫򇬇\.\󠐊ς𸰟񧋭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4633\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠀳𐹫򇬇.󠐊Σ𸰟񧋭", %p)}, undef, "to_unicode\(\'\󠀳𐹫򇬇\.\󠐊Σ𸰟񧋭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4634\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠀳𐹫򇬇.󠐊σ𸰟񧋭", %p)}, undef, "to_unicode\(\'\󠀳𐹫򇬇\.\󠐊σ𸰟񧋭\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4635\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'ς\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4636\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'ς\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4637\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'ς\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4638\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'ς\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4639\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'Σ\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4640\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'Σ\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4641\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'σ\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4642\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'σ\\u1CD1񝝛\\u0F84\。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4643\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'Σ\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4644\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'Σ\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4645\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'σ\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4646\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ\x{1CD1}񝝛\x{0F84}。𐯻\x{200C}\x{06C6}", %p)}, undef, "to_unicode\(\'σ\\u1CD1񝝛\\u0F84。𐯻\\u200C\\u06C6\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4647\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𱤫。-\x{05F3}𐫯", %p)}, undef, "to_unicode\(\'\-𱤫。\-\\u05F3𐫯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4648\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-𱤫。-\x{05F3}𐫯", %p)}, undef, "to_unicode\(\'\-𱤫\。\-\\u05F3𐫯\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4649\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("◗󥆅𝟤。\x{200D}󠍭", %p)}, undef, "to_unicode\(\'\◗󥆅𝟤。\\u200D\󠍭\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4650\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("◗󥆅𝟤。\x{200D}󠍭", %p)}, undef, "to_unicode\(\'\◗󥆅𝟤。\\u200D\󠍭\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4651\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("◗󥆅2。\x{200D}󠍭", %p)}, undef, "to_unicode\(\'\◗󥆅2\。\\u200D\󠍭\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4652\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("◗󥆅2。\x{200D}󠍭", %p)}, undef, "to_unicode\(\'\◗󥆅2\。\\u200D\󠍭\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4653\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CF8}\x{200D}𑚴\x{0605}。񦯈", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D𑚴\\u0605。񦯈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4654\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CF8}\x{200D}𑚴\x{0605}。񦯈", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D𑚴\\u0605。񦯈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4655\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CF8}\x{200D}𑚴\x{0605}。񦯈", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D𑚴\\u0605\。񦯈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4656\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0CF8}\x{200D}𑚴\x{0605}。񦯈", %p)}, undef, "to_unicode\(\'\\u0CF8\\u200D𑚴\\u0605\。񦯈\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4657\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{066B}.Ⴍ₉⁸", %p)}, undef, "to_unicode\(\'\\u066B.Ⴍ₉⁸\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4658\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{066B}.Ⴍ98", %p)}, undef, "to_unicode\(\'\\u066B\.Ⴍ98\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4659\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{066B}.ⴍ98", %p)}, undef, "to_unicode\(\'\\u066B\.ⴍ98\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4660\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{066B}.ⴍ₉⁸", %p)}, undef, "to_unicode\(\'\\u066B.ⴍ₉⁸\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4661\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ß\x{0600}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。ß\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4662\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ß\x{0600}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。ß\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4663\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ß\x{0600}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。ß\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4664\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ß\x{0600}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。ß\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4665\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ß\x{0600}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。ß\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4666\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ß\x{0600}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。ß\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4667\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ß\x{0600}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。ß\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4668\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ß\x{0600}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。ß\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4669\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。SS\x{0600}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。SS\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4670\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。SS\x{0600}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。SS\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4671\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。SS\x{0600}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。SS\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4672\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。SS\x{0600}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。SS\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4673\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ss\x{0600}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。ss\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4674\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ss\x{0600}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。ss\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4675\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ss\x{0600}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。ss\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4676\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ss\x{0600}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。ss\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4677\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。Ss\x{0600}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。Ss\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4678\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。Ss\x{0600}19.>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。Ss\\u060019\.\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4679\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。Ss\x{0600}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。Ss\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4680\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。Ss\x{0600}19.≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE\。Ss\\u060019\.\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ \[data\/IdnaTest\.txt\:4681\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。SS\x{0600}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。SS\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4682\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。SS\x{0600}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。SS\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4683\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。SS\x{0600}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。SS\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4684\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。SS\x{0600}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。SS\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4685\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ss\x{0600}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。ss\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4686\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ss\x{0600}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。ss\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4687\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ss\x{0600}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。ss\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4688\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。ss\x{0600}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。ss\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4689\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。Ss\x{0600}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。Ss\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4690\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。Ss\x{0600}⒚>\x{0338}", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。Ss\\u0600⒚\>\\u0338\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4691\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。Ss\x{0600}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。Ss\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4692\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{08EE}。Ss\x{0600}⒚≯", %p)}, undef, "to_unicode\(\'\\u200C\\u08EE。Ss\\u0600⒚\≯\'\)\ throws\ error\ P1\ V6\ C1\ B5\ B6\ \[data\/IdnaTest\.txt\:4693\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}𐱧𐮆.󽎐", %p)}, undef, "to_unicode\(\'\\u200C𐱧𐮆.󽎐\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4694\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}𐱧𐮆.󽎐", %p)}, undef, "to_unicode\(\'\\u200C𐱧𐮆.󽎐\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4695\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}𐱧𐮆.󽎐", %p)}, undef, "to_unicode\(\'\\u200C𐱧𐮆\.󽎐\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4696\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}𐱧𐮆.󽎐", %p)}, undef, "to_unicode\(\'\\u200C𐱧𐮆\.󽎐\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4697\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫫󎹀-񆊤。󠧥Ⴛ𐼚𖫲", %p)}, undef, "to_unicode\(\'𐫫󎹀\-񆊤\。\󠧥Ⴛ𐼚𖫲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4698\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐫫󎹀-񆊤。󠧥ⴛ𐼚𖫲", %p)}, undef, "to_unicode\(\'𐫫󎹀\-񆊤\。\󠧥ⴛ𐼚𖫲\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4699\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FE09}。󠎠\x{1BE6}", %p)}, undef, "to_unicode\(\'\\uFE09\。\󠎠\\u1BE6\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4700\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛ᡤ.Ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_unicode\(\'⾛ᡤ\.Ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4701\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛ᡤ.Ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_unicode\(\'⾛ᡤ\.Ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4702\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走ᡤ.Ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_unicode\(\'走ᡤ\.Ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4703\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走ᡤ.Ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_unicode\(\'走ᡤ\.Ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4704\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走ᡤ.ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_unicode\(\'走ᡤ\.ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4705\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("走ᡤ.ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_unicode\(\'走ᡤ\.ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4706\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛ᡤ.ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_unicode\(\'⾛ᡤ\.ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4707\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⾛ᡤ.ⴕ𞨪𐹰\x{200D}", %p)}, undef, "to_unicode\(\'⾛ᡤ\.ⴕ𞨪𐹰\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4708\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ᡱ\x{200C}🄄.\x{AA2E}", %p)}, undef, "to_unicode\(\'\-ᡱ\\u200C🄄\.\\uAA2E\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4709\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ᡱ\x{200C}🄄.\x{AA2E}", %p)}, undef, "to_unicode\(\'\-ᡱ\\u200C🄄\.\\uAA2E\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4710\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ᡱ\x{200C}3,.\x{AA2E}", %p)}, undef, "to_unicode\(\'\-ᡱ\\u200C3\,\.\\uAA2E\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4711\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-ᡱ\x{200C}3,.\x{AA2E}", %p)}, undef, "to_unicode\(\'\-ᡱ\\u200C3\,\.\\uAA2E\'\)\ throws\ error\ P1\ V3\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:4712\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{FEB2}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_unicode\(\'\≠\\uFEB2󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4713\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{FEB2}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_unicode\(\'\≠\\uFEB2󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4714\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{FEB2}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_unicode\(\'\=\\u0338\\uFEB2󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4715\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{FEB2}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_unicode\(\'\=\\u0338\\uFEB2󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4716\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{0633}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_unicode\(\'\≠\\u0633󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4717\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{0633}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_unicode\(\'\≠\\u0633󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4718\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{0633}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_unicode\(\'\=\\u0338\\u0633󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4719\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{0633}󳒯\x{200C}.Ⴚ򍆎", %p)}, undef, "to_unicode\(\'\=\\u0338\\u0633󳒯\\u200C\.Ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4720\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{0633}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_unicode\(\'\=\\u0338\\u0633󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4721\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{0633}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_unicode\(\'\=\\u0338\\u0633󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4722\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{0633}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_unicode\(\'\≠\\u0633󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4723\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{0633}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_unicode\(\'\≠\\u0633󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4724\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{FEB2}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_unicode\(\'\=\\u0338\\uFEB2󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4725\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}\x{FEB2}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_unicode\(\'\=\\u0338\\uFEB2󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4726\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{FEB2}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_unicode\(\'\≠\\uFEB2󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4727\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠\x{FEB2}󳒯\x{200C}.ⴚ򍆎", %p)}, undef, "to_unicode\(\'\≠\\uFEB2󳒯\\u200C\.ⴚ򍆎\'\)\ throws\ error\ P1\ V6\ B1\ C1\ \[data\/IdnaTest\.txt\:4728\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{1DE3}\x{08EF}", %p)}, undef, "to_unicode\(\'𐹴。\\u1DE3\\u08EF\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4729\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{08EF}\x{1DE3}", %p)}, undef, "to_unicode\(\'𐹴。\\u08EF\\u1DE3\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4730\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{08EF}\x{1DE3}", %p)}, undef, "to_unicode\(\'𐹴\。\\u08EF\\u1DE3\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4731\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𑘴\x{087A}≯⒍。-", %p)}, undef, "to_unicode\(\'𑘴\\u087A\≯⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4732\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑘴\x{087A}>\x{0338}⒍。-", %p)}, undef, "to_unicode\(\'𑘴\\u087A\>\\u0338⒍\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4733\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑘴\x{087A}≯6.。-", %p)}, undef, "to_unicode\(\'𑘴\\u087A\≯6\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4734\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑘴\x{087A}>\x{0338}6.。-", %p)}, undef, "to_unicode\(\'𑘴\\u087A\>\\u03386\.\。\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ B1\ A4_2\ \[data\/IdnaTest\.txt\:4735\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{17B4}.쮇-", %p)}, undef, "to_unicode\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4736\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{17B4}.쮇-", %p)}, undef, "to_unicode\(\'\\u17B4\.쮇\-\'\)\ throws\ error\ P1\ V5\ V6\ V3\ \[data\/IdnaTest\.txt\:4737\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1BF3}。⒈-򻯝", %p)}, undef, "to_unicode\(\'\\u200C\\u1BF3\。⒈\-򻯝\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4738\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1BF3}。⒈-򻯝", %p)}, undef, "to_unicode\(\'\\u200C\\u1BF3\。⒈\-򻯝\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4739\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1BF3}。1.-򻯝", %p)}, undef, "to_unicode\(\'\\u200C\\u1BF3\。1\.\-򻯝\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4740\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200C}\x{1BF3}。1.-򻯝", %p)}, undef, "to_unicode\(\'\\u200C\\u1BF3\。1\.\-򻯝\'\)\ throws\ error\ P1\ V3\ V6\ C1\ \[data\/IdnaTest\.txt\:4741\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈𞬳\x{200C}。𝩃⓮\x{200C}\x{0323}", %p)}, undef, "to_unicode\(\'⒈𞬳\\u200C\。𝩃⓮\\u200C\\u0323\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4742\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒈𞬳\x{200C}。𝩃⓮\x{200C}\x{0323}", %p)}, undef, "to_unicode\(\'⒈𞬳\\u200C\。𝩃⓮\\u200C\\u0323\'\)\ throws\ error\ P1\ V6\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4743\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.𞬳\x{200C}。𝩃⓮\x{200C}\x{0323}", %p)}, undef, "to_unicode\(\'1\.𞬳\\u200C\。𝩃⓮\\u200C\\u0323\'\)\ throws\ error\ P1\ V6\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:4744\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("1.𞬳\x{200C}。𝩃⓮\x{200C}\x{0323}", %p)}, undef, "to_unicode\(\'1\.𞬳\\u200C\。𝩃⓮\\u200C\\u0323\'\)\ throws\ error\ P1\ V6\ V5\ B3\ C1\ \[data\/IdnaTest\.txt\:4745\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛐙。𝟐\x{081E}\x{0753}", %p)}, undef, "to_unicode\(\'򛐙。𝟐\\u081E\\u0753\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4746\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򛐙。2\x{081E}\x{0753}", %p)}, undef, "to_unicode\(\'򛐙\。2\\u081E\\u0753\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4747\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB68}򇫀.ς\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\uFB68򇫀\.ς\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4748\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB68}򇫀.ς\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\uFB68򇫀\.ς\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4749\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0679}򇫀.ς\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\u0679򇫀\.ς\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4750\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0679}򇫀.ς\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\u0679򇫀\.ς\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4751\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0679}򇫀.Σ\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\u0679򇫀\.Σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4752\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0679}򇫀.Σ\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\u0679򇫀\.Σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4753\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0679}򇫀.σ\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\u0679򇫀\.σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4754\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0679}򇫀.σ\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\u0679򇫀\.σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4755\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB68}򇫀.Σ\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\uFB68򇫀\.Σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4756\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB68}򇫀.Σ\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\uFB68򇫀\.Σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4757\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB68}򇫀.σ\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\uFB68򇫀\.σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4758\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FB68}򇫀.σ\x{200D}𐹼", %p)}, undef, "to_unicode\(\'\\uFB68򇫀\.σ\\u200D𐹼\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:4759\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("⒎\x{074E}𐹰。\x{17D2}۵𛲞", %p)}, undef, "to_unicode\(\'⒎\\u074E𐹰。\\u17D2۵𛲞\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4760\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("7.\x{074E}𐹰。\x{17D2}۵𛲞", %p)}, undef, "to_unicode\(\'7\.\\u074E𐹰\。\\u17D2۵𛲞\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4761\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("-\x{075E}᠆򒜝。𐹽\x{2DE4}\x{0600}", %p)}, undef, "to_unicode\(\'\-\\u075E᠆򒜝\。𐹽\\u2DE4\\u0600\'\)\ throws\ error\ P1\ V3\ V6\ B1\ \[data\/IdnaTest\.txt\:4762\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}.\x{08A1}𐹦𑒳", %p)}, undef, "to_unicode\(\'\\u200D\.\\u08A1𐹦𑒳\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4763\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{200D}.\x{08A1}𐹦𑒳", %p)}, undef, "to_unicode\(\'\\u200D\.\\u08A1𐹦𑒳\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:4764\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--qyb0415kj7d", %p)}, "\x{08A1}𐹦𑒳", "to_unicode\(\'xn\-\-qyb0415kj7d\'\)\ \[data\/IdnaTest\.txt\:4765\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("\x{08A1}𐹦𑒳", %p)}, "\x{08A1}𐹦𑒳", "to_unicode\(\'\\u08A1𐹦𑒳\'\)\ \[data\/IdnaTest\.txt\:4766\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("㒧۱.Ⴚꡤ\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.Ⴚꡤ\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4767\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("㒧۱.Ⴚꡤ\x{200D}", %p)}, undef, "to_unicode\(\'㒧۱\.Ⴚꡤ\\u200D\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4768\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4769\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4770\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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--emb715u.xn--ilju850b", %p)}, "㒧۱.ⴚꡤ", "to_unicode\(\'xn\-\-emb715u\.xn\-\-ilju850b\'\)\ \[data\/IdnaTest\.txt\:4771\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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\:4772\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("㒧۱.Ⴚꡤ", %p)}, undef, "to_unicode\(\'㒧۱\.Ⴚꡤ\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4773\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{1B37}ᠧ-.-\x{036B}", %p)}, undef, "to_unicode\(\'\\u1B37ᠧ\-.\-\\u036B\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4774\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{1B37}ᠧ-.-\x{036B}", %p)}, undef, "to_unicode\(\'\\u1B37ᠧ\-\.\-\\u036B\'\)\ throws\ error\ V3\ V5\ \[data\/IdnaTest\.txt\:4775\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("򘤦-⑾\x{200C}.标-", %p)}, undef, "to_unicode\(\'򘤦\-⑾\\u200C.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4776\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򘤦-⑾\x{200C}.标-", %p)}, undef, "to_unicode\(\'򘤦\-⑾\\u200C.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4777\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򘤦-(11)\x{200C}.标-", %p)}, undef, "to_unicode\(\'򘤦\-\(11\)\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4778\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򘤦-(11)\x{200C}.标-", %p)}, undef, "to_unicode\(\'򘤦\-\(11\)\\u200C\.标\-\'\)\ throws\ error\ P1\ V6\ V3\ C1\ \[data\/IdnaTest\.txt\:4779\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0757}.ς\x{06EF}", %p)}, undef, "to_unicode\(\'\\u0757.ς\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4780\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0757}.ς\x{06EF}", %p)}, undef, "to_unicode\(\'\\u0757\.ς\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4781\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("\x{0757}.Σ\x{06EF}", %p)}, undef, "to_unicode\(\'\\u0757\.Σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4782\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0757}.σ\x{06EF}", %p)}, undef, "to_unicode\(\'\\u0757\.σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4783\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0757}.Σ\x{06EF}", %p)}, undef, "to_unicode\(\'\\u0757.Σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4784\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0757}.σ\x{06EF}", %p)}, undef, "to_unicode\(\'\\u0757.σ\\u06EF\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4785\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𷎐𐹬.𞭁\x{200D}\x{1A60}񳌐", %p)}, undef, "to_unicode\(\'𷎐𐹬.𞭁\\u200D\\u1A60񳌐\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4786\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𷎐𐹬.𞭁\x{200D}\x{1A60}񳌐", %p)}, undef, "to_unicode\(\'𷎐𐹬.𞭁\\u200D\\u1A60񳌐\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4787\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𷎐𐹬.𞭁\x{200D}\x{1A60}񳌐", %p)}, undef, "to_unicode\(\'𷎐𐹬\.𞭁\\u200D\\u1A60񳌐\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4788\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𷎐𐹬.𞭁\x{200D}\x{1A60}񳌐", %p)}, undef, "to_unicode\(\'𷎐𐹬\.𞭁\\u200D\\u1A60񳌐\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B2\ B3\ C2\ \[data\/IdnaTest\.txt\:4789\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐹩𐋩\x{FBEF}。𑖿", %p)}, undef, "to_unicode\(\'𐹩𐋩\\uFBEF。𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4790\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐹩𐋩\x{0626}\x{0648}。𑖿", %p)}, undef, "to_unicode\(\'𐹩𐋩\\u0626\\u0648\。𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4791\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐹩𐋩\x{064A}\x{0654}\x{0648}。𑖿", %p)}, undef, "to_unicode\(\'𐹩𐋩\\u064A\\u0654\\u0648\。𑖿\'\)\ throws\ error\ V5\ B1\ \[data\/IdnaTest\.txt\:4792\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("6\x{1160}𝩦󠴳.󣞌锰\x{06EE}ς", %p)}, undef, "to_unicode\(\'6\\u1160𝩦\󠴳\.󣞌锰\\u06EEς\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4793\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6\x{1160}𝩦󠴳.󣞌锰\x{06EE}Σ", %p)}, undef, "to_unicode\(\'6\\u1160𝩦\󠴳\.󣞌锰\\u06EEΣ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4794\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("6\x{1160}𝩦󠴳.󣞌锰\x{06EE}σ", %p)}, undef, "to_unicode\(\'6\\u1160𝩦\󠴳\.󣞌锰\\u06EEσ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4795\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07E0}\x{1DF1}𔡹𝟽。𐹥", %p)}, undef, "to_unicode\(\'\\u07E0\\u1DF1𔡹𝟽。𐹥\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4796\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07E0}\x{1DF1}𔡹7。𐹥", %p)}, undef, "to_unicode\(\'\\u07E0\\u1DF1𔡹7\。𐹥\'\)\ throws\ error\ P1\ V6\ B2\ B1\ \[data\/IdnaTest\.txt\:4797\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FECB}.\x{200C}󠒫", %p)}, undef, "to_unicode\(\'\\uFECB.\\u200C\󠒫\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4798\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FECB}.\x{200C}󠒫", %p)}, undef, "to_unicode\(\'\\uFECB.\\u200C\󠒫\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4799\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0639}.\x{200C}󠒫", %p)}, undef, "to_unicode\(\'\\u0639\.\\u200C\󠒫\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4800\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0639}.\x{200C}󠒫", %p)}, undef, "to_unicode\(\'\\u0639\.\\u200C\󠒫\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4801\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-򱉏.\x{1A66}𐫠-", %p)}, undef, "to_unicode\(\'\-򱉏\.\\u1A66𐫠\-\'\)\ throws\ error\ P1\ V3\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4802\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("🜣\x{200D}𑋪.\x{200C}𝟩\x{066C}", %p)}, undef, "to_unicode\(\'🜣\\u200D𑋪.\\u200C𝟩\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4803\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("🜣\x{200D}𑋪.\x{200C}𝟩\x{066C}", %p)}, undef, "to_unicode\(\'🜣\\u200D𑋪.\\u200C𝟩\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4804\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("🜣\x{200D}𑋪.\x{200C}7\x{066C}", %p)}, undef, "to_unicode\(\'🜣\\u200D𑋪\.\\u200C7\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4805\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("🜣\x{200D}𑋪.\x{200C}7\x{066C}", %p)}, undef, "to_unicode\(\'🜣\\u200D𑋪\.\\u200C7\\u066C\'\)\ throws\ error\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:4806\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("︒𐬮𝩒\x{0759}。岓\x{103A}⩑\x{067D}", %p)}, undef, "to_unicode\(\'︒𐬮𝩒\\u0759\。岓\\u103A\⩑\\u067D\'\)\ throws\ error\ P1\ V6\ B1\ B5\ B6\ \[data\/IdnaTest\.txt\:4807\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("。𐬮𝩒\x{0759}。岓\x{103A}⩑\x{067D}", %p)}, undef, "to_unicode\(\'\。𐬮𝩒\\u0759\。岓\\u103A\⩑\\u067D\'\)\ throws\ error\ B5\ B6\ \[data\/IdnaTest\.txt\:4808\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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{1BAA}", %p)}, undef, "to_unicode\(\'𐹵\。8\\u1BAA\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4809\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{A8E6}𝩢.\x{06CE}\x{05B1}𐹤\x{0944}", %p)}, undef, "to_unicode\(\'\\uA8E6𝩢.\\u06CE\\u05B1𐹤\\u0944\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4810\]") or ($@ and diag($@)); } TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{A8E6}𝩢.\x{06CE}\x{05B1}𐹤\x{0944}", %p)}, undef, "to_unicode\(\'\\uA8E6𝩢\.\\u06CE\\u05B1𐹤\\u0944\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:4811\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("򭮟𐿱\x{1753}。󠈱", %p)}, undef, "to_unicode\(\'򭮟𐿱\\u1753。\󠈱\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4812\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򭮟𐿱\x{1753}。󠈱", %p)}, undef, "to_unicode\(\'򭮟𐿱\\u1753\。\󠈱\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4813\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07EC}", %p)}, undef, "to_unicode\(\'ᠪ.\-\\u07EC\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4814\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{07EC}", %p)}, undef, "to_unicode\(\'ᠪ\.\-\\u07EC\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4815\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󕜉󠉩。𐹰\x{FECD}\x{0A4D}", %p)}, undef, "to_unicode\(\'󕜉\󠉩。𐹰\\uFECD\\u0A4D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4816\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󕜉󠉩。𐹰\x{063A}\x{0A4D}", %p)}, undef, "to_unicode\(\'󕜉\󠉩\。𐹰\\u063A\\u0A4D\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4817\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴐ\x{0678}.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐ\\u0678.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4818\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴐ\x{0678}.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐ\\u0678.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4819\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴐ\x{064A}\x{0674}.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐ\\u064A\\u0674\.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4820\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴐ\x{064A}\x{0674}.\x{200C}", %p)}, undef, "to_unicode\(\'Ⴐ\\u064A\\u0674\.\\u200C\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4821\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴐ\x{064A}\x{0674}.\x{200C}", %p)}, undef, "to_unicode\(\'ⴐ\\u064A\\u0674\.\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4822\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴐ\x{064A}\x{0674}.\x{200C}", %p)}, undef, "to_unicode\(\'ⴐ\\u064A\\u0674\.\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4823\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴐ\x{0678}.\x{200C}", %p)}, undef, "to_unicode\(\'ⴐ\\u0678.\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4824\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v4.1; is(eval{uts46_to_unicode("ⴐ\x{0678}.\x{200C}", %p)}, undef, "to_unicode\(\'ⴐ\\u0678.\\u200C\'\)\ throws\ error\ B5\ B6\ C1\ \[data\/IdnaTest\.txt\:4825\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("🄅󠩺-⒈。\x{200D}ꡨ\x{06D0}", %p)}, undef, "to_unicode\(\'🄅\󠩺\-⒈\。\\u200Dꡨ\\u06D0\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4826\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("🄅󠩺-⒈。\x{200D}ꡨ\x{06D0}", %p)}, undef, "to_unicode\(\'🄅\󠩺\-⒈\。\\u200Dꡨ\\u06D0\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4827\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4,󠩺-1.。\x{200D}ꡨ\x{06D0}", %p)}, undef, "to_unicode\(\'4\,\󠩺\-1\.\。\\u200Dꡨ\\u06D0\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C2\ \[data\/IdnaTest\.txt\:4828\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("4,󠩺-1.。\x{200D}ꡨ\x{06D0}", %p)}, undef, "to_unicode\(\'4\,\󠩺\-1\.\。\\u200Dꡨ\\u06D0\'\)\ throws\ error\ P1\ V6\ A4_2\ B1\ C2\ \[data\/IdnaTest\.txt\:4829\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򀜧。\x{077B}񶺅", %p)}, undef, "to_unicode\(\'򀜧\。\\u077B񶺅\'\)\ throws\ error\ P1\ V6\ B2\ B3\ \[data\/IdnaTest\.txt\:4830\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑄰۲。𐫘𐹪\x{0F82}鄨", %p)}, undef, "to_unicode\(\'𑄰۲。𐫘𐹪\\u0F82鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4831\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𑄰۲。𐫘𐹪\x{0F82}鄨", %p)}, undef, "to_unicode\(\'𑄰۲\。𐫘𐹪\\u0F82鄨\'\)\ throws\ error\ V5\ B2\ B3\ \[data\/IdnaTest\.txt\:4832\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𐿊-\x{074E}。𝩘\x{A9C0}-", %p)}, undef, "to_unicode\(\'𐿊\-\\u074E\。𝩘\\uA9C0\-\'\)\ throws\ error\ P1\ V6\ V3\ V5\ \[data\/IdnaTest\.txt\:4833\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑋪-󟲏󠉋.ß", %p)}, undef, "to_unicode\(\'𑋪\-󟲏\󠉋.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4834\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑋪-󟲏󠉋.ß", %p)}, undef, "to_unicode\(\'𑋪\-󟲏\󠉋\.ß\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4835\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑋪-󟲏󠉋.SS", %p)}, undef, "to_unicode\(\'𑋪\-󟲏\󠉋\.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4836\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑋪-󟲏󠉋.SS", %p)}, undef, "to_unicode\(\'𑋪\-󟲏\󠉋.SS\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4837\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FD39}-\x{200C}。Ⴟ\x{200C}℣", %p)}, undef, "to_unicode\(\'\\uFD39\-\\u200C。Ⴟ\\u200C℣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4838\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{FD39}-\x{200C}。Ⴟ\x{200C}℣", %p)}, undef, "to_unicode\(\'\\uFD39\-\\u200C。Ⴟ\\u200C℣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0634}\x{062E}-\x{200C}。Ⴟ\x{200C}℣", %p)}, undef, "to_unicode\(\'\\u0634\\u062E\-\\u200C\。Ⴟ\\u200C℣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{0634}\x{062E}-\x{200C}。Ⴟ\x{200C}℣", %p)}, undef, "to_unicode\(\'\\u0634\\u062E\-\\u200C\。Ⴟ\\u200C℣\'\)\ throws\ error\ P1\ V6\ B3\ C1\ \[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0634}\x{062E}-\x{200C}。ⴟ\x{200C}℣", %p)}, undef, "to_unicode\(\'\\u0634\\u062E\-\\u200C\。ⴟ\\u200C℣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{0634}\x{062E}-\x{200C}。ⴟ\x{200C}℣", %p)}, undef, "to_unicode\(\'\\u0634\\u062E\-\\u200C\。ⴟ\\u200C℣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{FD39}-\x{200C}。ⴟ\x{200C}℣", %p)}, undef, "to_unicode\(\'\\uFD39\-\\u200C。ⴟ\\u200C℣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v4.1 (perl v5.8.7) 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{FD39}-\x{200C}。ⴟ\x{200C}℣", %p)}, undef, "to_unicode\(\'\\uFD39\-\\u200C。ⴟ\\u200C℣\'\)\ throws\ error\ B3\ C1\ \[data\/IdnaTest\.txt\:4845\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𑈵-\x{200D}\x{200C}。𹮼₅≠", %p)}, undef, "to_unicode\(\'𑈵\-\\u200D\\u200C。𹮼₅\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4846\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵-\x{200D}\x{200C}。𹮼₅≠", %p)}, undef, "to_unicode\(\'𑈵\-\\u200D\\u200C。𹮼₅\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4847\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵-\x{200D}\x{200C}。𹮼₅=\x{0338}", %p)}, undef, "to_unicode\(\'𑈵\-\\u200D\\u200C。𹮼₅\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4848\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵-\x{200D}\x{200C}。𹮼₅=\x{0338}", %p)}, undef, "to_unicode\(\'𑈵\-\\u200D\\u200C。𹮼₅\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4849\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵-\x{200D}\x{200C}。𹮼5≠", %p)}, undef, "to_unicode\(\'𑈵\-\\u200D\\u200C\。𹮼5\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4850\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵-\x{200D}\x{200C}。𹮼5≠", %p)}, undef, "to_unicode\(\'𑈵\-\\u200D\\u200C\。𹮼5\≠\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4851\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵-\x{200D}\x{200C}。𹮼5=\x{0338}", %p)}, undef, "to_unicode\(\'𑈵\-\\u200D\\u200C\。𹮼5\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4852\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𑈵-\x{200D}\x{200C}。𹮼5=\x{0338}", %p)}, undef, "to_unicode\(\'𑈵\-\\u200D\\u200C\。𹮼5\=\\u0338\'\)\ throws\ error\ P1\ V5\ V6\ C2\ C1\ \[data\/IdnaTest\.txt\:4853\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󶦄。𑘿󠍐󠩋", %p)}, undef, "to_unicode\(\'󶦄\。𑘿\󠍐\󠩋\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4854\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡗ󠿸.\x{07E8}\x{200D}\x{1CD1}", %p)}, undef, "to_unicode\(\'ᡗ\󠿸.\\u07E8\\u200D\\u1CD1\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4855\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡗ󠿸.\x{07E8}\x{200D}\x{1CD1}", %p)}, undef, "to_unicode\(\'ᡗ\󠿸.\\u07E8\\u200D\\u1CD1\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4856\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡗ󠿸.\x{07E8}\x{200D}\x{1CD1}", %p)}, undef, "to_unicode\(\'ᡗ\󠿸\.\\u07E8\\u200D\\u1CD1\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4857\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡗ󠿸.\x{07E8}\x{200D}\x{1CD1}", %p)}, undef, "to_unicode\(\'ᡗ\󠿸\.\\u07E8\\u200D\\u1CD1\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:4858\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹪⁴Ⴅ.𐰁\x{200C}", %p)}, undef, "to_unicode\(\'𐹪⁴Ⴅ.𐰁\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4859\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹪⁴Ⴅ.𐰁\x{200C}", %p)}, undef, "to_unicode\(\'𐹪⁴Ⴅ.𐰁\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4860\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹪4Ⴅ.𐰁\x{200C}", %p)}, undef, "to_unicode\(\'𐹪4Ⴅ\.𐰁\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4861\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹪4Ⴅ.𐰁\x{200C}", %p)}, undef, "to_unicode\(\'𐹪4Ⴅ\.𐰁\\u200C\'\)\ throws\ error\ P1\ V6\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4862\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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{200C}", %p)}, undef, "to_unicode\(\'𐹪4ⴅ\.𐰁\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4863\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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{200C}", %p)}, undef, "to_unicode\(\'𐹪4ⴅ\.𐰁\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4864\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹪⁴ⴅ.𐰁\x{200C}", %p)}, undef, "to_unicode\(\'𐹪⁴ⴅ.𐰁\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4865\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("𐹪⁴ⴅ.𐰁\x{200C}", %p)}, undef, "to_unicode\(\'𐹪⁴ⴅ.𐰁\\u200C\'\)\ throws\ error\ B1\ B3\ C1\ \[data\/IdnaTest\.txt\:4866\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ჁႱ6\x{1CD8}。ß\x{A9B9}", %p)}, undef, "to_unicode\(\'ჁႱ6\\u1CD8\。ß\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4867\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴡⴑ6\x{1CD8}。ß\x{A9B9}", %p)}, "ⴡⴑ6\x{1CD8}.ß\x{A9B9}", "to_unicode\(\'ⴡⴑ6\\u1CD8\。ß\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4868\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴡⴑ6\x{1CD8}。ß\x{A9B9}", %p)}, "ⴡⴑ6\x{1CD8}.ß\x{A9B9}", "to_unicode\(\'ⴡⴑ6\\u1CD8\。ß\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4869\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ჁႱ6\x{1CD8}。SS\x{A9B9}", %p)}, undef, "to_unicode\(\'ჁႱ6\\u1CD8\。SS\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4870\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴡⴑ6\x{1CD8}。ss\x{A9B9}", %p)}, "ⴡⴑ6\x{1CD8}.ss\x{A9B9}", "to_unicode\(\'ⴡⴑ6\\u1CD8\。ss\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4871\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴡⴑ6\x{1CD8}。Ss\x{A9B9}", %p)}, undef, "to_unicode\(\'Ⴡⴑ6\\u1CD8\。Ss\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4872\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--6-x3lw34f2b.xn--ss-kd0i", %p)}, "ⴡⴑ6\x{1CD8}.ss\x{A9B9}", "to_unicode\(\'xn\-\-6\-x3lw34f2b\.xn\-\-ss\-kd0i\'\)\ \[data\/IdnaTest\.txt\:4873\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴡⴑ6\x{1CD8}.ss\x{A9B9}", %p)}, "ⴡⴑ6\x{1CD8}.ss\x{A9B9}", "to_unicode\(\'ⴡⴑ6\\u1CD8\.ss\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4874\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("ჁႱ6\x{1CD8}.SS\x{A9B9}", %p)}, undef, "to_unicode\(\'ჁႱ6\\u1CD8\.SS\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4875\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴡⴑ6\x{1CD8}.Ss\x{A9B9}", %p)}, undef, "to_unicode\(\'Ⴡⴑ6\\u1CD8\.Ss\\uA9B9\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4876\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or 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--6-x3lw34f2b.xn--zca6657f", %p)}, "ⴡⴑ6\x{1CD8}.ß\x{A9B9}", "to_unicode\(\'xn\-\-6\-x3lw34f2b\.xn\-\-zca6657f\'\)\ \[data\/IdnaTest\.txt\:4877\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴡⴑ6\x{1CD8}.ß\x{A9B9}", %p)}, "ⴡⴑ6\x{1CD8}.ß\x{A9B9}", "to_unicode\(\'ⴡⴑ6\\u1CD8\.ß\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4878\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("ⴡⴑ6\x{1CD8}.ß\x{A9B9}", %p)}, "ⴡⴑ6\x{1CD8}.ß\x{A9B9}", "to_unicode\(\'ⴡⴑ6\\u1CD8\.ß\\uA9B9\'\)\ \[data\/IdnaTest\.txt\:4879\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󚒻。≯\x{1734}", %p)}, undef, "to_unicode\(\'󚒻。\≯\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4880\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󚒻。>\x{0338}\x{1734}", %p)}, undef, "to_unicode\(\'󚒻。\>\\u0338\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4881\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󚒻。≯\x{1734}", %p)}, undef, "to_unicode\(\'󚒻\。\≯\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4882\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󚒻。>\x{0338}\x{1734}", %p)}, undef, "to_unicode\(\'󚒻\。\>\\u0338\\u1734\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4883\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{065A}۲。\x{200C}-\x{0DCA}𐹼", %p)}, undef, "to_unicode\(\'\\u065A۲\。\\u200C\-\\u0DCA𐹼\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4884\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v5.2 (perl v5.11.5) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v5.2; is(eval{uts46_to_unicode("\x{065A}۲。\x{200C}-\x{0DCA}𐹼", %p)}, undef, "to_unicode\(\'\\u065A۲\。\\u200C\-\\u0DCA𐹼\'\)\ throws\ error\ V5\ B1\ C1\ \[data\/IdnaTest\.txt\:4885\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{1CED}󠆃🅪。\x{FFA0}", %p)}, undef, "to_unicode\(\'\\u1CED\󠆃🅪。\\uFFA0\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4886\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1CED}󠆃MC。\x{1160}", %p)}, undef, "to_unicode\(\'\\u1CED\󠆃MC\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4887\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1CED}󠆃mc。\x{1160}", %p)}, undef, "to_unicode\(\'\\u1CED\󠆃mc\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4888\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1CED}󠆃Mc。\x{1160}", %p)}, undef, "to_unicode\(\'\\u1CED\󠆃Mc\。\\u1160\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4889\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_unicode\(\'ß⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4890\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ß1.𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_unicode\(\'ß1\.𐫅󃋽\.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4891\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS1.𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_unicode\(\'SS1\.𐫅󃋽\.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B5\ \[data\/IdnaTest\.txt\:4892\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("SS⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_unicode\(\'SS⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4893\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ss⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_unicode\(\'ss⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4894\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ss⒈𐫅󃋽.󳪜\x{064D}𐹹񁘉", %p)}, undef, "to_unicode\(\'Ss⒈𐫅󃋽.󳪜\\u064D𐹹񁘉\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4895\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠻯.𐋱₂", %p)}, undef, "to_unicode\(\'\󠻯\.𐋱₂\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4896\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠻯.𐋱2", %p)}, undef, "to_unicode\(\'\󠻯\.𐋱2\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4897\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{074D}𖾐。-ßᢤ\x{200C}", %p)}, undef, "to_unicode\(\'\\u074D𖾐\。\-ßᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4898\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{074D}𖾐。-ßᢤ\x{200C}", %p)}, undef, "to_unicode\(\'\\u074D𖾐\。\-ßᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4899\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{074D}𖾐。-SSᢤ\x{200C}", %p)}, undef, "to_unicode\(\'\\u074D𖾐\。\-SSᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4900\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{074D}𖾐。-SSᢤ\x{200C}", %p)}, undef, "to_unicode\(\'\\u074D𖾐\。\-SSᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4901\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{074D}𖾐。-ssᢤ\x{200C}", %p)}, undef, "to_unicode\(\'\\u074D𖾐\。\-ssᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4902\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{074D}𖾐。-ssᢤ\x{200C}", %p)}, undef, "to_unicode\(\'\\u074D𖾐\。\-ssᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4903\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{074D}𖾐。-Ssᢤ\x{200C}", %p)}, undef, "to_unicode\(\'\\u074D𖾐\。\-Ssᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4904\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v6.1 (perl v5.15.8) 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{074D}𖾐。-Ssᢤ\x{200C}", %p)}, undef, "to_unicode\(\'\\u074D𖾐\。\-Ssᢤ\\u200C\'\)\ throws\ error\ V3\ C1\ \[data\/IdnaTest\.txt\:4905\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}Ⴡ", %p)}, undef, "to_unicode\(\'\\u08FD\\u200Dᡦ󕡛.䷶\\u081CჁ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4906\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}Ⴡ", %p)}, undef, "to_unicode\(\'\\u08FD\\u200Dᡦ󕡛.䷶\\u081CჁ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4907\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}Ⴡ", %p)}, undef, "to_unicode\(\'\\u08FD\\u200Dᡦ󕡛\.䷶\\u081CჁ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4908\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}Ⴡ", %p)}, undef, "to_unicode\(\'\\u08FD\\u200Dᡦ󕡛\.䷶\\u081CჁ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4909\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}ⴡ", %p)}, undef, "to_unicode\(\'\\u08FD\\u200Dᡦ󕡛\.䷶\\u081Cⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4910\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}ⴡ", %p)}, undef, "to_unicode\(\'\\u08FD\\u200Dᡦ󕡛\.䷶\\u081Cⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4911\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}ⴡ", %p)}, undef, "to_unicode\(\'\\u08FD\\u200Dᡦ󕡛.䷶\\u081Cⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4912\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{08FD}\x{200D}ᡦ󕡛.䷶\x{081C}ⴡ", %p)}, undef, "to_unicode\(\'\\u08FD\\u200Dᡦ󕡛.䷶\\u081Cⴡ\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:4913\]") 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\:4914\]") 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\:4915\]") 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\:4916\]") 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\:4917\]") 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\:4918\]") 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\:4919\]") 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\:4920\]") 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\:4921\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐨿︒.𐮆≯\x{06AB}", %p)}, undef, "to_unicode\(\'𐨿︒\.𐮆\≯\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4922\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐨿︒.𐮆>\x{0338}\x{06AB}", %p)}, undef, "to_unicode\(\'𐨿︒\.𐮆\>\\u0338\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4923\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐨿。.𐮆≯\x{06AB}", %p)}, undef, "to_unicode\(\'𐨿\。\.𐮆\≯\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4924\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐨿。.𐮆>\x{0338}\x{06AB}", %p)}, undef, "to_unicode\(\'𐨿\。\.𐮆\>\\u0338\\u06AB\'\)\ throws\ error\ P1\ V5\ V6\ A4_2\ \[data\/IdnaTest\.txt\:4925\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮≠񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_unicode\(\'\≮\≠񆇥。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4926\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}=\x{0338}񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_unicode\(\'\<\\u0338\=\\u0338񆇥。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4927\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮≠񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_unicode\(\'\≮\≠񆇥\。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4928\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}=\x{0338}񆇥。-딻\x{07DE}𐹢", %p)}, undef, "to_unicode\(\'\<\\u0338\=\\u0338񆇥\。\-딻\\u07DE𐹢\'\)\ throws\ error\ P1\ V6\ V3\ B1\ \[data\/IdnaTest\.txt\:4929\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.0 (perl v5.9.5) 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{0661}\x{0751}。ꡰ", %p)}, undef, "to_unicode\(\'\\u0661\\u0751\。ꡰ\'\)\ throws\ error\ B1\ \[data\/IdnaTest\.txt\:4930\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("Ⴉ🕑򸵡\x{0E4E}.ß\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_unicode\(\'Ⴉ🕑򸵡\\u0E4E\.ß\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4931\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ🕑򸵡\x{0E4E}.ß\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_unicode\(\'ⴉ🕑򸵡\\u0E4E\.ß\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4932\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ🕑򸵡\x{0E4E}.SS\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_unicode\(\'Ⴉ🕑򸵡\\u0E4E\.SS\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4933\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ⴉ🕑򸵡\x{0E4E}.ss\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_unicode\(\'ⴉ🕑򸵡\\u0E4E\.ss\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4934\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Ⴉ🕑򸵡\x{0E4E}.Ss\x{07D6}\x{066C}ᢟ", %p)}, undef, "to_unicode\(\'Ⴉ🕑򸵡\\u0E4E\.Ss\\u07D6\\u066Cᢟ\'\)\ throws\ error\ P1\ V6\ B5\ \[data\/IdnaTest\.txt\:4935\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{06BD}\x{FE9B}󠎧.𙃐", %p)}, undef, "to_unicode\(\'\\u200D\\u06BD\\uFE9B\󠎧\.𙃐\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4936\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{06BD}\x{FE9B}󠎧.𙃐", %p)}, undef, "to_unicode\(\'\\u200D\\u06BD\\uFE9B\󠎧\.𙃐\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4937\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{06BD}\x{062B}󠎧.𙃐", %p)}, undef, "to_unicode\(\'\\u200D\\u06BD\\u062B\󠎧\.𙃐\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4938\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{06BD}\x{062B}󠎧.𙃐", %p)}, undef, "to_unicode\(\'\\u200D\\u06BD\\u062B\󠎧\.𙃐\'\)\ throws\ error\ P1\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4939\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("梉。\x{200C}", %p)}, undef, "to_unicode\(\'梉\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4940\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("梉。\x{200C}", %p)}, undef, "to_unicode\(\'梉\。\\u200C\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4941\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--7zv.", %p)}, "梉.", "to_unicode\(\'xn\-\-7zv\.\'\)\ \[data\/IdnaTest\.txt\:4942\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("梉.", %p)}, "梉.", "to_unicode\(\'梉\.\'\)\ \[data\/IdnaTest\.txt\:4943\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-≠.\x{200D}\x{069D}𑒷Ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\≠\.\\u200D\\u069D𑒷Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4944\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-≠.\x{200D}\x{069D}𑒷Ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\≠\.\\u200D\\u069D𑒷Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4945\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-=\x{0338}.\x{200D}\x{069D}𑒷Ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\=\\u0338\.\\u200D\\u069D𑒷Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4946\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-=\x{0338}.\x{200D}\x{069D}𑒷Ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\=\\u0338\.\\u200D\\u069D𑒷Ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4947\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-=\x{0338}.\x{200D}\x{069D}𑒷ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\=\\u0338\.\\u200D\\u069D𑒷ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4948\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-=\x{0338}.\x{200D}\x{069D}𑒷ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\=\\u0338\.\\u200D\\u069D𑒷ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4949\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-≠.\x{200D}\x{069D}𑒷ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\≠\.\\u200D\\u069D𑒷ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4950\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{075D}-≠.\x{200D}\x{069D}𑒷ↄ", %p)}, undef, "to_unicode\(\'\\u075D\-\≠\.\\u200D\\u069D𑒷ↄ\'\)\ throws\ error\ P1\ V6\ B3\ B1\ C2\ \[data\/IdnaTest\.txt\:4951\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς⒐\x{1CD2}⸵。𐫬🄊𝟳", %p)}, undef, "to_unicode\(\'ς⒐\\u1CD2\⸵。𐫬🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4952\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς9.\x{1CD2}⸵。𐫬9,7", %p)}, undef, "to_unicode\(\'ς9\.\\u1CD2\⸵\。𐫬9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4953\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ9.\x{1CD2}⸵。𐫬9,7", %p)}, undef, "to_unicode\(\'Σ9\.\\u1CD2\⸵\。𐫬9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4954\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ9.\x{1CD2}⸵。𐫬9,7", %p)}, undef, "to_unicode\(\'σ9\.\\u1CD2\⸵\。𐫬9\,7\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:4955\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ⒐\x{1CD2}⸵。𐫬🄊𝟳", %p)}, undef, "to_unicode\(\'Σ⒐\\u1CD2\⸵。𐫬🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4956\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ⒐\x{1CD2}⸵。𐫬🄊𝟳", %p)}, undef, "to_unicode\(\'σ⒐\\u1CD2\⸵。𐫬🄊𝟳\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:4957\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}ß", %p)}, undef, "to_unicode\(\'𐮑.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4958\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}ß", %p)}, undef, "to_unicode\(\'𐮑.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4959\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}ß", %p)}, undef, "to_unicode\(\'𐮑\.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4960\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}ß", %p)}, undef, "to_unicode\(\'𐮑\.\\u200Cß\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4961\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}SS", %p)}, undef, "to_unicode\(\'𐮑\.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4962\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}SS", %p)}, undef, "to_unicode\(\'𐮑\.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4963\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}ss", %p)}, undef, "to_unicode\(\'𐮑\.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4964\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}ss", %p)}, undef, "to_unicode\(\'𐮑\.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4965\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}Ss", %p)}, undef, "to_unicode\(\'𐮑\.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4966\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}Ss", %p)}, undef, "to_unicode\(\'𐮑\.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4967\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--o29c.ss", %p)}, "𐮑.ss", "to_unicode\(\'xn\-\-o29c\.ss\'\)\ \[data\/IdnaTest\.txt\:4968\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.ss", %p)}, "𐮑.ss", "to_unicode\(\'𐮑\.ss\'\)\ \[data\/IdnaTest\.txt\:4969\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}SS", %p)}, undef, "to_unicode\(\'𐮑.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4970\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}SS", %p)}, undef, "to_unicode\(\'𐮑.\\u200CSS\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4971\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}ss", %p)}, undef, "to_unicode\(\'𐮑.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4972\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}ss", %p)}, undef, "to_unicode\(\'𐮑.\\u200Css\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4973\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}Ss", %p)}, undef, "to_unicode\(\'𐮑.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4974\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐮑.\x{200C}Ss", %p)}, undef, "to_unicode\(\'𐮑.\\u200CSs\'\)\ throws\ error\ C1\ \[data\/IdnaTest\.txt\:4975\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𣵑-.\x{200D}\x{0629}\x{06D7}󠦙", %p)}, undef, "to_unicode\(\'𣵑\-\.\\u200D\\u0629\\u06D7\󠦙\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4976\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𣵑-.\x{200D}\x{0629}\x{06D7}󠦙", %p)}, undef, "to_unicode\(\'𣵑\-\.\\u200D\\u0629\\u06D7\󠦙\'\)\ throws\ error\ P1\ V3\ V6\ B1\ C2\ \[data\/IdnaTest\.txt\:4977\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䃚蟥-。-𧵶⒈", %p)}, undef, "to_unicode\(\'䃚蟥\-\。\-𧵶⒈\'\)\ throws\ error\ P1\ V3\ V6\ \[data\/IdnaTest\.txt\:4978\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("䃚蟥-。-𧵶1.", %p)}, undef, "to_unicode\(\'䃚蟥\-\。\-𧵶1\.\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4979\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹺䚵-ᠤ。󠤲", %p)}, undef, "to_unicode\(\'𐹺䚵\-ᠤ\。\󠤲\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4980\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A8C4}。\x{1ADC}𐹯", %p)}, undef, "to_unicode\(\'\\uA8C4\。\\u1ADC𐹯\'\)\ throws\ error\ P1\ V5\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:4981\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮𐹩.⒎\x{0A75}ꡤ𐹮", %p)}, undef, "to_unicode\(\'\≮𐹩\.⒎\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4982\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}𐹩.⒎\x{0A75}ꡤ𐹮", %p)}, undef, "to_unicode\(\'\<\\u0338𐹩\.⒎\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:4983\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≮𐹩.7.\x{0A75}ꡤ𐹮", %p)}, undef, "to_unicode\(\'\≮𐹩\.7\.\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4984\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("<\x{0338}𐹩.7.\x{0A75}ꡤ𐹮", %p)}, undef, "to_unicode\(\'\<\\u0338𐹩\.7\.\\u0A75ꡤ𐹮\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:4985\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡊ≠󍑰.\x{200D}𐋢", %p)}, undef, "to_unicode\(\'ᡊ\≠󍑰\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4986\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ᡊ≠󍑰.\x{200D}𐋢", %p)}, undef, "to_unicode\(\'ᡊ\≠󍑰\.\\u200D𐋢\'\)\ throws\ error\ P1\ V6\ C2\ \[data\/IdnaTest\.txt\:4987\]") 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\:4988\]") 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\:4989\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐪪≮񐯏≯.𐹽𞹏🔚", %p)}, undef, "to_unicode\(\'𐪪\≮񐯏\≯.𐹽𞹏🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4990\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐪪<\x{0338}񐯏>\x{0338}.𐹽𞹏🔚", %p)}, undef, "to_unicode\(\'𐪪\<\\u0338񐯏\>\\u0338.𐹽𞹏🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4991\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐪪≮񐯏≯.𐹽\x{0639}🔚", %p)}, undef, "to_unicode\(\'𐪪\≮񐯏\≯\.𐹽\\u0639🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4992\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐪪<\x{0338}񐯏>\x{0338}.𐹽\x{0639}🔚", %p)}, undef, "to_unicode\(\'𐪪\<\\u0338񐯏\>\\u0338\.𐹽\\u0639🔚\'\)\ throws\ error\ P1\ V6\ B2\ B3\ B1\ \[data\/IdnaTest\.txt\:4993\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-。🞏", %p)}, undef, "to_unicode\(\'\-。🞏\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4994\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("-。🞏", %p)}, undef, "to_unicode\(\'\-\。🞏\'\)\ throws\ error\ V3\ \[data\/IdnaTest\.txt\:4995\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("󠓱\x{A8EC}.\x{1DDF}", %p)}, undef, "to_unicode\(\'\󠓱\\uA8EC.\\u1DDF\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4996\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠓱\x{A8EC}.\x{1DDF}", %p)}, undef, "to_unicode\(\'\󠓱\\uA8EC\.\\u1DDF\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:4997\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠀦.򂿜\x{200C}", %p)}, undef, "to_unicode\(\'\󠀦\.򂿜\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4998\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("󠀦.򂿜\x{200C}", %p)}, undef, "to_unicode\(\'\󠀦\.򂿜\\u200C\'\)\ throws\ error\ P1\ V6\ C1\ \[data\/IdnaTest\.txt\:4999\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v5.1 (perl v5.10.1) 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{AA32}", %p)}, undef, "to_unicode\(\'ᡷ\󠅖\.\\uAA32\'\)\ throws\ error\ V5\ \[data\/IdnaTest\.txt\:5000\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("漦Ⴙς.𒠂𞱩", %p)}, undef, "to_unicode\(\'漦Ⴙς\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5001\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("漦ⴙς.𒠂𞱩", %p)}, undef, "to_unicode\(\'漦ⴙς\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5002\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("漦ႹΣ.𒠂𞱩", %p)}, undef, "to_unicode\(\'漦ႹΣ\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5003\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("漦ⴙσ.𒠂𞱩", %p)}, undef, "to_unicode\(\'漦ⴙσ\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5004\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("漦Ⴙσ.𒠂𞱩", %p)}, undef, "to_unicode\(\'漦Ⴙσ\.𒠂𞱩\'\)\ throws\ error\ P1\ V6\ B5\ B6\ \[data\/IdnaTest\.txt\:5005\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹹踧\x{0A4D}󟵒.󄅏⒈\x{1BE8}", %p)}, undef, "to_unicode\(\'𐹹踧\\u0A4D󟵒\.󄅏⒈\\u1BE8\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5006\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐹹踧\x{0A4D}󟵒.󄅏1.\x{1BE8}", %p)}, undef, "to_unicode\(\'𐹹踧\\u0A4D󟵒\.󄅏1\.\\u1BE8\'\)\ throws\ error\ P1\ V6\ V5\ B1\ \[data\/IdnaTest\.txt\:5007\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≮.󠘆򥷡-", %p)}, undef, "to_unicode\(\'\\u200D\≮.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5008\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≮.󠘆򥷡-", %p)}, undef, "to_unicode\(\'\\u200D\≮.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5009\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}<\x{0338}.󠘆򥷡-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5010\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}<\x{0338}.󠘆򥷡-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5011\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≮.󠘆򥷡-", %p)}, undef, "to_unicode\(\'\\u200D\≮\.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5012\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}≮.󠘆򥷡-", %p)}, undef, "to_unicode\(\'\\u200D\≮\.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5013\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}<\x{0338}.󠘆򥷡-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338\.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5014\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}<\x{0338}.󠘆򥷡-", %p)}, undef, "to_unicode\(\'\\u200D\<\\u0338\.\󠘆򥷡\-\'\)\ throws\ error\ P1\ V6\ V3\ C2\ \[data\/IdnaTest\.txt\:5015\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。Ⴜ5\x{071D}񈭷", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。Ⴜ5\\u071D񈭷\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:5016\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。Ⴜ5\x{071D}񈭷", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。Ⴜ5\\u071D񈭷\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:5017\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。ⴜ5\x{071D}񈭷", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。ⴜ5\\u071D񈭷\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:5018\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{200D}\x{200D}襔。ⴜ5\x{071D}񈭷", %p)}, undef, "to_unicode\(\'\\u200D\\u200D襔\。ⴜ5\\u071D񈭷\'\)\ throws\ error\ P1\ V6\ C2\ B5\ \[data\/IdnaTest\.txt\:5019\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐣋\x{05A7}\x{200D}.婀", %p)}, undef, "to_unicode\(\'𐣋\\u05A7\\u200D.婀\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:5020\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐣋\x{05A7}\x{200D}.婀", %p)}, undef, "to_unicode\(\'𐣋\\u05A7\\u200D.婀\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:5021\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐣋\x{05A7}\x{200D}.婀", %p)}, undef, "to_unicode\(\'𐣋\\u05A7\\u200D\.婀\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:5022\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𐣋\x{05A7}\x{200D}.婀", %p)}, undef, "to_unicode\(\'𐣋\\u05A7\\u200D\.婀\'\)\ throws\ error\ P1\ V6\ B3\ C2\ \[data\/IdnaTest\.txt\:5023\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1AB8}︒︒\x{066C}。⮹\x{FE2E}", %p)}, undef, "to_unicode\(\'\\u1AB8︒︒\\u066C。\⮹\\uFE2E\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5024\]") or ($@ and diag($@)); TODO: { local $TODO = "test file was generated on perl 5.021005, which is too old"; is(eval{uts46_to_unicode("\x{1AB8}。。\x{066C}。⮹\x{FE2E}", %p)}, undef, "to_unicode\(\'\\u1AB8\。\。\\u066C\。\⮹\\uFE2E\'\)\ throws\ error\ V5\ A4_2\ B1\ \[data\/IdnaTest\.txt\:5025\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("𝟖ß.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'𝟖ß.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5026\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8ß.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'8ß\.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5027\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8ß.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'8ß\.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5028\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8SS.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'8SS\.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5029\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("8ss.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'8ss\.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5030\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟖ß.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'𝟖ß.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5031\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟖SS.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'𝟖SS.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5032\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟖ss.\x{09CD}-\x{DBDA}ⴏ", %p)}, undef, "to_unicode\(\'𝟖ss.\\u09CD\-\\uDBDAⴏ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5033\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("𝟖Ss.\x{09CD}-\x{DBDA}Ⴏ", %p)}, undef, "to_unicode\(\'𝟖Ss.\\u09CD\-\\uDBDAႯ\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5034\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}󠠅.\x{200C}\x{0663}Ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\󠠅\.\\u200C\\u0663Ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5035\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}󠠅.\x{200C}\x{0663}Ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\󠠅\.\\u200C\\u0663Ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5036\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}󠠅.\x{200C}\x{0663}ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\󠠅\.\\u200C\\u0663ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5037\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("-\x{200D}󠠅.\x{200C}\x{0663}ⴅ", %p)}, undef, "to_unicode\(\'\-\\u200D\󠠅\.\\u200C\\u0663ⴅ\'\)\ throws\ error\ P1\ V3\ V6\ C2\ B1\ C1\ \[data\/IdnaTest\.txt\:5038\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{030F}\x{200D}큷󵨃。₂", %p)}, undef, "to_unicode\(\'\\u030F\\u200D큷󵨃。₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5039\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{030F}\x{200D}큷󵨃。₂", %p)}, undef, "to_unicode\(\'\\u030F\\u200D큷󵨃。₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5040\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{030F}\x{200D}큷󵨃。₂", %p)}, undef, "to_unicode\(\'\\u030F\\u200D큷󵨃。₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5041\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{030F}\x{200D}큷󵨃。₂", %p)}, undef, "to_unicode\(\'\\u030F\\u200D큷󵨃。₂\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5042\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{030F}\x{200D}큷󵨃。2", %p)}, undef, "to_unicode\(\'\\u030F\\u200D큷󵨃\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5043\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{030F}\x{200D}큷󵨃。2", %p)}, undef, "to_unicode\(\'\\u030F\\u200D큷󵨃\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5044\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{030F}\x{200D}큷󵨃。2", %p)}, undef, "to_unicode\(\'\\u030F\\u200D큷󵨃\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5045\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{030F}\x{200D}큷󵨃。2", %p)}, undef, "to_unicode\(\'\\u030F\\u200D큷󵨃\。2\'\)\ throws\ error\ P1\ V5\ V6\ C2\ \[data\/IdnaTest\.txt\:5046\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DF4D}.🄄\x{FBAF}", %p)}, undef, "to_unicode\(\'\\uDF4D\.🄄\\uFBAF\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5047\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{DF4D}.3,\x{06D2}", %p)}, undef, "to_unicode\(\'\\uDF4D\.3\,\\u06D2\'\)\ throws\ error\ P1\ V6\ B1\ \[data\/IdnaTest\.txt\:5048\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07A9}𐱡。\x{0604}󐃜\x{0F9B}⒈", %p)}, undef, "to_unicode\(\'\\u07A9𐱡\。\\u0604󐃜\\u0F9B⒈\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5049\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{07A9}𐱡。\x{0604}󐃜\x{0F9B}1.", %p)}, undef, "to_unicode\(\'\\u07A9𐱡\。\\u0604󐃜\\u0F9B1\.\'\)\ throws\ error\ P1\ V5\ V6\ B1\ \[data\/IdnaTest\.txt\:5050\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񓸋𞭢\x{0712}。Ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'񓸋𞭢\\u0712\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5051\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񓸋𞭢\x{0712}。Ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'񓸋𞭢\\u0712\。Ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5052\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񓸋𞭢\x{0712}。ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'񓸋𞭢\\u0712\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5053\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񓸋𞭢\x{0712}。ⴈ\x{200D}", %p)}, undef, "to_unicode\(\'񓸋𞭢\\u0712\。ⴈ\\u200D\'\)\ throws\ error\ P1\ V6\ B5\ B6\ C2\ \[data\/IdnaTest\.txt\:5054\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򇷚\x{0366}ᡱ⒈.\x{1DC1}髯\x{200C}", %p)}, undef, "to_unicode\(\'򇷚\\u0366ᡱ⒈.\\u1DC1髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:5055\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򇷚\x{0366}ᡱ⒈.\x{1DC1}髯\x{200C}", %p)}, undef, "to_unicode\(\'򇷚\\u0366ᡱ⒈.\\u1DC1髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ C1\ \[data\/IdnaTest\.txt\:5056\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򇷚\x{0366}ᡱ1..\x{1DC1}髯\x{200C}", %p)}, undef, "to_unicode\(\'򇷚\\u0366ᡱ1\.\.\\u1DC1髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5057\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("򇷚\x{0366}ᡱ1..\x{1DC1}髯\x{200C}", %p)}, undef, "to_unicode\(\'򇷚\\u0366ᡱ1\.\.\\u1DC1髯\\u200C\'\)\ throws\ error\ P1\ V6\ V5\ A4_2\ C1\ \[data\/IdnaTest\.txt\:5058\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{071A}.ᢛ\x{17BA}", %p)}, "\x{071A}.ᢛ\x{17BA}", "to_unicode\(\'\\u071A.ᢛ\\u17BA\'\)\ \[data\/IdnaTest\.txt\:5059\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{071A}.ᢛ\x{17BA}", %p)}, "\x{071A}.ᢛ\x{17BA}", "to_unicode\(\'\\u071A\.ᢛ\\u17BA\'\)\ \[data\/IdnaTest\.txt\:5060\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("xn--knb.xn--53e36b", %p)}, "\x{071A}.ᢛ\x{17BA}", "to_unicode\(\'xn\-\-knb\.xn\-\-53e36b\'\)\ \[data\/IdnaTest\.txt\:5061\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A953}.𐺛", %p)}, undef, "to_unicode\(\'\\uA953.𐺛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5062\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{A953}.𐺛", %p)}, undef, "to_unicode\(\'\\uA953\.𐺛\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5063\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("≠膣。\x{0EB4}", %p)}, undef, "to_unicode\(\'\≠膣\。\\u0EB4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5064\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("=\x{0338}膣。\x{0EB4}", %p)}, undef, "to_unicode\(\'\=\\u0338膣\。\\u0EB4\'\)\ throws\ error\ P1\ V6\ V5\ \[data\/IdnaTest\.txt\:5065\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񆔨-ᢜ。ß", %p)}, undef, "to_unicode\(\'񆔨\-ᢜ。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5066\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񆔨-ᢜ。ß", %p)}, undef, "to_unicode\(\'񆔨\-ᢜ\。ß\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5067\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񆔨-ᢜ。SS", %p)}, undef, "to_unicode\(\'񆔨\-ᢜ\。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5068\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("񆔨-ᢜ。SS", %p)}, undef, "to_unicode\(\'񆔨\-ᢜ。SS\'\)\ throws\ error\ P1\ V6\ \[data\/IdnaTest\.txt\:5069\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_unicode\(\'ς𐹷𐫬\\u17D2.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5070\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("ς𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_unicode\(\'ς𐹷𐫬\\u17D2\.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5071\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_unicode\(\'Σ𐹷𐫬\\u17D2\.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5072\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_unicode\(\'σ𐹷𐫬\\u17D2\.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5073\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("Σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_unicode\(\'Σ𐹷𐫬\\u17D2.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5074\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("σ𐹷𐫬\x{17D2}.〄𐹤򹟑\x{06EF}", %p)}, undef, "to_unicode\(\'σ𐹷𐫬\\u17D2.〄𐹤򹟑\\u06EF\'\)\ throws\ error\ P1\ V6\ B5\ B6\ B1\ \[data\/IdnaTest\.txt\:5075\]") or ($@ and diag($@)); SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋷。\x{200D}", %p)}, undef, "to_unicode\(\'𐋷\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5076\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋷。\x{200D}", %p)}, undef, "to_unicode\(\'𐋷\。\\u200D\'\)\ throws\ error\ C2\ \[data\/IdnaTest\.txt\:5077\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("xn--r97c.", %p)}, "𐋷.", "to_unicode\(\'xn\-\-r97c\.\'\)\ \[data\/IdnaTest\.txt\:5078\]") or ($@ and diag($@)); } SKIP: { skip sprintf("requires Unicode® v7.0 (perl v5.21.1) or higher, only v%vd is supported (perl v%vd)", $UCD_VERSION, $^V), 1 if $UCD_VERSION lt v7.0; is(eval{uts46_to_unicode("𐋷.", %p)}, "𐋷.", "to_unicode\(\'𐋷\.\'\)\ \[data\/IdnaTest\.txt\:5079\]") or ($@ and diag($@)); } is(eval{uts46_to_unicode("\x{A8E5}𑜣。󠁂", %p)}, undef, "to_unicode\(\'\\uA8E5𑜣\。\󠁂\'\)\ throws\ error\ P1\ V5\ V6\ \[data\/IdnaTest\.txt\:5080\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DF1}䁴񾒲.Ⴕ𝟜\x{200C}𐨹", %p)}, undef, "to_unicode\(\'\\u1DF1䁴񾒲.Ⴕ𝟜\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5081\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DF1}䁴񾒲.Ⴕ𝟜\x{200C}𐨹", %p)}, undef, "to_unicode\(\'\\u1DF1䁴񾒲.Ⴕ𝟜\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5082\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DF1}䁴񾒲.Ⴕ4\x{200C}𐨹", %p)}, undef, "to_unicode\(\'\\u1DF1䁴񾒲\.Ⴕ4\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5083\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DF1}䁴񾒲.Ⴕ4\x{200C}𐨹", %p)}, undef, "to_unicode\(\'\\u1DF1䁴񾒲\.Ⴕ4\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5084\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DF1}䁴񾒲.ⴕ4\x{200C}𐨹", %p)}, undef, "to_unicode\(\'\\u1DF1䁴񾒲\.ⴕ4\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5085\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DF1}䁴񾒲.ⴕ4\x{200C}𐨹", %p)}, undef, "to_unicode\(\'\\u1DF1䁴񾒲\.ⴕ4\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5086\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DF1}䁴񾒲.ⴕ𝟜\x{200C}𐨹", %p)}, undef, "to_unicode\(\'\\u1DF1䁴񾒲.ⴕ𝟜\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5087\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("\x{1DF1}䁴񾒲.ⴕ𝟜\x{200C}𐨹", %p)}, undef, "to_unicode\(\'\\u1DF1䁴񾒲.ⴕ𝟜\\u200C𐨹\'\)\ throws\ error\ P1\ V5\ V6\ C1\ \[data\/IdnaTest\.txt\:5088\]") 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\:5089\]") 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\:5090\]") 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\:5091\]") 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\:5092\]") or ($@ and diag($@)); is(eval{uts46_to_unicode("", %p)}, undef, "to_unicode\(\'\'\)\ throws\ error\ A4_2\ \[data\/IdnaTest\.txt\:5093\]") 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\: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}≠", %p)}, undef, "to_unicode\(\'憡\\uDF1F\\u200Cⴔ\.𐋮\\u200D\≠\'\)\ throws\ error\ P1\ V6\ C1\ C2\ \[data\/IdnaTest\.txt\:5096\]") 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\:5097\]") or ($@ and diag($@)); exit(0); Net-IDN-Encode-2.300/t/xtra_pp.t000444000765000024 131712552251473 16356 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);