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

tests/XMLSchema/test-XSInclude.os

49 строк2 KB

yukon39

Добавим еще немного тестов.

09 апр 2019, 20:33

09 апр 2019, 20:33957d472

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

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

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

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

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

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

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

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

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

	Включение = Новый ВключениеXS;

	ЮнитТест.ПроверитьРавенство(ТипЗнч(Включение), Тип("ВключениеXS"));
	ЮнитТест.ПроверитьРавенство(Включение.ТипКомпоненты, ТипКомпонентыXS.Включение);

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

Procedure TestConstructor() Export

	Include = new XSInclude;

	ЮнитТест.ПроверитьРавенство(TypeOf(Include), Type("XSInclude"));
	ЮнитТест.ПроверитьРавенство(Include.ComponentType, XSComponentType.Include);
	
EndProcedure

Процедура ТестРасположениеСхемы() Экспорт

	Включение = Новый ИмпортXS;
	Включение.РасположениеСхемы = "example.xsd";

	ЮнитТест.ПроверитьРавенство(Включение.РасположениеСхемы, "example.xsd");
	
КонецПроцедуры

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