additional test for comment-annotation mix

Pazus · Pazus · commit 03361e5dc1cb · 2016-10-03T00:34:22.000+03:00
diff --git a/tests/RunAll.sql b/tests/RunAll.sql
@@ -101,8 +101,10 @@ set serveroutput on size unlimited format truncated
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParsePackageLevelAnnotationWithKeyValue.sql
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParseAnnotationNotBeforeProcedure.sql
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParsePackageAndProcedureLevelAnnotations.sql
+@@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParseAnnotationMixedWithWrongBeforeProcedure.sql
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParseComplexPackage.sql
 
+
 --Global cleanup
 drop package ut_example_tests;
 drop procedure check_annotation_parsing;
diff --git a/tests/ut_annotations/ut_annotations.parse_package_annotations.ParseAnnotationMixedWithWrongBeforeProcedure.sql b/tests/ut_annotations/ut_annotations.parse_package_annotations.ParseAnnotationMixedWithWrongBeforeProcedure.sql
@@ -0,0 +1,44 @@
+PROMPT Parse procedure level annotations with annotations mixed with comments
+
+--Arrange
+declare
+  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
+  -- %suite(Name of suite)
+  -- %suitepackage(all.globaltests)
+  
+  -- %ann1(Name of suite)
+  -- wrong line
+  -- %ann2(some_value)  
+  procedure foo;
+END;';
+
+--Act
+  l_parsing_result := ut_annotations.parse_package_annotations(l_source);
+  
+--Assert
+  l_ann_param := null;
+  l_ann_param.value := 'Name of suite'; 
+  l_expected.package_annotations('suite')(1) := l_ann_param;
+  
+  l_ann_param := null;
+  l_ann_param.value := 'all.globaltests';  
+  l_expected.package_annotations('suitepackage')(1) := l_ann_param;
+  
+  l_ann_param := null;
+  l_ann_param.value := 'some_value';  
+  l_expected.procedure_annotations('foo')('ann2')(1) := l_ann_param;
+  
+  check_annotation_parsing(l_expected, l_parsing_result);
+  
+  if ut_assert.get_aggregate_asserts_result = ut_utils.tr_success then
+    :test_result := ut_utils.tr_success;
+  end if;
+
+end;
+/
