Merge branch 'release/1.5.0'

packagedef

@@ -1,4 +1,5 @@
-Константы_ЛокальнаяВерсия = ЗагрузитьСценарий("src/Модули/Константы_1testrunner.os");
+ПутьКСценариюКонстант = ОбъединитьПути(ТекущийСценарий().Каталог, "src", "Модули", "Константы_1testrunner.os");
+Константы_ЛокальнаяВерсия = ЗагрузитьСценарий(ПутьКСценариюКонстант);
 
 Описание.Имя("1testrunner")
 		.Версия(Константы_ЛокальнаяВерсия.ВерсияПродукта)
@@ -7,10 +8,11 @@
 		.ЗависитОт("tempfiles")
 		.ЗависитОт("strings")
 		.ЗависитОт("1commands", "0.8")
+		.ЗависитОт("delegate", "0.1.2")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")
 		.ВключитьФайл("main.os")
 		.ВключитьФайл("testrunner.os")
 		.ВключитьФайл("readme.md")
 		.ВключитьФайл("lib.config")
-		.ИсполняемыйФайл("main.os", "1testrunner");
+		.ИсполняемыйФайл("main.os", "1testrunner");

src/Модули/Константы_1testrunner.os

@@ -2,4 +2,4 @@
 
 ///////////////////////////////////////////////////////////////
 
-ВерсияПродукта = "1.4.3";
+ВерсияПродукта = "1.5.0";

testrunner.os

@@ -6,6 +6,7 @@
 
 #Использовать asserts
 #Использовать tempfiles
+#Использовать delegate
 
 #Использовать "src"
 
@@ -364,11 +365,13 @@
 					ВызватьИсключение "Не умею обрабатывать описание тестового случая из ПолучитьСписокТестов, отличный от строки или структуры";
 				КонецЕсли;
 
+				Делегат = Делегаты.Создать(Тест, ИмяТестовогоСлучая, ПараметрыТеста);
+
 				ОписаниеТеста = Новый Структура;
 				ОписаниеТеста.Вставить("ТестОбъект", Тест);
+				ОписаниеТеста.Вставить("Делегат", Делегат);
 				ОписаниеТеста.Вставить("ИмяКласса", ИмяКлассаТеста);
 				ОписаниеТеста.Вставить("ПолноеИмя", ПолноеИмяТестовогоСлучая);
-				ОписаниеТеста.Вставить("Параметры", ПараметрыТеста);
 				ОписаниеТеста.Вставить("ИмяМетода", ИмяТестовогоСлучая);
 				ОписаниеТеста.Вставить("Представление", ПредставлениеТеста);
 
@@ -581,7 +584,7 @@
 	Тест = ОписаниеТеста.ТестОбъект;
 	ИмяМетода = ОписаниеТеста.ИмяМетода;
 
-	Успешно = ВыполнитьПроцедуруТестовогоСлучая(Тест, "ПередЗапускомТеста", ИмяМетода, ОписаниеТеста);
+	Успешно = ВыполнитьПроцедуруТестовогоСлучая(Делегаты.Создать(Тест, "ПередЗапускомТеста"), ИмяМетода, ОписаниеТеста);
 	Если Не Успешно Тогда
 		Рез = ЗначенияСостоянияТестов.Сломался;
 	Иначе
@@ -591,13 +594,7 @@
 			Сообщить("  ");
 		Иначе
 			Попытка
-				Если ТипЗнч(ОписаниеТеста.Параметры) = Тип("Структура") Тогда
-					МассивАргументов = Новый Массив;
-					МассивАргументов.Добавить(ОписаниеТеста.Параметры);
-					Рефлектор.ВызватьМетод(Тест, ИмяМетода, МассивАргументов);
-				Иначе
-					Рефлектор.ВызватьМетод(Тест, ИмяМетода);
-				КонецЕсли;
+				ОписаниеТеста.Делегат.Исполнить();
 
 				Рез = ЗначенияСостоянияТестов.Прошел;
 			Исключение
@@ -612,7 +609,7 @@
 			КонецПопытки;
 		КонецЕсли;
 
-		Успешно = ВыполнитьПроцедуруТестовогоСлучая(Тест, "ПослеЗапускаТеста", ИмяМетода, ОписаниеТеста);
+		Успешно = ВыполнитьПроцедуруТестовогоСлучая(Делегаты.Создать(Тест, "ПослеЗапускаТеста"), ИмяМетода, ОписаниеТеста);
 		Если Не Успешно Тогда
 			Рез = ЗначенияСостоянияТестов.Сломался;
 		КонецЕсли;
@@ -676,12 +673,14 @@
 
 КонецФункции
 
-Функция ВыполнитьПроцедуруТестовогоСлучая(Тест, ИмяПроцедуры, ИмяТестовогоСлучая, ОписаниеТеста)
+Функция ВыполнитьПроцедуруТестовогоСлучая(Делегат, ИмяТестовогоСлучая, ОписаниеТеста)
 	Успешно = Ложь;
+
+	ИмяПроцедуры = Делегат.ИмяМетода();
 
 	ПолноеИмя = ОписаниеТеста.ПолноеИмя;
 	Попытка
-		Рефлектор.ВызватьМетод(Тест,ИмяПроцедуры);
+		Делегат.Исполнить();
 		Успешно = Истина;
 	Исключение
 		ИнфоОшибки = ИнформацияОбОшибке();