cdffdd25e1
Defines are defined in wsdefines.pas Removing SUPEROBJECT allow to release under MPL license (which i expect) Also fix * bug : framing encoding when sending a frame in multiple parts (fin=false) * bug : TIdIOHandlerWebsocket TIdIOHandlerWebsocket.ReadFrame _WaitByte ; may hang Other changes * Refactoring of TIdServerWebsocketHandling.ProcessServerCommandGet for inheritance * Add event (TIdServerWSContext) to accept or refuse upgrade (allow to check session cookie) * Change TWebsocketChannelRequest var aType:TWSDataType to allow receiving in a mode and answering in an other To use OpenSSL you need a modification in IdSSLOpenSSL to let overwrite TIdSSLIOHandlerSocketOpenSSL class
33 lines
817 B
ObjectPascal
33 lines
817 B
ObjectPascal
program UnitTestWebsockets;
|
|
{
|
|
|
|
Delphi DUnit Test Project
|
|
-------------------------
|
|
This project contains the DUnit test framework and the GUI/Console test runners.
|
|
Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options
|
|
to use the console test runner. Otherwise the GUI test runner will be used by
|
|
default.
|
|
|
|
}
|
|
|
|
{$IFDEF CONSOLE_TESTRUNNER}
|
|
{$APPTYPE CONSOLE}
|
|
{$ENDIF}
|
|
|
|
//{$IFNDEF USE_JEDI_JCL} {$MESSAGE ERROR 'Must define "USE_JEDI_JCL" for location info of errors'} {$ENDIF}
|
|
|
|
{$R *.RES}
|
|
|
|
uses
|
|
DUnitTestRunner,
|
|
TestFramework,
|
|
mtTestWebSockets in 'mtTestWebSockets.pas',
|
|
IdHTTPWebsocketClient in '..\IdHTTPWebsocketClient.pas',
|
|
superobject in '..\superobject\superobject.pas';
|
|
|
|
begin
|
|
RegisterTest(TTestWebSockets.Suite);
|
|
|
|
DUnitTestRunner.RunRegisteredTests;
|
|
end.
|
|
|