diff options
Diffstat (limited to 'tools/testing')
| -rwxr-xr-x | tools/testing/ktest/ktest.pl | 49 |
1 files changed, 31 insertions, 18 deletions
diff --git a/tools/testing/ktest/ktest.pl b/tools/testing/ktest/ktest.pl index 2a9d04207174..d292c2d8dfe9 100755 --- a/tools/testing/ktest/ktest.pl +++ b/tools/testing/ktest/ktest.pl | |||
| @@ -449,6 +449,7 @@ sub __read_config { | |||
| 449 | my $num_tests_set = 0; | 449 | my $num_tests_set = 0; |
| 450 | my $skip = 0; | 450 | my $skip = 0; |
| 451 | my $rest; | 451 | my $rest; |
| 452 | my $line; | ||
| 452 | my $test_case = 0; | 453 | my $test_case = 0; |
| 453 | my $if = 0; | 454 | my $if = 0; |
| 454 | my $if_set = 0; | 455 | my $if_set = 0; |
| @@ -465,6 +466,7 @@ sub __read_config { | |||
| 465 | 466 | ||
| 466 | my $type = $1; | 467 | my $type = $1; |
| 467 | $rest = $2; | 468 | $rest = $2; |
| 469 | $line = $2; | ||
| 468 | 470 | ||
| 469 | my $old_test_num; | 471 | my $old_test_num; |
| 470 | my $old_repeat; | 472 | my $old_repeat; |
| @@ -486,32 +488,28 @@ sub __read_config { | |||
| 486 | $default = 1; | 488 | $default = 1; |
| 487 | } | 489 | } |
| 488 | 490 | ||
| 489 | if ($rest =~ /\s+SKIP\b(.*)/) { | 491 | # If SKIP is anywhere in the line, the command will be skipped |
| 490 | $rest = $1; | 492 | if ($rest =~ s/\s+SKIP\b//) { |
| 491 | $skip = 1; | 493 | $skip = 1; |
| 492 | } else { | 494 | } else { |
| 493 | $test_case = 1; | 495 | $test_case = 1; |
| 494 | $skip = 0; | 496 | $skip = 0; |
| 495 | } | 497 | } |
| 496 | 498 | ||
| 497 | if (!$skip) { | 499 | if ($rest =~ s/\sELSE\b//) { |
| 498 | if ($type eq "TEST_START") { | 500 | if (!$if) { |
| 499 | if ($rest =~ /\s+ITERATE\s+(\d+)(.*)$/) { | 501 | die "$name: $.: ELSE found with out matching IF section\n$_"; |
| 500 | $repeat = $1; | 502 | } |
| 501 | $rest = $2; | 503 | $if = 0; |
| 502 | $repeat_tests{"$test_num"} = $repeat; | 504 | |
| 503 | } | 505 | if ($if_set) { |
| 504 | } elsif ($rest =~ /\sOVERRIDE\b(.*)/) { | 506 | $skip = 1; |
| 505 | # DEFAULT only | 507 | } else { |
| 506 | $rest = $1; | 508 | $skip = 0; |
| 507 | $override = 1; | ||
| 508 | # Clear previous overrides | ||
| 509 | %overrides = (); | ||
| 510 | } | 509 | } |
| 511 | } | 510 | } |
| 512 | 511 | ||
| 513 | if ($rest =~ /\sIF\s+(.*)/) { | 512 | if ($rest =~ s/\sIF\s+(.*)//) { |
| 514 | $rest = ""; | ||
| 515 | if (process_if($name, $1)) { | 513 | if (process_if($name, $1)) { |
| 516 | $if_set = 1; | 514 | $if_set = 1; |
| 517 | } else { | 515 | } else { |
| @@ -520,9 +518,24 @@ sub __read_config { | |||
| 520 | $if = 1; | 518 | $if = 1; |
| 521 | } else { | 519 | } else { |
| 522 | $if = 0; | 520 | $if = 0; |
| 521 | $if_set = 0; | ||
| 523 | } | 522 | } |
| 524 | 523 | ||
| 525 | if ($rest !~ /^\s*$/) { | 524 | if (!$skip) { |
| 525 | if ($type eq "TEST_START") { | ||
| 526 | if ($rest =~ s/\s+ITERATE\s+(\d+)//) { | ||
| 527 | $repeat = $1; | ||
| 528 | $repeat_tests{"$test_num"} = $repeat; | ||
| 529 | } | ||
| 530 | } elsif ($rest =~ s/\sOVERRIDE\b//) { | ||
| 531 | # DEFAULT only | ||
| 532 | $override = 1; | ||
| 533 | # Clear previous overrides | ||
| 534 | %overrides = (); | ||
| 535 | } | ||
| 536 | } | ||
| 537 | |||
| 538 | if (!$skip && $rest !~ /^\s*$/) { | ||
| 526 | die "$name: $.: Gargbage found after $type\n$_"; | 539 | die "$name: $.: Gargbage found after $type\n$_"; |
| 527 | } | 540 | } |
| 528 | 541 | ||
