#!/usr/bin/perl
# Do not normalise this test file. It has deliberately unnormalised characters in it.
use
v5.10;
use
strict;
use
warnings;
use
utf8;
use
if
$^V ge v5.12.0,
feature
=>
'unicode_strings'
;
use
Test::Exception;
my
$locale
= Locale::CLDR->new(
'br_FR'
);
my
$quoted
=
$locale
->quote(
"abc"
);
is(
$quoted
,
'«abc»'
,
'Quote Breton'
);
$quoted
=
$locale
->quote(
"z $quoted z"
);
is(
$quoted
,
'«z “abc” z»'
,
'Quote Breton'
);
$quoted
=
$locale
->quote(
"dd 'z $quoted z dd"
);
is(
$quoted
,
'«dd \'z “z «abc» z” z dd»'
,
'Quote Breton'
);