Added test case corresponding to guthub Issue #10

Author: EricGrange

Test/URTTIExposeTests.pas

@@ -50,6 +50,8 @@    TRTTIExposeTests = class (TTestCase)
          procedure IndexedProperties;
          procedure IndexedPropertiesDefault;
          procedure IndexedPropertiesCustom;
+
+         procedure PropertyEnumeration;
    end;
 
 type
@@ -83,6 +85,14 @@    TSimpleClass = class
 
    TSimpleEnumeration = (seZero, seOne, seTwo);
 
+   TClassWithEnumeration = class
+      private
+         FTest : TSimpleEnumeration;
+      published
+         property EnumField : TSimpleEnumeration read FTest write FTest;
+         function TestFunc(arg : TSimpleEnumeration) : Boolean;
+   end;
+
    TTestInstance = class
       private
          FValue : String;
@@ -252,6 +262,13 @@ procedure TSimpleClass.DecValue;
    Dec(FValue);
 end;
 
+// TestFunc
+//
+function TClassWithEnumeration.TestFunc(arg : TSimpleEnumeration) : Boolean;
+begin
+   Result := arg = FTest;
+end;
+
 // Stuff
 //
 procedure TWrappedObject.Stuff(obj : TGenericWrapper<Integer>);
@@ -629,6 +646,34 @@ procedure TRTTIExposeTests.IndexedPropertiesCustom;
   end;
 end;
 
+// PropertyEnumeration
+//
+procedure TRTTIExposeTests.PropertyEnumeration;
+const
+   cTestCode =
+       'var c := new TClassWithEnumeration;'#13#10
+      +'c.EnumField := seOne;'#13#10
+      +'Print(c.TestFunc(seOne));'#13#10
+      +'Print(c.TestFunc(seTwo));'#13#10
+      ;
+
+var
+   prog : IdwsProgram;
+   exec : IdwsProgramExecution;
+begin
+   FUnit.ExposeRTTI(TypeInfo(TSimpleEnumeration));
+   FUnit.ExposeRTTI(TypeInfo(TClassWithEnumeration));
+
+   prog := FCompiler.Compile(cTestCode);
+
+   CheckEquals('', prog.Msgs.AsInfo, 'Compile');
+
+   exec:=prog.Execute;
+
+   CheckEquals('', prog.Msgs.AsInfo, 'Exec Msgs');
+   CheckEquals('TrueFalse', exec.Result.ToString, 'Exec Result');
+end;
+
 // SimpleClass
 //
 procedure TRTTIExposeTests.SimpleClass;