summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeremy Harris <jgh146exb@wizmail.org>2023-02-26 13:12:50 +0000
committerJeremy Harris <jgh146exb@wizmail.org>2023-02-26 13:12:50 +0000
commit03755744c9c07af50c92f44d287f1c4ea0db71be (patch)
treea4c58157a49b3e0d885d7aa958dbb658db26718f
parenta7079166663db0d37e659f36e75589738873c18d (diff)
Testsuite: env var for command
-rw-r--r--test/README11
-rwxr-xr-xtest/runtest3
2 files changed, 13 insertions, 1 deletions
diff --git a/test/README b/test/README
index f934c0d2d..6c9a2d8da 100644
--- a/test/README
+++ b/test/README
@@ -696,6 +696,17 @@ be replaced by the local host's name. Long commands can be continued over
several lines by using \ as a continuation character. This does *not* apply to
data lines.
+A line with a leading number followed by a space and then an uppercase
+word, equals character, value sets an expected return code as above
+plus an environment variable. Example:
+
+ 255 TZ=GB
+ exim_msgdate -l -u -z -localhost_number=20 000000 1PANS3 ZZZZZZ
+ ****
+
+
+
+
Here follows a list of supported commands. They can be divided into two groups:
diff --git a/test/runtest b/test/runtest
index 3931b06d4..137f8dac6 100755
--- a/test/runtest
+++ b/test/runtest
@@ -2304,10 +2304,11 @@ my($yield) = 1;
our %ENV = map { $_ => $ENV{$_} } grep { /^(?:USER|SHELL|PATH|TERM|EXIM_TEST_.*)$/ } keys %ENV;
-if (/^(\d+)\s*$/) # Handle unusual return code
+if (/^(\d+)\s*(?:([A-Z]+)=(\S+))?$/) # Handle unusual return code
{
my($r) = $_[2];
$$r = $1 << 8;
+ $ENV{$2} = $3 if (defined $2);
$_ = <SCRIPT>;
return 4 if !defined $_; # Missing command
$lineno++;