Skip to content

Add ability to run tests by part of a name. #1203

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
lwasylow merged 29 commits into from
Apr 23, 2022
Merged

Add ability to run tests by part of a name. #1203

Changes from 1 commit
Commits
Show all changes
29 commits
Select commit Hold shift + click to select a range
86d4d0a
Initial check-in.
lwasylow Mar 18, 2022
f1f6d71
Tidy up code to make sure we got distinct set of expanded tests.
lwasylow Mar 19, 2022
1454221
Adding extra fields.
lwasylow Mar 23, 2022
ce4df28
Stage 3. Fixing error calls.
lwasylow Mar 29, 2022
273962b
Fixing issue with a non visible tests.
lwasylow Mar 29, 2022
a753e66
Fixing ORA-600
lwasylow Mar 30, 2022
0d8d34d
Cleanup Phase1.
lwasylow Mar 30, 2022
95ddec1
Adding tests.
lwasylow Mar 31, 2022
83dbdaa
Updating documentation.
lwasylow Mar 31, 2022
52c0307
Addresing sonar issues
lwasylow Mar 31, 2022
8f8d257
Extra tests and cleanup of old code.
lwasylow Apr 1, 2022
12be123
Adding extra tests
lwasylow Apr 1, 2022
d5ee6ca
Updating SQL to expand paths and extract suites.
lwasylow Apr 1, 2022
2db8d63
Addressing issue with reconstruct_cache knocking off other levels.
lwasylow Apr 6, 2022
d3396fe
Update tests for random order
lwasylow Apr 7, 2022
02d41a6
Removing a hash function from api into utils package which is more su…
lwasylow Apr 7, 2022
274d80a
Fixing ordering
lwasylow Apr 7, 2022
3937737
Fixing a documentation
lwasylow Apr 7, 2022
9296f38
Fixing indent
lwasylow Apr 7, 2022
6ff7f38
Peer review changes
lwasylow Apr 12, 2022
ee7a98b
Moving a SQL to be more readable.
lwasylow Apr 12, 2022
a53cefa
Apply suggestions from code review
jgebal Apr 13, 2022
011970f
Apply suggestions from code review
jgebal Apr 13, 2022
71e07f9
Merge remote-tracking branch 'origin/develop' into feature/call_tests…
jgebal Apr 15, 2022
221c2de
Address issue of not recognizing a correct nested level of suitepath.
lwasylow Apr 16, 2022
870cfe4
Merge branch 'feature/call_tests_by_part_of_name' of https://github.c…
lwasylow Apr 16, 2022
51439d8
Update documentation
lwasylow Apr 16, 2022
0fc7ff6
Fixing issue where parition by only path caused a duplicate level 1 a…
lwasylow Apr 16, 2022
647b830
Fixed issue with suites getting duplicated when running tests across …
jgebal Apr 17, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Fixing ORA-600
  • Loading branch information
@lwasylow
lwasylow committed Mar 30, 2022
commit a753e66aa3f8062d0aa6aa3fc2d7386e61fc6176
123 changes: 80 additions & 43 deletions source/core/ut_suite_cache_manager.pkb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -88,34 +88,12 @@ create or replace package body ut_suite_cache_manager is
q'[with
suite_items as (
select /*+ cardinality(c 500) */ value(c) as obj
from ut_suite_cache c,
table(:l_schema_paths) sp
where c.object_owner = upper(sp.schema_name)
and sp.suite_path is not null
and (
sp.suite_path||'.' like c.path||'.%' /*all parents and self*/
or
(
c.path||'.' like sp.suite_path||'.%' /*all children and self*/
and c.object_name like nvl(upper(sp.object_name),c.object_name)
and c.name like nvl(upper(sp.procedure_name),c.name)
)
)
union all
select /*+ cardinality(c 500) */ value(c) as obj
from ut_suite_cache c,
table(:l_schema_paths) sp
where c.object_owner = upper(sp.schema_name)
and sp.suite_path is null
and c.object_name like nvl(upper(replace(sp.object_name,'*','%')),c.object_name)
and c.name like nvl(upper(replace(sp.procedure_name,'*','%')),c.name)
),
{:tags:}
from table(:suite_items) c),
suitepaths as (
select distinct substr(c.obj.path,1,instr(c.obj.path,'.',-1)-1) as suitepath,
c.obj.path as path,
c.obj.object_owner as object_owner
from {:suite_item_name:} c
from suite_items c
where c.obj.self_type = 'UT_SUITE'
),
gen as (
Expand Down Expand Up @@ -152,7 +130,7 @@ create or replace package body ut_suite_cache_manager is
from logical_suite_data s
),
items as (
select obj from {:suite_item_name:}
select obj from suite_items
union all
select obj from logical_suites
)
Expand Down Expand Up @@ -404,44 +382,103 @@ create or replace package body ut_suite_cache_manager is
return expand_paths(group_paths_by_schema(a_paths));
end;

