add test

Author: bia-tech

tests/v8runner-test.os

@@ -42,7 +42,8 @@
 	СписокТестов.Добавить("ТестДолжен_СформироватьСтрокуСоединенияСФайловойБазой");
 	СписокТестов.Добавить("ТестДолжен_ПолучитьПараметрыСтрокиСоединенияССервернойБазой");
 	СписокТестов.Добавить("ТестДолжен_СформироватьСтрокуСоединенияССервернойБазой");
-
+	СписокТестов.Добавить("ТестДолжен_ПроверитьУстановкуПутиКПлатформе");
+	
 	Возврат СписокТестов;
 
 КонецФункции
@@ -716,6 +717,22 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ПроверитьУстановкуПутиКПлатформе() Экспорт
+	
+	ПутьПоУмолчанию = УправлениеКонфигуратором.ПолучитьПутьКВерсииПлатформы("8.3", РазрядностьПлатформы.x64x86);
+	Утверждения.ПроверитьЛожь(ПустаяСтрока(ПутьПоУмолчанию));
+	Утверждения.ПроверитьРавенство(ПутьПоУмолчанию, УправлениеКонфигуратором.ПутьКПлатформе1С());
+	
+	ПутьДоТестовойВерсии = УправлениеКонфигуратором.ПолучитьПутьКВерсииПлатформы("8.3.23.1782");
+	Утверждения.ПроверитьЛожь(ПустаяСтрока(ПутьДоТестовойВерсии));
+	Утверждения.ПроверитьРавенство(ПутьДоТестовойВерсии, УправлениеКонфигуратором.ПутьКПлатформе1С(ПутьДоТестовойВерсии));
+
+	ПутьДоТестовойВерсии = УправлениеКонфигуратором.ПолучитьПутьКВерсииПлатформы("8.3.23.1437");
+	Утверждения.ПроверитьЛожь(ПустаяСтрока(ПутьДоТестовойВерсии));
+	Утверждения.ПроверитьРавенство(ПутьДоТестовойВерсии, УправлениеКонфигуратором.ПутьКПлатформе1С(ПутьДоТестовойВерсии));
+
+КонецПроцедуры
+
 Функция ХранилищеКонфигурацииСуществует(Знач ПапкаХранилища)
 	Возврат ФС.ФайлСуществует(ОбъединитьПути(ПапкаХранилища, "1cv8ddb.1CD"));
 КонецФункции