paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 16:09:26 +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);
begin
inherited AddType(El);
if TopScope is TPasClassScope then
if (El.Name<>'') and (TopScope is TPasClassScope) then
RaiseNotYetImplemented(20170608232534,El,'nested types');
end;

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

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