Merge branch 'master' into master-upstream

# Conflicts:
#	packagedef

Author: khorevaa

packagedef

@@ -1,12 +1,13 @@
 
 Описание.Имя("v8runner")
-		.Версия("1.2.0")
+		.Версия("1.3.0")
 		.ВерсияСреды("1.0.19")
 		.ЗависитОт("asserts", "0.4.0")
 		.ЗависитОт("fs", "0.5.0")
 		.ЗависитОт("logos", "1.0.2")
 		.ЗависитОт("tempfiles", "0.2.2")
 		.ЗависитОт("strings", "0.4.1")
+		.ЗависитОт("v8find", "0.1.2")
 		.ЗависитОт("1commands", "1.3.2")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")

readme.md

@@ -84,6 +84,10 @@
 - Функция ПолучитьПараметрыЗапуска()
 - Процедура ВыполнитьСинтаксическийКонтроль(ТонкийКлиент = Истина, ВебКлиент = Истина, Сервер = Истина, ВнешнееСоединение = Истина, ТолстыйКлиентОбычноеПриложение = Истина)
 - Функция ПутьКВременнойБазе()
+- Процедура ЗагрузитьРасширениеИзФайла(Знач ПутьФайлРасширения, Знач ИмяРасширения, Знач ОбновитьКонфигурациюИБ = Ложь)
+- Процедура ВыгрузитьРасширениеВФайл(Знач ПутьФайлРасширения, Знач ИмяРасширения)
+- Процедура ЗагрузитьРасширениеИзФайлов(Знач КаталогЗагрузки, Знач ИмяРасширения = "–AllExtensions", Знач ПутьКСпискуФайловЗагрузки = "", Знач ФорматВыгрузки = "", Знач ОбновитьФайлВерсий = Истина)
+- Процедура ВыгрузитьРасширениеВФайлы(Знач КаталогВыгрузки, Знач ИмяРасширения = "–AllExtensions", Знач ФорматВыгрузки = "", Знач ТолькоИзмененные = Ложь, Знач ПутьКФайлуВерсийДляСравнения = "")
 
 ### Вспомогательные и настроечные функции
 

src/v8config-file.os

@@ -33,6 +33,8 @@
 
 	КонецЦикла;
 
+	ЧтениеТекста.Закрыть();
+
 КонецПроцедуры
 
 Функция ПолучитьСписок(Знач Ключ) Экспорт

src/v8runner.os

@@ -38,6 +38,16 @@
 
 	ВремСписокТестов.Добавить("ТестДолжен_ЗагрузитьКонфигурациюИзФайлов");
 
+
+	ВремСписокТестов.Добавить("ТестДолжен_ВыгрузитьРасширениеВФайлы");
+    ВремСписокТестов.Добавить("ТестДолжен_ВыгрузитьИзмененияРасширенияВФайл");
+		
+	ВремСписокТестов.Добавить("ТестДолжен_ВыгрузитьРасширениеВФайлыОтносительноФайлаВерсий");
+    ВремСписокТестов.Добавить("ТестДолжен_ВыгрузитьИзмененияРасширенияВФайлОтносительноФайлаВерсий");
+    
+	ВремСписокТестов.Добавить("ТестДолжен_ЗагрузитьРасширениеИзФайлов");
+
+
 	СписокТестов = Новый Массив;
 	Для каждого ИмяТеста Из ВремСписокТестов Цикл
 		СписокТестов.Добавить(ИмяТеста + СуффиксКТестам);
@@ -62,7 +72,24 @@
 
 КонецПроцедуры
 
-Процедура ПодготовитьВременнуюВыгрузку()
+Процедура ТестДолжен_ВыгрузитьРасширениеВФайлы() Экспорт
+
+	ИмяРасширения = "Расширение1";
+	ПодготовитьВременнуюВыгрузку(ИмяРасширения);
+
+	ВыгрузитьКонфигурациюВФайлы("1.0", мВременнаяВыгрузка, ИмяРасширения);
+
+	ФайлВерсииКонфигурации = Новый Файл(ОбъединитьПути(мВременнаяВыгрузка, "ConfigDumpInfo.xml"));
+	
+	МассивФайловВыгрузки = НайтиФайлы(мВременнаяВыгрузка,"*", Истина);
+	
+	Утверждения.ПроверитьРавенство(6, МассивФайловВыгрузки.Количество(), "Неверное количество файлов выгрузки. Ожидали число слева, а получили другое число выгруженных файлов");
+	Утверждения.ПроверитьИстину(ФайлВерсииКонфигурации.Существует(), "Файл версии кофигурации должен существовать");
+
+КонецПроцедуры
+
+
+Процедура ПодготовитьВременнуюВыгрузку(Знач ИмяРасширения = "")
 
 	Если ЗначениеЗаполнено(мВременнаяВыгрузка) Тогда
 		Возврат;
@@ -74,19 +101,24 @@
 
 	КаталогВыгрузки = ОбъединитьПути(ВременныйКаталог, "v8r_TempDitr");
 
-	ВыгрузитьКонфигурациюВФайлы("0.9", КаталогВыгрузки);
+	ВыгрузитьКонфигурациюВФайлы("0.9", КаталогВыгрузки,ИмяРасширения);
 
 	мВременнаяВыгрузка = КаталогВыгрузки;
 
 КонецПроцедуры
 
-Процедура ВыгрузитьКонфигурациюВФайлы(Знач Версия, Знач КаталогВыгрузки)
+Процедура ВыгрузитьКонфигурациюВФайлы(Знач Версия, Знач КаталогВыгрузки, Знач ИмяРасширения = "")
 
 	ПутьФайлКонфигурации = ОбъединитьПути(ТекущийСценарий().Каталог, "fixtures", Версия, "1Cv8.cf");
 
 	УправлениеКонфигуратором.ЗагрузитьКонфигурациюИзФайла(ПутьФайлКонфигурации);
-	
-	УправлениеКонфигуратором.ВыгрузитьКонфигурациюВФайлы(КаталогВыгрузки);
+	Если ПустаяСтрока(ИмяРасширения) Тогда
+		УправлениеКонфигуратором.ВыгрузитьКонфигурациюВФайлы(КаталогВыгрузки);
+	Иначе
+		ПутьФайлКонфигурацииРасширения = ОбъединитьПути(ТекущийСценарий().Каталог, "fixtures", Версия, "1Cv8.cfe");
+		УправлениеКонфигуратором.ЗагрузитьРасширениеИзФайла(ПутьФайлКонфигурацииРасширения,ИмяРасширения);
+		УправлениеКонфигуратором.ВыгрузитьРасширениеВФайлы(КаталогВыгрузки, ИмяРасширения);
+	КонецЕсли;
 
 КонецПроцедуры