Phase 2 : switch to varchar_rows()

lwasylow · lwasylow · commit 6d8b09901308 · 2019-04-28T10:23:01.000+01:00
diff --git a/docs/userguide/annotations.md b/docs/userguide/annotations.md
@@ -1243,7 +1243,7 @@ or
 
 
 
-Tags are defined as a coma separated list. When executing a tests filtering by tag utPLSQL will find all tests associated with a given tag and execute it. It will apply `OR` logic when resolving a tags so any tests / suites that got matching at least one tag will get executed. 
+Tags are defined as a coma separated list. When executing a test run with tag filter applied, framework will find all tests associated with given tags and execute them. Framework applies `OR` logic when resolving a tags so any tests / suites that match at least one tag will be included in the test run. 
 
 When a suite gets tagged all of its children will automatically inherit a tag and get executed along the parent. Parent suit tests are not executed. but a suitepath hierarchy is kept.
 
@@ -1259,9 +1259,9 @@ create or replace PACKAGE ut_sample_test IS
    --%tag(test1,sample)
    PROCEDURE ut_refcursors1;
 
-   --%test(Compare Ref Cursors #2)
+   --%test(Run equality test)
    --%tag(test2,sample)
-   PROCEDURE ut_refcursors2;
+   PROCEDURE ut_test;
    
 END ut_sample_test;
 /
@@ -1278,21 +1278,16 @@ create or replace PACKAGE BODY ut_sample_test IS
       ut.expect(v_actual).to_equal(v_expected);
    END;
    
-   PROCEDURE ut_refcursors2 IS
-      v_actual   SYS_REFCURSOR;
-      v_expected SYS_REFCURSOR;
+   PROCEDURE ut_test IS
    BEGIN
-    open v_expected for select 1 as test from dual;
-    open v_actual   for select 2 as test from dual;
-
-      ut.expect(v_actual).to_equal(v_expected);
+       ut.expect(1).to_equal(0);
    END;
    
 END ut_sample_test;
 /
 ```
 
-Execution of the test is done by using a new parameter `a_tags`
+Execution of the test is done by using a parameter `a_tags`
 
 ```sql
 select * from table(ut.run(a_path => 'ut_sample_test',a_tags => 'suite1'));
@@ -1303,10 +1298,22 @@ begin
   ut.run(a_path => 'ut_sample_test',a_tags => 'suite1');
 end;
 /
+
+exec ut.run('ut_sample_test', a_tags => 'sample');
 ```
 
 
 
+Tags should adhere to following rules:
+
+- tags are case sensitive
+- tags cannot be an empty string
+- tags cannot contain spaces e.g. to create a multi-word `tag` please use underscores,dashes, dots etc. e.g. `test_of_batch`
+- tags with empty spaces will be ignored during execution
+- tags can contain special characters
+
+
+
 ### Suitepath
 
 It is very likely that the application for which you are going to introduce tests consists of many different packages, procedures and functions.
diff --git a/docs/userguide/querying_suites.md b/docs/userguide/querying_suites.md
@@ -22,21 +22,22 @@ Querying the data from function provides the follwing details:
 - `item_line_no`     - line_number where annotation identifying the item exists
 - `path`             - suitepath of the item
 - `disabled_flag`    - (0/1) indicator if item is disabled by --%disabled annotation
-    
+- `tags`     - tags associated with suites
+
 To get list of all test suites in current schema 
 ```sql
 select * from table(ut_runner.get_suites_info()) where item_type = 'UT_SUITE';
-``` 
+```
 
 To get list of all tests for test suite `TEST_STUFF` in current user schema  
 ```sql
 select * from table(ut_runner.get_suites_info(USER, 'TEST_STUFF')) where item_type = 'UT_TEST';
-``` 
+```
 
 To get a full information about suite `TEST_STUFF` including suite description, all contexts and tests in a suite  
 ```sql
 select * from table(ut_runner.get_suites_info(USER, 'TEST_STUFF')) where item_type = 'UT_TEST';
-``` 
+```
 
 ## Checking if schema contains tests
 
diff --git a/source/api/ut_suite_item_info.tpb b/source/api/ut_suite_item_info.tpb
@@ -0,0 +1,38 @@
+create or replace type body ut_suite_item_info is
+  /*
+  utPLSQL - Version 3
+  Copyright 2016 - 2018 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_suite_item_info(a_object_owner varchar2, a_object_name varchar2, a_item_name varchar2, 
+    a_item_description varchar2, a_item_type varchar2, a_item_line_no integer, a_path varchar2, a_disabled_flag integer,
+    a_tags ut_varchar2_rows) return self as result is  
+  begin
+    self.object_owner     := a_object_owner;
+    self.object_name      := a_object_name;
+    self.item_name        := a_item_name;
+    self.item_description := a_item_description;
+    self.item_type        := a_item_type;
+    self.item_line_no     := a_item_line_no;
+    self.path             := a_path;
+    self.disabled_flag    := a_disabled_flag;
+    self.tags             := case 
+                               when a_tags is null then null 
+                               when a_tags.count = 0 then null
+                               else ut_utils.to_string(ut_utils.table_to_clob(a_tags,',') ,a_quote_char => null)
+                             end;
+    return;
+  end;
+end;
+/
diff --git a/source/api/ut_suite_item_info.tps b/source/api/ut_suite_item_info.tps
@@ -23,6 +23,9 @@ create or replace type ut_suite_item_info as object (
   item_line_no     integer,         -- line_number where annotation identifying the item exists
   path             varchar2( 4000 ),-- suitepath of the item
   disabled_flag    integer,          -- 0 (zero) if item is not disabled, 1 if item is disabled by --%disabled annotation
-  tags             varchar2(4000)
+  tags             varchar2(4000),
+  constructor function ut_suite_item_info(a_object_owner varchar2, a_object_name varchar2, a_item_name varchar2, 
+    a_item_description varchar2, a_item_type varchar2, a_item_line_no integer, a_path varchar2, a_disabled_flag integer,
+    a_tags ut_varchar2_rows) return self as result
 )
 /
diff --git a/source/core/ut_suite_manager.pkb b/source/core/ut_suite_manager.pkb
@@ -692,7 +692,7 @@ create or replace package body ut_suite_manager is
     a_suite_path in varchar2,
     a_procedure_name in varchar2,
     a_object_name in varchar2,
-    a_tags in ut_varchar2_rows    
+    a_tags in ut_varchar2_rows := ut_varchar2_rows()  
     ) return varchar2 is
     l_error_msg varchar2(500);
     l_tags clob:= ut_utils.table_to_clob(coalesce(a_tags,ut_varchar2_rows()),',');
@@ -705,9 +705,9 @@ create or replace package body ut_suite_manager is
       l_error_msg := 'Suite package '||a_schema_name||'.'||a_object_name|| ' does not exists';
     end if;
     
-    if l_error_msg is null and a_tags is not null then
+    if l_error_msg is null and a_tags.count > 0 then
       l_error_msg := 'No tests found for tags: '||ut_utils.to_string(l_tags,a_max_output_len => gc_tag_errmsg);
-    elsif l_error_msg is not null and a_tags is not null then
+    elsif l_error_msg is not null and a_tags.count > 0 then
       l_error_msg := l_error_msg||' with tags: '||ut_utils.to_string(l_tags,a_max_output_len => gc_tag_errmsg);
     end if;
     
@@ -720,7 +720,7 @@ create or replace package body ut_suite_manager is
     a_paths in ut_varchar2_list,
     a_suites out nocopy ut_suite_items,
     a_random_seed in positive := null,
-    a_tags ut_varchar2_rows := null
+    a_tags ut_varchar2_rows := ut_varchar2_rows()
   ) is
     l_paths              ut_varchar2_list := a_paths;
     l_path_items         t_path_items;
@@ -768,7 +768,6 @@ create or replace package body ut_suite_manager is
 
   end configure_execution_by_path;
 
-  --TODO : add tags
   function get_suites_info(
     a_owner_name     varchar2, 
     a_package_name   varchar2 := null
@@ -779,7 +778,7 @@ create or replace package body ut_suite_manager is
 
     refresh_cache(a_owner_name);
     
-    open l_result for
+     open l_result for
     q'[with
       suite_items as (
         select /*+ cardinality(c 100) */ c.*
@@ -831,17 +830,17 @@ create or replace package body ut_suite_manager is
       items as (
         select object_owner, object_name, name as item_name,
                description as item_description, self_type as item_type, line_no as item_line_no,
-               path, disabled_flag
+               path, disabled_flag,tags
           from suite_items
         union all
         select object_owner, object_name, object_name as item_name,
                null as item_description, item_type, null as item_line_no,
-               s.path,  0 as disabled_flag
+               s.path,  0 as disabled_flag, ]'||l_ut_owner||q'[.ut_varchar2_rows() as tags
           from logical_suites s
       )
     select ]'||l_ut_owner||q'[.ut_suite_item_info(
              object_owner, object_name, item_name, item_description,
-             item_type, item_line_no, path, disabled_flag
+             item_type, item_line_no, path, disabled_flag, tags
            )
       from items c]' using upper(a_package_name);
 
