File: inflate-then-inline.t

package info (click to toggle)
libtype-tiny-perl 2.002001-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 3,948 kB
  • sloc: perl: 14,610; makefile: 2; sh: 1
file content (56 lines) | stat: -rw-r--r-- 1,109 bytes parent folder | download | duplicates (2)
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
=pod

=encoding utf-8

=head1 PURPOSE

Check type constraint inlining works with L<Moose> in strange edge
cases where we need to inflate Type::Tiny constraints into full
L<Moose::Meta::TypeConstraint> objects.

=head1 DEPENDENCIES

Test is skipped if Moose 2.1210 is not available.

=head1 AUTHOR

Toby Inkster E<lt>tobyink@cpan.orgE<gt>.

=head1 COPYRIGHT AND LICENCE

This software is copyright (c) 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 Test::More 0.96;
use Test::Requires { 'Moose' => '2.1005' };

use Type::Tiny;

my $type1 = Type::Tiny->new;
my $type2 = $type1->create_child_type(
	constraint => sub { !!2 },
	inlined    => sub {
		my ($self, $var) = @_;
		$self->parent->inline_check($var) . " && !!2";
	},
);

like(
	$type2->inline_check('$XXX'),
	qr/\(\(?!!1\)? && !!2\)/,
	'$type2->inline_check'
);

like(
	$type2->moose_type->_inline_check('$XXX'),
	qr/\(\(?!!1\)? && !!2\)/,
	'$type2->moose_type->_inline_check'
);

done_testing;