File Coverage

test/lib/ContentOfRandomFileInScalarContext.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	32	34	94.1

package
    ContentOfRandomFileInScalarContext;
use base qw/RandomFileMethodBase/;
use TestConstants;

use Test::More;

use File::Random;

# Change the random_file call to simply return the Contents
# Could be danger to overwrite this changed version !!
sub random_file {
	my ($self, @args) = @_;
	my $content = scalar $self->content_of_random_file(@args);
	$content =~ s/\s*$//s;    # ignore whitespaces at the end of the files
	return $content;
}

sub content_of_random_file_in_scalar_context : Test(2) {
	my $self = shift;
	my @arg  = (-check => sub { ! /CVS/ });   # Ignore files in CVS directories
	$self->expected_files_found_ok( [SIMPLE_CONTENTS()],
	                                [@arg, -dir => SIMPLE_DIR],
									"Simple Contents in scalar context" );
	$self->expected_files_found_ok( [REC_CONTENTS()],
	                                [@arg, -dir => REC_DIR, -recursive => 1],
									"Recursive Contents in scalar context" );
}

1;