#! /usr/local/bin/perl -w# vim: tabstop=4# vim: syntax=perlusestrict;useTest;BEGIN {plantests=> 7;}useLocale::Recode;subint2utf8;my$local2ucs= {};my$ucs2local= {};while(<DATA>) {my($code,$ucs,undef) =map{oct$_}split/\s+/,$_;$local2ucs->{$code} =$ucs;$ucs2local->{$ucs} =$codeunless$ucs== 0xfffd;}my$cd_int= Locale::Recode->new (from=>'ISO_5428',to=>'INTERNAL');ok !$cd_int->getError;my$cd_utf8= Locale::Recode->new (from=>'ISO_5428',to=>'UTF-8');ok !$cd_utf8->getError;my$cd_rev= Locale::Recode->new (from=>'INTERNAL',to=>'ISO_5428');ok !$cd_rev->getError;# Convert into internal representation.my$result_int= 1;while(my($code,$ucs) =each%$local2ucs) {my$outbuf=chr$code;my$result=$cd_int->recode ($outbuf);unless($result&&$outbuf->[0] ==$ucs) {$result_int= 0;last;}}ok$result_int;# Convert to UTF-8.my$result_utf8= 1;while(my($code,$ucs) =each%$local2ucs) {my$outbuf=chr$code;my$result=$cd_utf8->recode ($outbuf);unless($result&&$outbufeq int2utf8$ucs) {$result_utf8= 0;last;}}ok$result_utf8;# Convert from internal representation.my$result_rev= 1;while(my($ucs,$code) =each%$ucs2local) {my$outbuf= [$ucs];my$result=$cd_rev->recode ($outbuf);unless($result&&$code==ord$outbuf) {$result_int= 0;last;}}ok$result_int;# Check handling of unknown characters.my$test_string1= [unpack'c*',' Supergirl '];$test_string1->[0] = 0xad0be;$test_string1->[-1] = 0xad0be;my$test_string2= [unpack'c*','Supergirl'];my$unknown="\x3f";# Unknown character!$cd_rev= Locale::Recode->new (from=>'INTERNAL',to=>'ISO_5428',)&&$cd_rev->recode ($test_string1)&&$cd_rev->recode ($test_string2)&& ($test_string2=$unknown.$test_string2.$unknown);ok$test_string1eq$test_string2;subint2utf8{my$ucs4=shift;if($ucs4<= 0x7f) {returnchr$ucs4;}elsif($ucs4<= 0x7ff) {returnpack("C2",(0xc0 | (($ucs4>> 6) & 0x1f)),(0x80 | ($ucs4& 0x3f)));}elsif($ucs4<= 0xffff) {returnpack("C3",(0xe0 | (($ucs4>> 12) & 0xf)),(0x80 | (($ucs4>> 6) & 0x3f)),(0x80 | ($ucs4& 0x3f)));}elsif($ucs4<= 0x1fffff) {returnpack("C4",(0xf0 | (($ucs4>> 18) & 0x7)),(0x80 | (($ucs4>> 12) & 0x3f)),(0x80 | (($ucs4>> 6) & 0x3f)),(0x80 | ($ucs4& 0x3f)));}elsif($ucs4<= 0x3ffffff) {returnpack("C5",(0xf0 | (($ucs4>> 24) & 0x3)),(0x80 | (($ucs4>> 18) & 0x3f)),(0x80 | (($ucs4>> 12) & 0x3f)),(0x80 | (($ucs4>> 6) & 0x3f)),(0x80 | ($ucs4& 0x3f)));}else{returnpack("C6",(0xf0 | (($ucs4>> 30) & 0x3)),(0x80 | (($ucs4>> 24) & 0x1)),(0x80 | (($ucs4>> 18) & 0x3f)),(0x80 | (($ucs4>> 12) & 0x3f)),(0x80 | (($ucs4>> 6) & 0x3f)),(0x80 | ($ucs4& 0x3f)));}}#Local Variables:#mode: perl#perl-indent-level: 4#perl-continued-statement-offset: 4#perl-continued-brace-offset: 0#perl-brace-offset: -4#perl-brace-imaginary-offset: 0#perl-label-offset: -4#tab-width: 4#End:__DATA__0x00 0x00000x01 0x00010x02 0x00020x03 0x00030x04 0x00040x05 0x00050x06 0x00060x07 0x00070x08 0x00080x09 0x00090x0a 0x000a0x0b 0x000b0x0c 0x000c0x0d 0x000d0x0e 0x000e0x0f 0x000f0x10 0x00100x11 0x00110x12 0x00120x13 0x00130x14 0x00140x15 0x00150x16 0x00160x17 0x00170x18 0x00180x19 0x00190x1a 0x001a0x1b 0x001b0x1c 0x001c0x1d 0x001d0x1e 0x001e0x1f 0x001f0x20 0x00200x21 0xe0020x22 0xe0030x23 0xe0090x24 0xe0050x25 0xe0120x26 0xe0130x27 0xe0140x30 0xfffd0x30 0xfffd0x30 0xfffd0x30 0xfffd0x30 0xfffd0x30 0xfffd0x30 0xfffd0x30 0xfffd0x30 0x00ab0x31 0x00bb0x32 0x201d0x33 0x201c0x34 0x03740x35 0x03750x3b 0xfffd0x3b 0xfffd0x3b 0xfffd0x3b 0xfffd0x3b 0xfffd0x3b 0x00b70x3f 0xfffd0x3f 0xfffd0x3f 0xfffd0x3f 0x003b0x41 0xfffd0x41 0x03910x42 0x03920x44 0xfffd0x44 0x03930x45 0x03940x46 0x03950x47 0x03da0x48 0x03dc0x49 0x03960x4a 0x03970x4b 0x03980x4c 0x03990x4d 0x039a0x4e 0x039b0x4f 0x039c0x50 0x039d0x51 0x039e0x52 0x039f0x53 0x03a00x54 0x03de0x55 0x03a10x56 0x03a30x58 0xfffd0x58 0x03a40x59 0x03a50x5a 0x03a60x5b 0x03a70x5c 0x03a80x5d 0x03a90x5e 0x03e00x61 0xfffd0x61 0xfffd0x61 0x03b10x62 0x03b20x63 0x03d00x64 0x03b30x65 0x03b40x66 0x03b50x67 0xe01a0x68 0xe01b0x69 0x03b60x6a 0x03b70x6b 0x03b80x6c 0x03b90x6d 0x03ba0x6e 0x03bb0x6f 0x03bc0x70 0x03bd0x71 0x03be0x72 0x03bf0x73 0x03c00x74 0xe01c0x75 0x03c10x76 0x03c30x77 0x03c20x78 0x03c40x79 0x03c50x7a 0x03c60x7b 0x03c70x7c 0x03c80x7d 0x03c90x7e 0xe01d0x7f 0x007f0x80 0xfffd0x81 0xfffd0x82 0xfffd0x83 0xfffd0x84 0xfffd0x85 0xfffd0x86 0xfffd0x87 0xfffd0x88 0xfffd0x89 0xfffd0x8a 0xfffd0x8b 0xfffd0x8c 0xfffd0x8d 0xfffd0x8e 0xfffd0x8f 0xfffd0x90 0xfffd0x91 0xfffd0x92 0xfffd0x93 0xfffd0x94 0xfffd0x95 0xfffd0x96 0xfffd0x97 0xfffd0x98 0xfffd0x99 0xfffd0x9a 0xfffd0x9b 0xfffd0x9c 0xfffd0x9d 0xfffd0x9e 0xfffd0x9f 0xfffd0xa0 0xfffd0xa1 0xfffd0xa2 0xfffd0xa3 0xfffd0xa4 0xfffd0xa5 0xfffd0xa6 0xfffd0xa7 0xfffd0xa8 0xfffd0xa9 0xfffd0xaa 0xfffd0xab 0xfffd0xac 0xfffd0xad 0xfffd0xae 0xfffd0xaf 0xfffd0xb0 0xfffd0xb1 0xfffd0xb2 0xfffd0xb3 0xfffd0xb4 0xfffd0xb5 0xfffd0xb6 0xfffd0xb7 0xfffd0xb8 0xfffd0xb9 0xfffd0xba 0xfffd0xbb 0xfffd0xbc 0xfffd0xbd 0xfffd0xbe 0xfffd0xbf 0xfffd0xc0 0xfffd0xc1 0xfffd0xc2 0xfffd0xc3 0xfffd0xc4 0xfffd0xc5 0xfffd0xc6 0xfffd0xc7 0xfffd0xc8 0xfffd0xc9 0xfffd0xca 0xfffd0xcb 0xfffd0xcc 0xfffd0xcd 0xfffd0xce 0xfffd0xcf 0xfffd0xd0 0xfffd0xd1 0xfffd0xd2 0xfffd0xd3 0xfffd0xd4 0xfffd0xd5 0xfffd0xd6 0xfffd0xd7 0xfffd0xd8 0xfffd0xd9 0xfffd0xda 0xfffd0xdb 0xfffd0xdc 0xfffd0xdd 0xfffd0xde 0xfffd0xdf 0xfffd0xe0 0xfffd0xe1 0xfffd0xe2 0xfffd0xe3 0xfffd0xe4 0xfffd0xe5 0xfffd0xe6 0xfffd0xe7 0xfffd0xe8 0xfffd0xe9 0xfffd0xea 0xfffd0xeb 0xfffd0xec 0xfffd0xed 0xfffd0xee 0xfffd0xef 0xfffd0xf0 0xfffd0xf1 0xfffd0xf2 0xfffd0xf3 0xfffd0xf4 0xfffd0xf5 0xfffd0xf6 0xfffd0xf7 0xfffd0xf8 0xfffd0xf9 0xfffd0xfa 0xfffd0xfb 0xfffd0xfc 0xfffd0xfd 0xfffd0xfe 0xfffd0xff 0xfffd