blob: e647d784ed166067a59b3ac7cb8587670783eb95 (
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_testcorrunit;
uses Sysutils, u_testcorrunit;
begin
Randomize();
try
if not testcorrunit_test_silent() then
begin
//WriteLn('*');
Halt(1);
end;
except on E: Exception do
begin
Halt(2);
end;
end;
Halt(0);
end.
|
