paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 05:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed tests

Browse Source 
git-svn-id: trunk@36649 -
This commit is contained in:
Mattias Gaertner 2017-07-05 19:58:16 +00:00
parent 6d764dff98
commit 8cd56fb9be
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/pastojs/src/fppas2js.pp
View File

@ -1818,7 +1818,7 @@ end;
procedure TPas2JSResolver.AddType(El: TPasType); procedure TPas2JSResolver.AddType(El: TPasType);
begin begin
inherited AddType(El); inherited AddType(El);
if TopScope is TPasClassScope then if (El.Name<>'') and (TopScope is TPasClassScope) then
RaiseNotYetImplemented(20170608232534,El,'nested types'); RaiseNotYetImplemented(20170608232534,El,'nested types');
end; end;

6
packages/pastojs/tests/tcmodules.pas
View File

@ -341,7 +341,7 @@ type
Procedure TestClass_CallClassMethod; Procedure TestClass_CallClassMethod;
Procedure TestClass_Property; Procedure TestClass_Property;
Procedure TestClass_Property_ClassMethod; Procedure TestClass_Property_ClassMethod;
Procedure TestClass_Property_Index; Procedure TestClass_Property_Indexed;
Procedure TestClass_PropertyOfTypeArray; Procedure TestClass_PropertyOfTypeArray;
Procedure TestClass_PropertyDefault; Procedure TestClass_PropertyDefault;
Procedure TestClass_PropertyOverride; Procedure TestClass_PropertyOverride;
@ -6828,7 +6828,7 @@ begin
])); ]));
end; end;
procedure TTestModule.TestClass_Property_Index; procedure TTestModule.TestClass_Property_Indexed;
begin begin
StartProgram(false); StartProgram(false);
Add('type'); Add('type');
@ -6858,7 +6858,7 @@ begin
Add('begin'); Add('begin');
Add(' obj.Items[11]:=obj.Items[12];'); Add(' obj.Items[11]:=obj.Items[12];');
ConvertProgram; ConvertProgram;
CheckSource('TestClass_Property_Index', CheckSource('TestClass_Property_Indexed',
LinesToStr([ // statements LinesToStr([ // statements
'rtl.createClass($mod, "TObject", null, function () {', 'rtl.createClass($mod, "TObject", null, function () {',
' this.$init = function () {', ' this.$init = function () {',