     l_suites ut3.ut_suite_items;
     l_suite  ut3.ut_logical_suite;
     l_cursor sys_refcursor;
+    l_type_cursor sys_refcursor;
+    l_ctx   dbms_xmlgen.ctxhandle;
     l_xml    xmltype;
   begin
     open l_cursor for select value(x) from table(

        '%</ITEMS>' ||
        '%<BEFORE_ALL_LIST>%<PROCEDURE_NAME>suite_level_beforeall</PROCEDURE_NAME>%</BEFORE_ALL_LIST>' ||
        '%<AFTER_ALL_LIST>%<PROCEDURE_NAME>suite_level_afterall</PROCEDURE_NAME>%</AFTER_ALL_LIST>' ||
      '%</UT_LOGICAL_SUITE>'
    );
    ut.expect(l_actual).not_to_be_like('%<ITEMS>%<ITEMS>%</ITEMS>%<BEFORE_ALL_LIST>%</ITEMS>%');
    ut.expect(l_actual).not_to_be_like('%<ITEMS>%<ITEMS>%</ITEMS>%<AFTER_ALL_LIST>%</ITEMS>%');

        '%</BEFORE_ALL_LIST>' ||
        '<AFTER_ALL_LIST/>' ||
        '<TAGS/>' ||
      '</UT_LOGICAL_SUITE>'||
      '</ROW></ROWSET>'
    );
  end;

