Задача тестирования через opm

Author: nixel2007

tasks/test.os

@@ -0,0 +1,15 @@
+#Использовать 1testrunner
+
+Тестер = Новый Тестер;
+
+ПутьКТестам = ОбъединитьПути(ТекущийСценарий().Каталог, "..", "tests");
+ПутьКОтчетуJUnit = ОбъединитьПути(ТекущийСценарий().Каталог, "..");
+
+РезультатТестирования = Тестер.ТестироватьКаталог(
+	Новый Файл(ПутьКТестам),
+	Новый Файл(ПутьКОтчетуJUnit)
+);
+
+Если РезультатТестирования <> 0 Тогда
+	ВызватьИсключение РезультатТестирования;
+КонецЕсли;