Начало работ по #32

Author: EvilBeaver

tests/v8files-extractor-test.os

@@ -15,6 +15,7 @@
 
 	ВсеТесты.Добавить("Тест_ДолженРазложитьФайлОбработкиИзЗаданнойПапки");
 	ВсеТесты.Добавить("Тест_ДолженРазложитьКаталог");
+	ВсеТесты.Добавить("Тест_ДолженРазобратьФайлыПоЖурналуИзмененийГит");
 
 	Возврат ВсеТесты;
 
@@ -90,6 +91,25 @@
 
 КонецПроцедуры
 
+Процедура Тест_ДолженРазобратьФайлыПоЖурналуИзмененийГит() Экспорт
+	
+	ФайлОбработки = ПолучитьФайлТестовойОбработки();
+	
+	// ЖурналИзмененийГит = ВременныеФайлы.НовоеИмяФайла();
+	// ЗаписьТекста = Новый ЗаписьТекста(ЖурналИзмененийГит);
+	// ЗаписьТекста.ЗаписатьСтроку("A	" + ФайлОбработки.Имя);
+	// ЗаписьТекста.ЗаписатьСтроку("M	" + "pref-" + ФайлОбработки.Имя);
+	// ЗаписьТекста.Закрыть();
+	ЖурналИзмененийГит = "A	" + ФайлОбработки.Имя+"
+		|M	" + "pref-" + ФайлОбработки.Имя;
+	
+	Исполнитель = ЗагрузитьИсполнителя();
+	МассивИмен = Исполнитель.ПолучитьИменаИзЖурналаИзмененийГит(ЖурналИзмененийГит);
+	
+	Ожидаем.Что(МассивИмен, "Должны были найти измененный файл").Содержит(ФайлОбработки.Имя);
+	Ожидаем.Что(МассивИмен, "Должны были найти измененный файл").Содержит("pref-" + ФайлОбработки.Имя);
+КонецПроцедуры
+
 Функция КаталогСодержитИсходникиОбработки(Знач Каталог)
 	ВыгруженныеФайлы = НайтиФайлы(Каталог, ПолучитьМаскуВсеФайлы());
 	ИменаВыгруженныхФайлов = РазвернутьМассивФайловВИменаФайлов(ВыгруженныеФайлы);

v8files-extractor.os

@@ -3,6 +3,7 @@
 #Использовать tempfiles
 #Использовать asserts
 #Использовать v8runner
+#Использовать strings
 
 Перем Лог;
 Перем КодВозврата;
@@ -79,6 +80,21 @@
 	Сообщить("		Показ этого экрана");
 КонецПроцедуры
 
+Функция ПолучитьИменаИзЖурналаИзмененийГит(Знач ЖурналИзмененийГит) Экспорт
+	МассивИмен = Новый Массив;
+	МассивСтрокЖурнала = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ЖурналИзмененийГит, Символы.ПС);
+	Лог.Отладка("ЖурналИзмененийГит:");
+	Для Каждого СтрокаЖурнала Из МассивСтрокЖурнала Цикл
+		Лог.Отладка("	"+СтрокаЖурнала);
+		СимволИзменений = Лев(СтрокаЖурнала, 1);
+		Если СимволИзменений = "A" или СимволИзменений = "M" Тогда
+			ИмяФайла = СокрЛП(Сред(СтрокаЖурнала, 2));
+			МассивИмен.Добавить(ИмяФайла);
+		КонецЕсли;
+	КонецЦикла;
+	Возврат МассивИмен;
+КонецФункции
+
 Процедура РазобратьКаталог(Знач ПутьКаталога, Знач КаталогВыгрузки) Экспорт
 	Лог.Информация("Подготовка выгрузки каталога "+ПутьКаталога+" в каталог " + КаталогВыгрузки);
 	РазобратьКаталогВнутр(ПутьКаталога, КаталогВыгрузки);