Рекурсивная распаковка каталога с внешними обработками/отчетами xDrivenDevelopment#31

Author: EvilBeaver

tests/v8files-extractor-test.os

@@ -14,49 +14,90 @@
 	ВсеТесты = Новый Массив;
 
 	ВсеТесты.Добавить("Тест_ДолженРазложитьФайлОбработкиИзЗаданнойПапки");
+	ВсеТесты.Добавить("Тест_ДолженРазложитьКаталог");
 
 	Возврат ВсеТесты;
 
 КонецФункции
 
 Процедура ПослеЗапускаТеста() Экспорт
-	//ВременныеФайлы.Удалить();
+	ВременныеФайлы.Удалить();
 КонецПроцедуры
 
-Процедура Тест_ДолженРазложитьФайлОбработкиИзЗаданнойПапки() Экспорт
+Функция ЗагрузитьИсполнителя()
+	
+	ИмяКаталога = ТекущийСценарий().Каталог;
+	Исполнитель = ЗагрузитьСценарий(ОбъединитьПути(ИмяКаталога,"../v8files-extractor.os"));
+	Лог = Логирование.ПолучитьЛог("oscript.app.v8files-extractor");
+	Лог.УстановитьУровень(УровниЛога.Отладка);
+	
+	Возврат Исполнитель;
+	
+КонецФункции
 
+Функция ПолучитьФайлТестовойОбработки()
+	
 	ИмяКаталога = ТекущийСценарий().Каталог;
 	ИмяФайла = "Fixture";
 	ИмяФайлаСРасширением = ИмяФайла+".epf";
 
 	ПутьФайла = ОбъединитьПути(ИмяКаталога, ИмяФайлаСРасширением);
-	Ожидаем.Что(Новый Файл(ПутьФайла).Существует(), "Исходный файл должен существовать").ЭтоИстина();
+	ФайлОбработки = Новый Файл(ПутьФайла);
+	Ожидаем.Что(ФайлОбработки.Существует(), "Исходный файл должен существовать").ЭтоИстина();
+	
+	Возврат ФайлОбработки;
+	
+КонецФункции
+
+Процедура Тест_ДолженРазложитьФайлОбработкиИзЗаданнойПапки() Экспорт
+
+	ФайлОбработки = ПолучитьФайлТестовойОбработки();
 
 	КаталогВыгрузки = ВременныеФайлы.СоздатьКаталог();
 
-	Исполнитель = ЗагрузитьСценарий(ОбъединитьПути(ИмяКаталога,"../v8files-extractor.os"));
-	Лог = Логирование.ПолучитьЛог("oscript.app.v8files-extractor");
-	Лог.УстановитьУровень(УровниЛога.Отладка);
+	Исполнитель = ЗагрузитьИсполнителя();
+	Исполнитель.РазобратьФайл(ФайлОбработки.ПолноеИмя, КаталогВыгрузки);
 
-	Исполнитель.РазобратьФайл(ПутьФайла, КаталогВыгрузки);
+	КаталогИсходников = Новый Файл(ОбъединитьПути(КаталогВыгрузки, ФайлОбработки.ИмяБезРасширения));
+	Ожидаем.Что(КаталогИсходников.Существует()).ЭтоИстина();
+	Ожидаем.Что(КаталогИсходников.ЭтоКаталог(), "Должны были найти каталог с именем обработки").ЭтоИстина();
+	Ожидаем.Что(КаталогСодержитИсходникиОбработки(КаталогИсходников.ПолноеИмя)).ЭтоИстина();
+КонецПроцедуры
+
+Процедура Тест_ДолженРазложитьКаталог() Экспорт
+
+	ФайлОбработки = ПолучитьФайлТестовойОбработки();
 
