File Coverage

blib/lib/Csistck/Test/Script.pm

Criterion	Covered	Total	%
statement	51	51	100.0
branch	3	4	75.0
condition	2	2	100.0
subroutine	18	18	100.0
pod	1	7	14.2
total	75	82	91.4

package Csistck::Test::Script;

use 5.010;
use strict;
use warnings;

use base 'Csistck::Test';
use Csistck::Oper qw/debug/;
use Csistck::Config qw/option/;

our @EXPORT_OK = qw/script/;

use Digest::MD5;
use File::Basename;
use FindBin;

use constant MODE_CHECK => 'check';
use constant MODE_REPAIR => 'run';

# Use the convenience function to normalize args
sub script {
    my $script = shift;
    my $script_args = shift // [];
    my %args = (
        args => (ref $script_args eq 'ARRAY') ?
            $script_args :
            [$script_args],
        @_
    );
    Csistck::Test::Script->new($script, %args);
}

sub script_name { shift->{target}; }
sub args { shift->{args}; }

# Wrap common process function
sub desc { return sprintf("Script test for %s", shift->script_name); }
sub check { shift->process(MODE_CHECK); }
sub repair { shift->process(MODE_REPAIR); }

sub process {
    my $self = shift;
    my $mode = shift;
    my $script = $self->script_name;
    # Args was passed as arrayref
    my @args = @{$self->args};

    # TODO sanity check on script

    # Build command
    my @command = ($script, $mode, @args);
    debug(sprintf("Run command: cmd=<%s>", join(" ", @command)));
    chdir($FindBin::Bin);
    my $ret = system(@command);

    return (($ret == 0) ? $self->pass('Command passed') :
      $self->fail('Command failed'));
}

1;
__END__