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';
var
x, y : TRttiFilterCreator;
xin : TRttiExpIntegerNodeItem;
xn : TRttiExpNode;
sfltr : string;
begin
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;
function GetFileFullName(const AFileName: string): string;
var
locFileName : string;
begin
{$IFDEF FPC}
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
x : IObjectCursor;
ls : TObjectList;
c, i : Integer;
i : Integer;
begin
ls := TObjectList.Create(True);
try
@ -133,7 +133,7 @@ const O_COUNT = 100;
var
x : IObjectCursor;
ls : TObjectList;
c, i : Integer;
i : Integer;
begin
ls := TObjectList.Create(True);
try
@ -175,7 +175,7 @@ const O_COUNT = 100;
var
x : IFilterableObjectCursor;
ls : TObjectList;
c, i : Integer;
i : Integer;
f : IObjectFilter;
fcr : TRttiFilterCreator;
begin

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

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

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

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