File: unit-files-are-the-same.t

package info (click to toggle)
perlbrew 0.78-1%2Bdeb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 708 kB
  • sloc: perl: 6,291; makefile: 6
file content (20 lines) | stat: -rw-r--r-- 494 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/env perl

use strict;
use Test::More;
use App::perlbrew;
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 = App::perlbrew::files_are_the_same($t, $t);
    my $should_not_be_same = App::perlbrew::files_are_the_same($t, $u);

    ok ($^O eq 'MSWin32' xor $should_be_same); # should return false on win32
    ok !$should_not_be_same;
}

done_testing;