добавлен тест получения списка сервисов

arkuznetsov · Mar 27, 2018 · a126eda · a126eda
1 parent 169903f
commit a126eda
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/tests/irac-test.os b/tests/irac-test.os
@@ -33,6 +33,7 @@
 	СписокТестов.Добавить("ТестДолжен_ПолучитьСписокМенеджеров");
 	СписокТестов.Добавить("ТестДолжен_ПолучитьСписокСерверовКластера");
 	СписокТестов.Добавить("ТестДолжен_ПолучитьСписокРабочихПроцессов");
+	СписокТестов.Добавить("ТестДолжен_ПолучитьСписокСервисов");
 	СписокТестов.Добавить("ТестДолжен_ПолучитьСписокБазНаСервере");
 	СписокТестов.Добавить("ТестДолжен_ПолучитьСписокСеансовКластера");
 	СписокТестов.Добавить("ТестДолжен_ПолучитьСписокСоединенийКластера");
@@ -126,6 +127,21 @@
 
 КонецПроцедуры // ТестДолжен_ПолучитьСписокРабочихПроцессов()
 
+// Процедура - тест
+//
+Процедура ТестДолжен_ПолучитьСписокСервисов() Экспорт
+
+	Кластеры = АгентКластера.Кластеры().Список();
+
+	Для Каждого Кластер Из Кластеры Цикл
+		Сервисы = Кластер.Сервисы().Список();
+		Прервать;
+	КонецЦикла;
+
+	Утверждения.ПроверитьБольше(Сервисы.Количество(), 0, "Не удалось получить список сервисов");
+
+КонецПроцедуры // ТестДолжен_ПолучитьСписокСервисов()
+
 // Процедура - тест
 //
 Процедура ТестДолжен_ПолучитьСписокБазНаСервере() Экспорт