program teststompclient;
{$APPTYPE CONSOLE}

uses
  MainU in 'MainU.pas',
  SysUtils,
  StompClient in '..\StompClient.pas',
  StompTypes in '..\StompTypes.pas';

begin
  try
    // Main;
    MainWithTransaction;
    // Test_Unicode_Chars; //Non passa
    Writeln('ALL TESTS OK');
  except
    on E: Exception do
      Writeln(E.Classname, ': ', E.message);
  end;

  // readln;
end.