#! /usr/local/bin/perl -w

# vim: tabstop=4
# vim: syntax=perl

use strict;

use Test;

BEGIN {
	plan tests => 7;
}

use Locale::Recode;

sub int2utf8;

my $local2ucs = {};
my $ucs2local = {};

while (<DATA>) {
	my ($code, $ucs, undef) = map { oct $_ } split /\s+/, $_;
	$local2ucs->{$code} = $ucs;
	$ucs2local->{$ucs} = $code unless $ucs == 0xfffd;
}

my $cd_int = Locale::Recode->new (from => 'IBM290',
				  to => 'INTERNAL');
ok !$cd_int->getError;

my $cd_utf8 = Locale::Recode->new (from => 'IBM290',
				   to => 'UTF-8');
ok !$cd_utf8->getError;

my $cd_rev = Locale::Recode->new (from => 'INTERNAL',
				  to => 'IBM290');
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 && $outbuf eq 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 = "\x6f"; # Unknown character!

$cd_rev = Locale::Recode->new (from => 'INTERNAL',
		               to => 'IBM290',
				)
&& $cd_rev->recode ($test_string1)
&& $cd_rev->recode ($test_string2)
&& ($test_string2 = $unknown . $test_string2 . $unknown);

ok $test_string1 eq $test_string2;

