File Coverage

blib/lib/Wetware/Test/Utilities.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	3	4	75.0
condition			n/a
subroutine	11	11	100.0
pod	4	4	100.0
total	51	52	98.0

#-------------------------------------------------------------------------------
#      $URL$
#     $Date$
#   $Author$
# $Revision$
#-------------------------------------------------------------------------------
package Wetware::Test::Utilities;

use strict;
use warnings;
use FindBin qw($Bin);
use File::Basename qw(basename);

use File::Spec;

#------------------------------------------------------------------------------

our $VERSION = 0.03;

#------------------------------------------------------------------------------
# So we do NOT need to export them....
# Since we expect that we will work with Test::Class Cases...
# but may work outside of the Test::Class cases....
#
use Exporter;
use base qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
	is_testsuite_module
	path_to_data_dir
	path_to_data_dir_from
	readable_file_path
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

#------------------------------------------------------------------------------

sub readable_file_path {
	my ( $file_path ) = @_;
	return unless $file_path;
	return ( -r $file_path );
}

sub is_testsuite_module {
	my ( $file_path ) = @_;

	return unless readable_file_path($file_path);

	my $file_name = basename( $file_path );

	return $file_name =~ m{^TestSuite\.pm$};
}

# hum.... what if we have a TestSuite for Foo in blib?
# do we need a get_resource_from_INC() method?
sub path_to_data_dir_from {
    my ($path ) = @_;
    $path =~ s{/t/.*}{/t/};
    $path = File::Spec->join( $path, 'test_data' );
    return $path;
}

sub path_to_data_dir {
	return path_to_data_dir_from($Bin);
}

#------------------------------------------------------------------------------

1;

__END__