fixed example bug

Pazus · Pazus · commit ed162ed7f5c1 · 2017-01-07T18:43:21.000+03:00
diff --git a/source/core/types/ut_event_listener.tpb b/source/core/types/ut_event_listener.tpb
@@ -17,16 +17,18 @@ create or replace type body ut_event_listener is
   end;
 
   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
-    l_method varchar2(250) := a_event_timing||'_calling_'||a_event_name;
-    l_reporter ut_reporter;
-    l_call_stmt varchar2(32767);
+    l_method    varchar2(250) := a_event_timing||'_calling_'||a_event_name;
+    l_call_stmt varchar2(32767 byte);
   begin
-    l_call_stmt := 'begin :a_reporter.'||l_method||'( :a_item ); end;';
-    
+    l_call_stmt :=
+      'declare' ||
+      '  v_reporter ut_reporter := :a_reporter; ' ||
+      'begin' ||
+      '  v_reporter.'||l_method||'( treat( :a_item as '||a_item.self_type||')); ' ||
+      '  :a_reporter := v_reporter; ' ||
+      'end;';
     for i in 1..self.reporters.count loop
-      l_reporter := self.reporters(i);
-      execute immediate l_call_stmt using in out l_reporter, in a_item;
-      self.reporters(i) := l_reporter;
+      execute immediate l_call_stmt using in out self.reporters(i), in treat(a_item as ut_suite_item);
     end loop;
 
   end;
diff --git a/source/core/types/ut_run.tpb b/source/core/types/ut_run.tpb
@@ -13,7 +13,6 @@ create or replace type body ut_run as
   end;
 
   overriding member function do_execute(self in out nocopy ut_run, a_listener in out nocopy ut_event_listener_base) return boolean is
-    l_suite_object    ut_suite;
     l_completed_without_errors boolean;
   begin
     ut_utils.debug_log('ut_run.execute');
@@ -23,7 +22,7 @@ create or replace type body ut_run as
     self.start_time := current_timestamp;
 
     for i in 1 .. self.items.count loop
-      l_completed_without_errors := l_suite_object.do_execute(a_listener);
+      l_completed_without_errors := self.items(i).do_execute(a_listener);
     end loop;
 
     self.calc_execution_result;
