File: 11-unmatched-chars.t

package info (click to toggle)
liblatex-encode-perl 0.092.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 372 kB
  • ctags: 17
  • sloc: perl: 1,282; makefile: 4
file content (16 lines) | stat: -rwxr-xr-x 439 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl
# $Id: 04-utf8.t 27 2012-08-30 19:54:25Z andrew $

use strict;
use warnings;

use blib;
use LaTeX::Encode;
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{f900}b"), "a\\unmatched{f900}b",      'string including an unsupported ideograph' );