#!/usr/bin/perl
# $Id: 04-utf8.t 27 2012-08-30 19:54:25Z andrew $
use
strict;
use
warnings;
use
blib;
use
LaTeX::Encode;
is(latex_encode(
"a\nb"
),
"a\nb"
,
'string including newline'
);
is(latex_encode(
"a\rb"
),
"a\rb"
,
'string including carriage return'
);
is(latex_encode(
"a\x{ffff}b"
),
"a\\unmatched{ffff}b"
,
'string including carriage return'
);