paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Part 3

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@543 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2008-09-10 01:20:30 +00:00
parent c8c6f3c942
commit d7f0f07c54
5 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/tests/test_suite/test_rtti_filter.pas
View File

@ -1183,8 +1183,6 @@ const VAL_1 : Integer = 1210; VAL_2 : Integer = 1076; VAL_3 : Integer = 176;
VAL_S = 'inoussa'; VAL_S = 'inoussa';
var var
x, y : TRttiFilterCreator; x, y : TRttiFilterCreator;
xin : TRttiExpIntegerNodeItem;
xn : TRttiExpNode;
sfltr : string; sfltr : string;
begin begin
y := nil; y := nil;

2
wst/trunk/tests/test_suite/test_soap_specific.pas
View File

@ -116,8 +116,6 @@ uses
object_serializer, server_service_soap, test_suite_utils; object_serializer, server_service_soap, test_suite_utils;
function GetFileFullName(const AFileName: string): string; function GetFileFullName(const AFileName: string): string;
var
locFileName : string;
begin begin
{$IFDEF FPC} {$IFDEF FPC}
Result := Format('.%sfiles%s%s',[PathDelim,PathDelim,AFileName]); Result := Format('.%sfiles%s%s',[PathDelim,PathDelim,AFileName]);

6
wst/trunk/tests/test_suite/test_std_cursors.pas
View File

@ -72,7 +72,7 @@ const O_COUNT = 100;
var var
x : IObjectCursor; x : IObjectCursor;
ls : TObjectList; ls : TObjectList;
c, i : Integer; i : Integer;
begin begin
ls := TObjectList.Create(True); ls := TObjectList.Create(True);
try try
@ -133,7 +133,7 @@ const O_COUNT = 100;
var var
x : IObjectCursor; x : IObjectCursor;
ls : TObjectList; ls : TObjectList;
c, i : Integer; i : Integer;
begin begin
ls := TObjectList.Create(True); ls := TObjectList.Create(True);
try try
@ -175,7 +175,7 @@ const O_COUNT = 100;
var var
x : IFilterableObjectCursor; x : IFilterableObjectCursor;
ls : TObjectList; ls : TObjectList;
c, i : Integer; i : Integer;
f : IObjectFilter; f : IObjectFilter;
fcr : TRttiFilterCreator; fcr : TRttiFilterCreator;
begin begin

9
wst/trunk/tests/test_suite/test_suite_utils.pas
View File

@ -22,10 +22,19 @@ uses
{$ENDIF} {$ENDIF}
,wst_types; ,wst_types;
const
TestFilesPath = {$IFDEF WST_DELPHI}'.' +{$ENDIF WST_DELPHI}'.' + PathDelim + 'files' + PathDelim;
function CompareNodes(const A,B : TDOMNode) : Boolean;overload; function CompareNodes(const A,B : TDOMNode) : Boolean;overload;
function wstExpandLocalFileName(const AFileName : string) : string;
implementation implementation
function wstExpandLocalFileName(const AFileName : string) : string;
begin
Result := AFileName;
end;
function CompareNodes(const A,B : TDOMNode) : Boolean;overload; function CompareNodes(const A,B : TDOMNode) : Boolean;overload;
var var
ca, cb : TDOMNode; ca, cb : TDOMNode;

3
wst/trunk/tests/test_suite/test_utilities.pas
View File

@ -40,7 +40,7 @@ type
FPooled : Boolean; FPooled : Boolean;
protected protected
procedure SayHello(); procedure SayHello();
function CanBePooled() : Boolean; function CanBePooled() : Boolean;override;
procedure DontPool(); procedure DontPool();
public public
constructor Create();override; constructor Create();override;
@ -581,7 +581,6 @@ end;
procedure TTest_TSimpleItemFactory.CreateProc(); procedure TTest_TSimpleItemFactory.CreateProc();
var var
a : IItemFactory;
b : TSimpleItemFactoryCrack; b : TSimpleItemFactoryCrack;
ok : Boolean; ok : Boolean;
begin begin