Однократная подготовка тестовых данных

Author: d-hurricane

tests/ТестыСторонние.os

@@ -5,19 +5,49 @@
 #Использовать "."
 
 
-&ТестовыйНабор
+Перем ПутьКТестовымДанным;
+Перем ТестовыеДанные;
+
+Перем КатегорияДопустимыхДанных;
+Перем КатегорияНедопустимыхДанных;
+Перем КатегорияНереализованнойФункциональности;
+
+
+&ТестовыйНабор(Характер = "Одиночка")
 Процедура ПриСозданииОбъекта()
 
 	// В качестве источника тестов используется:
 	// https://github.com/yaml/yaml-test-suite.git
 
+	ПутьКТестовымДанным = ТестовыеУтилиты.ПолучитьПутьКТестовымДанным("yaml-test-suite");
+
+	ТестовыеДанные = Новый ТаблицаЗначений();
+	ТестовыеДанные.Колонки.Добавить("Каталог");
+	ТестовыеДанные.Колонки.Добавить("Описание");
+	ТестовыеДанные.Колонки.Добавить("Категория");
+
+	НайденныеФайлы = НайтиФайлы(ПутьКТестовымДанным, "===", Истина);
+	Для Каждого Файл Из НайденныеФайлы Цикл
+
+		НоваяСтрока = ТестовыеДанные.Добавить();
+		НоваяСтрока.Каталог = ФС.ОтносительныйПуть(ПутьКТестовымДанным, Файл.Путь);
+		НоваяСтрока.Описание = СокрЛП(ТестовыеУтилиты.ПрочитатьТекстФайла(Файл.ПолноеИмя));
+		НоваяСтрока.Категория = КатегорияДопустимыхДанных;
+
+		ПутьКФайлуОшибки = ОбъединитьПути(Файл.Путь, "error");
+		Если ФС.ФайлСуществует(ПутьКФайлуОшибки) Тогда
+			НоваяСтрока.Категория = КатегорияНедопустимыхДанных;
+		КонецЕсли;
+
+	КонецЦикла;
+
 КонецПроцедуры
 
 &ПараметризованныйТест
-&ИсточникВыражение("() -> КоллекцияКаталоговТестовыхДанных()")
+&ИсточникВыражение("() -> КоллекцияТестовыхДанныхКатегории(КатегорияДопустимыхДанных)")
 Процедура ТестКорректногоYAML(Каталог, Описание) Экспорт
 
-	ПутьККаталогу = ОбъединитьПути(ПутьКТестовымДанным(), Каталог);
+	ПутьККаталогу = ОбъединитьПути(ПутьКТестовымДанным, Каталог);
 
 	ПутьYAML = ОбъединитьПути(ПутьККаталогу, "in.yaml");
 	СодержимоеYAML = ТестовыеУтилиты.ПрочитатьТекстФайла(ПутьYAML);
@@ -35,10 +65,10 @@
 КонецПроцедуры
 
 &ПараметризованныйТест
-&ИсточникВыражение("() -> КоллекцияКаталоговТестовыхДанных(Истина)")
+&ИсточникВыражение("() -> КоллекцияТестовыхДанныхКатегории(КатегорияНедопустимыхДанных)")
 Процедура ТестНекорректногоYAML(Каталог, Описание) Экспорт
 
-	ПутьККаталогу = ОбъединитьПути(ПутьКТестовымДанным(), Каталог);
+	ПутьККаталогу = ОбъединитьПути(ПутьКТестовымДанным, Каталог);
 
 	ПутьYAML = ОбъединитьПути(ПутьККаталогу, "in.yaml");
 	СодержимоеYAML = ТестовыеУтилиты.ПрочитатьТекстФайла(ПутьYAML);
@@ -53,24 +83,12 @@
 
 КонецПроцедуры
 
-Функция КоллекцияКаталоговТестовыхДанных(ИскатьОшибки = Ложь) Экспорт
-
-	НайденныеФайлы = НайтиФайлы(ПутьКТестовымДанным(), "===", Истина);
+Функция КоллекцияТестовыхДанныхКатегории(Категория) Экспорт
 
-	КоллекцияАргументов = Новый Массив;
-
-	Для Каждого Файл Из НайденныеФайлы Цикл
-		Если ЕстьФайлОшибки(Файл.Путь) <> ИскатьОшибки Тогда
-			Продолжить;
-		КонецЕсли;
-
-		ОписаниеТеста = СокрЛП(ТестовыеУтилиты.ПрочитатьТекстФайла(Файл.ПолноеИмя));
-		КаталогТеста = ФС.ОтносительныйПуть(ПутьКТестовымДанным(), Файл.Путь);
-		АргументыТеста = Списки.ИзЭлементов(КаталогТеста, ОписаниеТеста);
-		КоллекцияАргументов.Добавить(АргументыТеста);
-	КонецЦикла;
-
-	Возврат ПроцессорыКоллекций.ИзКоллекции(КоллекцияАргументов);
+	Возврат ПроцессорыКоллекций.ИзКоллекции(ТестовыеДанные)
+		.Фильтровать("Элемент -> Элемент.Категория = " + Строка(Категория))
+		.Обработать("Элемент -> Списки.ИзЭлементов(Элемент.Каталог, Элемент.Описание)")
+	;
 
 КонецФункции
 
@@ -100,15 +118,7 @@
 
 КонецФункции
 
-Функция ЕстьФайлОшибки(ПутьККаталогу)
-	
-	ПутьКФайлуОшибки = ОбъединитьПути(ПутьККаталогу, "error");
-	Возврат ФС.ФайлСуществует(ПутьКФайлуОшибки);
-
-КонецФункции
 
-Функция ПутьКТестовымДанным()
-
-	Возврат ТестовыеУтилиты.ПолучитьПутьКТестовымДанным("yaml-test-suite");
-
-КонецФункции
+КатегорияДопустимыхДанных = 0;
+КатегорияНедопустимыхДанных = 1;
+КатегорияНереализованнойФункциональности = 2;