Args in sbtest

This commit is contained in:
Xavier Guimard 2017-04-05 17:51:47 +00:00
parent 8582c8f7c0
commit d502fd4929
1 changed files with 6 additions and 0 deletions

View File

@ -260,6 +260,12 @@ my $tests = {
my $times = {};
if(@ARGV) {
foreach my $t ( keys %$tests ) {
delete $tests->{$t} unless(grep /^$t$/, @ARGV);
}
}
foreach my $name ( keys %$tests ) {
my $opts = $tests->{$name}->{globalStorageOptions};
if ( my $cmd = delete $tests->{$name}->{cmd} ) {