t_id
226
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/16 21:24:00 47 | 2024/05/16 23:57:00 23 | |
i386 | 16 | 32.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
sparc | 16 | 32.0 | 2024/05/16 23:24:00 38 | 2024/05/16 23:55:00 41 | |
powerpc | 6 | 12.0 | 2024/05/16 21:24:00 47 | 2024/05/16 22:06:00 76 | |
x86_64 | 12 | 24.0 | 2024/05/16 22:22:00 29 | 2024/05/16 22:53:00 29 | |
linux | 8 | 16.0 | 2024/05/16 21:24:00 47 | 2024/05/16 23:46:00 27 | |
win32 | 4 | 8.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
solaris | 38 | 76.0 | 2024/05/16 22:22:00 29 | 2024/05/16 23:55:00 41 | |
3.3.1 | 24 | 48.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:57:00 23 | |
3.2.3 | 26 | 52.0 | 2024/05/16 21:24:00 47 | 2024/05/16 23:55:00 41 |
{ Program to test OS-specific features of the system unit } { routines to test: } { mkdir() } { chdir() } { This program shoulf not be executed in a root directory } { Creates the following directory, and sets it as the } { current directory. } { ../testdir } Program tdir; {$I-} procedure test(value, required: longint); begin if value <> required then begin writeln('Got ',value,' instead of ',required); halt(1); end; end; var s: string; Begin Write('changing to parent directory...'); chdir('..'); test(IOResult, 0); WriteLn('Passed!'); Write('making directory...'); mkdir('testdir'); test(IOResult, 0); WriteLn('Passed!'); Write('going into the newly created directory...'); chdir('testdir'); test(IOResult, 0); WriteLn('Passed!'); Write('making directory...'); mkdir('testdir2'); test(IOResult, 0); WriteLn('Passed!'); Write('removing directory ...'); rmdir('testdir2'); test(IOResult, 0); WriteLn('Passed!'); Write('going directory up ...'); chdir('..'); test(IOResult, 0); WriteLn('Passed!'); Write('removing directory ...'); rmdir('testdir'); test(IOResult, 0); WriteLn('Passed!'); WriteLn('getting current directory...'); getdir(0,s); WriteLn(s); end. { $Log: tdir.pp,v $ Revision 1.4 2002/09/07 15:40:56 peter * old logs removed and tabs fixed Revision 1.3 2002/03/05 21:54:22 carl + cleanup }