paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed test TestExternalClass_SameNamePublishedProperty

Browse Source 
git-svn-id: trunk@47617 -
This commit is contained in:
Mattias Gaertner 2020-11-28 13:19:30 +00:00
parent fc04a83ff5
commit 150e78c56a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16981,6 +16981,7 @@ end;
procedure TTestModule.TestExternalClass_SameNamePublishedProperty; procedure TTestModule.TestExternalClass_SameNamePublishedProperty;
begin begin
WithTypeInfo:=true;
StartProgram(false); StartProgram(false);
Add([ Add([
'{$modeswitch externalclass}', '{$modeswitch externalclass}',
@ -16996,10 +16997,14 @@ begin
' end;', ' end;',
'begin', 'begin',
' JSwiper.new;', ' JSwiper.new;',
//' if typeinfo(JSwiper)=nil then ;',
'']); '']);
ConvertProgram; ConvertProgram;
CheckSource('TestExternalClass_SameNamePublishedProperty', CheckSource('TestExternalClass_SameNamePublishedProperty',
LinesToStr([ // statements LinesToStr([ // statements
'this.$rtti.$ExtClass("JSwiper", {',
' jsclass: "Swiper"',
'});',
'rtl.createClass(this, "TObject", null, function () {', 'rtl.createClass(this, "TObject", null, function () {',
' this.$init = function () {', ' this.$init = function () {',
' this.FSwiper = null;', ' this.FSwiper = null;',