-	МассивФайлов = НайтиФайлы(КаталогВыгрузки, ПолучитьМаскуВсеФайлы());
-	Ожидаем.Что(МассивФайлов, "В каталоге выгрузки должны быть файлы").Заполнено();
-	Нашли = Ложь;
-	для Каждого КаталогИсходников Из МассивФайлов Цикл
-		Нашли = КаталогИсходников.Имя = ИмяФайла;
-		Если Нашли Тогда
-			Прервать;
-		КонецЕсли;
-	КонецЦикла;
-	Ожидаем.Что(Нашли, "Должны были найти имя каталога обработки ").ЭтоИстина();
-	ВыгруженныеФайлы = НайтиФайлы(КаталогИсходников.ПолноеИмя, ПолучитьМаскуВсеФайлы());
+	ИмяВложенногоКаталога = "1";
+	
+	КаталогИсходников = ВременныеФайлы.СоздатьКаталог();
+	СоздатьКаталог(ОбъединитьПути(КаталогИсходников, ИмяВложенногоКаталога));
+	
+	КопироватьФайл(ФайлОбработки.ПолноеИмя, ОбъединитьПути(КаталогИсходников, ИмяВложенногоКаталога, ФайлОбработки.Имя));
+	
+	КаталогВыгрузки = ВременныеФайлы.СоздатьКаталог();
+	
+	Исполнитель = ЗагрузитьИсполнителя();
+	Исполнитель.РазобратьКаталог(КаталогИсходников, КаталогВыгрузки);
+	
+	ВложенныйКаталогВыгрузки = ОбъединитьПути(КаталогВыгрузки, ИмяВложенногоКаталога);
+	ФайлВложенныйКаталогИсходников = Новый Файл(ВложенныйКаталогВыгрузки);
+	Ожидаем.Что(ФайлВложенныйКаталогИсходников.Существует(), "Должны были найти имя вложенного каталога").ЭтоИстина();
+	Ожидаем.Что(ФайлВложенныйКаталогИсходников.ЭтоКаталог(), "Должны были найти вложенный каталог").ЭтоИстина();
+
+	ПутьКаталогаВыгрузкиДляОбработки = ОбъединитьПути(ВложенныйКаталогВыгрузки, ФайлОбработки.ИмяБезРасширения);
+	Ожидаем.Что(КаталогСодержитИсходникиОбработки(ПутьКаталогаВыгрузкиДляОбработки)).ЭтоИстина();
+
+КонецПроцедуры
+
+Функция КаталогСодержитИсходникиОбработки(Знач Каталог)
+	ВыгруженныеФайлы = НайтиФайлы(Каталог, ПолучитьМаскуВсеФайлы());
 	ИменаВыгруженныхФайлов = РазвернутьМассивФайловВИменаФайлов(ВыгруженныеФайлы);
 	Ожидаем.Что(ИменаВыгруженныхФайлов, "Должны были найти выгруженный файл").Содержит("renames.txt");
 	Ожидаем.Что(ИменаВыгруженныхФайлов, "Должны были найти выгруженный файл").Содержит("Form");
 	Ожидаем.Что(ИменаВыгруженныхФайлов, "Должны были найти выгруженный файл").Содержит("Макеты");
 	Ожидаем.Что(ИменаВыгруженныхФайлов, "Должны были найти выгруженный файл").Содержит("und");
-КонецПроцедуры
+КонецФункции
 
 Функция РазвернутьМассивФайловВИменаФайлов(Знач МассивОбъектовФайл)
 

v8files-extractor.os

@@ -6,7 +6,11 @@
 
 Перем Лог;
 
-Процедура ЗапускВКоманднойСтроке()
+Функция ЗапускВКоманднойСтроке()
+	
+	Если ТекущийСценарий().Источник <> СтартовыйСценарий().Источник Тогда
+		Возврат Ложь;
+	КонецЕсли;
 
 	Парсер = Новый ПарсерАргументовКоманднойСтроки();
 	Парсер.ДобавитьПараметр("ВходящиеФайлы");
@@ -17,24 +21,65 @@
 		Лог.Отладка(Параметр);
 	КонецЦикла;
 
-КонецПроцедуры
+	Возврат Истина;
+	
+КонецФункции
 
 Процедура Инициализация()
 	Лог = Логирование.ПолучитьЛог("oscript.app.v8files-extractor");
 	Лог.Отладка("Параметры командной строки:");
 КонецПроцедуры
 
