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

Перем юТест;

Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт

юТест = ЮнитТестирование;

ВсеТесты = Новый Массив;

ВсеТесты.Добавить("ТестДолженПроверитьЧтоПростоеПеречислениеПриводитсяКСтроке");

ВсеТесты.Добавить("ТестДолженПроверитьРаботоспособностьСравненияПростогоПеречисления");

ВсеТесты.Добавить("ТестДолженПроверитьКорректностьКонвертацииПростогоПеречислениеСДругимНаименованиемЭлемента");

Возврат ВсеТесты;

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

ПростоеПеречисление = ПростоеПеречисление();

Попытка

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

Исключение

Представление = "";

КонецПопытки;

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

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

ПростоеПеречисление = ПростоеПеречисление();

Результат = ПростоеПеречисление = ДопустимыйЗнак.Любой;

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

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

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

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

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

ТЗ = Новый ТаблицаЗначений();

ТЗ.Колонки.Добавить("Тест");

Квалификатор = ТЗ.Колонки[0].ТипЗначения.КвалификаторыЧисла;

Возврат Квалификатор.ДопустимыйЗнак;