Merge branch 'develop' of https://bitbucket.org/EvilBeaver/1script into develop

Author: EvilBeaver

BuildAll.csproj

@@ -136,7 +136,7 @@
 
     <Delete Files="@(RemoveXMLTestResult)" />
 
-    <Exec WorkingDirectory="$(MSBuildProjectDirectory)\tests" Command="$(OutputPathForDist)\oscript.exe $(MSBuildProjectDirectory)\tests\testrunner.os -run %(TestFiles.FullPath)" IgnoreExitCode="true"/>
+    <Exec WorkingDirectory="$(MSBuildProjectDirectory)\tests" Command="$(OutputPathForDist)\oscript.exe $(MSBuildProjectDirectory)\tests\testrunner.os -run %(TestFiles.FullPath) xddReportPath ." IgnoreExitCode="true"/>
 
   </Target>
 

tests/testrunner.os

@@ -9,6 +9,8 @@
 Перем НаборТестов;
 Перем РезультатТестирования;
 
+Перем ПутьЛогФайлаJUnit;
+
 Перем НомерТестаДляЗапуска;
 Перем НаименованиеТестаДляЗапуска;
 
@@ -21,11 +23,16 @@
 Перем	НаборНереализованныхТестов;
 
 Перем	ВсегоТестов;
+Перем	ВыводитьОшибкиПодробно;
 
 //////////////////////////////////////////////////////////////////////////////
 // Программный интерфейс
 //
 
+Процедура ПодробныеОписанияОшибок(Знач ВключитьПодробноеОписание) Экспорт
+	ВыводитьОшибкиПодробно = ВключитьПодробноеОписание;
+КонецПроцедуры
+
 //{ МЕТОДЫ ДЛЯ ПРОВЕРКИ ЗНАЧЕНИЙ (assertions). 
 
 Процедура Проверить(Условие, ДопСообщениеОшибки = "") Экспорт
@@ -129,7 +136,7 @@
 
 //}
 
-//{ Выполнение тестов - экспортные методы для файла-запускателя start.os
+//{ Выполнение тестов - экспортные методы
 
 Процедура ВыполнитьТесты(МассивПараметров) Экспорт
 	Инициализация();
@@ -146,14 +153,16 @@
 
 //}
 
-Функция ПолучитьПараметрыЗапуска(МассивПараметров)
+Функция ПолучитьПараметрыЗапуска(МассивПараметров) Экспорт
+	Перем ПутьЛогФайла;
 
 	Если МассивПараметров.Количество() = 0 Тогда
 		Возврат Неопределено;
 	КонецЕсли;
 
 	НомерТестаДляЗапуска = Неопределено;
 	НаименованиеТестаДляЗапуска = Неопределено;
+	ПутьЛогФайла = Неопределено;
 
 	НомерПараметраПутьКТестам = -1;
 
@@ -170,31 +179,44 @@
 		НомерПараметраПутьКТестам = 0;
 	КонецЕсли;
 
+	НомерОчередногоПараметра = НомерПараметраПутьКТестам;
+	
 	Если КомандаЗапуска = СтруктураПараметровЗапуска.Запустить Тогда
 		путьКТестам = МассивПараметров[НомерПараметраПутьКТестам];
-		Если МассивПараметров.Количество() > НомерПараметраПутьКТестам+1 Тогда
-			ИД_Теста = МассивПараметров[НомерПараметраПутьКТестам+1];
-			
-			Если ВСтрокеСодержатсяТолькоЦифры(ИД_Теста) Тогда
-				НомерТестаДляЗапуска = Число(ИД_Теста);
-			Иначе
-				НаименованиеТестаДляЗапуска = ИД_Теста;
+		НомерОчередногоПараметра = НомерОчередногоПараметра + 1;
+		Если МассивПараметров.Количество() > НомерОчередногоПараметра Тогда
+			НомерОчередногоПараметра = НомерПараметраПутьКТестам+1;
+			ИД_Теста = МассивПараметров[НомерОчередногоПараметра];
+
+			Если НРег(ИД_Теста) <> СтруктураПараметровЗапуска.Режим_ПутьЛогФайла Тогда
+				Если ВСтрокеСодержатсяТолькоЦифры(ИД_Теста) Тогда
+					НомерТестаДляЗапуска = Число(ИД_Теста);
+				Иначе
+					НаименованиеТестаДляЗапуска = ИД_Теста;
+				КонецЕсли;
 			КонецЕсли;
 		КонецЕсли;
 	ИначеЕсли КомандаЗапуска = СтруктураПараметровЗапуска.ЗапуститьКаталог Тогда
 		путьКТестам = МассивПараметров[НомерПараметраПутьКТестам];
