view release on metacpan or  search on metacpan

t/unit-files-are-the-same.t  view on Meta::CPAN

use App::Perlbrew::Util qw(files_are_the_same);

use FindBin qw($RealBin);

my @test_files = (<$RealBin/*.t>)[0..9];

for my $i (0..$#test_files) {
    my $t = $test_files[$i];
    my $u = $test_files[$i - 1];
    my $should_be_same = files_are_the_same($t, $t);
    my $should_not_be_same = files_are_the_same($t, $u);

    note "Comparing $t with $u";
    ok ($^O eq 'MSWin32' xor $should_be_same); # should return false on win32
    ok !$should_not_be_same;
}

done_testing;