+ add test for already fixed #22252

2025-04-07 23:07:55 +02:00 · 2022-01-09 12:29:08 +01:00 · 2022-01-09 12:29:08 +01:00 · b5e57a63f5
commit b5e57a63f5
parent 67a1d52806
1 changed files with 29 additions and 0 deletions
--- a/tests/webtbf/tw22252.pp
+++ b/tests/webtbf/tw22252.pp
@ -0,0 +1,29 @@
+{ %FAIL }
+
+unit tw22252;
+
+{$mode objfpc}{$H+}
+
+interface
+
+{uses
+  Classes, SysUtils;}
+
+type
+  TFoo = class
+  strict private
+    class var FProp: Integer;
+  end;
+
+implementation
+
+procedure Test;
+var
+  f: TFoo;
+begin
+  f := TFoo.Create;
+  f.FProp := 10;
+  f.Free;
+end;
+
+end.