From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

TOKUHIROM / Data-Recursive-Encode-0.07 / t / 02_more.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

              
use strict;
use warnings;
use Test::More;
use Data::Recursive::Encode;
use Encode;
# utility functions
sub U($) { decode_utf8($_[0]) }
sub u($) { encode_utf8($_[0]) }
sub E($) { decode('euc-jp', $_[0]) }
sub e($) { encode('euc-jp', $_[0]) }
sub eU($) { e(U($_[0])) }
# -------------------------------------------------------------------------
subtest "decode_utf8" => sub {
    my $D = sub { Data::Recursive::Encode->decode_utf8(@_) };
    is_deeply([$D->('あいう'), undef],    [U('あいう'), undef], 'undef');
    is_deeply([$D->('あいう'), \*ok ],    [U('あいう'), \*ok],  'globref');
    is_deeply([$D->('あいう'), \&ok ],    [U('あいう'), \&ok],  'coderef');
    is_deeply([\\$D->('あいう') ],        [\\U('あいう')],      'ref to ref');
    done_testing;
};
# -------------------------------------------------------------------------
subtest "encode_utf8" => sub {
    my $E = sub { Data::Recursive::Encode->encode_utf8(@_) };
    is_deeply([$E->(U 'あいう'), undef],    [('あいう'), undef], 'undef');
    is_deeply([$E->(U 'あいう'), \*ok ],    [('あいう'), \*ok],  'globref');
    is_deeply([$E->(U 'あいう'), \&ok ],    [('あいう'), \&ok],  'coderef');
    is_deeply([\\$E->(U 'あいう') ],        [\\('あいう')],      'ref to ref');
    done_testing;
};
# -------------------------------------------------------------------------
subtest "decode" => sub {
    my $D = sub { Data::Recursive::Encode->decode('euc-jp', @_) };
    is_deeply([$D->(eU('あいう')), undef],    [U('あいう'), undef], 'undef');
    is_deeply([$D->(eU('あいう')), \*ok ],    [U('あいう'), \*ok],  'globref');
    is_deeply([$D->(eU('あいう')), \&ok ],    [U('あいう'), \&ok],  'coderef');
    is_deeply([\\$D->(eU('あいう')) ],        [\\U('あいう')],      'ref to ref');
    done_testing;
};
# -------------------------------------------------------------------------
subtest "encode" => sub {
    my $E = sub { Data::Recursive::Encode->encode('euc-jp', @_) };
    is_deeply([$E->(U 'あいう'), undef],    [eU('あいう'), undef], 'undef');
    is_deeply([$E->(U 'あいう'), \*ok ],    [eU('あいう'), \*ok],  'globref');
    is_deeply([$E->(U 'あいう'), \&ok ],    [eU('あいう'), \&ok],  'coderef');
    is_deeply([\\$E->(U 'あいう') ],        [\\eU('あいう')],      'ref to ref');
    done_testing;
};
done_testing;