pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Part 4

Browse Source 
runtime WSDL generation : 
  * class inheritance is handled correctly
  * record type handling
  * tests
several warnings get fixed

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@544 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-09-10 01:23:29 +00:00
parent d7f0f07c54
commit d11e89466f
5 changed files with 34 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
wst/trunk/tests/test_suite/testformatter_unit.pas
View File

@ -601,8 +601,6 @@ end;
function CompareNodes(const A,B : PDataBuffer) : Boolean;overload; function CompareNodes(const A,B : PDataBuffer) : Boolean;overload;
var var
ca, cb : PObjectBufferItem;
i : PtrInt;
ok : Boolean; ok : Boolean;
begin begin
if ( A = nil ) and ( B = nil ) then begin if ( A = nil ) and ( B = nil ) then begin
@ -1842,6 +1840,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfStringRemotable.Create(); a := TArrayOfStringRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -1893,6 +1892,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
b := nil; b := nil;
a := TArrayOfStringRemotable.Create(); a := TArrayOfStringRemotable.Create();
try try
@ -1966,6 +1966,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfStringRemotable.Create(); a := TArrayOfStringRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2004,6 +2005,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfBooleanRemotable.Create(); a := TArrayOfBooleanRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2054,6 +2056,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfInt8URemotable.Create(); a := TArrayOfInt8URemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2104,6 +2107,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfInt8SRemotable.Create(); a := TArrayOfInt8SRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2154,6 +2158,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfInt16SRemotable.Create(); a := TArrayOfInt16SRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2204,6 +2209,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfInt16URemotable.Create(); a := TArrayOfInt16URemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2254,6 +2260,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfInt32URemotable.Create(); a := TArrayOfInt32URemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2304,6 +2311,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfInt32SRemotable.Create(); a := TArrayOfInt32SRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2354,6 +2362,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfInt64SRemotable.Create(); a := TArrayOfInt64SRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2404,6 +2413,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfInt64URemotable.Create(); a := TArrayOfInt64URemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2454,6 +2464,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfFloatSingleRemotable.Create(); a := TArrayOfFloatSingleRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2504,6 +2515,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfFloatDoubleRemotable.Create(); a := TArrayOfFloatDoubleRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2554,6 +2566,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfFloatExtendedRemotable.Create(); a := TArrayOfFloatExtendedRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -2604,6 +2617,7 @@ var
s : TMemoryStream; s : TMemoryStream;
x : string; x : string;
begin begin
s := nil;
a := TArrayOfFloatCurrencyRemotable.Create(); a := TArrayOfFloatCurrencyRemotable.Create();
try try
CheckEquals(0,a.Length); CheckEquals(0,a.Length);
@ -3680,7 +3694,7 @@ var
strm : TMemoryStream; strm : TMemoryStream;
envNd : TDOMElement; envNd : TDOMElement;
bdyNd, fltNd, hdrNd, tmpNode : TDOMNode; bdyNd, fltNd, tmpNode : TDOMNode;
nsShortName,eltName, msgBuff : string; nsShortName,eltName, msgBuff : string;
doc : TXMLDocument; doc : TXMLDocument;
begin begin
@ -3982,8 +3996,6 @@ var
callNode : TDOMElement; callNode : TDOMElement;
faultNode, faultStruct, tmpNode : TDOMNode; faultNode, faultStruct, tmpNode : TDOMNode;
doc : TXMLDocument; doc : TXMLDocument;
eltName : string;
excpt_Obj : EXmlRpcException;
excpt_code, excpt_msg : string; excpt_code, excpt_msg : string;
begin begin
f := CreateFormatter(); f := CreateFormatter();
@ -4165,7 +4177,7 @@ const
var var
f : IFormatterClient; f : IFormatterClient;
strm : TMemoryStream; strm : TMemoryStream;
root, bodyNode, faultNode, tmpNode : PDataBuffer; root, bodyNode, faultNode : PDataBuffer;
excpt_code, excpt_msg : string; excpt_code, excpt_msg : string;
locStore : IDataStore; locStore : IDataStore;
begin begin

7
wst/trunk/tests/test_suite/wst_test_suite.lpi
View File

@ -26,7 +26,7 @@
<PackageName Value="FPCUnitTestRunner"/> <PackageName Value="FPCUnitTestRunner"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="38"> <Units Count="39">
<Unit0> <Unit0>
<Filename Value="wst_test_suite.lpr"/> <Filename Value="wst_test_suite.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -217,6 +217,11 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="test_wst_cursors"/> <UnitName Value="test_wst_cursors"/>
</Unit37> </Unit37>
<Unit38>
<Filename Value="test_generators_runtime.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="test_generators_runtime"/>
</Unit38>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

2
wst/trunk/tests/test_suite/wst_test_suite.lpr
View File

@ -19,7 +19,7 @@ uses
xsd_consts, base_json_formatter, wsdl_parser, test_support, basex_encode, xsd_consts, base_json_formatter, wsdl_parser, test_support, basex_encode,
test_basex_encode, json_formatter, server_service_json, test_json, test_basex_encode, json_formatter, server_service_json, test_json,
test_suite_utils, test_generators, test_std_cursors, test_rtti_filter, test_suite_utils, test_generators, test_std_cursors, test_rtti_filter,
test_wst_cursors, test_registry; test_wst_cursors, test_registry, test_generators_runtime;
Const Const
ShortOpts = 'alh'; ShortOpts = 'alh';

8
wst/trunk/tests/test_suite/wst_test_suite_gui.lpi
View File

@ -34,7 +34,7 @@
<PackageName Value="fpcunittestrunner"/> <PackageName Value="fpcunittestrunner"/>
</Item3> </Item3>
</RequiredPackages> </RequiredPackages>
<Units Count="17"> <Units Count="18">
<Unit0> <Unit0>
<Filename Value="wst_test_suite_gui.lpr"/> <Filename Value="wst_test_suite_gui.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -120,6 +120,11 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="test_soap_specific"/> <UnitName Value="test_soap_specific"/>
</Unit16> </Unit16>
<Unit17>
<Filename Value="test_generators_runtime.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="test_generators_runtime"/>
</Unit17>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -144,6 +149,7 @@
<Debugging> <Debugging>
<GenerateDebugInfo Value="True"/> <GenerateDebugInfo Value="True"/>
</Debugging> </Debugging>
<LinkSmart Value="True"/>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

3
wst/trunk/tests/test_suite/wst_test_suite_gui.lpr
View File

@ -17,7 +17,8 @@ uses
xsd_consts, base_json_formatter, wsdl_parser, test_support, basex_encode, xsd_consts, base_json_formatter, wsdl_parser, test_support, basex_encode,
test_basex_encode, json_formatter, server_service_json, test_json, test_basex_encode, json_formatter, server_service_json, test_json,
test_suite_utils, test_generators, fpcunittestrunner, test_std_cursors, test_suite_utils, test_generators, fpcunittestrunner, test_std_cursors,
test_rtti_filter, rtti_filters, wst_cursors, test_wst_cursors, test_registry, test_soap_specific; test_rtti_filter, rtti_filters, wst_cursors, test_wst_cursors, test_registry, test_soap_specific,
test_generators_runtime;
begin begin
Application.Initialize; Application.Initialize;