function get_suite_items (
a_schema_paths ut_path_items
) return ut_suite_cache_rows is
l_suite_items ut_suite_cache_rows := ut_suite_cache_rows();
begin
select /*+ cardinality(c 500) */ value(c) as obj
bulk collect into l_suite_items
from ut_suite_cache c,
table(a_schema_paths) sp
where c.object_owner = upper(sp.schema_name)
and (
(sp.suite_path is not null and
sp.suite_path||'.' like c.path||'.%' /*all parents and self*/
or
( c.path||'.' like sp.suite_path||'.%' /*all children and self*/
and c.object_name like nvl(upper(sp.object_name),c.object_name)
and c.name like nvl(upper(sp.procedure_name),c.name) ) )
or
( sp.suite_path is null
and c.object_name like nvl(upper(replace(sp.object_name,'*','%')),c.object_name)
and c.name like nvl(upper(replace(sp.procedure_name,'*','%')),c.name)
));
return l_suite_items;
end;

function get_tags_suites (
a_suite_items ut_suite_cache_rows,
a_tags ut_varchar2_rows
) return ut_suite_cache_rows is
l_suite_tags ut_suite_cache_rows := ut_suite_cache_rows();
l_include_tags ut_varchar2_rows;
l_exclude_tags ut_varchar2_rows;
begin

select /*+ no_parallel */ column_value
bulk collect into l_include_tags
from table(a_tags)
where column_value not like '-%';

select /*+ no_parallel */ ltrim(column_value,'-')
bulk collect into l_exclude_tags
from table(a_tags)
where column_value like '-%';

with included_tags as (
select c.path as path
from table(a_suite_items) c
where c.tags multiset intersect l_include_tags is not empty or l_include_tags is empty
),
excluded_tags as (
select c.path as path
from table(a_suite_items) c
where c.tags multiset intersect l_exclude_tags is not empty
)
select value(c) as obj
bulk collect into l_suite_tags
from table(a_suite_items) c
where exists (
select 1 from included_tags t
where t.path||'.' like c.path || '.%' /*all parents and self*/
Comment thread
jgebal marked this conversation as resolved.
Outdated
or c.path||'.' like t.path || '.%' /*all children and self*/
Comment thread
jgebal marked this conversation as resolved.
Outdated
)
and not exists (
select 1 from excluded_tags t
where c.path||'.' like t.path || '.%' /*all children and self*/
Comment thread
jgebal marked this conversation as resolved.
Outdated
);
return l_suite_tags;
end;

function get_cached_suite_rows(
a_schema_paths ut_path_items,
a_random_seed positive := null,
a_tags ut_varchar2_rows := null
) return ut_suite_cache_rows is
l_results ut_suite_cache_rows := ut_suite_cache_rows();
l_suite_items ut_suite_cache_rows := ut_suite_cache_rows();
l_schema_paths ut_path_items;
l_tags ut_varchar2_rows := coalesce(a_tags,ut_varchar2_rows());
l_include_tags ut_varchar2_rows;
l_exclude_tags ut_varchar2_rows;

l_suite_item_name varchar2(20);
l_paths ut_varchar2_rows;
l_schema varchar2(4000);
l_sql varchar2(32767);
begin
select /*+ no_parallel */ column_value
bulk collect into l_include_tags
from table(l_tags)
where column_value not like '-%';

select /*+ no_parallel */ ltrim(column_value,'-')
bulk collect into l_exclude_tags
from table(l_tags)
where column_value like '-%';

l_schema_paths := a_schema_paths;
--We still need to turn this into qualified SQL name....maybe as part of results ?
l_suite_item_name := case when l_tags.count > 0 then 'suite_items_tags' else 'suite_items' end;

l_sql := gc_get_bulk_cache_suite_sql;
l_sql := replace(l_sql,'{:suite_item_name:}',l_suite_item_name);
l_sql := replace(l_sql,'{:tags:}',get_tags_sql(l_tags.count));
l_sql := replace(l_sql,'{:random_seed:}',get_random_seed_sql(a_random_seed));
l_suite_items := get_suite_items(a_schema_paths);
if l_tags.count > 0 then
l_suite_items := get_tags_suites(l_suite_items,l_tags);
end if;
ut_event_manager.trigger_event(ut_event_manager.gc_debug, ut_key_anyvalues().put('l_sql',l_sql) );

execute immediate l_sql
bulk collect into l_results
using l_schema_paths, l_schema_paths, l_include_tags, l_include_tags, l_exclude_tags, a_random_seed;
using l_suite_items, a_random_seed;
return l_results;
end;

Expand Down