|
33 | 33 |
|
34 | 34 | ПутьТестов = ПутьЗапускателяТестов+"xddDataFixtureGen.epf"; |
35 | 35 | КоличествоУпавшихТестов = 0; |
36 | | - КоличествоЗеленыхТестов = 15; |
| 36 | + КоличествоЗеленыхТестов = 16; |
37 | 37 |
|
38 | 38 | ИмяПользователя = ТекущийПользователь.Имя; |
39 | 39 | РежимЗапуска = РежимЗапускаКлиентскогоПриложения.ОбычноеПриложение; |
|
52 | 52 | ПрефиксПредставления + "Протестить генератор макетов данных ( xddDataFixtureGen ) в отдельном сеансе пользователя <"+ИмяПользователя+"> (Толстый клиент управляемое приложение)", Настройка); |
53 | 53 | ВсеТесты.Добавить(ПараметрыТеста); |
54 | 54 |
|
55 | | - КоличествоЗеленыхТестов = 13; |
| 55 | + КоличествоЗеленыхТестов = 14; |
56 | 56 | ЗапускатьТолстыйКлиент = Ложь; |
57 | 57 | Настройка = Новый Структура("ИмяПользователя,ИмяМакета,ЗапускатьТолстыйКлиент,ПутьТестов,КоличествоУпавшихТестов,РежимЗапуска,КоличествоЗеленыхТестов,ЗавершатьРаботуСистемы", |
58 | 58 | ИмяПользователя, "", ЗапускатьТолстыйКлиент, ПутьТестов, КоличествоУпавшихТестов, РежимЗапуска, КоличествоЗеленыхТестов, Истина); |
|
147 | 147 | КоличествоУпавшихТестов = 0; |
148 | 148 | КоличествоЗеленыхТестов = 4; |
149 | 149 |
|
150 | | - РежимЗапуска = РежимЗапускаКлиентскогоПриложения.ОбычноеПриложение; |
151 | | - ЗапускатьТолстыйКлиент = Истина; |
152 | | - Настройка = Новый Структура("ИмяПользователя,ИмяМакета,ЗапускатьТолстыйКлиент,ПутьТестов,КоличествоУпавшихТестов,РежимЗапуска,КоличествоЗеленыхТестов", |
153 | | - ИмяПользователя, "", ЗапускатьТолстыйКлиент, ПутьТестов, КоличествоУпавшихТестов, РежимЗапуска, КоличествоЗеленыхТестов); |
154 | | - ПараметрыТеста = Новый Структура("ИмяТеста,ПредставлениеТеста,Параметр", "ВыполнитьОдинТестЧерезЗапуск1СПредприятия", |
155 | | - ПрефиксПредставления + "Протестить успешный тест в отдельном сеансе пользователя <"+ИмяПользователя+"> (Обычное приложение)", Настройка); |
156 | | - ВсеТесты.Добавить(ПараметрыТеста); |
157 | | - |
158 | | - РежимЗапуска = РежимЗапускаКлиентскогоПриложения.УправляемоеПриложение; |
159 | | - ЗапускатьТолстыйКлиент = Ложь; |
160 | | - Настройка = Новый Структура("ИмяПользователя,ИмяМакета,ЗапускатьТолстыйКлиент,ПутьТестов,КоличествоУпавшихТестов,РежимЗапуска,КоличествоЗеленыхТестов", |
161 | | - ИмяПользователя, "", ЗапускатьТолстыйКлиент, ПутьТестов, КоличествоУпавшихТестов, РежимЗапуска, КоличествоЗеленыхТестов); |
162 | | - ПараметрыТеста = Новый Структура("ИмяТеста,ПредставлениеТеста,Параметр", "ВыполнитьОдинТестЧерезЗапуск1СПредприятия", |
163 | | - ПрефиксПредставления + "Протестить успешный тест в отдельном сеансе пользователя <"+ИмяПользователя+"> (Тонкий клиент)", Настройка); |
164 | | - ВсеТесты.Добавить(ПараметрыТеста); |
165 | | - |
166 | | - ЗапускатьТолстыйКлиент = Истина; |
167 | | - Настройка = Новый Структура("ИмяПользователя,ИмяМакета,ЗапускатьТолстыйКлиент,ПутьТестов,КоличествоУпавшихТестов,РежимЗапуска,КоличествоЗеленыхТестов", |
168 | | - ИмяПользователя, "", ЗапускатьТолстыйКлиент, ПутьТестов, КоличествоУпавшихТестов, РежимЗапуска, КоличествоЗеленыхТестов); |
169 | | - ПараметрыТеста = Новый Структура("ИмяТеста,ПредставлениеТеста,Параметр", "ВыполнитьОдинТестЧерезЗапуск1СПредприятия", |
170 | | - ПрефиксПредставления + "Протестить успешный тест в отдельном сеансе пользователя <"+ИмяПользователя+"> (Толстый клиент управляемое приложение)", Настройка); |
171 | | - ВсеТесты.Добавить(ПараметрыТеста); |
| 150 | + МассивФлаговСлучайногоВыполнения = Новый Массив; |
| 151 | + МассивФлаговСлучайногоВыполнения.Добавить(Ложь); |
| 152 | + МассивФлаговСлучайногоВыполнения.Добавить(Истина); |
172 | 153 |
|
| 154 | + Для каждого СлучайныйПорядок Из МассивФлаговСлучайногоВыполнения Цикл |
| 155 | + РежимЗапуска = РежимЗапускаКлиентскогоПриложения.ОбычноеПриложение; |
| 156 | + ЗапускатьТолстыйКлиент = Истина; |
| 157 | + ДопТекст = "Обычное приложение"; |
| 158 | + Настройка = Новый Структура("ИмяПользователя,ИмяМакета,ЗапускатьТолстыйКлиент,ПутьТестов,КоличествоУпавшихТестов,РежимЗапуска,КоличествоЗеленыхТестов", |
| 159 | + ИмяПользователя, "", ЗапускатьТолстыйКлиент, ПутьТестов, КоличествоУпавшихТестов, РежимЗапуска, КоличествоЗеленыхТестов); |
| 160 | + Если СлучайныйПорядок Тогда |
| 161 | + Настройка.Вставить("СлучайныйПорядокВыполнения", Истина); |
| 162 | + //Настройка.Вставить("ЗавершатьРаботуСистемы", Ложь); |
| 163 | + ДопТекст = ДопТекст + ", случайный порядок тестов"; |
| 164 | + КонецЕсли; |
| 165 | + ПараметрыТеста = Новый Структура("ИмяТеста,ПредставлениеТеста,Параметр", "ВыполнитьОдинТестЧерезЗапуск1СПредприятия", |
| 166 | + ПрефиксПредставления + "Протестить успешный тест в отдельном сеансе пользователя <"+ИмяПользователя+"> ("+ДопТекст+")", Настройка); |
| 167 | + ВсеТесты.Добавить(ПараметрыТеста); |
| 168 | + |
| 169 | + РежимЗапуска = РежимЗапускаКлиентскогоПриложения.УправляемоеПриложение; |
| 170 | + ЗапускатьТолстыйКлиент = Ложь; |
| 171 | + ДопТекст = "Тонкий клиент"; |
| 172 | + Настройка = Новый Структура("ИмяПользователя,ИмяМакета,ЗапускатьТолстыйКлиент,ПутьТестов,КоличествоУпавшихТестов,РежимЗапуска,КоличествоЗеленыхТестов", |
| 173 | + ИмяПользователя, "", ЗапускатьТолстыйКлиент, ПутьТестов, КоличествоУпавшихТестов, РежимЗапуска, КоличествоЗеленыхТестов); |
| 174 | + Если СлучайныйПорядок Тогда |
| 175 | + Настройка.Вставить("СлучайныйПорядокВыполнения", Истина); |
| 176 | + ДопТекст = ДопТекст + ", случайный порядок тестов"; |
| 177 | + КонецЕсли; |
| 178 | + ПараметрыТеста = Новый Структура("ИмяТеста,ПредставлениеТеста,Параметр", "ВыполнитьОдинТестЧерезЗапуск1СПредприятия", |
| 179 | + ПрефиксПредставления + "Протестить успешный тест в отдельном сеансе пользователя <"+ИмяПользователя+"> ("+ДопТекст+")", Настройка); |
| 180 | + ВсеТесты.Добавить(ПараметрыТеста); |
| 181 | + |
| 182 | + ЗапускатьТолстыйКлиент = Истина; |
| 183 | + ДопТекст = "Толстый клиент управляемое приложение"; |
| 184 | + Настройка = Новый Структура("ИмяПользователя,ИмяМакета,ЗапускатьТолстыйКлиент,ПутьТестов,КоличествоУпавшихТестов,РежимЗапуска,КоличествоЗеленыхТестов", |
| 185 | + ИмяПользователя, "", ЗапускатьТолстыйКлиент, ПутьТестов, КоличествоУпавшихТестов, РежимЗапуска, КоличествоЗеленыхТестов); |
| 186 | + Если СлучайныйПорядок Тогда |
| 187 | + Настройка.Вставить("СлучайныйПорядокВыполнения", Истина); |
| 188 | + ДопТекст = ДопТекст + ", случайный порядок тестов"; |
| 189 | + КонецЕсли; |
| 190 | + ПараметрыТеста = Новый Структура("ИмяТеста,ПредставлениеТеста,Параметр", "ВыполнитьОдинТестЧерезЗапуск1СПредприятия", |
| 191 | + ПрефиксПредставления + "Протестить успешный тест в отдельном сеансе пользователя <"+ИмяПользователя+"> ("+ДопТекст+")", Настройка); |
| 192 | + ВсеТесты.Добавить(ПараметрыТеста); |
| 193 | + КонецЦикла; |
173 | 194 |
|
174 | 195 | //{ |
175 | 196 |
|
|
587 | 608 |
|
588 | 609 | ТекстЛога1с = ?(Настройка.Свойство("ТекстЛога1с"), Настройка.ТекстЛога1с, ""); |
589 | 610 | ВыводЛогаВФорматеTeamCity = ?(Настройка.Свойство("ВыводЛогаВФорматеTeamCity"), Настройка.ВыводЛогаВФорматеTeamCity, Ложь); |
| 611 | + СлучайныйПорядокВыполнения = ?(Настройка.Свойство("СлучайныйПорядокВыполнения"), Настройка.СлучайныйПорядокВыполнения, Ложь); |
590 | 612 |
|
591 | 613 | ПроизводитьПроверкуРезультатовТеста = ?(Настройка.Свойство("ПроизводитьПроверкуРезультата"), Настройка.ПроизводитьПроверкуРезультата, Истина); |
592 | 614 | ЗавершатьРаботуСистемы = Истина; |
|
663 | 685 | Если ВыводЛогаВФорматеTeamCity Тогда |
664 | 686 | СтрокаПараметров = СтрокаПараметров + ";xddLogForTeamCity"; |
665 | 687 | КонецЕсли; |
| 688 | + Если СлучайныйПорядокВыполнения Тогда |
| 689 | + СтрокаПараметров = СтрокаПараметров + ";xddRandomOrder"; |
| 690 | + КонецЕсли; |
666 | 691 |
|
667 | 692 | СтрокаКоманды = """"+ПутьКПлатформе1С + """ "+СтрокаРежимЗапуска + СтрокаСоединения +" /DisableStartupMessages /Execute "+ИспользуемоеИмяФайлаЗапускателяТестов+ |
668 | 693 | " /Out "+ПутьФайлаОтчета1С+" /C """+СтрокаПараметров+""" /LogUI "; |
| 694 | + //Сообщить(СтрокаКоманды); |
669 | 695 |
|
670 | 696 | ЗапуститьПриложение(СтрокаКоманды,, Истина); |
671 | 697 |
|
|
674 | 700 | ЮТест.Проверить(ФайлПутьЛогаТестирования.Существует(), "Не существует лог тестирования <"+ПутьЛогаТестирования+">"); |
675 | 701 |
|
676 | 702 | Если ПроизводитьПроверкуРезультатовТеста Тогда |
| 703 | + //ЧтениеТекста = Новый ЧтениеТекста(ПутьЛогаТестирования); |
| 704 | + //Сообщить(Символы.ПС+ЧтениеТекста.Прочитать()+Символы.ПС); |
677 | 705 |
|
678 | 706 | КоличествоУпавшихТестов = 0; |
679 | 707 | КоличествоЗеленыхТестов = 0; |
|
0 commit comments