Thanks to visit codestin.com
Credit goes to github.com

Skip to content

Commit 373d881

Browse files
PazusPazus
committed
formatting
1 parent ca24ff0 commit 373d881

3 files changed

Lines changed: 35 additions & 38 deletions

File tree

‎source/core/types/ut_executable.tpb‎

Lines changed: 16 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -49,9 +49,9 @@ create or replace type body ut_executable is
4949
end is_valid;
5050

5151
member function form_name return varchar2 is
52-
begin
53-
return ut_metadata.form_name(owner_name, object_name, procedure_name);
54-
end;
52+
begin
53+
return ut_metadata.form_name(owner_name, object_name, procedure_name);
54+
end;
5555

5656
member procedure do_execute(self in ut_executable, a_item in out nocopy ut_suite_item, a_listener in out nocopy ut_listener_interface) is
5757
l_completed_without_errors boolean;
@@ -67,21 +67,21 @@ create or replace type body ut_executable is
6767
l_object_name varchar2(200) := self.object_name;
6868
l_procedure_name varchar2(200) := self.procedure_name;
6969

70-
l_error_stack varchar2(32767);
71-
l_error_backtrace varchar2(32767);
70+
l_error_stack varchar2(32767 byte);
71+
l_error_backtrace varchar2(32767 byte);
7272
l_completed_without_errors boolean := true;
7373

74-
function process_errors_from_call( a_error_stack varchar2, a_error_backtrace varchar2) return boolean is
75-
l_errors_stack_trace varchar2(32767) := rtrim(a_error_stack||a_error_backtrace, chr(10));
76-
begin
77-
if l_errors_stack_trace is not null then
78-
ut_utils.debug_log('test method failed- ' ||l_errors_stack_trace );
79-
ut_assert_processor.report_error( l_errors_stack_trace );
80-
return false;
81-
else
82-
return true;
83-
end if;
84-
end;
74+
function process_errors_from_call(a_error_stack varchar2, a_error_backtrace varchar2) return boolean is
75+
l_errors_stack_trace varchar2(32767 byte) := rtrim(a_error_stack||a_error_backtrace, chr(10));
76+
begin
77+
if l_errors_stack_trace is not null then
78+
ut_utils.debug_log('test method failed- ' ||l_errors_stack_trace );
79+
ut_assert_processor.report_error( l_errors_stack_trace );
80+
return false;
81+
else
82+
return true;
83+
end if;
84+
end;
8585
begin
8686
if self.is_defined() then
8787
--listener - before call to executable

‎source/core/types/ut_run.tpb‎

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -37,19 +37,19 @@ create or replace type body ut_run as
3737

3838
member procedure calc_execution_result(self in out nocopy ut_run) is
3939
l_result integer(1);
40-
begin
41-
if self.items is not null and self.items.count > 0 then
42-
l_result := ut_utils.tr_ignore;
43-
for i in 1 .. self.items.count loop
44-
l_result := greatest(self.items(i).result, l_result);
45-
exit when l_result = ut_utils.tr_error;
46-
end loop;
47-
else
48-
l_result := ut_utils.tr_success;
49-
end if;
50-
51-
self.result := l_result;
52-
end;
40+
begin
41+
if self.items is not null and self.items.count > 0 then
42+
l_result := ut_utils.tr_ignore;
43+
for i in 1 .. self.items.count loop
44+
l_result := greatest(self.items(i).result, l_result);
45+
exit when l_result = ut_utils.tr_error;
46+
end loop;
47+
else
48+
l_result := ut_utils.tr_success;
49+
end if;
50+
51+
self.result := l_result;
52+
end;
5353

5454
end;
5555
/

‎source/core/ut_suite_manager.pkb‎

Lines changed: 6 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -353,14 +353,14 @@ create or replace package body ut_suite_manager is
353353
l_objects_to_run ut_suite_items;
354354

355355
function clean_paths(a_paths ut_varchar2_list) return ut_varchar2_list is
356-
l_paths ut_varchar2_list := ut_varchar2_list();
356+
l_paths_temp ut_varchar2_list := ut_varchar2_list();
357357
begin
358-
l_paths.extend(a_paths.count);
358+
l_paths_temp.extend(a_paths.count);
359359
for i in 1 .. a_paths.count loop
360-
l_paths(i) := trim(lower(a_paths(i)));
360+
l_paths_temp(i) := trim(lower(a_paths(i)));
361361
end loop;
362-
l_paths := set(l_paths);
363-
return l_paths;
362+
l_paths_temp := set(l_paths_temp);
363+
return l_paths_temp;
364364
end clean_paths;
365365

366366
procedure skip_by_path(a_suite in out nocopy ut_suite_item, a_path varchar2) is
@@ -374,11 +374,8 @@ create or replace package body ut_suite_manager is
374374
begin
375375
a_suite.set_ignore_flag(false);
376376

377-
if a_suite is of (ut_suite) then
377+
if a_path is not null and a_suite is not null and a_suite is of (ut_suite) then
378378
l_suite := treat(a_suite as ut_suite);
379-
end if;
380-
381-
if a_path is not null and l_suite is not null then
382379

383380
for i in 1 .. l_suite.items.count loop
384381

0 commit comments

Comments
 (0)