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

Author: yukon39

tasks/test.os

@@ -2,20 +2,30 @@
 #Использовать 1testrunner
 #Использовать fs
 
-Функция ПрогнатьТесты()
+Функция ПрогнатьТесты(КонтейнерТестов)
 
 	Тестер = Новый Тестер;
-	КаталогТестов = Новый Файл("tests");
+	КаталогТестов = Новый Файл(КонтейнерТестов);
 	КаталогОтчета = Новый Файл(".temp");
 	ФС.ОбеспечитьПустойКаталог(".temp");
 
-	Тестер.ТестироватьКаталог(КаталогТестов, КаталогОтчета);
+	Если КаталогТестов.ЭтоКаталог() Тогда
+		Тестер.ТестироватьКаталог(КаталогТестов, КаталогОтчета);
+	Иначе
+		Тестер.ТестироватьФайл(КаталогТестов, КаталогОтчета);
+	КонецЕсли;
 
 	Возврат Истина;
 
 КонецФункции
 
-ТестыПрошлиУспешно = ПрогнатьТесты();
+Если АргументыКоманднойСтроки.Количество() = 0 Тогда
+	КонтейнерТестов = "tests";
+Иначе
+	КонтейнерТестов = АргументыКоманднойСтроки[0];
+КонецЕсли;
+	
+ТестыПрошлиУспешно = ПрогнатьТесты(КонтейнерТестов);
 
 Если Не ТестыПрошлиУспешно Тогда
 	Сообщить("Тесты провалены");