From f70685d53c4cd192f8468ad7f29fb3c14b3d2d92 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Adri=C3=A1n=20Arroyo=20Calle?= Date: Thu, 30 Sep 2021 23:46:52 +0200 Subject: [PATCH] Close Stream test feedback --- tests-pl/issue1046-close-stream-client.pl | 22 +--------------------- tests-pl/issue1046-close-stream.pl | 2 +- 2 files changed, 2 insertions(+), 22 deletions(-) diff --git a/tests-pl/issue1046-close-stream-client.pl b/tests-pl/issue1046-close-stream-client.pl index db192ddc..edfcd130 100644 --- a/tests-pl/issue1046-close-stream-client.pl +++ b/tests-pl/issue1046-close-stream-client.pl @@ -7,26 +7,6 @@ test :- Addr = '0.0.0.0', Port = 5000, socket_client_open(Addr:Port, Stream, [type(binary)]), - read_line(Stream, Line), + read_line_to_chars(Stream, Line, []), write(Line), close(Stream). - - -read_line(Stream, Line) :- - get_byte(Stream, Char), - ( Char = -1 -> - Line = [] - ; Char = 13 -> - read_line(Stream, Line) - ; Char = 10 -> - Line = [] - ; (read_line(Stream, Line0), Line = [Char|Line0]) - ). - -read_message(Stream, [Cs|Message]) :- - read_line(Stream, Bs), - chars_utf8bytes(Cs, Bs), - ( Cs = "." -> - Message = [] - ; read_message(Stream, Message) - ). diff --git a/tests-pl/issue1046-close-stream.pl b/tests-pl/issue1046-close-stream.pl index 63792059..e29202f3 100644 --- a/tests-pl/issue1046-close-stream.pl +++ b/tests-pl/issue1046-close-stream.pl @@ -9,7 +9,7 @@ test :- Addr = '0.0.0.0', Port = 5000, - once(socket_server_open(Addr:Port, Socket)), + socket_server_open(Addr:Port, Socket), format("Listening at port ~d\n", [Port]), socket_server_accept(Socket, _Client, Stream, [type(binary)]), format(Stream, "FIRST\r\n", []), -- 2.54.0