diff options
author | Todd Lyons <tlyons@exim.org> | 2014-08-14 12:36:34 -0700 |
---|---|---|
committer | Todd Lyons <tlyons@exim.org> | 2014-08-14 12:36:34 -0700 |
commit | e449c3b03ae53a6b90affaad467e8e81df55600c (patch) | |
tree | 3f4462f0449afe7263ff21c283190588157fb13a /test | |
parent | 903546d89b632736573e38f9b68c480c4d5d1593 (diff) |
Properly detect/set test variables from scripts.
Diffstat (limited to 'test')
-rwxr-xr-x | test/runtest | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/test/runtest b/test/runtest index a6c4f0acd..c3faa4262 100755 --- a/test/runtest +++ b/test/runtest @@ -3358,9 +3358,20 @@ foreach $test (@test_list) undef %expected_msglogs; # Open the test's script - open(SCRIPT, "scripts/$test") || tests_exit(-1, "Failed to open \"scripts/$test\": $!"); + # Run through the script once to set variables which should be global + while (<SCRIPT>) + { + if (/^no_message_check/) { $message_skip = 1; next; } + if (/^no_msglog_check/) { $msglog_skip = 1; next; } + if (/^no_stderr_check/) { $stderr_skip = 1; next; } + if (/^no_stdout_check/) { $stdout_skip = 1; next; } + if (/^rmfiltertest/) { $rmfiltertest = 1; next; } + if (/^sortlog/) { $sortlog = 1; next; } + } + # Reset to beginning of file for per test interpreting/processing + seek(SCRIPT, 0, 0); # The first line in the script must be a comment that is used to identify # the set of tests as a whole. @@ -3383,6 +3394,8 @@ foreach $test (@test_list) while (<SCRIPT>) { $lineno++; + # Could remove these variable settings because they are already + # set above, but doesn't hurt to leave them here. if (/^no_message_check/) { $message_skip = 1; next; } if (/^no_msglog_check/) { $msglog_skip = 1; next; } if (/^no_stderr_check/) { $stderr_skip = 1; next; } |