Merge pull request #155 from theshadowco/patch-1

Исправлена ошибка установки пути к платформе

Author: EvilBeaver

src/v8runner.os

@@ -1797,15 +1797,12 @@
 
 Функция ПутьКПлатформе1С(Знач Путь = "") Экспорт
 
-	Если Путь = "" Тогда
-		Возврат мПутьКПлатформе1С;
-	Иначе
+	Если Путь <> "" Тогда
 		ФайлПлатформы = Новый Файл(Путь);
 		Если Не ФайлПлатформы.Существует() Тогда
 			ВызватьИсключение "Нельзя установить несуществующий путь к платформе: " + ФайлПлатформы.ПолноеИмя;
 		КонецЕсли;
 
-		ТекЗначение = мПутьКПлатформе1С;
 		мПутьКПлатформе1С = Путь;
 
 		мВерсияПлатформы = "";
@@ -1815,9 +1812,10 @@
 			мВерсияПлатформы = ВсеСовпадения[ВсеСовпадения.Количество()-1].Значение;
 		КонецЕсли;
 
-		Возврат ТекЗначение;
 	КонецЕсли;
 
+	Возврат мПутьКПлатформе1С;
+
 КонецФункции
 
 Процедура ИспользоватьВерсиюПлатформы(Знач МаскаВерсии, Знач Разрядность = Неопределено) Экспорт

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 @@
 // Инициализация
 
 
-Инициализация();
+Инициализация();