## check the containers
ok(Moose::Util::TypeConstraints::_detect_parameterized_type_constraint($_),
- '... this correctly detected a container (' . $_ . ')')
+ 'this correctly detected a container (' . $_ . ')')
for (
'ArrayRef[Foo]',
'ArrayRef[Foo | Int]',
);
ok(!Moose::Util::TypeConstraints::_detect_parameterized_type_constraint($_),
- '... this correctly detected a non-container (' . $_ . ')')
+ 'this correctly detected a non-container (' . $_ . ')')
for (
'ArrayRef[]',
'ArrayRef[Foo]Bar',
is_deeply(
[ Moose::Util::TypeConstraints::_parse_parameterized_type_constraint($_) ],
$split_tests{$_},
- '... this correctly split the container (' . $_ . ')'
+ 'this correctly split the container (' . $_ . ')'
) for keys %split_tests;
}
## now for the unions
ok(Moose::Util::TypeConstraints::_detect_type_constraint_union($_),
- '... this correctly detected union (' . $_ . ')')
+ 'this correctly detected union (' . $_ . ')')
for (
'Int | Str',
'Int|Str',
);
ok(!Moose::Util::TypeConstraints::_detect_type_constraint_union($_),
- '... this correctly detected a non-union (' . $_ . ')')
+ 'this correctly detected a non-union (' . $_ . ')')
for (
'Int',
'ArrayRef[Foo | Int]',
is_deeply(
[ Moose::Util::TypeConstraints::_parse_type_constraint_union($_) ],
$split_tests{$_},
- '... this correctly split the union (' . $_ . ')'
+ 'this correctly split the union (' . $_ . ')'
) for keys %split_tests;
}