Merge branch 'master' of git://git.exim.org/exim
authorJeremy Harris <jgh146exb@wizmail.org>
Sun, 22 Apr 2012 21:28:57 +0000 (22:28 +0100)
committerJeremy Harris <jgh146exb@wizmail.org>
Sun, 22 Apr 2012 21:28:57 +0000 (22:28 +0100)
test/README
test/runtest
test/stderr/3212

index 2a61503a2cf0eb7befd2f90fa28c4848c14d3836..b6d06e540f207aab9c0d89aaa7a97a008c64aa24 100644 (file)
@@ -361,7 +361,7 @@ default, the output is from the "cf" program, and might look like this:
   1 difference found.
   "test-stdout-munged" contains 16 lines; "stdout/1300" contains 18 lines.
 
-  Continue, Update & retry, Quit? [Q]
+  Continue, Retry, Update & retry, Quit? [Q]
 
 This example was generated by running the test with a version of Exim
 that had a bug in the exim_dbmbuild utility (the bug was fixed at release
@@ -370,7 +370,7 @@ used. In this case, the standard output differed from what was expected.
 
 The reply to the prompt must either be empty, in which case it takes the
 default that is given in brackets (in this case Q), or a single letter, in
-upper or lower case (in this case, one of C, U, or Q). If you type anything
+upper or lower case (in this case, one of C, R, U, or Q). If you type anything
 else, the prompt is repeated.
 
 "Continue" carries on as if the files had matched; that is, it ignores the
@@ -380,6 +380,8 @@ moving on to the next test.
 "Update & retry" copies the new file to the saved file, and reruns the test
 after doing any further comparisons that may be necessary.
 
+"Retry" does the same apart from the file copy.
+
 Other circumstances give rise to other prompts. If a test generates output for
 which there is no saved data, the prompt (after a message stating which file is
 unexpectely not empty) is:
index 31aaaa902e83364e7cbb081e9da724915447c2ec..c199539a54e41ccd785fff9efa0da5113dc21840 100755 (executable)
@@ -938,7 +938,7 @@ if ($_[1]) { $_ = "u"; print "... update forced\n"; }
 #             [4] TRUE if this is a log file whose deliveries must be sorted
 #
 # Returns:    0 comparison succeeded or differences to be ignored
-#             1 comparison failed; files were updated (=> re-compare)
+#             1 comparison failed; files may have been updated (=> re-compare)
 #
 # Does not return if the user replies "Q" to a prompt.
 
@@ -1096,9 +1096,10 @@ if (-e $sf)
   print "\n";
   for (;;)
     {
-    interact("Continue, Update & retry, Quit? [Q] ", $force_update);
+    interact("Continue, Retry, Update & retry, Quit? [Q] ", $force_update);
     tests_exit(1) if /^q?$/i;
     return 0 if /^c$/i;
+    return 1 if /^r$/i;
     last if (/^u$/i);
     }
   }
@@ -1130,7 +1131,7 @@ return 1;
 #
 # Arguments: none
 # Returns:   0 if the output compared equal
-#            1 if files were updated and the test must be re-run
+#            1 if re-run needed (files may have been updated)
 
 sub check_output{
 my($yield) = 0;
index 08ef71ff676a9c602e89723615d14333df0b8fce..ca304832867134a0a45ad957ecbaa93d8b55f851 100644 (file)
@@ -9,7 +9,7 @@ search_open: lsearch "TESTSUITE/aux-fixed/3212.aliases"
 search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   key="list" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   type=lsearch key="list"
@@ -21,7 +21,7 @@ search_open: lsearch "TESTSUITE/aux-fixed/3212.aliases"
 search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   key="list" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   type=lsearch key="list"
@@ -33,7 +33,7 @@ search_open: lsearch "TESTSUITE/aux-fixed/3212.aliases"
 search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   key="root" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   type=lsearch key="root"
@@ -45,7 +45,7 @@ search_open: lsearch "TESTSUITE/aux-fixed/3212.aliases"
 search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   key="root" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   type=lsearch key="root"
@@ -57,7 +57,7 @@ search_open: lsearch "TESTSUITE/aux-fixed/3212.aliases"
 search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   key="list" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   type=lsearch key="list"
@@ -68,7 +68,7 @@ search_open: testdb "NULL"
 search_find: file="NULL"
   key="something" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="NULL"
   type=testdb key="something"
@@ -79,7 +79,7 @@ search_open: testdb "NULL"
 search_find: file="NULL"
   key="something" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="NULL"
   type=testdb key="something"
@@ -90,7 +90,7 @@ search_open: testdb "NULL"
 search_find: file="NULL"
   key="nocache" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="NULL"
   type=testdb key="nocache"
@@ -102,7 +102,7 @@ search_open: testdb "NULL"
 search_find: file="NULL"
   key="something" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="NULL"
   type=testdb key="something"
@@ -113,7 +113,7 @@ search_open: lsearch "TESTSUITE/aux-fixed/3212.aliases"
 search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   key="list" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   type=lsearch key="list"
@@ -125,7 +125,7 @@ search_open: lsearch "TESTSUITE/aux-fixed/3212.aliases"
 search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   key="root" partial=-1 affix=NULL starflags=0
 LRU list:
-  :TESTSUITE/aux-fixed/3212.aliases
+  0TESTSUITE/aux-fixed/3212.aliases
   End
 internal_search_find: file="TESTSUITE/aux-fixed/3212.aliases"
   type=lsearch key="root"