Изменено определение исполняющего файла

Author: Stivo182

src/BenchmarkOneScript/core/Классы/ЗапускательБенчмарков.os

@@ -242,25 +242,17 @@
 
 Функция ИмяФайлаИсполняющейСреды(Версия)
 
-	КаталогOVM = ПолучитьПеременнуюСреды("OVM_INSTALL_PATH");
-	Если НЕ ЗначениеЗаполнено(КаталогOVM) Тогда
-		СистемнаяИнформация = Новый СистемнаяИнформация();
-		КаталогOVM = ОбъединитьПути(
-			СистемнаяИнформация.ПолучитьПутьПапки(СпециальнаяПапка.ЛокальныйКаталогДанныхПриложений),
-			"ovm"
-		);
-	КонецЕсли;
-
-	Если Не ФС.КаталогСуществует(КаталогOVM) Тогда
+	КаталогУстановки = ИсполняющаяСредаБенчмарков.КаталогУстановки();
+	Если КаталогУстановки = Неопределено Тогда
 		ВызватьИсключение СтрШаблон("Не найден каталог с установленными версиями OneScript.
 		|Необходимо установить OneScript версии %1 через OVM", Версия);
 	КонецЕсли;
 
-	_Лог.Отладка(СтрШаблон("Каталог с установленными версиями OneScript: %1", КаталогOVM));
+	_Лог.Отладка(СтрШаблон("Каталог с установленными версиями OneScript: %1", КаталогУстановки));
 
-	ИмяФайла = ОбъединитьПути(КаталогOVM, Версия, "bin", "oscript.exe");
+	ИмяФайла = ИсполняющаяСредаБенчмарков.НайтиИсполняемыйФайл(Версия);
 
-	Если Не ФС.ФайлСуществует(ИмяФайла) Тогда
+	Если ИмяФайла = Неопределено Тогда
 		ВызватьИсключение СтрШаблон("Не найден OneScript версии %1 в каталоге OVM", Версия);
 	КонецЕсли;
 

src/BenchmarkOneScript/core/Модули/ИсполняющаяСредаБенчмарков.os

@@ -0,0 +1,49 @@
+#Использовать fs
+
+Функция НайтиИсполняемыйФайл(Версия) Экспорт
+
+	КаталогУстановки = КаталогУстановки();
+	Если Не ЗначениеЗаполнено(КаталогУстановки) Тогда
+		Возврат Неопределено;
+	КонецЕсли;
+
+	КаталогBin = ОбъединитьПути(КаталогУстановки, Версия, "bin");
+
+	Если ЭтоWindows() Тогда
+		ИмяФайла = ОбъединитьПути(КаталогBin, "oscript.exe");
+	Иначе
+		ИмяФайла = ОбъединитьПути(КаталогBin, "oscript");
+	КонецЕсли;
+	
+	Если ФС.ФайлСуществует(ИмяФайла) Тогда
+		Возврат ИмяФайла;
+	КонецЕсли;
+
+КонецФункции
+
+Функция КаталогУстановки() Экспорт
+	
+	КаталогOVM = ПолучитьПеременнуюСреды("OVM_INSTALL_PATH");
+	Если Не ЗначениеЗаполнено(КаталогOVM) Тогда
+		СистемнаяИнформация = Новый СистемнаяИнформация();
+		КаталогOVM = ОбъединитьПути(
+			СистемнаяИнформация.ПолучитьПутьПапки(СпециальнаяПапка.ЛокальныйКаталогДанныхПриложений),
+			"ovm"
+		);
+	КонецЕсли;
+
+	Если ФС.КаталогСуществует(КаталогOVM) Тогда
+		Возврат КаталогOVM;
+	КонецЕсли;
+
+КонецФункции
+
+Функция ЭтоWindows()
+
+	СистемнаяИнформация = Новый СистемнаяИнформация();
+	ТекущаяПлатформа = СистемнаяИнформация.ТипПлатформы;
+
+	Возврат ТекущаяПлатформа = ТипПлатформы.Windows_x86_64
+		Или ТекущаяПлатформа = ТипПлатформы.Windows_x86;
+
+КонецФункции

tests/helpers/Модули/ТестированиеБенчмарков.os

@@ -82,41 +82,37 @@
 
 Процедура ПроверитьУстановитьВерсииИсполняющейСреды(Версии)
 
-	КаталогOVM = ПолучитьПеременнуюСреды("OVM_INSTALL_PATH");
-	Если НЕ ЗначениеЗаполнено(КаталогOVM) Тогда
-		СистемнаяИнформация = Новый СистемнаяИнформация();
-		КаталогOVM = ОбъединитьПути(
-			СистемнаяИнформация.ПолучитьПутьПапки(СпециальнаяПапка.ЛокальныйКаталогДанныхПриложений),
-			"ovm"
-		);
-	КонецЕсли;
-
-	Если Не ФС.КаталогСуществует(КаталогOVM) Тогда
+	КаталогУстановки = ИсполняющаяСредаБенчмарков.КаталогУстановки();
+	Если КаталогУстановки = Неопределено Тогда
 		ВызватьИсключение "Не найден каталог с установленными версиями OneScript";
 	КонецЕсли;
 
-	_Лог.Отладка(СтрШаблон("Каталог с установленными версиями OneScript: %1", КаталогOVM));
+	_Лог.Отладка(СтрШаблон("Каталог с установленными версиями OneScript: %1", КаталогУстановки));
 	_Лог.Отладка(СтрШаблон("Проверка установленных версий: %1", Версии));
 
 	Для Каждого Версия Из СтрРазделить(Версии, ", ") Цикл
-		ИмяФайла = ОбъединитьПути(КаталогOVM, Версия, "bin", "oscript.exe");
-		Если ФС.ФайлСуществует(ИмяФайла) Тогда
+		
+		ИмяФайла = ИсполняющаяСредаБенчмарков.НайтиИсполняемыйФайл(Версия);
+		Если Не ИмяФайла = Неопределено Тогда
 			_Лог.Отладка(СтрШаблон("Обнаружена %1 версия OneScript: %2", Версия, ИмяФайла));
 			Продолжить;
 		КонецЕсли;
 
 		Команда = Новый Команда();
-		Команда.УстановитьИсполнениеЧерезКомандыСистемы(Ложь);
-		Команда.ПоказыватьВыводНемедленно(Истина);
 		Команда.УстановитьКоманду("ovm");
 		Команда.ДобавитьПараметр("install");
 		Команда.ДобавитьПараметр(Версия);
 
 		КодВозврата = Команда.Исполнить();
-		Если КодВозврата <> 0 Или Не ФС.ФайлСуществует(ИмяФайла) Тогда
+		Если КодВозврата <> 0 Тогда
 			ВызватьИсключение СтрШаблон("Не удалось установить OneScript версии %1 через OVM", Версия);
 		КонецЕсли;
 
+		ИмяФайла = ИсполняющаяСредаБенчмарков.НайтиИсполняемыйФайл(Версия);
+		Если ИмяФайла = Неопределено Тогда
+			ВызватьИсключение СтрШаблон("После установки OneScript версии %1 не удалось найти исполняемый файл", Версия);
+		КонецЕсли;
+
 		_Лог.Отладка(СтрШаблон("Установлена %1 версия OneScript: %2", Версия, ИмяФайла));
 
 	КонецЦикла;