diff --git a/src/v8runner.os b/src/v8runner.os index 5e83b57..60ec03f 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -1797,15 +1797,12 @@ Функция ПутьКПлатформе1С(Знач Путь = "") Экспорт - Если Путь = "" Тогда - Возврат мПутьКПлатформе1С; - Иначе + Если Путь <> "" Тогда ФайлПлатформы = Новый Файл(Путь); Если Не ФайлПлатформы.Существует() Тогда ВызватьИсключение "Нельзя установить несуществующий путь к платформе: " + ФайлПлатформы.ПолноеИмя; КонецЕсли; - ТекЗначение = мПутьКПлатформе1С; мПутьКПлатформе1С = Путь; мВерсияПлатформы = ""; @@ -1815,9 +1812,10 @@ мВерсияПлатформы = ВсеСовпадения[ВсеСовпадения.Количество()-1].Значение; КонецЕсли; - Возврат ТекЗначение; КонецЕсли; + Возврат мПутьКПлатформе1С; + КонецФункции Процедура ИспользоватьВерсиюПлатформы(Знач МаскаВерсии, Знач Разрядность = Неопределено) Экспорт diff --git a/tests/v8runner-test.os b/tests/v8runner-test.os index 4d869ac..caeb1dc 100644 --- a/tests/v8runner-test.os +++ b/tests/v8runner-test.os @@ -43,6 +43,15 @@ СписокТестов.Добавить("ТестДолжен_ПолучитьПараметрыСтрокиСоединенияССервернойБазой"); СписокТестов.Добавить("ТестДолжен_СформироватьСтрокуСоединенияССервернойБазой"); + Попытка + УправлениеКонфигуратором.ИспользоватьВерсиюПлатформы("8.3.23.1782"); + УправлениеКонфигуратором.ИспользоватьВерсиюПлатформы("8.3.23.1437"); + СписокТестов.Добавить("ТестДолжен_ПроверитьУстановкуПутиКПлатформе"); + Исключение + СписокТестов.Добавить("Не_обнаружена_платформа_23_1437_ТестДолжен_ПроверитьУстановкуПутиКПлатформе"); + СписокТестов.Добавить("Не_обнаружена_платформа_23_1782_ТестДолжен_ПроверитьУстановкуПутиКПлатформе"); + КонецПопытки; + Возврат СписокТестов; КонецФункции @@ -716,6 +725,22 @@ КонецПроцедуры +Процедура ТестДолжен_ПроверитьУстановкуПутиКПлатформе() Экспорт + + ПутьПоУмолчанию = УправлениеКонфигуратором.ПолучитьПутьКВерсииПлатформы("8.3", РазрядностьПлатформы.x64x86); + Утверждения.ПроверитьЛожь(ПустаяСтрока(ПутьПоУмолчанию)); + Утверждения.ПроверитьРавенство(ПутьПоУмолчанию, УправлениеКонфигуратором.ПутьКПлатформе1С()); + + ПутьДоТестовойВерсии = УправлениеКонфигуратором.ПолучитьПутьКВерсииПлатформы("8.3.23.1782"); + Утверждения.ПроверитьЛожь(ПустаяСтрока(ПутьДоТестовойВерсии)); + Утверждения.ПроверитьРавенство(ПутьДоТестовойВерсии, УправлениеКонфигуратором.ПутьКПлатформе1С(ПутьДоТестовойВерсии)); + + ПутьДоТестовойВерсии = УправлениеКонфигуратором.ПолучитьПутьКВерсииПлатформы("8.3.23.1437"); + Утверждения.ПроверитьЛожь(ПустаяСтрока(ПутьДоТестовойВерсии)); + Утверждения.ПроверитьРавенство(ПутьДоТестовойВерсии, УправлениеКонфигуратором.ПутьКПлатформе1С(ПутьДоТестовойВерсии)); + +КонецПроцедуры + Функция ХранилищеКонфигурацииСуществует(Знач ПапкаХранилища) Возврат ФС.ФайлСуществует(ОбъединитьПути(ПапкаХранилища, "1cv8ddb.1CD")); КонецФункции @@ -724,4 +749,4 @@ // Инициализация -Инициализация(); \ No newline at end of file +Инициализация();