sub int2utf8
{
    my $ucs4 = shift;
    
    if ($ucs4 <= 0x7f) {
	return chr $ucs4;
    } elsif ($ucs4 <= 0x7ff) {
	return pack ("C2", 
		     (0xc0 | (($ucs4 >> 6) & 0x1f)),
		     (0x80 | ($ucs4 & 0x3f)));
    } elsif ($ucs4 <= 0xffff) {
	return pack ("C3", 
		     (0xe0 | (($ucs4 >> 12) & 0xf)),
		     (0x80 | (($ucs4 >> 6) & 0x3f)),
		     (0x80 | ($ucs4 & 0x3f)));
    } elsif ($ucs4 <= 0x1fffff) {
	return pack ("C4", 
		     (0xf0 | (($ucs4 >> 18) & 0x7)),
		     (0x80 | (($ucs4 >> 12) & 0x3f)),
		     (0x80 | (($ucs4 >> 6) & 0x3f)),
		     (0x80 | ($ucs4 & 0x3f)));
    } elsif ($ucs4 <= 0x3ffffff) {
	return pack ("C5", 
		     (0xf0 | (($ucs4 >> 24) & 0x3)),
		     (0x80 | (($ucs4 >> 18) & 0x3f)),
		     (0x80 | (($ucs4 >> 12) & 0x3f)),
		     (0x80 | (($ucs4 >> 6) & 0x3f)),
		     (0x80 | ($ucs4 & 0x3f)));
    } else {
	return pack ("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	0x0000
0x01	0x0001
0x02	0x0002
0x03	0x0003
0x04	0x009c
0x05	0x0009
0x06	0x0086
0x07	0x007f
0x08	0x0097
0x09	0x008d
0x0a	0x008e
0x0b	0x000b
0x0c	0x000c
0x0d	0x000d
0x0e	0x000e
0x0f	0x000f
0x10	0x0010
0x11	0x0011
0x12	0x0012
0x13	0x0013
0x14	0x009d
0x15	0x0085
0x16	0x0008
0x17	0x0087
0x18	0x0018
0x19	0x0019
0x1a	0x0092
0x1b	0x008f
0x1c	0x001c
0x1d	0x001d
0x1e	0x001e
0x1f	0x001f
0x20	0x0080
0x21	0x0081
0x22	0x0082
0x23	0x0083
0x24	0x0084
0x25	0x000a
0x26	0x0017
0x27	0x001b
0x28	0x0088
0x29	0x0089
0x2a	0x008a
0x2b	0x008b
0x2c	0x008c
0x2d	0x0005
0x2e	0x0006
0x2f	0x0007
0x30	0x0090
0x31	0x0091
0x32	0x0016
0x33	0x0093
0x34	0x0094
0x35	0x0095
0x36	0x0096
0x37	0x0004
0x38	0x0098
0x39	0x0099
0x3a	0x009a
0x3b	0x009b
0x3c	0x0014
0x3d	0x0015
0x3e	0x009e
0x3f	0x001a
0x40	0x0020
0x41	0x3002
0x42	0x300c
0x43	0x300d
0x44	0x3001
0x45	0x30fb
0x46	0x30f2
0x47	0x30a1
0x48	0x30a3
0x49	0x30a5
0x4a	0x00a3
0x4b	0x002e
0x4c	0x003c
0x4d	0x0028
0x4e	0x002b
0x4f	0x007c
0x50	0x0026
0x51	0x30a7
0x52	0x30a9
0x53	0x30e3
0x54	0x30e5
0x55	0x30e7
0x56	0x30c3
0x58	0xfffd
0x58	0x30fc
0x5a	0xfffd
0x5a	0x0021
0x5b	0x00a5
0x5c	0x002a
0x5d	0x0029
0x5e	0x003b
0x5f	0x00ac
0x60	0x002d
0x61	0x002f
0x6a	0xfffd
0x6a	0xfffd
0x6a	0xfffd
0x6a	0xfffd
0x6a	0xfffd
0x6a	0xfffd
0x6a	0xfffd
0x6a	0xfffd
0x6a	0x00a6
0x6b	0x002c
0x6c	0x0025
0x6d	0x005f
0x6e	0x003e
0x6f	0x003f
0x79	0xfffd
0x79	0xfffd
0x79	0xfffd
0x79	0xfffd
0x79	0xfffd
0x79	0xfffd
0x79	0xfffd
0x79	0xfffd
0x79	0xfffd
0x79	0x0060
0x7a	0x003a
0x7b	0x0023
0x7c	0x0040
0x7d	0x0027
0x7e	0x003d
0x7f	0x0022
0x81	0xfffd
0x81	0x30a2
0x82	0x30a4
0x83	0x30a6
0x84	0x30a8
0x85	0x30aa
0x86	0x30ab
0x87	0x30ad
0x88	0x30af
0x89	0x30b1
0x8a	0x30b3
0x8c	0xfffd
0x8c	0x30b5
0x8d	0x30b7
0x8e	0x30b9
0x8f	0x30bb
0x90	0x30bd
0x91	0x30bf
0x92	0x30c1
0x93	0x30c4
0x94	0x30c6
0x95	0x30c8
0x96	0x30ca
0x97	0x30cb
0x98	0x30cc
0x99	0x30cd
0x9a	0x30ce
0x9d	0xfffd
0x9d	0xfffd
0x9d	0x30cf
0x9e	0x30d2
0x9f	0x30d5
0xa1	0xfffd
0xa1	0x203e
0xa2	0x30d8
0xa3	0x30db
0xa4	0x30de
0xa5	0x30df
0xa6	0x30e0
0xa7	0x30e1
0xa8	0x30e2
0xa9	0x30e4
0xaa	0x30e6
0xac	0xfffd
0xac	0x30e8
0xad	0x30e9
0xae	0x30ea
0xaf	0x30eb
0xba	0xfffd
0xba	0xfffd
0xba	0xfffd
0xba	0xfffd
0xba	0xfffd
0xba	0xfffd
0xba	0xfffd
0xba	0xfffd
0xba	0xfffd
0xba	0xfffd
0xba	0x30ec
0xbb	0x30ed
0xbc	0x30ef
0xbd	0x30f3
0xbe	0x309b
0xbf	0x309c
0xc1	0xfffd
0xc1	0x0041
0xc2	0x0042
0xc3	0x0043
0xc4	0x0044
0xc5	0x0045
0xc6	0x0046
0xc7	0x0047
0xc8	0x0048
0xc9	0x0049
0xd1	0xfffd
0xd1	0xfffd
0xd1	0xfffd
0xd1	0xfffd
0xd1	0xfffd
0xd1	0xfffd
0xd1	0xfffd
0xd1	0x004a
0xd2	0x004b
0xd3	0x004c
0xd4	0x004d
0xd5	0x004e
0xd6	0x004f
0xd7	0x0050
0xd8	0x0051
0xd9	0x0052
0xe0	0xfffd
0xe0	0xfffd
0xe0	0xfffd
0xe0	0xfffd
0xe0	0xfffd
0xe0	0xfffd
0xe0	0x0024
0xe2	0xfffd
0xe2	0x0053
0xe3	0x0054
0xe4	0x0055
0xe5	0x0056
0xe6	0x0057
0xe7	0x0058
0xe8	0x0059
0xe9	0x005a
0xf0	0xfffd
0xf0	0xfffd
0xf0	0xfffd
0xf0	0xfffd
0xf0	0xfffd
0xf0	0xfffd
0xf0	0x0030
0xf1	0x0031
0xf2	0x0032
0xf3	0x0033
0xf4	0x0034
0xf5	0x0035
0xf6	0x0036
0xf7	0x0037
0xf8	0x0038
0xf9	0x0039
0xff	0xfffd
0xff	0xfffd
0xff	0xfffd
0xff	0xfffd
0xff	0xfffd
0xff	0x009f
