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

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

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

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

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

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

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

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

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

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

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

Procedure TestConstructor() Export

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

EndProcedure

Procedure ТестИсточник() Export

	ИнформацияДляПриложения = Новый ИнформацияДляПриложенияXS;
	ИнформацияДляПриложения.Источник = "https://oscript.io";
	
	ЮнитТест.ПроверитьРавенство(ИнформацияДляПриложения.Источник, "https://oscript.io");

EndProcedure

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