create or replace type body ut_run as
  /*
  utPLSQL - Version 3
  Copyright 2016 - 2026 utPLSQL Project

  Licensed under the Apache License, Version 2.0 (the "License"):
  you may not use this file except in compliance with the License.
  You may obtain a copy of the License at

      http://www.apache.org/licenses/LICENSE-2.0

  Unless required by applicable law or agreed to in writing, software
  distributed under the License is distributed on an "AS IS" BASIS,
  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  See the License for the specific language governing permissions and
  limitations under the License.
  */
  
  constructor function ut_run(
    self in out nocopy ut_run,
    a_items                  ut_suite_items := null,
    a_run_paths              ut_varchar2_list := null,
    a_coverage_options       ut_coverage_options := null,
    a_test_file_mappings     ut_file_mappings := null,
    a_client_character_set   varchar2 := null,
    a_random_test_order_seed positive := null,
    a_run_tags               varchar2 := null
  ) return self as result is
  begin
    self.run_paths := a_run_paths;
    self.run_tags  := a_run_tags;
    self.self_type := $$plsql_unit;
    self.items := a_items;
    self.client_character_set := lower(a_client_character_set);
    self.random_test_order_seed := a_random_test_order_seed;
    self.results_count := ut_results_counter();
    self.test_file_mappings := coalesce(a_test_file_mappings, ut_file_mappings());
    self.coverage_options := a_coverage_options;
    return;
  end;

  overriding member procedure mark_as_skipped(self in out nocopy ut_run,a_skip_reason in varchar2) is
  begin
    null;
  end;

  overriding member function do_execute(self in out nocopy ut_run) return boolean is
    l_completed_without_errors boolean;
  begin
    ut_utils.debug_log('ut_run.execute');

    ut_event_manager.trigger_event(ut_event_manager.gc_before_run, self);
    self.start_time := current_timestamp;

    -- clear anything that might stay in the session's cache
    ut_expectation_processor.clear_expectations;

    for i in 1 .. self.items.count loop
      l_completed_without_errors := self.items(i).do_execute();
    end loop;

    self.calc_execution_result();

    self.end_time := current_timestamp;

    ut_event_manager.trigger_event(ut_event_manager.gc_after_run, self);

    return l_completed_without_errors;
  end;

  overriding member procedure set_rollback_type(self in out nocopy ut_run, a_rollback_type integer, a_force boolean := false) is
  begin
    self.rollback_type := case when a_force then a_rollback_type else coalesce(self.rollback_type, a_rollback_type) end;
    for i in 1 .. self.items.count loop
      self.items(i).set_rollback_type(self.rollback_type, a_force);
    end loop;
  end;

  overriding member procedure calc_execution_result(self in out nocopy ut_run) is
    l_result integer(1);
  begin
    if self.items is not null and self.items.count > 0 then
      for i in 1 .. self.items.count loop
        self.results_count.sum_counter_values( self.items(i).results_count );
      end loop;
      l_result := self.results_count.result_status();
    else
      --if suite is empty then it's successful (no errors)
      l_result := ut_utils.gc_success;
    end if;

    self.result := l_result;
  end;

  overriding member procedure mark_as_errored(self in out nocopy ut_run, a_error_stack_trace varchar2) is
  begin
    null;
  end;

  overriding member function get_error_stack_traces return ut_varchar2_list is
  begin
    return ut_varchar2_list();
  end;

  overriding member function get_serveroutputs return clob is
  begin
    return null;
  end;


end;
/