t_id
231
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=39 Percentage= 78.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Failed to run | 11 | 22.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
i386 | 4 | 36.4 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasm32 | 7 | 63.6 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
go32v2 | 4 | 36.4 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 63.6 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 11 | 100.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
Successfully run | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
powerpc | 14 | 35.9 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 43.6 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
riscv64 | 8 | 20.5 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 100.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
3.3.1 | 23 | 59.0 | 2024/09/26 18:42:00 90 | 2024/09/26 20:38:00 84 | |
3.2.3 | 16 | 41.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ checks if the correct RTE's are generated for invalid io operations } {$i-} const TMP_DIRECTORY = 'temp2'; has_fails : boolean = false; procedure test(value, required: longint); begin if value <> required then begin writeln('Got ',value,' instead of ',required); has_fails:=true; {halt(1);} end; end; procedure test_read_text; var f: text; s: string; begin { to avoid influence of previous runs/procedures } fillchar(f,sizeof(f),0); write('Reading from not opened text file...'); read(f,s); test(ioresult,103); readln(f); test(ioresult,103); writeln(' Passed!'); write('Seekeoln from not opened text file...'); seekeoln(f); test(ioresult,103); writeln(' Passed!'); write('Seekeof from not opened text file...'); seekeof(f); test(ioresult,103); writeln(' Passed!'); assign(f,'inoutrte.$$$'); rewrite(f); test(ioresult,0); write('Reading from write-only (rewritten) text file...'); read(f,s); test(ioresult,104); readln(f); test(ioresult,104); writeln(' Passed!'); write('Seekeoln from write-only (rewritten) text file...'); seekeoln(f); test(ioresult,104); writeln(' Passed!'); write('Seekeof from write-only (rewritten) text file...'); seekeof(f); test(ioresult,104); writeln(' Passed!'); close(f); test(ioresult,0); append(f); test(ioresult,0); write('Reading from write-only (appended) text file...'); read(f,s); test(ioresult,104); readln(f); test(ioresult,104); writeln(' Passed!'); write('Seekeoln from write-only (appended) text file...'); seekeoln(f); test(ioresult,104); writeln(' Passed!'); write('Seekeof from write-only (appended) text file...'); seekeof(f); test(ioresult,104); writeln(' Passed!'); close(f); test(ioresult,0); erase(f); test(ioresult,0); end; procedure test_read_typed; var f: file of byte; s: byte; begin { to avoid influence of previous runs/procedures } fillchar(f,sizeof(f),0); write('Reading from not opened typed file...'); read(f,s); test(ioresult,103); writeln(' Passed!'); { with filemode 2, the file is read-write } filemode := 1; assign(f,'inoutrte.$$$'); rewrite(f); test(ioresult, 0); write(f,s); test(ioresult, 0); close(f); test(ioresult, 0); reset(f); test(ioresult, 0); write('Reading from write-only typed file...'); read(f,s); test(ioresult,104); writeln(' Passed!'); filemode := 2; close(f); test(ioresult, 0); erase(f); test(ioresult, 0); end; procedure test_read_untyped; var f: file; r: longint; s: byte; begin { to avoid influence of previous runs/procedures } fillchar(f,sizeof(f),0); write('Reading from not opened untyped file...'); blockread(f,s,1,r); test(ioresult,103); writeln(' Passed!'); { with filemode 2, the file is read-write } filemode := 1; assign(f,'inoutrte.$$$'); rewrite(f); test(ioresult, 0); blockwrite(f,s,1); test(ioresult, 0); close(f); test(ioresult, 0); reset(f); test(ioresult, 0); write('Reading from write-only utyped file...'); blockread(f,s,1,r); test(ioresult,104); writeln(' Passed!'); filemode := 2; close(f); test(ioresult, 0); erase(f); test(ioresult, 0); end; procedure test_write_text; var f: text; s: string; begin { to avoid influence of previous runs/procedures } fillchar(f,sizeof(f),0); write('Writing to not opened text file...'); write(f,s); test(ioresult,103); writeln(f); test(ioresult,103); writeln(' Passed!'); assign(f,'inoutrte.$$$'); rewrite(f); close(f); test(ioresult,0); reset(f); test(ioresult,0); write('Writing to read-only text file...'); write(f,s); test(ioresult,105); writeln(f); test(ioresult,105); Writeln(' Passed!'); close(f); test(ioresult,0); erase(f); test(ioresult,0); end; procedure test_write_typed; var f: file of byte; s: byte; begin { to avoid influence of previous runs/procedures } fillchar(f,sizeof(f),0); write('Writing to not opened typed file...'); write(f,s); test(ioresult,103); writeln(' Passed!'); assign(f,'inoutrte.$$$'); rewrite(f); close(f); test(ioresult,0); filemode := 0; reset(f); test(ioresult,0); write('Writing to read-only typed file...'); write(f,s); test(ioresult,105); Writeln(' Passed!'); filemode := 2; close(f); test(ioresult,0); erase(f); test(ioresult,0); end; procedure test_write_untyped; var f: file; r: longint; s: byte; begin { to avoid influence of previous runs/procedures } fillchar(f,sizeof(f),0); write('Writing to not opened untyped file...'); blockwrite(f,s,1,r); test(ioresult,103); writeln(' Passed!'); assign(f,'inoutrte.$$$'); rewrite(f); close(f); test(ioresult,0); filemode := 0; reset(f); test(ioresult,0); write('Writing to read-only untyped file...'); blockwrite(f,s,1,r); test(ioresult,105); Writeln(' Passed!'); filemode := 2; close(f); test(ioresult,0); erase(f); test(ioresult,0); end; procedure test_close_text; var f: text; begin { to avoid influence of previous runs/procedures } fillchar(f,sizeof(f),0); write('Testing closing of not opened text file...'); close(f); test(ioresult,103); writeln(' Passed!'); end; procedure test_close_typed; var f: file of byte; begin { to avoid influence of previous runs/procedures } fillchar(f,sizeof(f),0); write('Testing closing of not opened typed file...'); close(f); test(ioresult,103); writeln(' Passed!'); end; procedure test_close_untyped; var f: file; begin { to avoid influence of previous runs/procedures } fillchar(f,sizeof(f),0); write('Testing closing of not opened untyped file...'); close(f); test(ioresult,103); writeln(' Passed!'); end; procedure test_fileroutines; var F: File; L: longint; begin { get the file position of a non-existent file } write('Testing Filepos on non initialized file...'); l:=FilePos(F); test(IOresult,103); writeln(' Passed!'); write('Testing Filesize on non initialized file...'); l:=FileSize(F); test(IOresult,103); writeln(' Passed!'); end; procedure test_directory; var F: File; { test directory I/O } begin { test on non-existant directory } write('Testing change directory on non-existent file...'); ChDir('notexist'); test(IOResult,3); { test on a file } ChDir('testdir.pas'); test(IOResult,3); Writeln(' Passed!'); { test on non-existant directory } {$ifdef go32v2} ChDir('Y: est.dir'); test(IOResult,15); {$endif} { make a stub directory for testing purposes } Mkdir(TMP_DIRECTORY); test(IOResult,0); { try to recreate the directory .... } write('Testing make directory on already existent dir...'); MkDir(TMP_DIRECTORY); test(IOResult,5); Writeln(' Passed!'); { try to erase the directory, using file access } write('Testing erase of directory...'); Assign(F,TMP_DIRECTORY); Erase(F); test(IOResult,2); Writeln(' Passed!'); { now really remove the directory } RmDir(TMP_DIRECTORY); test(IOResult,0); { remove non-existant directory } write('Testing remove directory of non-existent file...'); RmDir('testdir.exe'); { TP here returns 5 , not 2 } test(IOResult,2); Writeln(' Passed!'); { erase non-existant file } write('Testing erase of non-existent file...'); Assign(F,'notexist.txt'); Erase(F); test(IOResult,2); WriteLn(' Passed!'); { try to erase the current directory } write('Trying to erase current directory...'); RmDir('.'); test(IOResult, 16); WriteLn(' Passed!'); { try to erase the previous directory } write('Trying to erase parent directory...'); RmDir('..'); test(IOResult, 5); WriteLn(' Passed!'); end; begin test_read_text; test_read_typed; test_read_untyped; test_write_text; test_write_typed; test_write_untyped; test_close_text; test_close_typed; test_close_untyped; test_directory; test_fileroutines; if has_fails then halt(1); end. { $Log: tiorte.pp,v $ Revision 1.6 2002/10/15 12:05:49 pierre - * changed so that all tests are done even after a failure Revision 1.5 2002/09/07 15:40:56 peter * old logs removed and tabs fixed Revision 1.4 2002/03/09 23:17:35 carl * removing current directory should return 16 Revision 1.3 2002/03/05 21:53:18 carl + tests on removing current directory and parent directory }