8686
8787КонецПроцедуры
8888
89- &Тест
90- Процедура ТестДолжен_ПроверитьФиксациюПотребленияПамятиДляМассиваСтрок () Экспорт
91-
92- // Подготовка
93- ОжидаемоеЗначениеВерсия1 = 122 ;
94- ОжидаемоеЗначениеВерсия2 = 145 ;
95- Погрешность = 1.01 ;
96- МассивСтрок = Новый Массив;
97- КоличествоЭлементов = 1000 ;
98- Текст = "Привет" ;
99- ВерсияСреды = ВерсияСреды();
100-
101- // Действие
102- МониторПамяти = Новый МониторПамяти();
103- МониторПамяти.Начать();
104-
105- Для Инд = 1 По КоличествоЭлементов Цикл
106- МассивСтрок.Добавить(Текст);
107- КонецЦикла ;
108-
109- ВыделеноБайт = МониторПамяти.Завершить();
110-
111- // Утверждение
112- Если ВерсияСреды = "1" Тогда
113- Ожидаем
114- .Что(ВыделеноБайт / КоличествоЭлементов)
115- .Больше(ОжидаемоеЗначениеВерсия1);
116- ИначеЕсли ВерсияСреды = "2" Тогда
117- Ожидаем
118- .Что(ВыделеноБайт / КоличествоЭлементов)
119- .Между(ОжидаемоеЗначениеВерсия2, ОжидаемоеЗначениеВерсия2 * Погрешность);
120- Иначе
121- ВызватьИсключение СтрШаблон ("Весрия среды %1 не поддерживается" , ВерсияСреды);
122- КонецЕсли ;
123-
124- КонецПроцедуры
125-
12689&Тест
12790Процедура ТестДолжен_ПроверитьРазмерКучи () Экспорт
12891
12992 // Подготовка
13093 Размер = 10 * 1024 * 1024 ;
131- Погрешность = 1.01 ;
94+ Погрешность = 1.02 ;
13295
13396 // Действие
13497 МониторПамяти = Новый МониторПамяти();
163126 // Утверждение
164127 Ожидаем.Что(ВыделеноБайт).Между(Размер, Размер * Погрешность);
165128
166- КонецПроцедуры
167-
168- Функция ВерсияСреды ()
169- СистемнаяИнформация = Новый СистемнаяИнформация();
170- Возврат Лев (СистемнаяИнформация.Версия, 1 );
171- КонецФункции
129+ КонецПроцедуры
0 commit comments