CPAN Security Tip #3/3: Get help with reporting or fixing a security issue on CPAN! Learn more

PATCH / Unicode-Util-0.07 / t / reverse.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

              
use strict;
use warnings;
use utf8;
use open qw( :encoding(UTF-8) :std );
use Test::More tests => 1;
use Unicode::Util qw( grapheme_reverse );
# Unicode::Util tests for grapheme_reverse
# 'ю́xя̡̅̈' to 'я̡̅̈xю́'
is(
    grapheme_reverse("\x{44E}\x{301}x\x{44F}\x{305}\x{308}\x{321}"),
    "\x{44F}\x{305}\x{308}\x{321}x\x{44E}\x{301}",
    'grapheme_reverse on grapheme clusters'
);