view release on metacpan or  search on metacpan

t/Jump.pm  view on Meta::CPAN

The tests listes in the call will be run sequentialy. I<jump_test> will stop at the first error an report 
the error as well as all the necessary information to debug the error.

=cut

sub jump_test
{
my (%setup_arguments) = @_ ;

$setup_arguments{caller} = join(':', @{[caller()]}[1 .. 2]) ;
$setup_arguments{name} =~ s/ +/_/g ;

if(exists $setup_arguments{directories_and_db})
	{
	@setup_arguments{'temporary_directory_structure', 'db_start'} = get_directories_and_db($setup_arguments{directories_and_db}) ;
	delete $setup_arguments{directories_and_db} ;
	}

my $start_directory = cwd() ;
my $test_directory = cwd() ;