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

tests/enum.os
57 строк3 KB
Dmitriy Korolev
Переделал получение значения элемента перечисления по атрибуту
30 сен 2019, 13:30
30 сен 2019, 13:30fe851d4
#Использовать "component"

Перем юТест;

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

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

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

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

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

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

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

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

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

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

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

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