diff options
| author | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-28 13:19:30 +0000 |
|---|---|---|
| committer | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-28 13:19:30 +0000 |
| commit | 91b18cb5a38ec4c7c3dba7ff8a08a253f374c6d9 (patch) | |
| tree | a5926771be3117712492a28f93809c4e7322b1a3 /packages | |
| parent | b937ee7b13edcbefee13191f28646b4a32ee426c (diff) | |
| download | fpc-91b18cb5a38ec4c7c3dba7ff8a08a253f374c6d9.tar.gz | |
pastojs: fixed test TestExternalClass_SameNamePublishedProperty
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47617 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages')
| -rw-r--r-- | packages/pastojs/tests/tcmodules.pas | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/packages/pastojs/tests/tcmodules.pas b/packages/pastojs/tests/tcmodules.pas index 5bea93d08f..51fb5fdaa1 100644 --- a/packages/pastojs/tests/tcmodules.pas +++ b/packages/pastojs/tests/tcmodules.pas @@ -16981,6 +16981,7 @@ end; procedure TTestModule.TestExternalClass_SameNamePublishedProperty; begin + WithTypeInfo:=true; StartProgram(false); Add([ '{$modeswitch externalclass}', @@ -16996,10 +16997,14 @@ begin ' end;', 'begin', ' JSwiper.new;', + //' if typeinfo(JSwiper)=nil then ;', '']); ConvertProgram; CheckSource('TestExternalClass_SameNamePublishedProperty', LinesToStr([ // statements + 'this.$rtti.$ExtClass("JSwiper", {', + ' jsclass: "Swiper"', + '});', 'rtl.createClass(this, "TObject", null, function () {', ' this.$init = function () {', ' this.FSwiper = null;', |