File Coverage

blib/lib/Test/File/Cmp.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	5	6	83.3
condition	2	3	66.6
subroutine	8	8	100.0
pod	1	1	100.0
total	56	58	96.5

package Test::File::Cmp;

use 5.010;
use strict;
use warnings;

use File::Spec;

use Test::Builder;

use Exporter 'import';


our $VERSION = '0.03';

our @EXPORT_OK = qw(file_is);

my $Test = Test::Builder->new;

sub file_is($$;$) {
  my ($got_f, $exp_f, $name) = (_resolve(shift), _resolve(shift), shift);
  $name //= "compare file '$got_f' with '$exp_f'";
  my @got_lines = split(/\r?\n/, do { local (*ARGV, $/); @ARGV = ($got_f); <> });
  my @exp_lines = split(/\r?\n/, do { local (*ARGV, $/); @ARGV = ($exp_f); <> });
  if (@got_lines != @exp_lines) {
    $Test->ok(0, $name);
    $Test->diag("    Different number of lines");
    return 0;
  }
  my $n = @got_lines;
  for (my $i = 0; $i < $n; ++$i) {
    my ($got, $exp) = ($got_lines[$i], $exp_lines[$i]);
    if ($got ne $exp) {
      $Test->ok(0, $name);
      $Test->diag("    Files differ at line " . ($i + 1));
      return 0;
    }
  }
  return $Test->ok(1, $name);
}


sub _resolve {
  $_[0] =~ m{/} ? File::Spec->catfile(split(m{/}, shift)) : shift;
}



1; # End of Test::File::Cmp


__END__