| (* |
| * Licensed to the Apache Software Foundation (ASF) under one |
| * or more contributor license agreements. See the NOTICE file |
| * distributed with this work for additional information |
| * regarding copyright ownership. The ASF licenses this file |
| * to you under the Apache License, Version 2.0 (the |
| * "License"); you may not use this file except in compliance |
| * with the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| *) |
| |
| unit TestConstants; |
| |
| interface |
| |
| uses SysUtils, |
| Thrift.Protocol, Thrift.Protocol.Compact, Thrift.Protocol.JSON; |
| |
| type |
| TKnownProtocol = ( |
| prot_Binary, // default binary protocol |
| prot_JSON, // JSON protocol |
| prot_Compact |
| ); |
| |
| TServerType = ( |
| srv_Simple, |
| srv_Nonblocking, |
| srv_Threadpool, |
| srv_Threaded |
| ); |
| |
| TEndpointTransport = ( |
| trns_Sockets, |
| trns_MsxmlHttp, |
| trns_WinHttp, |
| trns_NamedPipes, |
| trns_AnonPipes, |
| trns_EvHttp // as listed on http://thrift.apache.org/test |
| ); |
| |
| TLayeredTransport = ( |
| trns_None, |
| trns_Buffered, |
| trns_Framed |
| ); |
| |
| TLayeredTransports = set of TLayeredTransport; |
| |
| {$SCOPEDENUMS ON} |
| TTestSize = ( |
| Empty, // Edge case: the zero-length empty binary |
| Normal, // Fairly small array of usual size (256 bytes) |
| ByteArrayTest, // THRIFT-4454 Large writes/reads may cause range check errors in debug mode |
| PipeWriteLimit, // THRIFT-4372 Pipe write operations across a network are limited to 65,535 bytes per write. |
| FifteenMB // quite a bit of data, but still below the default max frame size |
| ); |
| {$SCOPEDENUMS OFF} |
| |
| |
| |
| const |
| PROTOCOL_CLASSES : array[TKnownProtocol] of TProtocolImplClass = ( |
| TBinaryProtocolImpl, |
| TJSONProtocolImpl, |
| TCompactProtocolImpl |
| ); |
| |
| const |
| SERVER_TYPES : array[TServerType] of string |
| = ('Simple', 'Nonblocking', 'Threadpool', 'Threaded'); |
| |
| THRIFT_PROTOCOLS : array[TKnownProtocol] of string |
| = ('Binary', 'JSON', 'Compact'); |
| |
| LAYERED_TRANSPORTS : array[TLayeredTransport] of string |
| = ('None', 'Buffered', 'Framed'); |
| |
| ENDPOINT_TRANSPORTS : array[TEndpointTransport] of string |
| = ('Sockets', 'Http', 'WinHttp', 'Named Pipes','Anon Pipes', 'EvHttp'); |
| |
| HUGE_TEST_STRING = 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy ' |
| + 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam ' |
| + 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit ' |
| + 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam ' |
| + 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed ' |
| + 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. ' |
| + 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy ' |
| + 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam ' |
| + 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit ' |
| + 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam ' |
| + 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed ' |
| + 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. ' |
| + 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy ' |
| + 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam ' |
| + 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit ' |
| + 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam ' |
| + 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed ' |
| + 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. ' |
| + 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy ' |
| + 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam ' |
| + 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit ' |
| + 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam ' |
| + 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed ' |
| + 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. ' |
| + 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy ' |
| + 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam ' |
| + 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit ' |
| + 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam ' |
| + 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed ' |
| + 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. ' |
| + 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy ' |
| + 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam ' |
| + 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit ' |
| + 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam ' |
| + 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed ' |
| + 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. ' |
| + 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy ' |
| + 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam ' |
| + 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit ' |
| + 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam ' |
| + 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed ' |
| + 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. ' |
| + 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy ' |
| + 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam ' |
| + 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit ' |
| + 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam ' |
| + 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed ' |
| + 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. ' |
| + 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy ' |
| + 'eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam ' |
| + 'voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit ' |
| + 'amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam ' |
| + 'nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed ' |
| + 'diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet ' |
| + 'clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. '; |
| |
| |
| function BytesToHex( const bytes : TBytes) : string; |
| |
| function PrepareBinaryData( aRandomDist : Boolean; aSize : TTestSize) : TBytes; |
| |
| |
| implementation |
| |
| |
| function BytesToHex( const bytes : TBytes) : string; |
| var i : Integer; |
| begin |
| result := ''; |
| for i := Low(bytes) to High(bytes) do begin |
| result := result + IntToHex(bytes[i],2); |
| end; |
| end; |
| |
| |
| function PrepareBinaryData( aRandomDist : Boolean; aSize : TTestSize) : TBytes; |
| var i : Integer; |
| begin |
| case aSize of |
| TTestSize.Empty : SetLength( result, 0); |
| TTestSize.Normal : SetLength( result, $100); |
| TTestSize.ByteArrayTest : SetLength( result, SizeOf(TByteArray) + 128); |
| TTestSize.PipeWriteLimit : SetLength( result, 65535 + 128); |
| TTestSize.FifteenMB : SetLength( result, 15 * 1024 * 1024); |
| else |
| raise EArgumentException.Create('aSize'); |
| end; |
| |
| ASSERT( Low(result) = 0); |
| if Length(result) = 0 then Exit; |
| |
| // linear distribution, unless random is requested |
| if not aRandomDist then begin |
| for i := Low(result) to High(result) do begin |
| result[i] := i mod $100; |
| end; |
| Exit; |
| end; |
| |
| // random distribution of all 256 values |
| FillChar( result[0], Length(result) * SizeOf(result[0]), $0); |
| for i := Low(result) to High(result) do begin |
| result[i] := Byte( Random($100)); |
| end; |
| end; |
| |
| |
| |
| |
| end. |