File: vietnamese.t

package info (click to toggle)
libmarc-charset-perl 1.35-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 2,476 kB
  • sloc: xml: 99,038; perl: 774; makefile: 6
file content (15 lines) | stat: -rw-r--r-- 335 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use warnings;

use utf8;

use MARC::Charset qw(utf8_to_marc8);
use Encode;

use Test::More tests => 1;

my $viet_utf8 = 'Phép lạ của sự tỉnh thức.';
my $viet_marc8 = utf8_to_marc8($viet_utf8);

is($viet_marc8, "Ph\xe2ep l\xf2a c\xe0ua s\xf2\xbd t\xe0inh th\xe2\xbdc.", 'converted Vietnamese to MARC8');
exit 0;