bag fix

mihail.chernyh · mihail.chernyh · commit d015fd253752 · 2017-03-27T11:16:13.000+03:00
source bag:
ORA-06512: на  "SYS.DBMS_LOB", line 1146
ORA-06512: на  "UT3.UT_EXECUTABLE", line 88
ORA-06512: на  "UT3.UT_EXECUTABLE", line 135
ORA-06512: на  "UT3.UT_EXECUTABLE", line 65
ORA-06512: на  "UT3.UT_TEST", line 76
ORA-06512: на  "UT3.UT_SUITE_ITEM", line 48
ORA-06512: на  "UT3.UT_SUITE", line 74
ORA-06512: на  "UT3.UT_RUN", line 41
ORA-06512: на  "UT3.UT_SUITE_ITEM", line 48
ORA-06512: на  "UT3.UT_RUNNER", line 34

ORA-06502: PL/SQL:  ошибка числа или значения
diff --git a/source/core/types/ut_executable.tpb b/source/core/types/ut_executable.tpb
@@ -84,13 +84,14 @@ create or replace type body ut_executable is
       loop
         dbms_output.get_line(line => l_line, status => l_status);
         exit when l_status = 1;
-
-        dbms_lob.writeappend(lob_loc => self.serveroutput,
-                             amount  => length(l_line),
-                             buffer  => l_line);
-        dbms_lob.writeappend(lob_loc => self.serveroutput,
-                             amount  => 1,
-                             buffer  => chr(10));
+        if l_line is not null then
+            dbms_lob.writeappend(lob_loc => self.serveroutput,
+                                 amount  => length(l_line),
+                                 buffer  => l_line);
+            dbms_lob.writeappend(lob_loc => self.serveroutput,
+                                 amount  => 1,
+                                 buffer  => chr(10));
+        end if;                             
       end loop;
     end save_dbms_output;
   begin
