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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
=pod
=encoding utf-8
=head1 PURPOSE
Checks that it's possible to extend existing type libraries.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2013-2014, 2017-2023 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
use strict;
use warnings;
use lib qw( . ./t ../inc ./inc );
use utf8;
use Test::More;
use Test::Requires { Encode => 0 };
use Test::TypeTiny;
BEGIN {
package Local::Types;
use Type::Library -base;
use Type::Utils -all;
extends 'Types::Standard';
declare "Foo", as "Str";
};
use Local::Types -all;
use Type::Utils;
my $chars = "Café Paris|Garçon";
my $bytes_utf8 = Encode::encode("utf-8", $chars);
my $bytes_western = Encode::encode("iso-8859-1", $chars);
is(length($chars), 17, 'length $chars == 17');
is(length($bytes_utf8), 19, 'length $bytes_utf8 == 19');
is(length($bytes_western), 17, 'length $bytes_western == 17');
my $SplitSpace = (ArrayRef[Str])->plus_coercions(Split[qr/\s/]);
my $SplitPipe = (ArrayRef[Foo])->plus_coercions(Split[qr/\|/]);
ok($SplitSpace->can_be_inlined, '$SplitSpace can be inlined');
ok($SplitPipe->can_be_inlined, '$SplitPipe can be inlined');
is_deeply(
$SplitSpace->coerce($chars),
[ "Café", "Paris|Garçon" ],
'$SplitSpace->coerce($chars)',
);
is_deeply(
$SplitSpace->coerce($bytes_utf8),
[ map Encode::encode("utf-8", $_), "Café", "Paris|Garçon" ],
'$SplitSpace->coerce($bytes_utf8)',
);
is_deeply(
$SplitSpace->coerce($bytes_western),
[ map Encode::encode("iso-8859-1", $_), "Café", "Paris|Garçon" ],
'$SplitSpace->coerce($bytes_western)',
);
should_pass($SplitSpace->coerce($chars), ArrayRef[Str]);
should_pass($SplitSpace->coerce($bytes_utf8), ArrayRef[Str]);
should_pass($SplitSpace->coerce($bytes_western), ArrayRef[Str]);
is_deeply(
my $arr_chars = $SplitPipe->coerce($chars),
[ "Café Paris", "Garçon" ],
'$SplitPipe->coerce($chars)',
);
is_deeply(
my $arr_bytes_utf8 = $SplitPipe->coerce($bytes_utf8),
[ map Encode::encode("utf-8", $_), "Café Paris", "Garçon" ],
'$SplitPipe->coerce($bytes_utf8)',
);
is_deeply(
my $arr_bytes_western = $SplitPipe->coerce($bytes_western),
[ map Encode::encode("iso-8859-1", $_), "Café Paris", "Garçon" ],
'$SplitPipe->coerce($bytes_western)',
);
my $JoinPipe = Foo->plus_coercions(Join["|"]);
is(
$_ = $JoinPipe->coerce($arr_chars),
$chars,
'$JoinPipe->coerce($arr_chars)',
);
should_pass($_, Str);
is(
$_ = $JoinPipe->coerce($arr_bytes_utf8),
$bytes_utf8,
'$JoinPipe->coerce($arr_bytes_utf8)',
);
should_pass($_, Str);
is(
$_ = $JoinPipe->coerce($arr_bytes_western),
$bytes_western,
'$JoinPipe->coerce($arr_bytes_western)',
);
should_pass($_, Str);
BEGIN {
package Local::Types2;
use Types::Standard -base, -utils;
declare "Bar", as "Str";
};
ok 'Local::Types2'->isa( 'Type::Library' ), 'use Types::Standard -base will set up a type library';
ok 'Local::Types2'->isa( 'Types::Standard' ), 'use Types::Standard -base will inherit from Types::Standard';
ok 'Local::Types2'->has_type( 'Bar' ), 'new type works';
ok 'Local::Types2'->has_type( 'ArrayRef' ), 'inherited type works';
done_testing;
|
