|
1 | | -create or replace type body ut_execution_listener is |
| 1 | +create or replace type body ut_event_listener is |
2 | 2 |
|
3 | | - constructor function ut_execution_listener(self in out nocopy ut_execution_listener, a_reporters ut_reporters) return self as result is |
| 3 | + constructor function ut_event_listener(self in out nocopy ut_event_listener, a_reporters ut_reporters) return self as result is |
4 | 4 | begin |
5 | 5 | reporters := a_reporters; |
6 | 6 | return; |
7 | 7 | end; |
8 | 8 |
|
9 | | - overriding member procedure fire_before_event(self in out nocopy ut_execution_listener, a_event_name varchar2, a_item ut_suite_item_base) is |
| 9 | + overriding member procedure fire_before_event(self in out nocopy ut_event_listener, a_event_name varchar2, a_item ut_suite_item_base) is |
10 | 10 | begin |
11 | 11 | self.fire_event('before', a_event_name, a_item); |
12 | 12 | end; |
13 | 13 |
|
14 | | - overriding member procedure fire_after_event(self in out nocopy ut_execution_listener, a_event_name varchar2, a_item ut_suite_item_base) is |
| 14 | + overriding member procedure fire_after_event(self in out nocopy ut_event_listener, a_event_name varchar2, a_item ut_suite_item_base) is |
15 | 15 | begin |
16 | 16 | self.fire_event('after', a_event_name, a_item); |
17 | 17 | end; |
18 | 18 |
|
19 | | - overriding member procedure fire_event(self in out nocopy ut_execution_listener, a_event_timing varchar2, a_event_name varchar2, a_item ut_suite_item_base) is |
| 19 | + overriding member procedure fire_event(self in out nocopy ut_event_listener, a_event_timing varchar2, a_event_name varchar2, a_item ut_suite_item_base) is |
20 | 20 | l_method varchar2(250) := a_event_timing||'_calling_'||a_event_name; |
21 | 21 | l_reporter ut_reporter; |
22 | 22 | l_call_stmt varchar2(32767); |
|
0 commit comments