--%test(Test space before annotation params)

procedure test_space_Before_Annot_Params;

procedure test_space_Before_Annot_Params is

l_source clob;

l_parsing_result ut_annotations.typ_annotated_package;

l_expected ut_annotations.typ_annotated_package;

l_ann_param ut_annotations.typ_annotation_param;

begin

l_source := 'PACKAGE test_tt AS

/*

Some comment

-- inlined

*/

-- %suite

-- %suitepath (all.globaltests)

procedure foo;

END;';

--Act

l_parsing_result := ut_annotations.parse_package_annotations(l_source);

--Assert

l_expected.package_annotations('suite').params := cast( null as ut_annotations.tt_annotation_params);

l_ann_param := null;

l_ann_param.val := 'all.globaltests';

l_expected.package_annotations('suitepath').params(1) := l_ann_param;

check_annotation_parsing(l_expected, l_parsing_result);

end;