+		НомерОчередногоПараметра = НомерОчередногоПараметра + 1;
 	КонецЕсли;
 
-	Файл = Новый Файл(путьКТестам);
-	Если Не Файл.Существует() Тогда
-		ВызватьИсключение "Не найден файл/каталог "+путьКТестам;
+	Если МассивПараметров.Количество() > НомерОчередногоПараметра и (КомандаЗапуска = СтруктураПараметровЗапуска.Запустить или КомандаЗапуска = СтруктураПараметровЗапуска.ЗапуститьКаталог ) Тогда
+		Режим = НРег(МассивПараметров[НомерОчередногоПараметра]);
+		Если Режим = СтруктураПараметровЗапуска.Режим_ПутьЛогФайла Тогда
+			Если МассивПараметров.Количество() > НомерОчередногоПараметра+1 Тогда
+				НомерОчередногоПараметра = НомерОчередногоПараметра+1;
+				ПутьЛогФайла = МассивПараметров[НомерОчередногоПараметра];
+			КонецЕсли;
+		КонецЕсли;
 	КонецЕсли;
 
 	ПараметрыЗапуска = Новый Структура;
 	ПараметрыЗапуска.Вставить("Команда", КомандаЗапуска);
 	ПараметрыЗапуска.Вставить("ПутьКТестам", путьКТестам);
 	ПараметрыЗапуска.Вставить("НаименованиеТестаДляЗапуска", НаименованиеТестаДляЗапуска);
 	ПараметрыЗапуска.Вставить("НомерТестаДляЗапуска", НомерТестаДляЗапуска);
+	ПараметрыЗапуска.Вставить("ПутьЛогФайлаJUnit", ПутьЛогФайла);
 
 	Возврат ПараметрыЗапуска;
 КонецФункции
@@ -209,6 +231,12 @@
 	путьКТестам = ПараметрыЗапуска.путьКТестам;
 	НомерТестаДляЗапуска = ПараметрыЗапуска.НомерТестаДляЗапуска;
 	НаименованиеТестаДляЗапуска = ПараметрыЗапуска.НаименованиеТестаДляЗапуска;
+	ПутьЛогФайлаJUnit = ПараметрыЗапуска.ПутьЛогФайлаJUnit;
+	
+	Файл = Новый Файл(путьКТестам);
+	Если Не Файл.Существует() Тогда
+		ВызватьИсключение "Не найден файл/каталог "+путьКТестам;
+	КонецЕсли;
 
 	Если КомандаЗапуска = СтруктураПараметровЗапуска.Запустить Тогда
 		Пути.Добавить(ПутьКТестам);
@@ -217,7 +245,7 @@
 	ИначеЕсли КомандаЗапуска = СтруктураПараметровЗапуска.ЗапуститьКаталог Тогда
 		Файлы = НайтиФайлы(ПутьКТестам, "*.os", Истина);
 		Для Каждого Файл Из Файлы Цикл
-			Если Файл.ИмяБезРасширения <> "testrunner" И Файл.ИмяБезРасширения <> "start" Тогда
+			Если Файл.ИмяБезРасширения <> "testrunner" Тогда
 				Пути.Добавить(Файл.ПолноеИмя);
 			КонецЕсли;
 		КонецЦикла;
@@ -249,12 +277,14 @@
 	Возврат Истина;
 КонецФункции
 
-Процедура СоздатьСтруктуруПараметровЗапуска()
+Функция СоздатьСтруктуруПараметровЗапуска() Экспорт
 	СтруктураПараметровЗапуска = Новый Структура;
 	СтруктураПараметровЗапуска.Вставить("Запустить", НРег("-run"));
 	СтруктураПараметровЗапуска.Вставить("ЗапуститьКаталог", НРег("-runall"));
 	СтруктураПараметровЗапуска.Вставить("ПоказатьСписок", НРег("-show"));
