1c_tools/epf_Iterator
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ Первые + Последние +(тесты)

Browse Source
This commit is contained in:
Dmitry Belyaev 2022-09-01 12:10:27 +03:00
parent 1c737bce8e
commit 44de5e1e03
Signed by: b4tman
GPG Key ID: 41A00BF15EA7E5F3
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Итератор/Ext/ObjectModule.bsl
View File

@ -313,6 +313,9 @@
Коллекция = __ВзятьНеБольше(Коллекция, Количество);
Возврат ЭтотОбъект;
КонецФункции
Функция Первые(Знач Количество) Экспорт
Возврат ЭтотОбъект.ВзятьНеБольше(Количество);
КонецФункции
Функция Пропустить(Знач Количество) Экспорт
Если НЕ Тип("Массив") = ТипЗнч(Коллекция) Тогда
ЭтотОбъект.Начать();
@ -334,6 +337,9 @@
Функция Хвост(Знач Количество) Экспорт
Возврат ЭтотОбъект.Срез(ЭтотОбъект.Количество() - Количество, Количество);
КонецФункции
Функция Последние(Знач Количество) Экспорт
Возврат ЭтотОбъект.Хвост(Количество);
КонецФункции
Функция Обратить() Экспорт
Если НЕ Тип("Массив") = ТипЗнч(Коллекция) Тогда
ЭтотОбъект.Начать();

19
test/Тест_Итератор/Ext/ObjectModule.bsl
View File

@ -36,9 +36,11 @@
НаборТестов.Добавить("Тест_Фильтр");
НаборТестов.Добавить("Тест_Свернуть");
НаборТестов.Добавить("Тест_ВзятьНеБольше");
НаборТестов.Добавить("Тест_Первые");
НаборТестов.Добавить("Тест_Пропустить");
НаборТестов.Добавить("Тест_Срез");
НаборТестов.Добавить("Тест_Хвост");
НаборТестов.Добавить("Тест_Последние");
НаборТестов.Добавить("Тест_Обратить");
НаборТестов.Добавить("Тест_Транспонировать");
НаборТестов.Добавить("Тест_Сортировать");
@ -250,6 +252,14 @@
Ожидаем.Что(Результат).Равно("1 2 3 4 5");
КонецПроцедуры
Процедура Тест_Первые() Экспорт
Результат = Итератор()
.ВзятьИз("123456789")
.Первые(3)
.СобратьСтроку("");
Ожидаем.Что(Результат).Равно("123");
КонецПроцедуры
Процедура Тест_Пропустить() Экспорт
Результат = Итератор()
.ПоДиапазону(1,10)
@ -277,6 +287,15 @@
Ожидаем.Что(Результат).Равно("8 9 10");
КонецПроцедуры
Процедура Тест_Последние() Экспорт
Результат = Итератор()
.ВзятьИз("1234567890")
.КакСтроки()
.Последние(4)
.СобратьСтроку("-");
Ожидаем.Что(Результат).Равно("7-8-9-0");
КонецПроцедуры
Процедура Тест_Обратить() Экспорт
Результат = Итератор()
.ПоДиапазону(1,3)