к EvilBeaver#1424: ПолучитьТаблицуСвойств для Структур +тесты

Author: Mr-Rm

src/OneScript.StandardLibrary/Collections/FixedStructureImpl.cs

@@ -6,6 +6,7 @@ This Source Code Form is subject to the terms of the
 ----------------------------------------------------------*/
 
 using System.Collections.Generic;
+using Newtonsoft.Json.Linq;
 using OneScript.Contexts;
 using OneScript.Exceptions;
 using OneScript.Values;
@@ -57,6 +58,11 @@ public override int GetPropertyNumber(string name)
         	return _structure.GetPropertyNumber(name);
         }
 
+        public override int GetPropCount()
+        {
+            return _structure.GetPropCount();
+        }
+
         public override BslMethodInfo GetMethodInfo(int methodNumber)
         {
             return _methods.GetRuntimeMethod(methodNumber);

src/OneScript.StandardLibrary/Collections/StructureImpl.cs

@@ -5,6 +5,7 @@ This Source Code Form is subject to the terms of the
 at http://mozilla.org/MPL/2.0/.
 ----------------------------------------------------------*/
 
+using System;
 using System.Collections.Generic;
 using OneScript.Commons;
 using OneScript.Contexts;
@@ -133,6 +134,17 @@ public override string GetPropName(int propNum)
             return GetPropertyName(propNum);
         }
 
+        public override BslPropertyInfo GetPropertyInfo(int propNum)
+        {
+           return BslPropertyBuilder.Create()
+                .Name(GetPropName(propNum))
+                .CanRead(true)
+                .CanWrite(true)
+                .ReturnType(_values[propNum].GetType())
+                .DeclaringType(GetType())
+                .Build();
+        }
+
         public override BslMethodInfo GetMethodInfo(int methodNumber)
         {
             return _methods.GetRuntimeMethod(methodNumber);

tests/reflector.os

@@ -54,6 +54,9 @@
     ВсеТесты.Добавить("ТестДолжен_ПроверитьРефлексиюВнешнегоПараметра");
     ВсеТесты.Добавить("ТестДолжен_ПроверитьРефлексиюВнешнегоПараметраВРежимеПриватных");
 
+    ВсеТесты.Добавить("ТестДолжен_ПроверитьПолучитьТаблицуСвойствДляСтруктуры");
+    ВсеТесты.Добавить("ТестДолжен_ПроверитьПолучитьТаблицуСвойствДляФиксированнойСтруктуры");
+
 #Если Windows Тогда
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьВызовМетодаComОбъекта");
 #КонецЕсли
@@ -928,3 +931,19 @@
     юТест.ПроверитьИстину(ТаблицаСвойств[1].Экспорт);
 
 КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПолучитьТаблицуСвойствДляСтруктуры() Экспорт
+	Рефлектор = Новый Рефлектор;
+	Структура = Новый Структура("Поле1, Поле2", -1, -2);
+	Таблица = Рефлектор.ПолучитьТаблицуСвойств(Структура);
+	юТест.ПроверитьРавенство(2, Таблица.Количество());
+	юТест.ПроверитьНеРавенство(Неопределено, Таблица.Найти("Поле1"));
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьПолучитьТаблицуСвойствДляФиксированнойСтруктуры() Экспорт
+	Рефлектор = Новый Рефлектор;
+	ФиксСтруктура = Новый ФиксированнаяСтруктура("Поле1, Поле2", -1, -2);
+	Таблица = Рефлектор.ПолучитьТаблицуСвойств(ФиксСтруктура);
+	юТест.ПроверитьРавенство(2, Таблица.Количество());
+	юТест.ПроверитьНеРавенство(Неопределено, Таблица.Найти("Поле1"));
+КонецПроцедуры