forgotten

utPLSQL · rlove · Aug 1, 2016 · Jul 24, 2016 · Jul 24, 2016 · Jul 24, 2016
commit aed8783518d30329d40d087b84fb2c2ada3d57b2
diff --git a/source/types/ut_composite_object.tpb b/source/types/ut_composite_object.tpb
@@ -0,0 +1,13 @@
+create or replace type body ut_composite_object is
+  member procedure calc_execution_result(self in out nocopy ut_composite_object) is
+    v_result integer(1) := ut_utils.tr_success;
+  begin
+    for i in 1 .. self.items.count loop
+      v_result := greatest(self.items(i).execution_result.result, v_result);
+      exit when v_result = ut_utils.tr_error;
+    end loop;
+    self.execution_result.result := v_result;
+  end;
+
+end;
+/
diff --git a/source/types/ut_composite_object.tps b/source/types/ut_composite_object.tps
@@ -0,0 +1,7 @@
+create or replace type ut_composite_object force under ut_object
+(
+  items      ut_objects_list,
+
+	member procedure calc_execution_result(self in out nocopy ut_composite_object)
+) not final not instantiable
+/
diff --git a/source/types/ut_object.tps b/source/types/ut_object.tps
@@ -0,0 +1,7 @@
+create or replace type ut_object as object
+(
+  name varchar2(250 char),
+  execution_result ut_execution_result,
+  object_type integer(1) --0 - assert, 1 -- test, 2 -- suite
+) not final not instantiable
+/
diff --git a/source/types/ut_objects_list.tps b/source/types/ut_objects_list.tps
@@ -0,0 +1,2 @@
+create or replace type ut_objects_list is table of ut_object;
+/
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		create or replace type ut_objects_list is table of ut_object;
		/