enum.os

#Использовать "component"

Перем юТест;

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

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

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

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

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

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

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

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

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

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

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

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