163 lines
6.5 KiB
ObjectPascal
163 lines
6.5 KiB
ObjectPascal
{******************************************************************************}
|
|
{ }
|
|
{ Library: Fundamentals 5.00 }
|
|
{ File name: flcTCPTests.pas }
|
|
{ File version: 5.11 }
|
|
{ Description: TCP tests. }
|
|
{ }
|
|
{ Copyright: Copyright (c) 2007-2020, David J Butler }
|
|
{ All rights reserved. }
|
|
{ This file is licensed under the BSD License. }
|
|
{ See http://www.opensource.org/licenses/bsd-license.php }
|
|
{ Redistribution and use in source and binary forms, with }
|
|
{ or without modification, are permitted provided that }
|
|
{ the following conditions are met: }
|
|
{ Redistributions of source code must retain the above }
|
|
{ copyright notice, this list of conditions and the }
|
|
{ following disclaimer. }
|
|
{ THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND }
|
|
{ CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED }
|
|
{ WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED }
|
|
{ WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A }
|
|
{ PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL }
|
|
{ THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, }
|
|
{ INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR }
|
|
{ CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, }
|
|
{ PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF }
|
|
{ USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) }
|
|
{ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER }
|
|
{ IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING }
|
|
{ NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE }
|
|
{ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE }
|
|
{ POSSIBILITY OF SUCH DAMAGE. }
|
|
{ }
|
|
{ Github: https://github.com/fundamentalslib }
|
|
{ E-mail: fundamentals.library at gmail.com }
|
|
{ }
|
|
{ Revision history: }
|
|
{ }
|
|
{ 2010/12/15 0.01 Test for TLS client/server. }
|
|
{ 2011/01/02 0.02 Test for large buffers. }
|
|
{ 2011/04/22 0.03 Simple buffer tests. }
|
|
{ 2011/04/22 4.04 Test for multiple connections. }
|
|
{ 2011/10/13 4.05 SSL3 tests. }
|
|
{ 2012/04/19 4.06 Test for stopping and restarting client. }
|
|
{ 2015/04/26 4.07 Test for worker thread and blocking interface. }
|
|
{ 2016/01/08 5.08 Update for Fundamentals 5. }
|
|
{ 2018/09/08 5.09 Server tests with high connection count. }
|
|
{ 2019/04/16 5.10 Shutdown test. }
|
|
{ 2020/05/11 5.11 Move tests out into seperate units. }
|
|
{ }
|
|
{ Todo: }
|
|
{ - Test case socks proxy }
|
|
{ - Test case buffer full/empty events }
|
|
{ - Test case deferred shutdown }
|
|
{ - Test case throttling }
|
|
{ - Test case read/write rate reporting }
|
|
{ - Test case multiple proxies }
|
|
{ - Test case writing large chunks }
|
|
{ - Test case performance }
|
|
{ - Test case stress test (throughput and number of connections) }
|
|
{ - See SSL3 test case }
|
|
{******************************************************************************}
|
|
|
|
{$INCLUDE flcTCPTest.inc}
|
|
|
|
unit flcTCPTests;
|
|
|
|
interface
|
|
|
|
|
|
|
|
{ }
|
|
{ Test }
|
|
{ }
|
|
{$IFDEF TCP_TEST}
|
|
procedure Test;
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
flcTCPTest_Buffer
|
|
{$IFDEF TCPCLIENT_TEST},
|
|
flcTCPTest_Client
|
|
{$ENDIF}
|
|
{$IFDEF TCPCLIENT_TEST_TLS},
|
|
flcTCPTest_ClientTLS
|
|
{$ENDIF}
|
|
{$IFDEF TCPSERVER_TEST},
|
|
flcTCPTest_Server
|
|
{$ENDIF}
|
|
{$IFDEF TCPSERVER_TEST_TLS},
|
|
flcTCPTest_ServerTLS
|
|
{$ENDIF}
|
|
{$IFDEF TCPCLIENTSERVER_TEST},
|
|
flcTCPTest_ClientServer
|
|
{$ENDIF}
|
|
{$IFDEF TCPCLIENTSERVER_TEST_TLS},
|
|
flcTCPTest_ClientServerTLS
|
|
{$ENDIF}
|
|
;
|
|
|
|
|
|
|
|
{$IFDEF TCP_TEST}
|
|
{$ASSERTIONS ON}
|
|
procedure Test_Buffer;
|
|
begin
|
|
flcTCPTest_Buffer.Test;
|
|
end;
|
|
|
|
{$IFDEF TCPCLIENT_TEST}
|
|
procedure Test_Client;
|
|
begin
|
|
flcTCPTest_Client.Test;
|
|
{$IFDEF TCPCLIENT_TEST_TLS}
|
|
flcTCPTest_ClientTLS.Test;
|
|
{$ENDIF}
|
|
end;
|
|
{$ENDIF}
|
|
|
|
{$IFDEF TCPSERVER_TEST}
|
|
procedure Test_Server;
|
|
begin
|
|
flcTCPTest_Server.Test;
|
|
{$IFDEF TCPSERVER_TEST_TLS}
|
|
flcTCPTest_ServerTLS.Test;
|
|
{$ENDIF}
|
|
end;
|
|
{$ENDIF}
|
|
|
|
{$IFDEF TCPCLIENTSERVER_TEST}
|
|
procedure Test_ClientServer;
|
|
begin
|
|
flcTCPTest_ClientServer.Test;
|
|
{$IFDEF TCPCLIENTSERVER_TEST_TLS}
|
|
flcTCPTest_ClientServerTLS.Test;
|
|
{$ENDIF}
|
|
end;
|
|
{$ENDIF}
|
|
|
|
procedure Test;
|
|
begin
|
|
Test_Buffer;
|
|
{$IFDEF TCPSERVER_TEST}
|
|
Test_Server;
|
|
{$ENDIF}
|
|
{$IFDEF TCPCLIENT_TEST}
|
|
Test_Client;
|
|
{$ENDIF}
|
|
{$IFDEF TCPCLIENTSERVER_TEST}
|
|
Test_ClientServer;
|
|
{$ENDIF}
|
|
end;
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
end.
|
|
|