#!/usr/bin/perl
# $Id: 04-utf8.t 27 2012-08-30 19:54:25Z andrew $
use strict;
use blib;
use charnames qw();
use Test::More tests => 3;
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' );