Document a bug with capturing DBMS_OUTPUT before test run.

jgebal · jgebal · commit 1175203bf6cf · 2018-05-30T21:29:32.000+01:00
diff --git a/test/api/test_ut_runner.pkb b/test/api/test_ut_runner.pkb
@@ -180,25 +180,35 @@ end;';
   procedure run_keep_dbms_output_buffer is
     l_expected         dbmsoutput_linesarray;
     l_actual           dbmsoutput_linesarray;
-    l_lines            number := 100;
+    l_results          ut3.ut_varchar2_list;
+    l_lines            number := 10000;
   begin
     --Arrange
     create_test_spec();
     create_test_body(0);
+
     l_expected := dbmsoutput_linesarray(
         'A text placed into DBMS_OUTPUT',
         'Another line',
         lpad('A very long line',10000,'a')
     );
-    dbms_output.put_line(l_expected(1));
-    dbms_output.put_line(l_expected(2));
-    dbms_output.put_line(l_expected(3));
+    for i in 1 .. 300 loop
+      l_expected.extend;
+      l_expected(l_expected.last) := 'line '||i;
+    end loop;
+
+    for i in 1 .. l_expected.count loop
+      dbms_output.put_line(l_expected(i));
+    end loop;
+
     --Act
-    ut3.ut.run('test_cache');
+    select *
+      bulk collect into l_results
+      from table(ut3.ut.run('test_cache'));
 
     --Assert
     dbms_output.get_lines(lines => l_actual, numlines => l_lines);
-    for i in 1 .. l_expected.count loop
+    for i in 1 .. l_lines loop
       ut.expect(l_actual(i)).to_equal(l_expected(i));
     end loop;
     drop_test_package();
