#!/usr/bin/perl
# Do not normalise this test file. It has deliberately unnormalised characters in it.
use v5.10;
use strict;
use utf8;
use if $^V ge v5.12.0, feature => 'unicode_strings';
use Test::More tests => 4;
use ok 'Locale::CLDR';
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');