             if l_proc_annotations.exists('testsetup') then
               l_setup_procedure := ut_annotations.get_annotation_param(l_proc_annotations('testsetup'), 1);
             end if;
-          
+
             if l_proc_annotations.exists('testteardown') then
               l_teardown_procedure := ut_annotations.get_annotation_param(l_proc_annotations('testteardown'), 1);
             end if;
-          
+
             if l_proc_annotations.exists('rollback') then
               l_rollback_annotation := ut_annotations.get_annotation_param(l_proc_annotations('rollback'), 1);
               l_rollback_type       := case lower(l_rollback_annotation)

        -- schema:suite.suite.suite
        l_suite_path      := regexp_substr(l_path, ':(.+)', subexpression => 1);
        l_root_suite_name := regexp_substr(l_suite_path, '^\w+');
        
        begin
          l_suite := l_schema_suites(l_root_suite_name);
        exception when no_data_found then
          raise_application_error(-20203, 'Suite ' || l_root_suite_name || ' note found');
        end;
        
        skip_by_path(l_suite, regexp_substr(l_suite_path, '\.(.+)', subexpression => 1));
        
        a_objects_to_run.extend;
        a_objects_to_run(a_objects_to_run.count) := l_suite;

      end if;
    
    end loop;
  end configure_execution_by_path;


        l_path       := l_ind;
      end if;
      put(l_root_suite, l_path, l_all_suites(l_ind));

      l_schema_suites(l_root) := l_root_suite;

      l_ind := l_all_suites.next(l_ind);
    end loop;

    -- Caching
    actualize_cache(a_owner_name, l_schema_suites);

    -- printing results for debugging purpose
    $if $$ut_trace $then
    l_ind := l_schema_suites.first;
