2016/05/13

How can we find a file that has a no resolving conflict?

I decided to write the test in my xt/.

no_conflict.t

use Test::More;
eval "use File::Find::Rule; use Test::File::Find::Rule;";
plan skip_all => "skip the no conflict test because $@" if $@;
match_rule_no_result(
    File::Find::Rule->file->relative->nonempty->grep(qr/(<<<<<<<|=======|>>>>>>>)/, sub { 0 }),
    '.',
    'no conflict'
);
done_testing;

Fine to me.

See also https://rt.perl.org/Public/Bug/Display.html?id=127993

サイト内検索