diff --git a/source/core/ut_suite_builder.pkb b/source/core/ut_suite_builder.pkb
index 2ebdb980c..c403c29d8 100644
--- a/source/core/ut_suite_builder.pkb
+++ b/source/core/ut_suite_builder.pkb
@@ -754,7 +754,7 @@ create or replace package body ut_suite_builder is
l_used_context_names(l_context_name) := true;
l_context := ut_suite_context(a_parent.object_owner, a_parent.object_name, l_context_name, l_context_pos );
- l_context.path := a_parent.path||'.'||l_context_name;
+ l_context.path := a_parent.path||'.'||l_context.name;
l_context.description := coalesce( a_annotations.by_line( l_context_pos ).text, l_context_name );
l_context.parse_time := a_annotations.parse_time;
diff --git a/test/ut3_tester/core/test_suite_builder.pkb b/test/ut3_tester/core/test_suite_builder.pkb
index 570d86a0d..9a86772c7 100644
--- a/test/ut3_tester/core/test_suite_builder.pkb
+++ b/test/ut3_tester/core/test_suite_builder.pkb
@@ -1370,6 +1370,54 @@ create or replace package body test_suite_builder is
);
end;
+ procedure context_name_case_insensitive is
+ l_actual clob;
+ l_annotations ut3_develop.ut_annotations;
+ begin
+ --Arrange
+ l_annotations := ut3_develop.ut_annotations(
+ ut3_develop.ut_annotation(1, 'suite','Cool', null),
+ ut3_develop.ut_annotation(2, 'beforeall',null, 'suite_level_beforeall'),
+ ut3_develop.ut_annotation(3, 'test','In suite', 'suite_level_test'),
+ ut3_develop.ut_annotation(4, 'context','A context', null),
+ ut3_develop.ut_annotation(5, 'name','a_Context', null),
+ ut3_develop.ut_annotation(6, 'beforeall',null, 'context_setup'),
+ ut3_develop.ut_annotation(7, 'test', 'In context', 'test_in_a_context'),
+ ut3_develop.ut_annotation(8, 'endcontext',null, null)
+ );
+ --Act
+ l_actual := invoke_builder_for_annotations(l_annotations, 'SOME_PACKAGE');
+ --Assert
+ ut.expect(l_actual).to_be_like(
+ ''||
+ '' ||
+ '%' ||
+ '%' ||
+ '' ||
+ '%suite_level_testIn suitesome_package.suite_level_test' ||
+ '%' ||
+ '' ||
+ '%a_contextA contextsome_package.a_context' ||
+ '%' ||
+ '' ||
+ '%test_in_a_contextIn contextsome_package.a_context.test_in_a_context' ||
+ '%' ||
+ '' ||
+ '' ||
+ '%some_packagecontext_setup' ||
+ '%' ||
+ '' ||
+ '' ||
+ '' ||
+ '' ||
+ '%some_packagesuite_level_beforeall' ||
+ '%' ||
+ '' ||
+ ''||
+ '
'
+ );
+ end;
+
procedure throws_value_empty is
l_actual clob;
l_annotations ut3_develop.ut_annotations;
diff --git a/test/ut3_tester/core/test_suite_builder.pks b/test/ut3_tester/core/test_suite_builder.pks
index 4cbfcad74..09ff3c0b3 100644
--- a/test/ut3_tester/core/test_suite_builder.pks
+++ b/test/ut3_tester/core/test_suite_builder.pks
@@ -142,7 +142,7 @@ create or replace package test_suite_builder is
--%test(Falls back to default context name and gives warning when name contains spaces)
procedure name_with_spaces_invalid;
- --%test(Raises warning when more than one name annotation used )
+ --%test(Raises warning when more than one name annotation used)
procedure duplicate_name_annotation;
--%test(Is ignored when used outside of context - no warning given)
@@ -154,6 +154,9 @@ create or replace package test_suite_builder is
--%test(Is applied to corresponding context when multiple contexts used)
procedure multiple_contexts;
+ --%test(Context name is case insensitive)
+ procedure context_name_case_insensitive;
+
--%endcontext
--%context(--%throws annotation)
diff --git a/test/ut3_user/reporters/test_tfs_junit_reporter.pkb b/test/ut3_user/reporters/test_tfs_junit_reporter.pkb
index 1036be2ba..105517763 100644
--- a/test/ut3_user/reporters/test_tfs_junit_reporter.pkb
+++ b/test/ut3_user/reporters/test_tfs_junit_reporter.pkb
@@ -100,7 +100,7 @@ create or replace package body test_tfs_junit_reporter as
--%displayname(Test in and out of context)
-- %context(incontext)
- -- %name(ProductincontextFeatures)
+ -- %name(Production_context_Features)
--%test(inctx)
--%displayname(inctx)
@@ -298,7 +298,7 @@ create or replace package body test_tfs_junit_reporter as
-
+