File 3203-ftp-Fix-test-case-logic.patch of Package erlang
From 98c6d8e4447350a316724d4b699661b2e530dc30 Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Mon, 8 Feb 2021 12:31:14 +0100
Subject: [PATCH 3/6] ftp: Fix test case logic
---
lib/ftp/test/ftp_SUITE.erl | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lib/ftp/test/ftp_SUITE.erl b/lib/ftp/test/ftp_SUITE.erl
index b2cdd882c6..dfb85ff387 100644
--- a/lib/ftp/test/ftp_SUITE.erl
+++ b/lib/ftp/test/ftp_SUITE.erl
@@ -1007,9 +1007,9 @@ clean_shutdown(Config) ->
exit(HelperPid, shutdown),
timer:sleep(2000),
error_logger:logfile(close),
- case is_error_report_6035(LogFile) of
- true -> ok;
- false -> {fail, "Bad logfile"}
+ case unwanted_error_report(LogFile) of
+ true -> {fail, "Bad logfile"};
+ false -> ok
end
end.
@@ -1395,11 +1395,11 @@ progress_report_receiver_loop(Parent, N) ->
%%%----------------------------------------------------------------
%%% Help functions for bug OTP-6035
-is_error_report_6035(LogFile) ->
+unwanted_error_report(LogFile) ->
case file:read_file(LogFile) of
{ok, Bin} ->
nomatch =/= binary:match(Bin, <<"=ERROR REPORT====">>);
_ ->
- false
+ ct:fail({no_logfile, LogFile})
end.
--
2.26.2