+Процедура РазобратьКаталог(Знач ПутьКаталога, Знач КаталогВыгрузки) Экспорт
+	Лог.Информация("Подготовка выгрузки каталога "+ПутьКаталога+" в каталог " + КаталогВыгрузки);
+	РазобратьКаталогВнутр(ПутьКаталога, КаталогВыгрузки);
+	Лог.Информация("Завершена выгрузки каталога "+ПутьКаталога+" в каталог " + КаталогВыгрузки);
+КонецПроцедуры
+
 Процедура РазобратьФайл(Знач ПутьФайла, Знач КаталогВыгрузки) Экспорт
+	Лог.Информация("Подготовка выгрузки файла "+ПутьФайла+" в каталог " + КаталогВыгрузки);
+	
+	РазобратьФайлВнутр(ПутьФайла, КаталогВыгрузки);
+	
+	Лог.Информация("Завершена выгрузка файла "+ПутьФайла+" в каталог " + КаталогВыгрузки);
+КонецПроцедуры
+
+Процедура РазобратьКаталогВнутр(Знач ПутьКаталога, Знач КаталогВыгрузки)
+	ОбъектКаталога = Новый Файл(ПутьКаталога);
+	ИмяКаталогаВыгрузки = Новый Файл(КаталогВыгрузки).Имя;
+	Лог.Информация("Вошел в каталог "+ОбъектКаталога.Имя);
+	
+	Файлы = НайтиФайлы(ПутьКаталога, ПолучитьМаскуВсеФайлы());
+	Для Каждого Файл из Файлы Цикл
+		Если Файл.ЭтоКаталог() Тогда
+			РазобратьКаталогВнутр(Файл.ПолноеИмя, ОбъединитьПути(КаталогВыгрузки, Файл.Имя));
+		ИначеЕсли ТипФайлаПоддерживается(Файл) Тогда
+			Лог.Информация("Подготовка выгрузки файла "+Файл.Имя+" в каталог " + ИмяКаталогаВыгрузки);
+			РазобратьФайлВнутр(Файл.ПолноеИмя, КаталогВыгрузки);
+			Лог.Информация("Завершена выгрузка файла "+Файл.Имя+" в каталог " + ИмяКаталогаВыгрузки);
+		КонецЕсли;
+	КонецЦикла;
+	
+	Лог.Информация("Вышел из каталога "+ОбъектКаталога.Имя);
+КонецПроцедуры
+
+Функция ТипФайлаПоддерживается(Файл)
+	Возврат Найти(".epf,.erf,", Файл.Расширение+",") > 0;
+КонецФункции
+
+Процедура РазобратьФайлВнутр(Знач ПутьФайла, Знач КаталогВыгрузки)
 
 	Файл = Новый Файл(ПутьФайла);
+	Если Не ТипФайлаПоддерживается(Файл) Тогда
+		ВызватьИсключение "Тип файла """+Файл.Расширение+""" не поддерживается";
+	КонецЕсли;
+	
 	Ожидаем.Что(Файл.Существует(), "Файл " + ПутьФайла + " должен существовать").ЭтоИстина();
 
 	ПапкаИсходников = Новый Файл(ОбъединитьПути(КаталогВыгрузки, Файл.ИмяБезРасширения));
-	Лог.Информация("Подготовка выгрузки файла "+ПутьФайла+" в каталог " + ПапкаИсходников.ПолноеИмя);
 	ОбеспечитьПустойКаталог(ПапкаИсходников);
 	ЗапуститьРаспаковку(Файл, ПапкаИсходников);
 
-	Лог.Информация("Завершена выгрузка файла "+ПутьФайла+" в каталог " + ПапкаИсходников.ПолноеИмя);
 КонецПроцедуры
 
 Процедура ЗапуститьРаспаковку(Знач Файл, Знач ПапкаИсходников)
@@ -85,14 +130,10 @@
 
 КонецПроцедуры
 
-Функция ЭтоЗапускТеста()
-	Возврат ТекущийСценарий().Источник <> СтартовыйСценарий().Источник;
-КонецФункции
-
 Инициализация();
 
-Если Не ЭтоЗапускТеста() Тогда
-	ЗапускВКоманднойСтроке();
+Если ЗапускВКоманднойСтроке() Тогда
+	// TODO Сообщить код возврата в оболочку ОС
 КонецЕсли;