1
{ Program to test OS-specific features of the system unit }
5
{ This program shoulf not be executed in a root directory }
6
{ Creates the following directory, and sets it as the }
15
procedure test(value, required: longint);
17
if value <> required then
19
writeln('Got ',value,' instead of ',required);
29
Write('changing to parent directory...');
34
Write('making directory...');
39
Write('going into the newly created directory...');
44
Write('making directory...');
49
Write('removing directory ...');
55
Write('going directory up ...');
60
Write('removing directory ...');
65
WriteLn('getting current directory...');