t_id
746
t_adddate
2003/10/03
Flag
t_interactive
set
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Skipping test because it is interactive | 50 | 100.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 28.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 34.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 16.0 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 34 | 68.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 32.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ %INTERACTIVE } { %TARGET=win32,linux } { Source provided for Free Pascal Bug Report 966 } {$i-} uses {$ifdef Unix} linux, {$else} crt, {$endif} Sockets; Var S : Longint ; Sin,Sout: Text; Temp, Temp2 : Char; i : longint; const isocket: TInetSockAddr= ( Family:AF_INET; Port:$1500; Addr:((93*256+36)*256+161)*256+130); {*** ftp 130.161.36.93 i.e. ftp.freepascal.org } { FIXME: it would be much better to have the number through a name server but I don't know how to do this ! PM } procedure perror(const S: string); begin writeln(S,SocketError); halt(100) ; end; procedure read_to_eof; var temp2 : char; begin {$ifdef Unix} while selecttext(sin,1)>0 do begin read(Sin,Temp2); write(Temp2); end; {$else} repeat until not eof(sin); while not eof(sin) do begin read(Sin,Temp2); write(Temp2); delay(1); end; {$endif} end; begin S:=Socket(AF_INET,SOCK_STREAM,0); if SocketError<>0 then Perror('Client : Socket : '); WriteLn('*1'); if not Connect(s,isocket,sin,sout)then Perror('Client : Socket : '); WriteLn('*2'); ReWrite(Sout); Reset(Sin); WriteLn('*3'); read_to_eof; Writeln('Sending "USER anonymous#10"'); Write(Sout,'USER anonymous'#10); read_to_eof; Writeln('Sending "PASS core@freepascal.org#10"'); Write(Sout,'PASS core@freepascal.org'#10); read_to_eof; Writeln('Sending "QUIT#10"'); Write(Sout,'QUIT'#10); read_to_eof; shutdown(s,2); close(sin); close(sout); end.