File Coverage

test/lib/RandomFileMethodBase.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	14	14	100.0
pod	0	5	0.0
total	67	76	88.1

package RandomFileMethodBase;
use base qw/Test::Class/;
use TestConstants;

use strict;
use warnings;

use Test::More;
use Test::Exception;
use Set::Scalar;

use File::Random;

sub expected_files_found_ok {
	my ($self, $exp_files, $args, $testname) = @_;
	my $exp    = Set::Scalar->new(@$exp_files);
	my $found  = Set::Scalar->new( grep defined, $self->sample(@$args) );

	_remove_cvs_files( $found );
	is $found, $exp, $testname
	or diag "found: $found",
	        "expected $exp",
	        "called with " . join (", " => @$args);
}

# I use a CVS System at home,
# so there are always some files more than needed
# that's why I delete them from the found files
sub _remove_cvs_files($) {
	my $f = shift;
	foreach ($f->members) {
		$f->delete($_) if defined($_) && ($_ =~ /Repository|CVS|Entries|Root/);
	}
}

sub sample {
	my ($self, %arg) = @_;
	my @sample;
	push @sample, $self->call_random_file(%arg) for (1 .. SAMPLE_SIZE);
	return @sample;
}

# Methods for overwriting -
# from practical reasons I didn't want to use the underscore _random_file
sub random_file {
	my ($self, @args) = @_;
	return File::Random::random_file(@args);
}

sub content_of_random_file {
    my ($self, @args) = @_;
    return File::Random::content_of_random_file(@args);
}

sub call_random_file {
	my ($self, %arg) = @_;

	my ($path, $home) = @arg{'-path', '-home'};
	delete @arg{'-path', '-home'};

	# either we know the directory directly
	return $self->random_file(%arg) if $arg{-dir};

	# or have to go to the path itself
	chdir $path;
	my $rf = $self->random_file(%arg);
	chdir $home;
	return $rf;
}


1;