tests/test/tweaklib4.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ %target=darwin }

uses
  sysutils;

var
  res: longint;
begin
  res:=executeprocess('./tweaklib2','1');
  if (res<>0) then
    begin
      writeln('error: ',res);
      halt(1);
    end;
end.