mirror of
https://github.com/bia-technologies/bsl-parser.git
synced 2024-11-24 08:12:17 +02:00
af9a04e89b
* Поддержка чтения формата EDT * Изменен доступ к API - использование фабрики для создания парсера, парсер - объект * Переименованы, некоторые модули * Дробление монолитных модулей
115 lines
8.6 KiB
Plaintext
115 lines
8.6 KiB
Plaintext
///////////////////////////////////////////////////////////////////
|
|
//
|
|
// Тестирование основной функциональности пакета
|
|
// Проверка на соответствие выгрузки эталону
|
|
//
|
|
// (с) BIA Technologies, LLC
|
|
//
|
|
///////////////////////////////////////////////////////////////////
|
|
|
|
#Использовать asserts
|
|
#Использовать ".."
|
|
|
|
///////////////////////////////////////////////////////////////////
|
|
|
|
///////////////////////////////////////////////////////////////////
|
|
// Программный интерфейс
|
|
///////////////////////////////////////////////////////////////////
|
|
|
|
Функция ПолучитьСписокТестов(Знач ЮнитТестирование) Экспорт
|
|
|
|
МассивТестов = Новый Массив;
|
|
|
|
МассивТестов.Добавить("ТестСтруктураКаталоговВыгрузкаКонфигуратора");
|
|
МассивТестов.Добавить("ТестСтруктураКаталоговВыгрузкаEDT");
|
|
|
|
Возврат МассивТестов;
|
|
|
|
КонецФункции
|
|
|
|
Процедура ПередЗапускомТеста() Экспорт
|
|
|
|
КонецПроцедуры
|
|
|
|
Процедура ПослеЗапускаТеста() Экспорт
|
|
|
|
КонецПроцедуры
|
|
|
|
///////////////////////////////////////////////////////////////////
|
|
// Шаги
|
|
///////////////////////////////////////////////////////////////////
|
|
|
|
Процедура ТестСтруктураКаталоговВыгрузкаКонфигуратора() Экспорт
|
|
|
|
|
|
КаталогКонфигурации = "configuration";
|
|
СтруктураКаталоговКонфигурации = Новый СтруктураКаталоговКонфигурации(КаталогКонфигурации, "Designer2.4");
|
|
|
|
// Корневой каталог
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.КорневойКаталог(), КаталогКонфигурации, "Не корректный каталог конфигурации");
|
|
|
|
// Каталог справочника
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Catalogs", "Пользователи");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.КаталогФайловОбъекта("Пользователи", "Catalog"), Эталон, "Не корректный каталог конфигурации");
|
|
|
|
// Каталог файлов дополнительных файлов описания справочника
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Catalogs", "Пользователи", "Ext");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.КаталогДополнительныхФайловОбъекта("Пользователи", "Catalog"), Эталон, "Не корректный каталог доп. файлов объекта");
|
|
|
|
// Каталог вида объекта
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Catalogs");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.КаталогВидаОбъекта("Catalog"), Эталон, "Не корректный каталог вида объекта");
|
|
|
|
// Каталог описания конфигурации
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Configuration.xml");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.ИмяФайлаОписанияКонфигурации(), Эталон, "Не корректное имя файла описания конфигурации");
|
|
|
|
// Файл описания объекта
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Catalogs", "Пользователи.xml");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.ИмяФайлаОписанияОбъекта("Пользователи", "Catalog"), Эталон, "Не корректное имя файла описания объекта");
|
|
|
|
// Файл модуля объекта
|
|
Эталон = ОбъединитьПути(ОбъединитьПути(КаталогКонфигурации, "Catalogs", "Пользователи"), "Ext", "ObjectModule.bsl");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.ИмяФайлаМодуля("Пользователи", "Catalog", "ObjectModule"), Эталон, "Не корректное имя файла модуля");
|
|
|
|
КонецПроцедуры
|
|
|
|
Процедура ТестСтруктураКаталоговВыгрузкаEDT() Экспорт
|
|
|
|
|
|
КаталогКонфигурации = "configuration";
|
|
СтруктураКаталоговКонфигурации = Новый СтруктураКаталоговКонфигурации(КаталогКонфигурации, "EDT");
|
|
|
|
// Корневой каталог
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.КорневойКаталог(), КаталогКонфигурации, "Не корректный каталог конфигурации");
|
|
|
|
// Каталог справочника
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Catalogs", "Пользователи");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.КаталогФайловОбъекта("Пользователи", "Catalog"), Эталон, "Не корректный каталог конфигурации");
|
|
|
|
// Каталог файлов дополнительных файлов описания справочника
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Catalogs", "Пользователи");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.КаталогДополнительныхФайловОбъекта("Пользователи", "Catalog"), Эталон, "Не корректный каталог доп. файлов объекта");
|
|
|
|
// Каталог вида объекта
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Catalogs");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.КаталогВидаОбъекта("Catalog"), Эталон, "Не корректный каталог вида объекта");
|
|
|
|
// Каталог описания конфигурации
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Configuration", "Configuration.mdo");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.ИмяФайлаОписанияКонфигурации(), Эталон, "Не корректное имя файла описания конфигурации");
|
|
|
|
// Файл описания объекта
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Catalogs", "Пользователи", "Пользователи.mdo");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.ИмяФайлаОписанияОбъекта("Пользователи", "Catalog"), Эталон, "Не корректное имя файла описания объекта");
|
|
|
|
// Файл модуля объекта
|
|
Эталон = ОбъединитьПути(КаталогКонфигурации, "Catalogs", "Пользователи", "ObjectModule.bsl");
|
|
Утверждения.ПроверитьРавенство(СтруктураКаталоговКонфигурации.ИмяФайлаМодуля("Пользователи", "Catalog", "ObjectModule"), Эталон, "Не корректное имя файла модуля");
|
|
|
|
КонецПроцедуры
|
|
|
|
///////////////////////////////////////////////////////////////////
|
|
// Служебный функционал
|
|
///////////////////////////////////////////////////////////////////
|