Added class reference field test to WrapDelphiTest.pas.

Author: pyscripter

Tests/WrapDelphiTest.pas

@@ -49,6 +49,7 @@   TTestRttiAccess = class
     ObjectField: TObject;
     RecordField: TTestRecord;
     InterfaceField: ITestInterface;
+    ClassRef: TClass;
     function GetData: TObject;
     procedure BuyFruits(AFruits: TFruits);
     procedure SellFruits(const AFruits: TFruitDynArray);
@@ -61,6 +62,7 @@   TTestRttiAccess = class
     function SetStringField(const Value: string): string; overload;
     procedure PassVariantArray(const Value: Variant);
     function ClassRefParam(ClassRef: TPersistentClass): string;
+    class var ClassField: string;
     class function DoubleString(S: string): string;
     class function Square(I: Integer): Integer; static;
   end;
@@ -133,6 +135,8 @@   TTestWrapDelphi = class(TObject)
     [Test]
     procedure TestClassRefParam;
     [Test]
+    procedure TestClassRefField;
+    [Test]
     procedure TestInheritance;
     [Test]
     procedure TestClassMethods;
@@ -248,6 +252,12 @@ procedure TTestWrapDelphi.TestClassMethods;
    Assert.AreEqual<string>(MainModule.TestSubclass.DoubleString('B'), 'BB');
 end;
 
+procedure TTestWrapDelphi.TestClassRefField;
+begin
+  Rtti_Var.ClassRef := MainModule.TestRttiAccess;
+  Assert.AreEqual(TestRttiAccess.ClassRef, TTestRttiAccess);
+end;
+
 procedure TTestWrapDelphi.TestClassRefParam;
 begin
   Assert.AreEqual<string>(Rtti_Var.ClassRefParam(MainModule.Collection), 'TCollection');