|
21 | 21 | КонецПроцедуры |
22 | 22 |
|
23 | 23 | Процедура ЗаполнитьНаборТестов(НаборТестов, КонтекстЯдраПараметр) Экспорт |
24 | | - |
| 24 | + |
25 | 25 | КонтекстЯдра = КонтекстЯдраПараметр; |
26 | 26 |
|
27 | 27 | ВидыМетаданных = ВидыМетаданных(); |
|
33 | 33 | НастройкаГруппировки = ПолучитьНастройкуГруппировки(Настройки); |
34 | 34 |
|
35 | 35 | НужноИсключениеЕслиНеНайденоДокументов = Ложь; |
36 | | - |
| 36 | + |
37 | 37 | Если НЕ СоздатьФорму_ПолучениеФорм() Тогда |
38 | 38 | Возврат; |
39 | 39 | КонецЕсли; |
40 | 40 |
|
41 | 41 | СоздатьИменаОсновныхФорм(); |
42 | 42 |
|
| 43 | + Если ВключенСтрогийПорядокВыполнения() Тогда |
| 44 | + НаборТестов.СтрогийПорядокВыполнения(); |
| 45 | + КонецЕсли; |
| 46 | + |
43 | 47 | Если НЕ ВидМетаданныхИсключенИзТестирования("Справочники") Тогда |
44 | 48 | ДобавитьТестыФормСправочников(НаборТестов, НастройкаГруппировки); |
45 | 49 | КонецЕсли; |
|
322 | 326 | #Область ФормированиеСпискаТестовыхСлучаев |
323 | 327 |
|
324 | 328 | Процедура ДобавитьТестыФормСправочников(НаборТестов, НастройкаГруппировки) |
325 | | - |
| 329 | + |
| 330 | + СтрогийПорядокВыполнения = ВключенСтрогийПорядокВыполнения(); |
| 331 | + |
326 | 332 | Если НастройкаГруппировки.ГруппироватьПоВидуМетаданных Тогда |
327 | | - НаборТестов.НачатьГруппу("Справочники"); |
| 333 | + НаборТестов.НачатьГруппу("Справочники", СтрогийПорядокВыполнения); |
328 | 334 | КонецЕсли; |
329 | 335 | Счетчик = 0; |
330 | 336 |
|
|
333 | 339 | Если НастройкаГруппировки.ГруппироватьПоКоличеству Тогда |
334 | 340 | Если Счетчик % НастройкаГруппировки.КоличествоВГруппе = 0 Тогда |
335 | 341 | ИмяГруппы = "Справочники (" + Строка(Счетчик + 1) + "..." + Строка(Счетчик + НастройкаГруппировки.КоличествоВГруппе) + ")"; |
336 | | - НаборТестов.НачатьГруппу(ИмяГруппы); |
| 342 | + НаборТестов.НачатьГруппу(ИмяГруппы, СтрогийПорядокВыполнения); |
337 | 343 | КонецЕсли; |
338 | 344 | КонецЕсли; |
339 | 345 |
|
340 | 346 | Если НастройкаГруппировки.ГруппироватьПоВидуОбъекта Тогда |
341 | | - НаборТестов.НачатьГруппу("Справочник." + МетаОбъект.Имя); |
| 347 | + НаборТестов.НачатьГруппу("Справочник." + МетаОбъект.Имя, СтрогийПорядокВыполнения); |
342 | 348 | КонецЕсли; |
343 | 349 |
|
344 | 350 | Счетчик = Счетчик + 1; |
|
388 | 394 | КонецПроцедуры |
389 | 395 |
|
390 | 396 | Процедура ДобавитьТестыФормДокументов(НаборТестов, НастройкаГруппировки) |
391 | | - |
| 397 | + |
| 398 | + СтрогийПорядокВыполнения = ВключенСтрогийПорядокВыполнения(); |
| 399 | + |
392 | 400 | Если НастройкаГруппировки.ГруппироватьПоВидуМетаданных Тогда |
393 | | - НаборТестов.НачатьГруппу("Документы"); |
| 401 | + НаборТестов.НачатьГруппу("Документы", СтрогийПорядокВыполнения); |
394 | 402 | КонецЕсли; |
395 | 403 |
|
396 | 404 | Счетчик = 0; |
|
400 | 408 | Если НастройкаГруппировки.ГруппироватьПоКоличеству Тогда |
401 | 409 | Если Счетчик % НастройкаГруппировки.КоличествоВГруппе = 0 Тогда |
402 | 410 | ИмяГруппы = "Документы (" + Строка(Счетчик + 1) + "..." + Строка(Счетчик + НастройкаГруппировки.КоличествоВГруппе) + ")"; |
403 | | - НаборТестов.НачатьГруппу(ИмяГруппы); |
| 411 | + НаборТестов.НачатьГруппу(ИмяГруппы, СтрогийПорядокВыполнения); |
404 | 412 | КонецЕсли; |
405 | 413 | КонецЕсли; |
406 | 414 |
|
407 | 415 | Если НастройкаГруппировки.ГруппироватьПоВидуОбъекта Тогда |
408 | | - НаборТестов.НачатьГруппу("Документ." + МетаОбъект.Имя); |
| 416 | + НаборТестов.НачатьГруппу("Документ." + МетаОбъект.Имя, СтрогийПорядокВыполнения); |
409 | 417 | КонецЕсли; |
410 | 418 |
|
411 | 419 | Счетчик = Счетчик + 1; |
|
455 | 463 | Процедура ДобавитьТестыФормОбработок(НаборТестов, НастройкаГруппировки) |
456 | 464 |
|
457 | 465 | Если НастройкаГруппировки.ГруппироватьПоВидуМетаданных Тогда |
458 | | - НаборТестов.НачатьГруппу("Обработки"); |
| 466 | + НаборТестов.НачатьГруппу("Обработки", ВключенСтрогийПорядокВыполнения()); |
459 | 467 | КонецЕсли; |
460 | 468 |
|
461 | 469 | ДобавитьТестПоМенеджеруМетаданных( |
|
469 | 477 | КонецПроцедуры |
470 | 478 |
|
471 | 479 | Процедура ДобавитьТестыФормОтчетов(НаборТестов, НастройкаГруппировки) |
472 | | - |
| 480 | + |
473 | 481 | Если НастройкаГруппировки.ГруппироватьПоВидуМетаданных Тогда |
474 | | - НаборТестов.НачатьГруппу("Отчеты"); |
| 482 | + НаборТестов.НачатьГруппу("Отчеты", ВключенСтрогийПорядокВыполнения()); |
475 | 483 | КонецЕсли; |
476 | 484 |
|
477 | 485 | ДобавитьТестПоМенеджеруМетаданных( |
|
485 | 493 | КонецПроцедуры |
486 | 494 |
|
487 | 495 | Процедура ДобавитьТестПоМенеджеруМетаданных(НаборТестов, менеджерМетаданного, имяТеста, списокИсключений, ИменаОсновныхФорм) |
488 | | - |
| 496 | + |
489 | 497 | НастройкаГруппировки = ПолучитьНастройкуГруппировки(Настройки); |
| 498 | + СтрогийПорядокВыполнения = ВключенСтрогийПорядокВыполнения(); |
490 | 499 |
|
491 | 500 | ЭтоОтчеты = (менеджерМетаданного = Метаданные.Отчеты); |
492 | 501 |
|
|
498 | 507 | Если Счетчик % НастройкаГруппировки.КоличествоВГруппе = 0 Тогда |
499 | 508 | ИмяГруппы = ?(ЭтоОтчеты, "Отчеты", "Обработки") + " (" + Строка(Счетчик + 1) + "..." + |
500 | 509 | Строка(Счетчик + НастройкаГруппировки.КоличествоВГруппе) + ")"; |
501 | | - НаборТестов.НачатьГруппу(ИмяГруппы); |
| 510 | + НаборТестов.НачатьГруппу(ИмяГруппы, СтрогийПорядокВыполнения); |
502 | 511 | КонецЕсли; |
503 | 512 | КонецЕсли; |
504 | 513 |
|
505 | 514 | Если НастройкаГруппировки.ГруппироватьПоВидуОбъекта Тогда |
506 | | - НаборТестов.НачатьГруппу(?(ЭтоОтчеты, "Отчет", "Обработка") + "." + МетаОбъект.Имя); |
| 515 | + НаборТестов.НачатьГруппу(?(ЭтоОтчеты, "Отчет", "Обработка") + "." + МетаОбъект.Имя, СтрогийПорядокВыполнения); |
507 | 516 | КонецЕсли; |
508 | 517 |
|
509 | 518 | Счетчик = Счетчик + 1; |
|
535 | 544 | КонецЕсли; |
536 | 545 |
|
537 | 546 | Если ПропускатьТест Тогда |
538 | | - имяТеста = ИмяМетодаПропускаТестов(); |
539 | 547 | ПараметрыПропускаемогоТеста = НаборТестов.ПараметрыТеста(ПрефиксПропускаемых); |
540 | 548 | КонецЕсли; |
541 | 549 |
|
|
570 | 578 | Если ПропускатьТест Или ПропускатьТестФормы Тогда |
571 | 579 | ПредставлениеТеста = ПрефиксПропускаемых + " : " + ПредставлениеТеста; |
572 | 580 | ПараметрыТеста = ПараметрыПропускаемогоТеста; |
| 581 | + ВремИмяТеста = ИмяМетодаПропускаТестов(); |
573 | 582 | Иначе |
| 583 | + ВремИмяТеста = имяТеста; |
574 | 584 | ПараметрыТеста = НаборТестов.ПараметрыТеста(МетаФорма_ПолноеИмя, ЕстьТранзакция, МетаОбъект); |
575 | 585 | КонецЕсли; |
576 | 586 |
|
577 | | - НаборТестов.Добавить(имяТеста, ПараметрыТеста, ПредставлениеТеста); |
| 587 | + НаборТестов.Добавить(ВремИмяТеста, ПараметрыТеста, ПредставлениеТеста); |
578 | 588 |
|
579 | 589 | КонецЦикла; |
580 | 590 |
|
|
603 | 613 |
|
604 | 614 | Если ПропускатьТест Тогда |
605 | 615 | ПрефиксПредставленияТеста = ПрефиксПредставленияТеста + " : " + ПрефиксПропускаемых; |
606 | | - имяТеста = ИмяМетодаПропускаТестов(); |
607 | 616 | ПараметрыПропускаемогоТеста = НаборТестов.ПараметрыТеста(ПрефиксПропускаемых); |
608 | 617 | КонецЕсли; |
609 | 618 |
|
|
626 | 635 |
|
627 | 636 | Если ПропускатьТест Или ПропускатьТестФормы Тогда |
628 | 637 | ПараметрыТеста = ПараметрыПропускаемогоТеста; |
| 638 | + ВремИмяТеста = ИмяМетодаПропускаТестов(); |
629 | 639 | Иначе |
630 | 640 | ПараметрыТеста = НаборТестов.ПараметрыТеста(МетаОбъект.Имя, МетаФорма_ПолноеИмя, МетаФорма, ЕстьТранзакция); |
| 641 | + ВремИмяТеста = имяТеста; |
631 | 642 | КонецЕсли; |
632 | 643 |
|
633 | | - НаборТестов.Добавить(имяТеста, ПараметрыТеста, ПредставлениеТеста); |
| 644 | + НаборТестов.Добавить(ВремИмяТеста, ПараметрыТеста, ПредставлениеТеста); |
634 | 645 |
|
635 | 646 | КонецЦикла; |
636 | 647 |
|
|
677 | 688 |
|
678 | 689 | // Портировано из подсистемы "Инструменты разработчика" |
679 | 690 |
|
680 | | -Процедура ТестДолжен_ОткрытьФорму_ПоМетаФорме(МетаФорма_ПолноеИмя, ЕстьТранзакция, МетаданныеВладельцаФормы) Экспорт |
| 691 | +Процедура ТестДолжен_ОткрытьФорму_ПоМетаФорме(МетаФорма_ПолноеИмя, ЕстьТранзакция=Ложь, МетаданныеВладельцаФормы=Неопределено) Экспорт |
681 | 692 |
|
682 | 693 | ОткрытьФорму_ПоМетаФорме(МетаФорма_ПолноеИмя, "", Неопределено, Ложь, МетаданныеВладельцаФормы); |
683 | 694 |
|
|
1096 | 1107 |
|
1097 | 1108 | КонецФункции |
1098 | 1109 |
|
| 1110 | +Функция ВключенСтрогийПорядокВыполнения() |
| 1111 | + Если ЕстьНастройка("СтрогийПорядокВыполнения", Настройки) И Настройки.СтрогийПорядокВыполнения = Истина Тогда |
| 1112 | + Возврат Истина; |
| 1113 | + КонецЕсли; |
| 1114 | + Возврат Ложь; |
| 1115 | +КонецФункции |
| 1116 | + |
1099 | 1117 | #КонецОбласти |
1100 | 1118 |
|
1101 | 1119 | #Область ПоискИСозданиеОбъектов |
|
0 commit comments