git://git.exim.org
/
exim.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4a452c4
)
Testsuite: Fix the [U]pdate for new testcases
author
Heiko Schlittermann (HS12)
<hs@schlittermann.de>
Wed, 6 May 2015 21:16:59 +0000
(23:16 +0200)
committer
Heiko Schlittermann (HS12)
<hs@schlittermann.de>
Wed, 6 May 2015 21:16:59 +0000
(23:16 +0200)
test/runtest
patch
|
blob
|
history
diff --git
a/test/runtest
b/test/runtest
index f0a633d611642bd91a585333a81f45d31eaa8511..f215bf4debff51ba8dd36c5352269611720095d1 100755
(executable)
--- a/
test/runtest
+++ b/
test/runtest
@@
-20,6
+20,7
@@
use Socket;
use Time::Local;
use Cwd;
use File::Basename;
use Time::Local;
use Cwd;
use File::Basename;
+use if $ENV{DEBUG} && $ENV{DEBUG} =~ /\bruntest\b/ => ('Smart::Comments' => '####');
# Start by initializing some global variables
# Start by initializing some global variables
@@
-322,6
+323,8
@@
my($extra) = $_[1];
my($yield) = 0;
my(@saved) = ();
my($yield) = 0;
my(@saved) = ();
+local $_;
+
open(IN, "$file") || tests_exit(-1, "Failed to open $file: $!");
my($is_log) = $file =~ /log/;
open(IN, "$file") || tests_exit(-1, "Failed to open $file: $!");
my($is_log) = $file =~ /log/;
@@
-1069,7
+1072,7
@@
return $yield;
# Arguments: [0] the prompt string
# [1] if there is a U in the prompt and $force_update is true
# [2] if there is a C in the prompt and $force_continue is true
# Arguments: [0] the prompt string
# [1] if there is a U in the prompt and $force_update is true
# [2] if there is a C in the prompt and $force_continue is true
-# Returns:
nothing (it sets $_)
+# Returns:
returns the answer
sub interact{
print $_[0];
sub interact{
print $_[0];
@@
-1178,6
+1181,8
@@
if (! -e $sf_current)
}
}
}
}
+#### $_
+
# Control reaches here if either (a) there is a saved file ($sf), or (b) there
# was a request to create a saved file. First, create the munged file from any
# data that does exist.
# Control reaches here if either (a) there is a saved file ($sf), or (b) there
# was a request to create a saved file. First, create the munged file from any
# data that does exist.