Added documenting comments for ordering of data from suite_cache.

jgebal · jgebal · commit 1da87207465e · 2020-01-03T05:34:28.000Z
Fixed SQL formatting.
diff --git a/source/core/ut_suite_cache_manager.pkb b/source/core/ut_suite_cache_manager.pkb
@@ -162,19 +162,23 @@ create or replace package body ut_suite_cache_manager is
     return case
            when a_random_seed is null then q'[
               replace(
+                --suite patch until objects name (excluding contexts and test path) with trailing dot (full stop)
                 substr( c.obj.path, 1, instr( c.obj.path, lower(c.obj.object_name), -1 ) + length(c.obj.object_name) ),
                 '.',
+                --'.' replaced with chr(0) to assure that child elements come before parent when sorting in descending oder
                 chr(0)
               ) desc nulls last,
               case when c.obj.self_type = 'UT_SUITE_CONTEXT' then
                 ( select max( x.line_no ) + 1
                     from ut_suite_cache x
-                   where c.obj.object_owner = x.object_owner and c.obj.object_name = x.object_name and
-                         x.path like c.obj.path || '.%'
+                   where c.obj.object_owner = x.object_owner
+                     and c.obj.object_name = x.object_name
+                     and x.path like c.obj.path || '.%'
                 )
               else
                 c.obj.line_no
               end,
+              --assures that child contexts come before parent contexts
               regexp_count(c.obj.path,'\.') desc,
               :a_random_seed]'
            else
