diff options
Diffstat (limited to 'packages/pastojs/tests/tcmodules.pas')
| -rw-r--r-- | packages/pastojs/tests/tcmodules.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/packages/pastojs/tests/tcmodules.pas b/packages/pastojs/tests/tcmodules.pas index 1092da987a..8731d86b8f 100644 --- a/packages/pastojs/tests/tcmodules.pas +++ b/packages/pastojs/tests/tcmodules.pas @@ -31794,6 +31794,9 @@ begin ' [TCustom(1)]', ' TMyClass = class', ' end;', + ' [TCustom(11)]', + ' TMyDescendant = class(TMyClass)', + ' end;', ' [TCustom(2)]', ' TRec = record', ' end;', @@ -31826,6 +31829,10 @@ begin ' var $r = this.$rtti;', ' $r.attr = [$mod.TCustomAttribute, "Create", [1]];', '});', + 'rtl.createClass(this, "TMyDescendant", this.TMyClass, function () {', + ' var $r = this.$rtti;', + ' $r.attr = [$mod.TCustomAttribute, "Create", [11]];', + '});', 'rtl.recNewT(this, "TRec", function () {', ' this.$eq = function (b) {', ' return true;', |