EvilBeaver/OneScript: Исполняющая среда скриптов на языке 1С

tests/enum.os
66 строк4 KB
EvilBeaver
Реализован доступ к свойствам перечисления через интерфейс свойств
27 окт 2025, 18:34
27 окт 2025, 18:34dfdc9f4
#Использовать "component"

Перем юТест;

Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт
	
	юТест = ЮнитТестирование;
	
	ВсеТесты = Новый Массив;
	ВсеТесты.Добавить("ТестДолженПроверитьЧтоПростоеПеречислениеПриводитсяКСтроке");
	ВсеТесты.Добавить("ТестДолженПроверитьРаботоспособностьСравненияПростогоПеречисления");
	ВсеТесты.Добавить("ТестДолженПроверитьКорректностьКонвертацииПростогоПеречислениеСДругимНаименованиемЭлемента");
	ВсеТесты.Добавить("ТестДолженПроверитьЧтоСистемноеПеречислениеМожноПолучитьЧерезРефлектор");
	
	Возврат ВсеТесты;
	
КонецФункции

Процедура ТестДолженПроверитьЧтоПростоеПеречислениеПриводитсяКСтроке() Экспорт
	
	ПростоеПеречисление = ПростоеПеречисление();
	
	Попытка
		Представление = Строка(ПростоеПеречисление);
	Исключение
		Представление = "";
	КонецПопытки;

	юТест.ПроверитьИстину(НЕ ПустаяСтрока(Представление), "Проверяем, что простое перечисление верно привелось к строке.");
	
КонецПроцедуры

Процедура ТестДолженПроверитьРаботоспособностьСравненияПростогоПеречисления() Экспорт
	
	ПростоеПеречисление = ПростоеПеречисление();
	
	Результат = ПростоеПеречисление = ДопустимыйЗнак.Любой;

	юТест.ПроверитьРавенство(Истина, Результат);
	
КонецПроцедуры

Процедура ТестДолженПроверитьКорректностьКонвертацииПростогоПеречислениеСДругимНаименованиемЭлемента() Экспорт

	Представление = Строка(ПростоПеречисление.Элемент1);

	юТест.ПроверитьИстину(НЕ ПустаяСтрока(Представление), "Проверяем, что простое перечисление верно привелось к строке.");

КонецПроцедуры

Процедура ТестДолженПроверитьЧтоСистемноеПеречислениеМожноПолучитьЧерезРефлектор() Экспорт
    
    Рефлектор = Новый Рефлектор;
    Свойства = Рефлектор.ПолучитьТаблицуСвойств(ДопустимыйЗнак);
    юТест.ПроверитьРавенство(2, Свойства.Количество());
    
КонецПроцедуры

Функция ПростоеПеречисление()

	ТЗ = Новый ТаблицаЗначений();
	ТЗ.Колонки.Добавить("Тест");
	Квалификатор = ТЗ.Колонки[0].ТипЗначения.КвалификаторыЧисла;
	Возврат Квалификатор.ДопустимыйЗнак;

КонецФункции