#!/usr/bin/perl
# $Id: 01-filter.t 17 2012-08-29 06:16:11Z andrew $

use strict;
use warnings;

use Test::More tests => 7;

use blib;
use LaTeX::Encode;

# Basic special characters: \ { } & # ^ _ $ % 

is(latex_encode('AT&T'),         "AT\\&T",                 "'&' - ampersand");
is(latex_encode('\\LaTeX'),      "{\\textbackslash}LaTeX", "'\\' - backslash");
is(latex_encode('$0.01'),        "\\\$0.01",               "'\$' - dollar");
is(latex_encode('10% discount'), '10\\% discount',         "'%' - per cent");
is(latex_encode('mod_perl'),     'mod\\_perl',             "'_' - underscore");
is(latex_encode('Looking after #1'), 'Looking after \\#1', "'#' - hash sign");

is(latex_encode('\\textbf{AT&T}', except => '\\{}'),
   "\\textbf{AT\\&T}", "emboldened text");