-КонецПроцедуры
+	СтруктураПараметровЗапуска.Вставить("Режим_ПутьЛогФайла", НРег("xddReportPath"));
+	Возврат СтруктураПараметровЗапуска;
+КонецФункции
 
 Функция ЗагрузитьТесты()
 	Перем НомерТестаСохр;
@@ -349,8 +379,11 @@
 		НаборНереализованныхТестов = Новый Соответствие;
 		ДатаНачала = ТекущаяДата();
 
-		ЗаписьXML = Неопределено;
-		НачатьЗаписьВФайлОтчетаТестированияВФорматеJUnitXML(ЗаписьXML);
+		СоздаватьОтчетТестированияВФорматеJUnitXML = ЗначениеЗаполнено(ПутьЛогФайлаJUnit);
+		Если СоздаватьОтчетТестированияВФорматеJUnitXML Тогда
+			ЗаписьXML = Неопределено;
+			НачатьЗаписьВФайлОтчетаТестированияВФорматеJUnitXML(ЗаписьXML);
+		КонецЕсли;
 
 		Для Сч = 0 По НаборТестов.Количество() - 1 Цикл
 			ОписаниеТеста = НаборТестов[Сч];
@@ -369,7 +402,9 @@
 
 		ВывестиЛогТестирования();
 
-		ЗавершитьЗаписьВФайлОтчетаТестированияВФорматеJUnitXML(ЗаписьXML, ДатаНачала);
+		Если СоздаватьОтчетТестированияВФорматеJUnitXML Тогда
+			ЗавершитьЗаписьВФайлОтчетаТестированияВФорматеJUnitXML(ЗаписьXML, ДатаНачала);
+		КонецЕсли;
 	КонецЕсли;
 КонецФункции
 
@@ -498,7 +533,7 @@
 КонецПроцедуры
 
 Функция ПутьФайлаОтчетаТестированияВФорматеJUnitXML()
-	Возврат ТекущийКаталог();
+	Возврат ?(ЗначениеЗаполнено(ПутьЛогФайлаJUnit), ПутьЛогФайлаJUnit, ТекущийКаталог());
 КонецФункции
 
 Функция ИмяТекущегоТеста(ПолныйПуть)
@@ -532,6 +567,9 @@
 				// ВывестиОшибку("Не найден тестовый метод "+ИмяМетода+" - тест <"+ИмяМетода+">, файл <"+ОписаниеТеста.ПолноеИмя+">: "+Символы.ПС+"    "+текстОшибки);
 				// Рез = ЗначенияСостоянияТестов.НеРеализован;
 			Иначе
+				Если ВыводитьОшибкиПодробно Тогда
+					текстОшибки = ИнфоОшибки.ПодробноеОписаниеОшибки();
+				КонецЕсли;
 				Рез = ВывестиОшибкуВыполненияТеста(ЗначенияСостоянияТестов.Сломался, "", ОписаниеТеста, текстОшибки, ИнфоОшибки);
 			КонецЕсли;
 		КонецПопытки;
@@ -739,7 +777,7 @@
 	Возврат Символы.ПС + ДопСообщениеОшибки;
 КонецФункции
 
-Функция ВСтрокеСодержатсяТолькоЦифры(Знач ИсходнаяСтрока)
+Функция ВСтрокеСодержатсяТолькоЦифры(Знач ИсходнаяСтрока) Экспорт
 
 	рез = Ложь;
 	ДлинаСтроки = СтрДлина(ИсходнаяСтрока);
@@ -749,6 +787,7 @@
 			рез = Истина;
 		Иначе
 			рез = Ложь;
+			Прервать;
 		КонецЕсли;
 	КонецЦикла;
 	Возврат рез;	
@@ -811,6 +850,8 @@
 	РезультатТестирования = ЗначенияСостоянияТестов.НеВыполнялся;
 КонецПроцедуры
 
+ВыводитьОшибкиПодробно = Ложь;
+
 ВыполнитьТесты(АргументыКоманднойСтроки);
 
 ЗавершитьРаботу(ПолучитьРезультатТестирования());