t_id
886
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-2127972985 | 497919 | False | True | Skipping test because for other target |
Record count: 1
{ %target=win32 } uses DOS; var error : boolean; procedure Expand(FileMask: string); var FileMaskOut : string; begin WriteLn; WriteLn('Expanding "',FileMask,'"'); FileMaskOut := FExpand(FileMask); WriteLn('To become "',FileMaskOut,'"'); if FileMask<>FileMaskOut then error:=true; end; begin Expand('C:Windows1System'); Expand('\.CWindows1System'); Expand('C:Windows1System'); if error then begin Writeln('ERROR!'); Halt(1); end; end.