fix teamcity reporter for new outputers

Pazus · Pazus · commit 42e217bc3661 · 2016-11-17T17:17:07.000+03:00
diff --git a/source/reporters/ut_teamcity_reporter.tpb b/source/reporters/ut_teamcity_reporter.tpb
@@ -1,8 +1,9 @@
 create or replace type body ut_teamcity_reporter is
 
-  constructor function ut_teamcity_reporter return self as result is
+  constructor function ut_teamcity_reporter(a_output ut_output default ut_output_dbms_output()) return self as result is
   begin
-    self.name := $$plsql_unit;
+    self.name   := $$plsql_unit;
+    self.output := a_output;
     return;
   end;
 
diff --git a/source/reporters/ut_teamcity_reporter.tps b/source/reporters/ut_teamcity_reporter.tps
@@ -1,6 +1,6 @@
 create or replace type ut_teamcity_reporter under ut_reporter
 (
-  constructor function ut_teamcity_reporter return self as result,
+  constructor function ut_teamcity_reporter(a_output ut_output default ut_output_dbms_output()) return self as result,
 
   overriding member procedure before_suite(self in out nocopy ut_teamcity_reporter, a_suite in ut_object),
 

Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`create or replace type ut_teamcity_reporter under ut_reporter`
`2`	`2`	`(`
`3`		`- constructor function ut_teamcity_reporter return self as result,`
	`3`	`+ constructor function ut_teamcity_reporter(a_output ut_output default ut_output_dbms_output()) return self as result,`
`4`	`4`
`5`	`5`	`overriding member procedure before_suite(self in out nocopy ut_teamcity_reporter, a_suite in ut_object),`
`6`	`6`