The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
|
our $VERSION = '1.12.0.1' ;
BEGIN {
share qw(@exit) ;
}
Rex::CLI->add_exit(
sub {
if ( scalar @exit > 0 ) {
CORE:: exit (1);
}
}
);
sub push_exit {
push @exit , shift ;
}
desc 'Run tests specified with --test=testfile (default: t/*.t)' ;
task run => make {
Rex::Logger::info( "Running integration tests..." );
my $parameters = shift ;
my @files ;
LOCAL {
@files =
defined $parameters ->{test} ? glob ( $parameters ->{test} ) : glob ( 't/*.t' );
};
for my $file ( @files ) {
Rex::Logger::info( "Running test: $file." );
do "./$file" ;
Rex::Logger::info( "Error running $file: $@" , "error" ) if $@;
}
};
1;
|