diff --git a/source/core/ut_suite_manager.pks b/source/core/ut_suite_manager.pks
@@ -50,7 +50,7 @@ create or replace package ut_suite_manager authid current_user is
     a_paths       in ut_varchar2_list,
     a_suites      out nocopy ut_suite_items,
     a_random_seed in positive := null,
-    a_tags        ut_varchar2_rows := null
+    a_tags ut_varchar2_rows := ut_varchar2_rows()
   );
 
   /**
diff --git a/source/install.sql b/source/install.sql
@@ -279,6 +279,7 @@ prompt Installing DBMSPLSQL Tables objects into &&ut3_owner schema
 
 --plugin interface API for running utPLSQL
 @@install_component.sql 'api/ut_suite_item_info.tps'
+@@install_component.sql 'api/ut_suite_item_info.tpb'
 @@install_component.sql 'api/ut_suite_items_info.tps'
 @@install_component.sql 'api/ut_runner.pks'
 @@install_component.sql 'api/ut_runner.pkb'
diff --git a/test/ut3_tester_helper/run_helper.pkb b/test/ut3_tester_helper/run_helper.pkb
@@ -27,6 +27,94 @@ create or replace package body run_helper is
       execute immediate q'[grant execute on ut3_tester_helper.dummy_test_procedure to public]';
   end;
 
+  procedure setup_cache_objectstag is
+    pragma autonomous_transaction;
+  begin
+    execute immediate q'[create or replace package ut3$user#.dummy_test_package as    
+        --%suite(dummy_test_suite)
+        --%tags(dummy)
+        --%rollback(manual)
+
+        --%test(dummy_test)
+        --%tags(testtag)
+        --%beforetest(some_procedure)
+        procedure some_dummy_test_procedure;
+      end;]';
+    execute immediate q'[create or replace procedure ut3$user#.dummy_test_procedure as
+        --%some_annotation(some_text)
+        --%rollback(manual)
+      begin
+        null;
+      end;]';
+    execute immediate q'[create or replace procedure ut3_tester_helper.dummy_test_procedure as
+        --%some_annotation(some_text)
+        --%rollback(manual)
+      begin
+        null;
+      end;]';
+      
+      execute immediate q'[grant execute on ut3_tester_helper.dummy_test_procedure to public]';
+  end;
+
+  procedure setup_cache_twotags is
+    pragma autonomous_transaction;
+  begin
+    execute immediate q'[create or replace package ut3$user#.dummy_test_package as    
+        --%suite(dummy_test_suite)
+        --%tags(suitetag1,suitetag2)
+        --%rollback(manual)
+
+        --%test(dummy_test)
+        --%tags(testtag1,testtag2)
+        --%beforetest(some_procedure)
+        procedure some_dummy_test_procedure;
+      end;]';
+    execute immediate q'[create or replace procedure ut3$user#.dummy_test_procedure as
+        --%some_annotation(some_text)
+        --%rollback(manual)
+      begin
+        null;
+      end;]';
+    execute immediate q'[create or replace procedure ut3_tester_helper.dummy_test_procedure as
+        --%some_annotation(some_text)
+        --%rollback(manual)
+      begin
+        null;
+      end;]';
+      
+      execute immediate q'[grant execute on ut3_tester_helper.dummy_test_procedure to public]';
+  end;
+
+  procedure setup_cache_longtags is
+    pragma autonomous_transaction;
+  begin
+    execute immediate q'[create or replace package ut3$user#.dummy_test_package as    
+        --%suite(dummy_test_suite)
+        --%tags(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb)
+        --%tags(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)
+        --%rollback(manual)
+
+        --%test(dummy_test)
+        --%tags(testtag1,testtag2)
+        --%beforetest(some_procedure)
+        procedure some_dummy_test_procedure;
+      end;]';
+    execute immediate q'[create or replace procedure ut3$user#.dummy_test_procedure as
+        --%some_annotation(some_text)
+        --%rollback(manual)
+      begin
+        null;
+      end;]';
+    execute immediate q'[create or replace procedure ut3_tester_helper.dummy_test_procedure as
+        --%some_annotation(some_text)
+        --%rollback(manual)
+      begin
+        null;
+      end;]';
+      
+      execute immediate q'[grant execute on ut3_tester_helper.dummy_test_procedure to public]';
+  end;
+
   procedure create_trans_control is
       pragma autonomous_transaction;
   begin
diff --git a/test/ut3_tester_helper/run_helper.pks b/test/ut3_tester_helper/run_helper.pks
@@ -6,6 +6,9 @@ create or replace package run_helper is
   type prof_runs_tab is table of ut3.plsql_profiler_runs%rowtype;
 
   procedure setup_cache_objects;
+  procedure setup_cache_objectstag;
+  procedure setup_cache_twotags;
+  procedure setup_cache_longtags;
   procedure setup_cache;
   procedure cleanup_cache;
   procedure create_db_link;
diff --git a/test/ut3_user/api/test_ut_runner.pkb b/test/ut3_user/api/test_ut_runner.pkb
diff --git a/test/ut3_user/api/test_ut_runner.pks b/test/ut3_user/api/test_ut_runner.pks

Original file line number	Diff line number	Diff line change
`@@ -23,6 +23,9 @@ create or replace type ut_suite_item_info as object (`
`23`	`23`	`item_line_no integer, -- line_number where annotation identifying the item exists`
`24`	`24`	`path varchar2( 4000 ),-- suitepath of the item`
`25`	`25`	`disabled_flag integer, -- 0 (zero) if item is not disabled, 1 if item is disabled by --%disabled annotation`
`26`		`- tags varchar2(4000)`
	`26`	`+ tags varchar2(4000),`
	`27`	`+ constructor function ut_suite_item_info(a_object_owner varchar2, a_object_name varchar2, a_item_name varchar2,`
	`28`	`+ a_item_description varchar2, a_item_type varchar2, a_item_line_no integer, a_path varchar2, a_disabled_flag integer,`
	`29`	`+ a_tags ut_varchar2_rows) return self as result`
`27`	`30`	`)`
`28`	`31`	`/`