From 0bfef62666991d8fafb22f41ac28b1d9e8c4c281 Mon Sep 17 00:00:00 2001
From: mattias <mattias@idefix.freepascal.org>
Date: Sat, 28 Nov 2020 13:19:53 +0000
Subject: [PATCH] pastojs: fixed test
 TestExternalClass_SameNamePublishedProperty

---
 compiler/packages/pastojs/tests/tcmodules.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/compiler/packages/pastojs/tests/tcmodules.pas b/compiler/packages/pastojs/tests/tcmodules.pas
index d5e9b54..2bae950 100644
--- a/compiler/packages/pastojs/tests/tcmodules.pas
+++ b/compiler/packages/pastojs/tests/tcmodules.pas
@@ -16975,6 +16975,7 @@ end;
 
 procedure TTestModule.TestExternalClass_SameNamePublishedProperty;
 begin
+  WithTypeInfo:=true;
   StartProgram(false);
   Add([
   '{$modeswitch externalclass}',
@@ -16990,10 +16991,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;',