source upload
This commit is contained in:
Razor12911
162
contrib/fundamentals/TCP/Tests/flcTCPTests.pas
Normal file
162
contrib/fundamentals/TCP/Tests/flcTCPTests.pas
Normal file
@@ -0,0 +1,162 @@
|
||||
{******************************************************************************}
|
||||
{ }
|
||||
{ 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.
|
||||
|
||||
Reference in New Issue
Block a user