Checking issue with finding next annotation.

jgebal · jgebal · commit 64b291fd84b3 · 2018-04-14T18:40:56.000+01:00
diff --git a/examples/developer_examples/RunExampleTestAnnotationsParsingTimeHugePackage.sql b/examples/developer_examples/RunExampleTestAnnotationsParsingTimeHugePackage.sql
@@ -21,8 +21,16 @@ set linesize 120
 var c refcursor;
 declare
   l_suites ut_suite_items;
+  l_items  ut_suite_items;
 begin
   l_suites := ut_suite_manager.configure_execution_by_path(ut_varchar2_list(USER||'.TST_PKG_HUGE'));
+  l_items := treat(
+      treat( treat( l_suites( 1 ) as ut_logical_suite ).items( 1 ) as ut_logical_suite ).items( 1 )
+      as ut_logical_suite
+  ).items;
+  dbms_output.put_line('count of tests='||l_items.count);
+  dbms_output.put_line('last test name='||l_items(l_items.last).name);
+
   open :c for
     select length(txt), txt
     from ( select xmltype(anydata.convertCollection(l_suites)).getclobval() as txt from dual);
