tests/XMLSchema/test-XSEnumerationFacet.os - develop - EvilBeaver/OneScript

tests/XMLSchema/test-XSEnumerationFacet.os
102 строки4 KB
yukon39
реализован фасет перечисления
30 мар 2019, 17:03
30 мар 2019, 17:0321935ca
Перем ЮнитТест;

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

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

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

	СписокТестов = Новый Массив;
	СписокТестов.Добавить("ТестКонструктор");
	СписокТестов.Добавить("TestConstructor");
	СписокТестов.Добавить("ТестЗначение");
	СписокТестов.Добавить("ТестЛексическоеЗначение");
	СписокТестов.Добавить("ТестОпределениеПростогоТипа");

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

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

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

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

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

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

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

	Facet = New XSEnumerationFacet;
	
	ЮнитТест.ПроверитьРавенство(ТипЗнч(Facet), Тип("XSEnumerationFacet"));
	ЮнитТест.ПроверитьРавенство(Facet.ComponentType, XSComponentType.EnumerationFacet);

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

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

	Фасет = Новый ФасетПеречисленияXS;

	Фасет.Значение = "5";

	ЮнитТест.ПроверитьРавенство(Фасет.Значение, "5");
	ЮнитТест.ПроверитьРавенство(Фасет.ЛексическоеЗначение, "5");

	Фасет.Значение = Истина;

	ЮнитТест.ПроверитьРавенство(Фасет.Значение, Истина);
	ЮнитТест.ПроверитьРавенство(Фасет.ЛексическоеЗначение, "true");

	Фасет.Значение = Ложь;

	ЮнитТест.ПроверитьРавенство(Фасет.Значение, Ложь);
	ЮнитТест.ПроверитьРавенство(Фасет.ЛексическоеЗначение, "false");

	Фасет.Значение = 5;

	ЮнитТест.ПроверитьРавенство(Фасет.Значение, 5);
	ЮнитТест.ПроверитьРавенство(Фасет.ЛексическоеЗначение, "5");

	Дата = ТекущаяДата();
	
	Фасет.Значение = Дата;
	ЮнитТест.ПроверитьРавенство(Фасет.Значение, Дата);
	ЮнитТест.ПроверитьРавенство(Фасет.ЛексическоеЗначение, XMLСтрока(Дата));

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

Процедура ТестЛексическоеЗначение() Экспорт

	Фасет = Новый ФасетПеречисленияXS;
	Фасет.ЛексическоеЗначение = "5";

	ЮнитТест.ПроверитьРавенство(Фасет.ЛексическоеЗначение, "5");
	ЮнитТест.ПроверитьРавенство(Фасет.Значение, "5");

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

Процедура ТестОпределениеПростогоТипа() Экспорт

	Фасет = Новый ФасетПеречисленияXS;
	Фасет.Значение = "5";

	ОпределениеТипа = Новый ОпределениеПростогоТипаXS;
	ОпределениеТипа.Вариант = ВариантПростогоТипаXS.Атомарная;
	ОпределениеТипа.Фасеты.Добавить(Фасет);

	ЮнитТест.ПроверитьРавенство(Фасет.Контейнер, ОпределениеТипа);
	ЮнитТест.ПроверитьРавенство(Фасет.ОпределениеПростогоТипа, ОпределениеТипа);

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

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