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

Skip to content

Commit 4ecd87e

Browse files
jgebaljgebal
committed
Updated documentation reporter to use results_count from ut_suite_item
1 parent 15562f8 commit 4ecd87e

3 files changed

Lines changed: 18 additions & 38 deletions

File tree

‎examples/developer_examples/ut_custom_reporter.tpb‎

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -4,11 +4,9 @@ create or replace type body ut_custom_reporter is
44
begin
55
self.name := $$plsql_unit;
66
self.lvl := 0;
7-
self.failed_test_count := 0;
8-
self.test_count := 0;
9-
self.igonred_test_count := 0;
107
self.tab_size := a_tab_size;
118
self.output := a_output;
9+
self.failed_test_running_count := 0;
1210
return;
1311
end;
1412

‎source/reporters/ut_documentation_reporter.tpb‎

Lines changed: 15 additions & 30 deletions
Original file line numberDiff line numberDiff line change
@@ -2,12 +2,10 @@ create or replace type body ut_documentation_reporter is
22

33
constructor function ut_documentation_reporter(self in out nocopy ut_documentation_reporter, a_output ut_output default ut_output_dbms_output()) return self as result is
44
begin
5-
self.name := $$plsql_unit;
6-
self.output := a_output;
7-
self.lvl := 0;
8-
self.failed_test_count := 0;
9-
self.test_count := 0;
10-
self.igonred_test_count := 0;
5+
self.name := $$plsql_unit;
6+
self.output := a_output;
7+
self.lvl := 0;
8+
self.failed_test_running_count := 0;
119
return;
1210
end;
1311

@@ -29,22 +27,14 @@ create or replace type body ut_documentation_reporter is
2927
lvl := lvl + 1;
3028
end;
3129

32-
overriding member procedure before_calling_test(self in out nocopy ut_documentation_reporter, a_test ut_test) as
33-
begin
34-
test_count := test_count + 1;
35-
if a_test.get_ignore_flag() then
36-
igonred_test_count := igonred_test_count + 1;
37-
end if;
38-
end;
39-
4030
overriding member procedure after_calling_test(self in out nocopy ut_documentation_reporter, a_test ut_test) as
4131
l_message varchar2(4000);
4232
begin
4333
l_message := coalesce( a_test.description, a_test.name );
4434
--if test failed, then add it to the failures list, print failure with number
4535
if a_test.result > ut_utils.tr_success then
46-
failed_test_count := failed_test_count + 1;
47-
l_message := l_message || ' (FAILED - '||failed_test_count||')';
36+
failed_test_running_count := failed_test_running_count + 1;
37+
l_message := l_message || ' (FAILED - '||failed_test_running_count||')';
4838
end if;
4939
self.print_text( l_message );
5040
end;
@@ -58,9 +48,6 @@ create or replace type body ut_documentation_reporter is
5848
end;
5949

6050
overriding member procedure after_calling_run(self in out nocopy ut_documentation_reporter, a_run in ut_run) as
61-
l_start_time timestamp with time zone := to_date('9999','yyyy');
62-
l_end_time timestamp with time zone := to_date('0001','yyyy');
63-
6451
procedure print_failure_for_assert(a_assert ut_assert_result) is
6552
l_lines ut_varchar2_list;
6653
begin
@@ -95,30 +82,28 @@ create or replace type body ut_documentation_reporter is
9582
end loop;
9683
end;
9784

98-
procedure print_failures_details(a_suites in ut_suite_items) is
85+
procedure print_failures_details(a_run in ut_run) is
9986
l_failure_no integer := 0;
10087
begin
101-
if failed_test_count > 0 then
88+
if a_run.results_count.failure_count > 0 then
10289

10390
self.print_text( 'Failures:' );
10491
self.print_text( ' ' );
105-
for i in 1 .. a_suites.count loop
106-
print_failures_from_suite(treat(a_suites(i) as ut_suite), l_failure_no);
92+
for i in 1 .. a_run.items.count loop
93+
print_failures_from_suite(treat(a_run.items(i) as ut_suite), l_failure_no);
10794
end loop;
10895
end if;
10996
end;
11097

11198
begin
112-
print_failures_details(a_run.items);
99+
print_failures_details(a_run);
113100
self.print_text( 'Finished in '||a_run.execution_time||' seconds' );
114101
self.print_text(
115-
test_count || ' tests' ||
116-
case
117-
when failed_test_count = 1 then ', '||failed_test_count||' failure'
118-
else ', '||failed_test_count||' failures'
119-
end ||
102+
a_run.results_count.total_count || ' tests, '||a_run.results_count.failure_count||' failure' ||
103+
-- failure or plural failures
104+
case when a_run.results_count.failure_count != 1 then 's' end ||
120105
case
121-
when igonred_test_count > 0 then ', '||igonred_test_count||' ignored'
106+
when a_run.results_count.ignored_count > 0 then ', '||a_run.results_count.ignored_count||' ignored'
122107
end
123108
);
124109
self.print_text(' ');

‎source/reporters/ut_documentation_reporter.tps‎

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,12 @@
11
create or replace type ut_documentation_reporter force under ut_reporter_base
22
(
3-
lvl integer,
4-
test_count integer,
5-
failed_test_count integer,
6-
igonred_test_count integer,
3+
lvl integer,
4+
failed_test_running_count integer,
75
constructor function ut_documentation_reporter(self in out nocopy ut_documentation_reporter, a_output ut_output default ut_output_dbms_output()) return self as result,
86
member function tab(self in ut_documentation_reporter) return varchar2,
97

108
overriding member procedure print_text(self in out nocopy ut_documentation_reporter, a_text varchar2),
119
overriding member procedure before_calling_suite(self in out nocopy ut_documentation_reporter, a_suite ut_suite),
12-
overriding member procedure before_calling_test(self in out nocopy ut_documentation_reporter, a_test ut_test),
1310
overriding member procedure after_calling_test(self in out nocopy ut_documentation_reporter, a_test ut_test),
1411
overriding member procedure after_calling_suite(self in out nocopy ut_documentation_reporter, a_suite ut_suite),
1512
overriding member procedure after_calling_run(self in out nocopy ut_documentation_reporter, a_run in ut_run)

0 commit comments

Comments
 (0)