File Coverage

lib/Grid/Request/Test.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package Grid::Request::Test;

=head1 NAME

Grid::Request::Test - Helper funcations for unit Grid::Request tests.

=head1 SYNOPSIS

 use Grid::Request::Test;

 my $req = Grid::Request:Test->get_test_request();

 my $project = Grid::Request:Test->get_test_project();

 my $hostname = Grid::Request:Test->get_test_host();

=head1 DESCRIPTION

A module that models Grid::Request parameters.

=over 4

=item get_test_request();

B This method is used by tests to obtain a test request
object. If the user has the GRID_REQUEST_TEST_PROJECT enviroment variable
defined, for environments in which a project settings is required, then
the returned object will have the project configured so that tests will
run.

B None.

B A Grid::Request object.

=cut

use Carp;
use Grid::Request;
use Test::More;

our $GR_PROJECT_NAME = "GRID_REQUEST_TEST_PROJECT";
our $GR_HOST_NAME = "GRID_REQUEST_TEST_HOST";

our $VERSION = '0.11';


sub get_test_request {
    my $req;
    my $project = get_test_project();

    if (defined $project && length $project) {
        $req = Grid::Request->new(project => $project);
    } else {
        $req = Grid::Request->new();
    }
    return $req;
}

=item get_test_project();

B Retrieves the project to use when running the
Grid::Request unit tests. Many of the unit tests trigger actual
grid jobs, so the user/tester must be able to specify which project
string to use.

B None.

B A scalar.

=cut

sub get_test_project {
    if (exists $ENV{$GR_PROJECT_NAME} && defined $ENV{$GR_PROJECT_NAME} &&
            length($ENV{$GR_PROJECT_NAME})) {

        # Return the value.
        return $ENV{$GR_PROJECT_NAME};
    }
}


=item get_test_host();

B Retrieves the host to use to help test the
hosts() method in Grid::Request.

B None.

B A scalar.

=cut

sub get_test_host {
    if (exists $ENV{$GR_HOST_NAME} &&
        defined $ENV{$GR_HOST_NAME} &&
        length($ENV{$GR_HOST_NAME})) {

        # Return the value.
        # TODO: Validation.
        return $ENV{$GR_HOST_NAME};
    } else {
        warn "Please define the \"$GR_HOST_NAME\" environment variable.\n";
        croak;
    }
}

sub diagnose {
    my $e;
    if ( $e = Exception::Class->caught('Grid::Request::DRMAAException') ) {
        diag($e->diagnosis());
    } elsif ( $e = Exception::Class->caught('Grid::Request::Exception') ) {
        diag($e->error());
    } else {
        $e = Exception::Class->caught();
        diag($e);
    }
}

1;

__END__