Заготовка для обработки опции xddReportPath в командной строке #90

Добавлена тесты разбора командной строки тестирования

Author: artbear

tests/testrunner.os

@@ -134,7 +134,7 @@
 
 //}
 
-//{ Выполнение тестов - экспортные методы для файла-запускателя start.os
+//{ Выполнение тестов - экспортные методы
 
 Процедура ВыполнитьТесты(МассивПараметров) Экспорт
 	Инициализация();
@@ -151,14 +151,15 @@
 
 //}
 
-Функция ПолучитьПараметрыЗапуска(МассивПараметров)
+Функция ПолучитьПараметрыЗапуска(МассивПараметров) Экспорт
 
 	Если МассивПараметров.Количество() = 0 Тогда
 		Возврат Неопределено;
 	КонецЕсли;
 
 	НомерТестаДляЗапуска = Неопределено;
 	НаименованиеТестаДляЗапуска = Неопределено;
+	ПутьЛогФайлаJUnit = Неопределено;
 
 	НомерПараметраПутьКТестам = -1;
 
@@ -175,31 +176,42 @@
 		НомерПараметраПутьКТестам = 0;
 	КонецЕсли;
 
+	НомерОчередногоПараметра = НомерПараметраПутьКТестам;
+	
 	Если КомандаЗапуска = СтруктураПараметровЗапуска.Запустить Тогда
 		путьКТестам = МассивПараметров[НомерПараметраПутьКТестам];
 		Если МассивПараметров.Количество() > НомерПараметраПутьКТестам+1 Тогда
-			ИД_Теста = МассивПараметров[НомерПараметраПутьКТестам+1];
+			НомерОчередногоПараметра = НомерПараметраПутьКТестам+1;
+			ИД_Теста = МассивПараметров[НомерОчередногоПараметра];
 
 			Если ВСтрокеСодержатсяТолькоЦифры(ИД_Теста) Тогда
 				НомерТестаДляЗапуска = Число(ИД_Теста);
 			Иначе
 				НаименованиеТестаДляЗапуска = ИД_Теста;
 			КонецЕсли;
 		КонецЕсли;
+		НомерОчередногоПараметра = НомерОчередногоПараметра + 1;
 	ИначеЕсли КомандаЗапуска = СтруктураПараметровЗапуска.ЗапуститьКаталог Тогда
 		путьКТестам = МассивПараметров[НомерПараметраПутьКТестам];
+		НомерОчередногоПараметра = НомерОчередногоПараметра + 1;
 	КонецЕсли;
 
-	Файл = Новый Файл(путьКТестам);
-	Если Не Файл.Существует() Тогда
-		ВызватьИсключение "Не найден файл/каталог "+путьКТестам;
+	Если МассивПараметров.Количество() > НомерОчередногоПараметра и (КомандаЗапуска = СтруктураПараметровЗапуска.Запустить или КомандаЗапуска = СтруктураПараметровЗапуска.ЗапуститьКаталог ) Тогда
+		Режим = НРег(МассивПараметров[НомерОчередногоПараметра]);
+		Если Режим = СтруктураПараметровЗапуска.Режим_ПутьЛогФайла Тогда
+			Если МассивПараметров.Количество() > НомерОчередногоПараметра+1 Тогда
+				НомерОчередногоПараметра = НомерОчередногоПараметра+1;
+				ПутьЛогФайлаJUnit = МассивПараметров[НомерОчередногоПараметра];
+			КонецЕсли;
+		КонецЕсли;
 	КонецЕсли;
 
 	ПараметрыЗапуска = Новый Структура;
 	ПараметрыЗапуска.Вставить("Команда", КомандаЗапуска);
 	ПараметрыЗапуска.Вставить("ПутьКТестам", путьКТестам);
 	ПараметрыЗапуска.Вставить("НаименованиеТестаДляЗапуска", НаименованиеТестаДляЗапуска);
 	ПараметрыЗапуска.Вставить("НомерТестаДляЗапуска", НомерТестаДляЗапуска);
+	ПараметрыЗапуска.Вставить("ПутьЛогФайлаJUnit", ПутьЛогФайлаJUnit);
 
 	Возврат ПараметрыЗапуска;
 КонецФункции
@@ -214,6 +226,11 @@
 	путьКТестам = ПараметрыЗапуска.путьКТестам;
 	НомерТестаДляЗапуска = ПараметрыЗапуска.НомерТестаДляЗапуска;
 	НаименованиеТестаДляЗапуска = ПараметрыЗапуска.НаименованиеТестаДляЗапуска;
+	
+	Файл = Новый Файл(путьКТестам);
+	Если Не Файл.Существует() Тогда
+		ВызватьИсключение "Не найден файл/каталог "+путьКТестам;
+	КонецЕсли;
 
 	Если КомандаЗапуска = СтруктураПараметровЗапуска.Запустить Тогда
 		Пути.Добавить(ПутьКТестам);
@@ -222,7 +239,7 @@
 	ИначеЕсли КомандаЗапуска = СтруктураПараметровЗапуска.ЗапуститьКаталог Тогда
 		Файлы = НайтиФайлы(ПутьКТестам, "*.os", Истина);
 		Для Каждого Файл Из Файлы Цикл
-			Если Файл.ИмяБезРасширения <> "testrunner" И Файл.ИмяБезРасширения <> "start" Тогда
+			Если Файл.ИмяБезРасширения <> "testrunner" Тогда
 				Пути.Добавить(Файл.ПолноеИмя);
 			КонецЕсли;
 		КонецЦикла;
@@ -254,12 +271,14 @@
 	Возврат Истина;
 КонецФункции
 
-Процедура СоздатьСтруктуруПараметровЗапуска()
+Функция СоздатьСтруктуруПараметровЗапуска() Экспорт
 	СтруктураПараметровЗапуска = Новый Структура;
 	СтруктураПараметровЗапуска.Вставить("Запустить", НРег("-run"));
 	СтруктураПараметровЗапуска.Вставить("ЗапуститьКаталог", НРег("-runall"));
 	СтруктураПараметровЗапуска.Вставить("ПоказатьСписок", НРег("-show"));
-КонецПроцедуры
+	СтруктураПараметровЗапуска.Вставить("Режим_ПутьЛогФайла", НРег("xddReportPath"));
+	Возврат СтруктураПараметровЗапуска;
+КонецФункции
 
 Функция ЗагрузитьТесты()
 	Перем НомерТестаСохр;
@@ -747,7 +766,7 @@
 	Возврат Символы.ПС + ДопСообщениеОшибки;
 КонецФункции
 
-Функция ВСтрокеСодержатсяТолькоЦифры(Знач ИсходнаяСтрока)
+Функция ВСтрокеСодержатсяТолькоЦифры(Знач ИсходнаяСтрока) Экспорт
 
 	рез = Ложь;
 	ДлинаСтроки = СтрДлина(ИсходнаяСтрока);
@@ -757,6 +776,7 @@
 			рез = Истина;
 		Иначе
 			рез = Ложь;
+			Прервать;
 		КонецЕсли;
 	КонецЦикла;
 	Возврат рез;