Added support for printing outcomes of ref_cursors (using dbms_xmlgen.restartquery() ).

jgebal · jgebal · commit ec88261ced65 · 2016-10-16T20:22:12.000+01:00
Currently the hard limit for number of rows compared is 100M, but with dbms_xmlgen we can figure a way to get around this.
diff --git a/source/expectation_data_values/ut_data_value_refcursor.tpb b/source/expectation_data_values/ut_data_value_refcursor.tpb
@@ -26,9 +26,14 @@ create or replace type body ut_data_value_refcursor as
   end;
 
   overriding member function to_string return varchar2 is
+    l_result clob;
   begin
-    --TODO - implement a way to get data out of ref_cursor wothout loosing the cursor
-    return ut_utils.to_string(to_char(null));
+    if self.value is not null then
+      dbms_xmlgen.setMaxRows(self.value, 100);
+      l_result := dbms_xmlgen.getxml(self.value);
+      dbms_xmlgen.restartQuery(self.value);
+    end if;
+    return ut_utils.to_string(l_result);
   end;
 
 end;
diff --git a/source/expectations/equal.tpb b/source/expectations/equal.tpb
@@ -129,12 +129,14 @@ create or replace type body equal as
         l_expected ut_data_value_refcursor := treat(self.expected as ut_data_value_refcursor);
         l_actual   ut_data_value_refcursor := treat(a_actual as ut_data_value_refcursor);
       begin
-        l_result :=
-          equal_with_nulls(
-            (  xmltype( dbms_sql.to_refcursor(l_expected.value) ).getClobVal
-              = xmltype( dbms_sql.to_refcursor(l_actual.value) ).getClobVal)
-            , a_actual
-          );
+        if l_expected.value is not null and l_actual.value is not null then
+          --fetch 1M rows max
+          dbms_xmlgen.setMaxRows(l_expected.value, 1000000);
+          dbms_xmlgen.setMaxRows(l_actual.value, 1000000);
+          l_result := dbms_lob.compare( dbms_xmlgen.getxml(l_expected.value), dbms_xmlgen.getxml(l_actual.value) ) = 0;
+        else
+          l_result := equal_with_nulls( null, a_actual);
+        end if;
       end;
     elsif self.expected is of (ut_data_value_timestamp) and a_actual is of (ut_data_value_timestamp) then
       declare
