fpcsrc/tests/webtbs/tw13583.pp


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

{ %recompile }

uses
  uw13583;

begin
  writeln(DEFAULT_SIGNATURE);
  if ('edb_signature' <> DEFAULT_SIGNATURE) then
    halt(1);
  writeln(DEFAULT_SIGNATURE2);
  if ('edb_signature2' <> DEFAULT_SIGNATURE2) then
    halt(1);
end.