rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Close Stream test feedback

Browse Source
This commit is contained in:
Adrián Arroyo Calle
2021-09-30 23:46:52 +02:00
parent 807abfef4f
commit f70685d53c
2 changed files with 2 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
tests-pl/issue1046-close-stream-client.pl
View File

@@ -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)
).

2
tests-pl/issue1046-close-stream.pl
View File

@@ -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", []),