forgotten

Pazus · Pazus · commit aed8783518d3 · 2016-07-26T15:00:16.000+03:00
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 @@`
	`1`	`+create or replace type ut_objects_list is table of ut_object;`
	`2`	`+/`