Commit d502fd49 authored by Xavier Guimard's avatar Xavier Guimard

Args in sbtest

parent 8582c8f7
......@@ -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} ) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment