Skip to content

Commit 0d30133

Browse files
authored
Update ut3.ut_v2_migration.pkb
Fixed code for situation, when tested packages get registered in `ut_package` instead of unit test packages.
1 parent 5612316 commit 0d30133

File tree

1 file changed

+8
-9
lines changed

1 file changed

+8
-9
lines changed

source/migration/ut3.ut_v2_migration.pkb

Lines changed: 8 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -110,29 +110,28 @@ create or replace package body ut_v2_migration is
110110
dbms_metadata.set_transform_param(dbms_metadata.session_transform,'BODY',false);
111111

112112
for rec in (select p.owner
113-
,p.name
113+
,upper(case when p.samepackage='N' then p.prefix end || p.name)
114114
,p.description as package_desc
115115
,nvl(p.prefix, c.prefix) prefix
116116
,s.name suite_name
117117
,s.description as suite_desc
118118
,o.status
119-
from &&utplsql_v2_owner..ut_package p
120-
,&&utplsql_v2_owner..ut_suite s
121-
,&&utplsql_v2_owner..ut_config c
122-
,all_objects o
119+
from utp.ut_package p
120+
,utp.ut_suite s
121+
,utp.ut_config c
122+
,dba_objects o
123123
where p.id in (select max(p2.id) keep(dense_rank first order by p2.suite_id desc nulls last)
124-
from &&utplsql_v2_owner..ut_package p2
124+
from utp.ut_package p2
125125
group by upper(p2.owner)
126-
,upper(p2.name))
126+
,upper(case when p2.samepackage='N' then p.prefix end || p2.name))
127127
and p.suite_id = s.id(+)
128128
and p.owner = c.username(+)
129129
and p.owner = o.owner
130-
and p.name = o.object_name
130+
and upper(case when p.samepackage='N' then p.prefix end || p.name) = o.object_name
131131
and o.object_type in ('PACKAGE')
132132
and p.owner = nvl(a_owner_name, p.owner)
133133
and p.name = nvl(a_package_name, p.name)
134134
and (s.name = a_suite_name or a_suite_name is null)
135-
and upper(p.name) like upper(nvl(p.prefix, c.prefix))||'%'
136135
) loop
137136
begin
138137
l_items_processed := l_items_processed +1;

0 commit comments

Comments
 (0)