tests/XMLSchema/Enumerations/test-XSForm.os - develop - EvilBeaver/OneScript

tests/XMLSchema/Enumerations/test-XSForm.os

41 строка2 KB

Mr-Rm

чистка wrapped перечислений

30 дек 2024, 14:24

30 дек 2024, 14:248fe820e

Перем ЮнитТест;

#Область ОбработчикиСобытийМодуля

Функция Версия() Экспорт
	Возврат "1.0";
КонецФункции

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

	СписокТестов = Новый Массив;
	СписокТестов.Добавить("ТестКонструктор");
	СписокТестов.Добавить("TestConstructor");

	Возврат СписокТестов;

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

#КонецОбласти

#Область ОбработчикиТестирования

Процедура ТестКонструктор() Экспорт

	ЮнитТест.ПроверитьРавенство(ТипЗнч(ФормаПредставленияXS),                     Тип("ПеречислениеФормаПредставленияXS"));
	ЮнитТест.ПроверитьРавенство(ТипЗнч(ФормаПредставленияXS.Квалифицированная),   Тип("ФормаПредставленияXS"));
	ЮнитТест.ПроверитьРавенство(ТипЗнч(ФормаПредставленияXS.Неквалифицированная), Тип("ФормаПредставленияXS"));

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

Процедура TestConstructor() Экспорт

	ЮнитТест.ПроверитьРавенство(TypeOf(XSForm),             Type("EnumXSForm"));
	ЮнитТест.ПроверитьРавенство(TypeOf(XSForm.Qualified),   Type("XSForm"));
	ЮнитТест.ПроверитьРавенство(TypeOf(XSForm.Unqualified), Type("XSForm"));

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

#КонецОбласти