tests: Доработан запуск тестов

yukon39 · Jun 26, 2021 · 5b64929 · 5b64929
1 parent f68cc12
commit 5b64929
Showing 1 changed file with 14 additions and 4 deletions.
diff --git a/tasks/test.os b/tasks/test.os
@@ -2,20 +2,30 @@
 #Использовать 1testrunner
 #Использовать fs
 
-Функция ПрогнатьТесты()
+Функция ПрогнатьТесты(КонтейнерТестов)
 
 	Тестер = Новый Тестер;
-	КаталогТестов = Новый Файл("tests");
+	КаталогТестов = Новый Файл(КонтейнерТестов);
 	КаталогОтчета = Новый Файл(".temp");
 	ФС.ОбеспечитьПустойКаталог(".temp");
 
-	Тестер.ТестироватьКаталог(КаталогТестов, КаталогОтчета);
+	Если КаталогТестов.ЭтоКаталог() Тогда
+		Тестер.ТестироватьКаталог(КаталогТестов, КаталогОтчета);
+	Иначе
+		Тестер.ТестироватьФайл(КаталогТестов, КаталогОтчета);
+	КонецЕсли;
 
 	Возврат Истина;
 
 КонецФункции
 
-ТестыПрошлиУспешно = ПрогнатьТесты();
+Если АргументыКоманднойСтроки.Количество() = 0 Тогда
+	КонтейнерТестов = "tests";
+Иначе
+	КонтейнерТестов = АргументыКоманднойСтроки[0];
+КонецЕсли;
+
+ТестыПрошлиУспешно = ПрогнатьТесты(КонтейнерТестов);
 
 Если Не ТестыПрошлиУспешно Тогда
 	Сообщить("Тесты провалены");