fpcsrc/tests/test/alglib/t_testfhtunit.pp


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

{ %opt=-Mdelphi -Sa }
program t_testfhtunit;
uses Sysutils, u_testfhtunit;

begin
    Randomize();
    try 
        if not testfhtunit_test_silent() then
        begin
            //WriteLn('*');
            Halt(1);
        end;
    except on E: Exception do 
        begin
            Halt(2);
        end;
    end;
    Halt(0);
end.