EvilBeaver/OneScript: Исполняющая среда скриптов на языке 1С

tests/showversion.os

43 строки2 KB

EvilBeaver

Убрал из тестов упоминания NETFRAMEWORK

22 авг 2021, 15:05

22 авг 2021, 15:05a4b7c50

Перем юТест;

Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт
	
	юТест = ЮнитТестирование;
	
	ВсеТесты = Новый Массив;
	
	ВсеТесты.Добавить("ТестДолжен_УбедитьсяЧтоВыводитсяВерсия");
	
	Возврат ВсеТесты;
КонецФункции

Функция ПутьОСкрипт()

	Возврат "dotnet """ + ОбъединитьПути(КаталогПрограммы(), "oscript.dll") + """";
	
КонецФункции


Процедура ТестДолжен_УбедитьсяЧтоВыводитсяВерсия() Экспорт

	Перем Процесс;
	
	СистемнаяИнформация = Новый СистемнаяИнформация;

	ПроверяемыеКлючи = Новый Массив;
	ПроверяемыеКлючи.Добавить("-version");
	ПроверяемыеКлючи.Добавить("-v");

	Для Каждого мПроверяемыйКлюч Из ПроверяемыеКлючи Цикл
		
		Процесс = СоздатьПроцесс(ПутьОСкрипт() + " " + мПроверяемыйКлюч, , Истина);
		Процесс.Запустить();
		Процесс.ОжидатьЗавершения();
		
		ДанныеВывода = Процесс.ПотокВывода.Прочитать();

		юТест.ПроверитьРавенство(ДанныеВывода, СистемнаяИнформация.Версия, "Версия вывода не совпадает с системной информацией!");

	КонецЦикла;

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