blob: b02fd02b01c8089497acbaa65d6fa7ff7707f612 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %opt=-Mdelphi -Sa }
program t_testconvunit;
uses Sysutils, u_testconvunit;
begin
Randomize();
try
if not testconvunit_test_silent() then
begin
//WriteLn('*');
Halt(1);
end;
except on E: Exception do
begin
Halt(2);
end;
end;
Halt(0);
end.
|
