#!/usr/bin/perl
# $Id: 05-add-encodings.t 19 2012-08-29 06:19:44Z andrew $

use strict;
use warnings;

use Test::More tests => 6;

use blib;
use LaTeX::Encode qw(:all);

is(latex_encode('A'), 'A',   'pre add_latex_encoding (\'A\' => \'A\')');
is(latex_encode('$'), '\\$', 'pre add_latex_encoding (\'$\' => \'\\$\')');
is(latex_encode("\x{00A3}"), '{\\textsterling}',  'post add_latex_encoding (\'£\' => \'{\\textsterling}\')');
add_latex_encodings( 'A' => 'B');
add_latex_encodings( '$' => 'DOLLAR', "\x{00A3}" => 'POUND');
is(latex_encode('A'), 'B',      'post add_latex_encoding (\'A\' => \'B\')');
is(latex_encode('$'), 'DOLLAR', 'post add_latex_encoding (\'$\' => \'DOLLAR\')');
is(latex_encode("\x{00A3}"), 'POUND',  'post add_latex_encoding (\'£\' => \'POUND\')');