#!/usr/bin/perl -w

# $Id: base.t 3701 2008-05-02 18:27:05Z david $

use strict;
use Test::More tests => 7;

BEGIN { use_ok 'Encode::ZapCP1252' or die; }

can_ok 'Encode::ZapCP1252', 'zap_cp1252';
can_ok __PACKAGE__, 'zap_cp1252';

my $cp1252 = join ' ', map { chr } 0x80, 0x82 .. 0x8c, 0x8e, 0x91 .. 0x9c, 0x9e, 0x9f;
my $ascii  = q{e , f ,, ... + ++ ^ % S < OE Z ' ' " " * - -- ~ (tm) s > oe z Y};
my $utf8   = q{€ , ƒ „ … † ‡ ˆ ‰ Š ‹ Œ Ž ‘ ’ “ ” • – — ˜ ™ š › œ ž Ÿ};

# Test conversion to ASCII.
my $fix_me = $cp1252;
zap_cp1252 $fix_me;
is $fix_me, $ascii, 'Convert to ascii';

# Test conversion to UTF-8.
$fix_me = $cp1252;
fix_cp1252 $fix_me;
is $fix_me, $utf8, 'Convert to utf-8';

# Test conversion to ASCII with modified table.
$Encode::ZapCP1252::ascii_for{"\x80"} = 'E';
$ascii =~ s/^e/E/;
$fix_me = $cp1252;
zap_cp1252 $fix_me;
is $fix_me, $ascii, 'Convert to ascii with modified table';

# Test conversion to UTF-8 with modified table.
$Encode::ZapCP1252::utf8_for{"\x80"} = 'E';
$utf8 =~ s/€/E/;
$fix_me = $cp1252;
fix_cp1252 $fix_me;
is $fix_me, $utf8, 'Convert to ascii with modified table';