Merge pull request #303 from silverbulleters/feature/history-load-fix

Доработана загрузка тестов из истории для случае асинхронного режима

epf/xddTestRunner/xddTestRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl

@@ -171,24 +171,6 @@
 
 КонецПроцедуры
 
-&НаКлиенте
-Процедура ПерезагрузитьПоследниеТестыПоИстории(Команда = Неопределено)
-
-	ПерезагрузитьНастройкиИзФайла();
-
-	ИсторияЗагрузкиТестов = Объект.Настройки.ИсторияЗагрузкиТестов;
-	Если ИсторияЗагрузкиТестов.Количество() > 0 Тогда
-		ЭлементИстории = ИсторияЗагрузкиТестов[0];
-		Попытка
-			ЗагрузитьТесты(ЭлементИстории.ИдентификаторЗагрузчика, ЭлементИстории.Путь);
-		Исключение
-			Сообщить("Не удалось загрузить тесты из истории <" + ЭлементИстории.ИдентификаторЗагрузчика + ": " + 
-				ЭлементИстории.Путь + ">" + Символы.ПС + ОписаниеОшибки());
-		КонецПопытки;
-	КонецЕсли;
-
-КонецПроцедуры
-
 &НаКлиенте
 Процедура ГенераторМакетовДанных(Команда)
 	ОткрытьИнструмент("СериализаторMXL", ПолучитьПутьКПлагинам());
@@ -1128,7 +1110,40 @@
 	ИндексИстории = Число(Сред(Команда.Имя, Найти(Команда.Имя, "_") + 1));
 	ИсторияЗагрузкиТестов = Объект.Настройки.ИсторияЗагрузкиТестов;
 	ЭлементИстории = ИсторияЗагрузкиТестов[ИндексИстории];
-	ЗагрузитьТесты(ЭлементИстории.ИдентификаторЗагрузчика, ЭлементИстории.Путь);
+	ЗагрузитьТестИзИстории(ЭлементИстории);
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПерезагрузитьПоследниеТестыПоИстории(Команда = Неопределено)
+
+	ПерезагрузитьНастройкиИзФайла();
+
+	ИсторияЗагрузкиТестов = Объект.Настройки.ИсторияЗагрузкиТестов;
+	Если ИсторияЗагрузкиТестов.Количество() > 0 Тогда
+		ЭлементИстории = ИсторияЗагрузкиТестов[0];
+		Попытка
+			ЗагрузитьТестИзИстории(ЭлементИстории);
+		Исключение
+			Сообщить("Не удалось загрузить тесты из истории <" + ЭлементИстории.ИдентификаторЗагрузчика + ": " + 
+				ЭлементИстории.Путь + ">" + Символы.ПС + ОписаниеОшибки());
+		КонецПопытки;
+	КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗагрузитьТестИзИстории(Знач ЭлементИстории)
+
+	Перем ПутьТестов;
+
+	ИдентификаторЗагрузчика = ЭлементИстории.ИдентификаторЗагрузчика;
+	ПутьТестов = ЭлементИстории.Путь;
+	Если ЕстьПоддержкаАсинхронныхВызовов Тогда
+		НачатьЗагрузкуТестов(Неопределено, ИдентификаторЗагрузчика, ПутьТестов);
+	Иначе
+		ЗагрузитьТесты(ИдентификаторЗагрузчика, ПутьТестов);
+	КонецЕсли;
+
 КонецПроцедуры
 
 Функция ПутьФайлаНастроек() Экспорт