1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2026-05-22 10:05:29 +02:00
Code Issues Releases Activity

Update tests_check.os

Browse Source
This commit is contained in:
Anton
2024-10-19 20:51:38 +03:00
parent f44291a5d8
commit 4161eb03b1
1 changed files with 28 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ci/os/tests_check.os
+28 -19
View File
@@ -6,16 +6,9 @@
Процедура ПроверитьТесты()
Расположение = "./src/ru/OInt";
ФайлТестов = Расположение + "/tests/Modules/internal/OPI_Тесты.os";
МассивМетодов = Новый Массив;
МодульТестов = Новый ТекстовыйДокумент();
МодульТестов.Прочитать(ФайлТестов);
ТекстТестов = МодульТестов.ПолучитьТекст();
ОбщийМассивМодулей = Новый Массив;
МассивМетодов = Новый Массив;
ФайлыМодулей = НайтиФайлы(Расположение, "*.os", Истина);
Для Каждого Модуль Из ФайлыМодулей Цикл
@@ -24,20 +17,36 @@
Для Каждого Модуль Из ОбщийМассивМодулей Цикл
ТекущийМодуль = Новый ТекстовыйДокумент();
ТекущийМодуль = Новый ТекстовыйДокумент();
ТекущийМодуль.Прочитать(Модуль.ПолноеИмя);
РазобратьМодуль(ТекущийМодуль, Модуль.ИмяБезРасширения);
КонецЦикла;
РазобратьМодуль(ТекущийМодуль, Модуль.ИмяБезРасширения);
КонецЦикла;
Для Каждого Метод Из МассивМетодов Цикл
Вхождения = СтрЧислоВхождений(ТекстТестов, СокрЛП(Метод));
МассивТестов = Новый Массив;
МассивТестов.Добавить(Расположение + "/tests/Modules/internal/OPI_Тесты.os");
МассивТестов.Добавить(Расположение + "/tests/Modules/internal/OPI_ТестыCLI.os");
Если Вхождения = 0 Тогда
Сообщить("Тест не реализован: " + Метод);
ИначеЕсли Вхождения = 1 Тогда
Сообщить("Тест встречается один раз. Возможно он реализован, но не вызван: " + Метод);
КонецЕсли;
Для Каждого ФайлТестов Из МассивТестов Цикл
ФайлТестовИмя = Новый Файл(ФайлТестов);
ФайлТестовИмя = ФайлТестовИмя.ИмяБезРасширения;
МодульТестов = Новый ТекстовыйДокумент();
МодульТестов.Прочитать(ФайлТестов);
ТекстТестов = МодульТестов.ПолучитьТекст();
Для Каждого Метод Из МассивМетодов Цикл
Вхождения = СтрЧислоВхождений(ТекстТестов, СокрЛП(Метод));
Если Вхождения = 0 Тогда
Сообщить(ФайлТестовИмя + ": Тест не реализован: " + Метод);
ИначеЕсли Вхождения = 1 Тогда
Сообщить(ФайлТестовИмя + ": Тест встречается один раз. Возможно он реализован, но не вызван: " + Метод);
КонецЕсли;
КонецЦикла;
КонецЦикла;