Reset the number of run test cases when test_runner_setup is called

Author: std-max

vunit/vhdl/run/src/run.vhd

@@ -87,6 +87,8 @@ package body run_pkg is
         end if;
       end loop;
     end if;
+    set_num_of_run_test_cases(runner_state, 0);
+
     exit_gate(runner);
     set_phase(runner_state, test_suite_setup);
     notify(runner);
@@ -234,7 +236,7 @@ package body run_pkg is
     if get_test_suite_completed(runner_state) then
       set_running_test_case(runner_state, "");
       return false;
-    elsif get_run_all(runner_state) then
+    elsif get_run_all(runner_state) or get_test_case_name(runner_state, get_active_test_case_index(runner_state)) = name then
       if not has_run(name) then
         register_run(name);
         info(runner_trace_logger, "Test case: " & name);
@@ -243,14 +245,10 @@ package body run_pkg is
         end if;
         set_running_test_case(runner_state, name);
         return true;
+      elsif get_test_case_name(runner_state, get_active_test_case_index(runner_state)) = name then
+        -- error(runner_trace_logger, "Test case: " & name & " cannot be run more than once unless re-initialization");
+        return false;
       end if;
-    elsif get_test_case_name(runner_state, get_active_test_case_index(runner_state)) = name then
-      info(runner_trace_logger, "Test case: " & name);
-      if has_active_python_runner(runner_state) then
-        core_pkg.test_start(name);
-      end if;
-      set_running_test_case(runner_state, name);
-      return true;
     end if;
 
     set_running_test_case(runner_state, "");

vunit/vhdl/run/src/runner_pkg.vhd

@@ -84,6 +84,8 @@ package runner_pkg is
 
   procedure inc_num_of_run_test_cases(runner : runner_t);
 
+  procedure set_num_of_run_test_cases(runner : runner_t; new_value : integer);
+
   procedure set_has_run_since_last_loop_check(runner : runner_t);
 
   procedure clear_has_run_since_last_loop_check(runner : runner_t);
@@ -425,6 +427,11 @@ package body runner_pkg is
     set(runner.p_data, n_run_test_cases_idx, get_num_of_run_test_cases(runner) + 1);
   end;
 
+  procedure set_num_of_run_test_cases(runner : runner_t; new_value : integer) is
+  begin
+    set(runner.p_data, n_run_test_cases_idx, new_value);
+  end;
+
   procedure set_has_run_since_last_loop_check(runner : runner_t) is
   begin
     set(runner.p_data, has_run_since_last_loop_check_idx, to_integer(true));