diff options
author | Steven Rostedt <srostedt@redhat.com> | 2011-09-30 22:14:21 -0400 |
---|---|---|
committer | Steven Rostedt <rostedt@goodmis.org> | 2011-10-17 11:54:11 -0400 |
commit | 3d1cc41432b0491a39a3185b52bfa1d0411bba10 (patch) | |
tree | e623dd001b290681f4f8cc653ae5183ff6140209 /tools/testing/ktest/ktest.pl | |
parent | 0050b6bbef01d871a34a77685047190aa428b210 (diff) |
ktest: Add OVERRIDE keyword to DEFAULTS section
The OVERRIDE keyword will allow options defined in the given
DEFAULTS section to override options defined in previous DEFAULT
sections.
Normally, options will error if they were previous defined.
The OVERRIDE keyword allows options that have been previously
defined to be changed in the given section.
Note, the same option can not be defined in the same DEFAULT section
even if that section is marked as OVERRIDE.
Signed-off-by: Steven Rostedt <rostedt@goodmis.org>
Diffstat (limited to 'tools/testing/ktest/ktest.pl')
-rwxr-xr-x | tools/testing/ktest/ktest.pl | 37 |
1 files changed, 29 insertions, 8 deletions
diff --git a/tools/testing/ktest/ktest.pl b/tools/testing/ktest/ktest.pl index b4f32e734745..7bce412bbdcc 100755 --- a/tools/testing/ktest/ktest.pl +++ b/tools/testing/ktest/ktest.pl | |||
@@ -337,10 +337,17 @@ sub process_variables { | |||
337 | } | 337 | } |
338 | 338 | ||
339 | sub set_value { | 339 | sub set_value { |
340 | my ($lvalue, $rvalue) = @_; | 340 | my ($lvalue, $rvalue, $override, $overrides, $name) = @_; |
341 | 341 | ||
342 | if (defined($opt{$lvalue})) { | 342 | if (defined($opt{$lvalue})) { |
343 | die "Error: Option $lvalue defined more than once!\n"; | 343 | if (!$override || defined(${$overrides}{$lvalue})) { |
344 | my $extra = ""; | ||
345 | if ($override) { | ||
346 | $extra = "In the same override section!\n"; | ||
347 | } | ||
348 | die "$name: $.: Option $lvalue defined more than once!\n$extra"; | ||
349 | } | ||
350 | ${$overrides}{$lvalue} = $rvalue; | ||
344 | } | 351 | } |
345 | if ($rvalue =~ /^\s*$/) { | 352 | if ($rvalue =~ /^\s*$/) { |
346 | delete $opt{$lvalue}; | 353 | delete $opt{$lvalue}; |
@@ -430,6 +437,9 @@ sub __read_config { | |||
430 | my $test_case = 0; | 437 | my $test_case = 0; |
431 | my $if = 0; | 438 | my $if = 0; |
432 | my $if_set = 0; | 439 | my $if_set = 0; |
440 | my $override = 0; | ||
441 | |||
442 | my %overrides; | ||
433 | 443 | ||
434 | while (<$in>) { | 444 | while (<$in>) { |
435 | 445 | ||
@@ -443,6 +453,7 @@ sub __read_config { | |||
443 | 453 | ||
444 | my $old_test_num; | 454 | my $old_test_num; |
445 | my $old_repeat; | 455 | my $old_repeat; |
456 | $override = 0; | ||
446 | 457 | ||
447 | if ($type eq "TEST_START") { | 458 | if ($type eq "TEST_START") { |
448 | 459 | ||
@@ -468,10 +479,20 @@ sub __read_config { | |||
468 | $skip = 0; | 479 | $skip = 0; |
469 | } | 480 | } |
470 | 481 | ||
471 | if ($rest =~ /\s+ITERATE\s+(\d+)(.*)$/) { | 482 | if (!$skip) { |
472 | $repeat = $1; | 483 | if ($type eq "TEST_START") { |
473 | $rest = $2; | 484 | if ($rest =~ /\s+ITERATE\s+(\d+)(.*)$/) { |
474 | $repeat_tests{"$test_num"} = $repeat; | 485 | $repeat = $1; |
486 | $rest = $2; | ||
487 | $repeat_tests{"$test_num"} = $repeat; | ||
488 | } | ||
489 | } elsif ($rest =~ /\sOVERRIDE\b(.*)/) { | ||
490 | # DEFAULT only | ||
491 | $rest = $1; | ||
492 | $override = 1; | ||
493 | # Clear previous overrides | ||
494 | %overrides = (); | ||
495 | } | ||
475 | } | 496 | } |
476 | 497 | ||
477 | if ($rest =~ /\sIF\s+(.*)/) { | 498 | if ($rest =~ /\sIF\s+(.*)/) { |
@@ -573,10 +594,10 @@ sub __read_config { | |||
573 | } | 594 | } |
574 | 595 | ||
575 | if ($default || $lvalue =~ /\[\d+\]$/) { | 596 | if ($default || $lvalue =~ /\[\d+\]$/) { |
576 | set_value($lvalue, $rvalue); | 597 | set_value($lvalue, $rvalue, $override, \%overrides, $name); |
577 | } else { | 598 | } else { |
578 | my $val = "$lvalue\[$test_num\]"; | 599 | my $val = "$lvalue\[$test_num\]"; |
579 | set_value($val, $rvalue); | 600 | set_value($val, $rvalue, $override, \%overrides, $name); |
580 | 601 | ||
581 | if ($repeat > 1) { | 602 | if ($repeat > 1) { |
582 | $repeats{$val} = $repeat; | 603 | $repeats{$val} = $repeat; |