epf_Iterator/test/Тест_Итератор/Ext/ObjectModule.bsl

333 lines
18 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Перем КонтекстЯдра;
Перем Ожидаем;
Перем Утверждения;
Перем СтроковыеУтилиты;
// { интерфейс тестирования
Процедура Инициализация(КонтекстЯдраПараметр) Экспорт
КонтекстЯдра = КонтекстЯдраПараметр;
Утверждения = КонтекстЯдра.Плагин("БазовыеУтверждения");
Ожидаем = КонтекстЯдра.Плагин("УтвержденияBDD");
СтроковыеУтилиты = КонтекстЯдра.Плагин("СтроковыеУтилиты");
КонецПроцедуры
Процедура ЗаполнитьНаборТестов(НаборТестов) Экспорт
НаборТестов.Добавить("ТестДолжен_ПроверитьСозданиеИтератора");
НаборТестов.НачатьГруппу("Тесты итератора", Истина);
НаборТестов.Добавить("Тест_СоздатьНовый");
НаборТестов.Добавить("Тест_Клонировать");
НаборТестов.Добавить("Тест_Начать");
НаборТестов.Добавить("Тест_НачатьС");
НаборТестов.Добавить("Тест_ВзятьИз");
НаборТестов.Добавить("Тест_РазделитьСтроку");
НаборТестов.Добавить("Тест_УстановитьКонтекст");
НаборТестов.Добавить("Тест_Собрать");
НаборТестов.Добавить("Тест_СобратьСтроку");
НаборТестов.Добавить("Тест_Контекст");
НаборТестов.Добавить("Тест_Карта");
НаборТестов.Добавить("Тест_Фильтр");
НаборТестов.Добавить("Тест_Свернуть");
НаборТестов.Добавить("Тест_ВзятьНеБольше");
НаборТестов.Добавить("Тест_Пропустить");
НаборТестов.Добавить("Тест_Срез");
НаборТестов.Добавить("Тест_Хвост");
НаборТестов.Добавить("Тест_Обратить");
НаборТестов.Добавить("Тест_Транспонировать");
НаборТестов.Добавить("Тест_Сортировать");
НаборТестов.Добавить("Тест_Перемешать");
НаборТестов.Добавить("Тест_ВГраница");
НаборТестов.Добавить("Тест_Количество");
НаборТестов.Добавить("Тест_Вставить");
НаборТестов.Добавить("Тест_Добавить");
НаборТестов.Добавить("Тест_Найти");
НаборТестов.Добавить("Тест_Очистить");
НаборТестов.Добавить("Тест_Получить");
НаборТестов.Добавить("Тест_Удалить");
НаборТестов.Добавить("Тест_Установить");
НаборТестов.Добавить("Тест_Пустой");
НаборТестов.Добавить("Тест_Содержит");
НаборТестов.Добавить("Тест_Первый");
НаборТестов.Добавить("Тест_Последний");
НаборТестов.Добавить("Тест_СнятьПервый");
НаборТестов.Добавить("Тест_СнятьПоследний");
НаборТестов.Добавить("Тест_Дополнить");
НаборТестов.Добавить("Тест_ТолькоУникальные");
НаборТестов.Добавить("Тест_РазностьС");
НаборТестов.Добавить("Тест_УдалитьЗначение");
НаборТестов.Добавить("Тест_УдалитьВсеВхождения");
НаборТестов.Добавить("Тест_УдалитьВсеВхожденияТипа");
НаборТестов.Добавить("Тест_СделатьПлоским");
НаборТестов.Добавить("Тест_СброситьПозицию");
НаборТестов.Добавить("Тест_Следующий");
НаборТестов.Добавить("Тест_ТекущийИндекс");
НаборТестов.Добавить("Тест_ТекущийЭлемент");
НаборТестов.Добавить("Тест_СледующийЭлемент");
НаборТестов.Добавить("Тест_УстановитьИндекс");
НаборТестов.Добавить("Тест_Продвинуть");
НаборТестов.Добавить("Тест_ИндексКорректен");
НаборТестов.Добавить("Тест_Максимум");
НаборТестов.Добавить("Тест_Минимум");
НаборТестов.Добавить("Тест_Сумма");
НаборТестов.Добавить("Тест_Произведение");
НаборТестов.Добавить("Тест_Среднее");
НаборТестов.Добавить("Тест_Медиана");
НаборТестов.Добавить("Тест_КакСтроки");
НаборТестов.Добавить("Тест_КакЧисла");
НаборТестов.Добавить("Тест_КакДаты");
НаборТестов.Добавить("Тест_КакБулево");
НаборТестов.Добавить("Тест_ВерноВсе");
НаборТестов.Добавить("Тест_ВерноЛюбое");
НаборТестов.Добавить("Тест_ВерноТолькоОдно");
КонецПроцедуры
Процедура ПередЗапускомТеста() Экспорт
КонецПроцедуры
Процедура ПослеЗапускаТеста() Экспорт
КонецПроцедуры
Функция ПутьКФайлу_ОбъектаТестирования()
ПутьКЭтойОбработке = ЭтотОбъект["ИспользуемоеИмяФайла"];
Файл_Этот = Новый Файл(ПутьКЭтойОбработке);
Возврат СтрШаблон("%1%2Итератор.epf", Файл_Этот.Путь, ПолучитьРазделительПути());
КонецФункции
Функция Итератор()
ОЗООД = Новый ОписаниеЗащитыОтОпасныхДействий;
ОЗООД.ПредупреждатьОбОпасныхДействиях = Ложь;
Возврат ВнешниеОбработки.Создать(ПутьКФайлу_ОбъектаТестирования(), Ложь, ОЗООД);
КонецФункции
// } интерфейс тестирования
// { блок юнит-тестов - сами тесты
Процедура ТестДолжен_ПроверитьСозданиеИтератора() Экспорт
Ожидаем.Что(Итератор().Метаданные().Синоним).Равно("Итератор");
КонецПроцедуры
Процедура Тест_СоздатьНовый() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Клонировать() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Начать() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_НачатьС() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_ВзятьИз() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_РазделитьСтроку() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_УстановитьКонтекст() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Собрать() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_СобратьСтроку() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Контекст() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Карта() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Фильтр() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Свернуть() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_ВзятьНеБольше() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Пропустить() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Срез() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Хвост() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Обратить() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Транспонировать() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Сортировать() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Перемешать() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_ВГраница() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Количество() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Вставить() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Добавить() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Найти() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Очистить() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Получить() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Удалить() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Установить() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Пустой() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Содержит() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Первый() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Последний() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_СнятьПервый() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_СнятьПоследний() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Дополнить() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_ТолькоУникальные() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_РазностьС() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_УдалитьЗначение() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_УдалитьВсеВхождения() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_УдалитьВсеВхожденияТипа() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_СделатьПлоским() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_СброситьПозицию() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Следующий() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_ТекущийИндекс() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_ТекущийЭлемент() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_СледующийЭлемент() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_УстановитьИндекс() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Продвинуть() Экспорт
ВызватьИсключение "Не реализовано";КонецПроцедуры
Процедура Тест_ИндексКорректен() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Максимум() Экспорт
ВызватьИсключение "Не реализовано";КонецПроцедуры
Процедура Тест_Минимум() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Сумма() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Произведение() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Среднее() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_Медиана() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_КакСтроки() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_КакЧисла() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_КакДаты() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_КакБулево() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_ВерноВсе() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_ВерноЛюбое() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры
Процедура Тест_ВерноТолькоОдно() Экспорт
ВызватьИсключение "Не реализовано";
КонецПроцедуры