utPLSQL · lwasylow · Apr 23, 2022 · Mar 18, 2022 · Mar 19, 2022 · Mar 23, 2022
diff --git a/docs/userguide/querying_suites.md b/docs/userguide/querying_suites.md
@@ -39,6 +39,16 @@ To get a full information about suite `TEST_STUFF` including suite description,
 select * from table(ut_runner.get_suites_info(USER, 'TEST_STUFF')) where item_type = 'UT_TEST';
 ```
 
+To get a full information about suites that have a path like  `ut3:tests.test_package_*` including suite description, all contexts and tests in a suite 
+```sql
+select * from table(ut_runner.get_suites
8000
_info('ut3:tests.test_package_*') where item_type = 'UT_TEST';
+```
+
+To get a full information about suites that have object name like  `test_package_*` including suite description, all contexts and tests in a suite 
+```sql
+select * from table(ut_runner.get_suites_info('test_package_*'));
+```
+
 ## Checking if schema contains tests
 
 Function `ut_runner.has_suites(a_owner)` returns boolean value indicating if given schema contains test suites.

diff --git a/docs/userguide/running-unit-tests.md b/docs/userguide/running-unit-tests.md
@@ -45,6 +45,9 @@ The **functions** can only be used in SELECT statements. They execute the specif
 ## ut.run procedures
 
 The examples below illustrate different ways and options to invoke `ut.run` procedures.
+You can use a wildcard character `*` to call tests by part of their name or to call tests that are located on paths matched by part of path string.
+Wildcard character can be placed anywhere on the path and can occur mutliple times.
+Schema name cannot contain a wildcard character whether is in a suitepath call or call by object name.
 
 ```sql
 alter session set current_schema=hr;
@@ -75,6 +78,23 @@ end;
 Executes all tests from all packages that are on the _com.my_org.my_project_ suitepath.
 Check the [annotations documentation](annotations.md) to find out about suitepaths and how they can be used to organize test packages for your project.
 
+```sql
+set serveroutput on
+begin
+  ut.run('hr:com*');
+end;
+```
+
+Executes all tests in schema `hr` from all packages that are on suitepath starting with `com`.
+
+```sql
+set serveroutput on
+begin
+  ut.run('hr:co*.my_*.my_*');
+end;
+```
+
+Executes all tests in schema `hr` from all packages that starting with `my_` and all tests starting with `my_*` that are on suitepath starting with `co` .
 
 ```sql
 set serveroutput on
@@ -124,6 +144,22 @@ Using a list of items to execute allows you to execute a fine-grained set of tes
 
 List can be passed as a comma separated list or a list of *ut_varchar2_list objects* or as a list within ut_varchar2_list.
 
+```sql
+set serveroutput on
+begin
+  ut.run('hr.test*');
+end;
+```
+Executes all tests in schema `hr` located in packages starting with name `test`.
+
+```sql
+set serveroutput on
+begin
+  ut.run('hr.test_apply_bonus.bonus_*');
+end;
+```
+Executes test procedures with names starting with `bonus` in package `hr.test_apply_bonus` .
+
 
 **Note:**
 

diff --git a/source/api/ut_runner.pkb b/source/api/ut_runner.pkb
@@ -172,12 +172,14 @@ create or replace package body ut_runner is
     ut_annotation_manager.purge_cache(a_object_owner, a_object_type);
   end;
 
-  function get_suites_info(a_owner varchar2 := null, a_package_name varchar2 := null) return ut_suite_items_info pipelined is
+  function get_suites_info(a_owner varchar2, a_package_name varchar2) return ut_suite_items_info pipelined is
     l_cursor      sys_refcursor;
     l_results     ut_suite_items_info;
     c_bulk_limit  constant integer := 100;
+    l_path        varchar2(4000) := nvl(a_owner,sys_context('userenv', 'current_schema'))||'.'||nvl(a_package_name,'*');
   begin
-    l_cursor := ut_suite_manager.get_suites_info( nvl(a_owner,sys_context('userenv', 'current_schema')), a_package_name );
+
+    l_cursor := ut_suite_manager.get_suites_info(ut_varchar2_list(l_path));
     loop
       fetch l_cursor bulk collect into l_results limit c_bulk_limit;
       for i in 1 .. l_results.count loop
@@ -189,6 +191,26 @@ create or replace package body ut_runner is
     return;
   end;
 
+  function get_suites_info(a_path varchar2 := null) return ut_suite_items_info pipelined is
+    l_cursor       sys_refcursor;
+    l_results      ut_suite_items_info;
+    c_bulk_limit   constant integer := 100;
+    i pls_integer;
+  begin
+    l_cursor := ut_suite_manager.get_suites_info(ut_varchar2_list(nvl(a_path,sys_context('userenv', 'current_schema'))));
+    loop
+      fetch l_cursor bulk collect into l_results limit c_bulk_limit;
+      i := l_results.first;
+      while (i is not null) loop
+        pipe row (l_results(i));
+        i := l_results.next(i);
+      end loop;
+      exit when l_cursor%notfound;
+    end loop;
+    close l_cursor;
+    return;
+  end;
+
   function is_test(a_owner varchar2, a_package_name varchar2, a_procedure_name varchar2) return boolean is
     l_result      boolean := false;
   begin
@@ -243,37 +265,6 @@ create or replace package body ut_runner is
     end loop;
   end;
 
-  function hash_suite_path(a_path varchar2, a_random_seed positiven) return varchar2 is
-    l_start_pos pls_integer := 1;
-    l_end_pos   pls_integer := 1;
-    l_result    varchar2(4000);
-    l_item      varchar2(4000);
-    l_at_end    boolean := false;
-  begin
-    if a_random_seed is null then
-      l_result := a_path;
-      end if;
-    if a_path is not null then
-      loop
-        l_end_pos := instr(a_path,'.',l_start_pos);
-        if l_end_pos = 0 then
-          l_end_pos := length(a_path)+1;
-          l_at_end  := true;
-          end if;
-        l_item := substr(a_path,l_start_pos,l_end_pos-l_start_pos);
-        if l_item is not null then
-          l_result  :=
-            l_result ||
-              ut_utils.get_hash( to_char( dbms_utility.get_hash_value( l_item, 1, a_random_seed ) ) );
-          end if;
-        exit when l_at_end;
-        l_result  := l_result || chr(0);
-        l_start_pos := l_end_pos + 1;
-      end loop;
-      end if;
-    return l_result;
-  end;
-
   procedure coverage_start(a_coverage_run_id raw) is
  begin
     ut_coverage.coverage_start(a_coverage_run_id);

diff --git a/source/api/ut_runner.pks b/source/api/ut_runner.pks
@@ -104,7 +104,14 @@ create or replace package ut_runner authid current_user is
   * @param   a_package_name name of unit test package to retrieve (optional), if NULL all unit test packages are returned
   * @return  ut_suite_items_info table of objects
   */
-  function get_suites_info(a_owner varchar2 := null, a_package_name varchar2 := null) return ut_suite_items_info pipelined;
+  function get_suites_info(a_owner varchar2, a_package_name varchar2) return ut_suite_items_info pipelined;
+
+  /**
+  * Returns a pipelined collection containing information about unit test suites and the tests contained in them
+  *
+  * @param   a_path a path from which we lookg for object or suite
+  */
+  function get_suites_info(a_path varchar2 := null) return ut_suite_items_info pipelined;
 
 
   /**
@@ -144,11 +151,6 @@ create or replace package ut_runner authid current_user is
    */
   function get_reporters_list return tt_reporters_info pipelined;
 
-  /*
-  * Returns a hash value of suitepath based on input path and random seed
-  */
-  function hash_suite_path(a_path varchar2, a_random_seed positiven) return varchar2;
-
   procedure coverage_start(a_coverage_run_id raw);
 
   procedure coverage_stop;

diff --git a/source/core/types/ut_path_item.tpb b/source/core/types/ut_path_item.tpb
@@ -0,0 +1,42 @@
+create or replace type body ut_path_item as
+  /*
+  utPLSQL - Version 3
+  Copyright 2016 - 2021 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_path_item(self in out nocopy ut_path_item, schema_name varchar2, object_name varchar2,procedure_name varchar2) return self as result is
+  begin
+    self.schema_name := schema_name;
+    self.object_name := object_name
10000
;
+    self.procedure_name :=  procedure_name;
+    return;
+  end;
+
+  constructor function ut_path_item(self in out nocopy ut_path_item, schema_name varchar2,suite_path varchar2) return self as result is
+  begin
+    self.schema_name := schema_name;
+    self.suite_path := suite_path;
+    return;
+  end;
+
+  constructor function ut_path_item(self in out nocopy ut_path_item, schema_name varchar2, object_name varchar2,procedure_name varchar2,suite_path varchar2) return self as result is
+  begin
+    self.schema_name := schema_name;
+    self.object_name := object_name;
+    self.procedure_name :=  procedure_name;
+    self.suite_path :=  suite_path;
+    return;
+  end;  
+end;
+/
diff --git a/source/core/types/ut_path_item.tps b/source/core/types/ut_path_item.tps
@@ -0,0 +1,26 @@
+create or replace type ut_path_item as object (
+  /*
+  utPLSQL - Version 3
+  Copyright 2016 - 2021 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.
+  */
+  schema_name     varchar2(4000),
+  object_name     varchar2(250),
+  procedure_name  varchar2(250),
+  suite_path      varchar2(4000),
+  constructor function ut_path_item(self in out nocopy ut_path_item, schema_name varchar2, object_name varchar2,procedure_name varchar2) return self as result,
+  constructor function ut_path_item(self in out nocopy ut_path_item, schema_name varchar2, suite_path varchar2) return self as result,
+  constructor function ut_path_item(self in out nocopy ut_path_item, schema_name varchar2, object_name varchar2,procedure_name varchar2,suite_path varchar2) return self as result
+)
+/
diff --git a/source/core/types/ut_path_items.tps b/source/core/types/ut_path_items.tps
@@ -0,0 +1,19 @@
+create or replace type ut_path_items as
+  /*
+  utPLSQL - Version 3
+  Copyright 2016 - 2021 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.
+  */
+  table of ut_path_item
+/