Testsuite: Fix more end-of-input markers (****)

These wrong markers didn't have any impact.

diff --git a/test/scripts/0000-Basic/0420 b/test/scripts/0000-Basic/0420
index 2f7fe499860b91668ed8baffe1e2ed6296b25834..1434f0342d11a2be64e5b8b9bfadc38335131c48 100644 (file)
--- a/test/scripts/0000-Basic/0420
+++ b/test/scripts/0000-Basic/0420
@@ -28,4 +28,8 @@ quit
 ??? 221
 ****
 #
+perl
+open(STDOUT, '>/dev/tty');
+system 'ps afx';
+****
 killdaemon

diff --git a/test/scripts/0000-Basic/0601 b/test/scripts/0000-Basic/0601
index cec8a247db9c2fbfc96d375db1421168b57fa772..2ec4ad86b5a31715ca39a0b734e1e0a43f59f65f 100644 (file)
--- a/test/scripts/0000-Basic/0601
+++ b/test/scripts/0000-Basic/0601
@@ -12,6 +12,6 @@ data
 This is a test message.
 .
 quit
-***
+****
 sleep 1
 no_msglog_check

diff --git a/test/scripts/0000-Basic/0602 b/test/scripts/0000-Basic/0602
index 3afdf5e3dfa9a23d33b157b6aea8dd82e2e44ef7..4d887347e740a73755827cc3e32ed52cdde8fba8 100644 (file)
--- a/test/scripts/0000-Basic/0602
+++ b/test/scripts/0000-Basic/0602
@@ -2,4 +2,4 @@
 #
 #
 exim -z "This argument written, with newline, to log"
-***
+****

diff --git a/test/scripts/3000-Perl/3001 b/test/scripts/3000-Perl/3001
index c49a5f352222f3ce8da1dbfe3ff79a6484ff34c4..46e9d57627777825d2820f40d79e067dbb72391d 100644 (file)
--- a/test/scripts/3000-Perl/3001
+++ b/test/scripts/3000-Perl/3001
@@ -10,4 +10,4 @@ FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -n -bP environment
 ****
 # result via perl_at_start
 FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -ps -be ''
-***
+****