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

tests/XMLSchema/test-XSImport.os
59 строк2 KB
yukon39
Добавим еще немного тестов.
09 апр 2019, 20:33
09 апр 2019, 20:33957d472
Перем ЮнитТест;

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

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

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

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

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

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

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

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

	Импорт = Новый ИмпортXS;

	ЮнитТест.ПроверитьРавенство(ТипЗнч(Импорт), Тип("ИмпортXS"));
	ЮнитТест.ПроверитьРавенство(Импорт.ТипКомпоненты, ТипКомпонентыXS.Импорт);
	
КонецПроцедуры

Procedure TestConstructor() Export

	Import = New XSImport;

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

EndProcedure

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

	Импорт = Новый ИмпортXS;
	Импорт.ПространствоИмен = "http://www.example.com/IPO";

	ЮнитТест.ПроверитьРавенство(Импорт.ПространствоИмен, "http://www.example.com/IPO");
	
КонецПроцедуры

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

	Импорт = Новый ИмпортXS;
	Импорт.РасположениеСхемы = "nul";

	ЮнитТест.ПроверитьРавенство(Импорт.РасположениеСхемы, "nul");
	
КонецПроцедуры

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