t_id
786
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
443750383 | 934980 | False | False | Failed to run |
Record count: 1
Exitcode: 1 (expected 0)
{$mode objfpc} uses sysutils; procedure testff(const s: string); var sr: tsearchrec; i : integer; begin i:=0; if findfirst(s,faAnyFile,sr)=0 then repeat writeln(sr.name); inc(i); until findnext(sr)<>0; findclose(sr); if (i=0) then halt(1); end; begin {$ifdef UNIX} testff('/etc/host*'); {$else} testff('c:autoexec.*'); {$endif} end.