package
Mason::t::Util;
$Mason::t::Util::VERSION
=
'2.23'
;
sub
test_combine_similar_paths : Tests {
cmp_deeply( [ combine_similar_paths(
qw(/foo/bar.m /foo/bar.pm /foo.m /foo.pm)
) ],
[
'/foo/bar.{m,pm}'
,
'/foo.{m,pm}'
] );
}
1;
package
Mason::t::Util;
$Mason::t::Util::VERSION
=
'2.23'
;
sub
test_combine_similar_paths : Tests {
cmp_deeply( [ combine_similar_paths(
qw(/foo/bar.m /foo/bar.pm /foo.m /foo.pm)
) ],
[
'/foo/bar.{m,pm}'
,
'/foo.{m,pm}'
] );
}
1;