File Coverage

blib/lib/Csistck/Test/File.pm

Criterion	Covered	Total	%
statement	45	58	77.5
branch	0	2	0.0
condition			n/a
subroutine	17	20	85.0
pod	0	6	0.0
total	62	86	72.0

package Csistck::Test::File;

use 5.010;
use strict;
use warnings;

use base 'Csistck::Test::FileBase';
use Csistck::Oper qw/debug/;
use Csistck::Util qw/hash_file hash_string/;

our @EXPORT_OK = qw/file/;

use Digest::MD5;
use File::Basename;
use File::Copy;
use FindBin;
use File::stat;
use Template;
use Sys::Hostname::Long qw//;
use Text::Diff ();

sub file { Csistck::Test::File->new(@_); };

sub desc { sprintf("File check on %s", shift->dest); }

sub file_check {
    my $self = shift;
    my ($dest, $src) = ($self->dest, $self->src);
    file_compare($src, $dest);
}

sub file_repair {
    my $self = shift;
    my ($dest, $src) = ($self->dest, $self->src);
    debug("Copying file:  ");
    copy($src, $dest);
}

sub file_diff {
    my $self = shift;
    my ($dest, $src) = ($self->dest, $self->src);
    say(Text::Diff::diff($dest, $src));
}

# Compare hashes between two files
sub file_compare {
    my @files = @_;
    return 0 unless (scalar @files == 2);

    # Get hashes and return compare
    my ($hasha, $hashb) = map hash_file($_), @files;
    debug(sprintf "File compare result:  ", $hasha, $hashb);
    return ($hasha eq $hashb);
}

1;
__END__