Provided a test to reproduce the issue with length function not working properly.

jgebal · jgebal · commit 78a0d4106d2e · 2017-06-09T17:24:20.000+01:00
diff --git a/tests/RunAll.sql b/tests/RunAll.sql
@@ -34,7 +34,6 @@ create table ut$test_table (val varchar2(1));
 exec ut_coverage.coverage_start_develop();
 @@lib/mystats/mystats start
 
-
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.IgnoreWrappedPackageAndDoesNotRaiseException.sql
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParseAnnotationMixedWithWrongBeforeProcedure.sql
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParseAnnotationNotBeforeProcedure.sql
@@ -228,6 +227,7 @@ exec ut_coverage.coverage_start_develop();
 
 @@ut_utils/ut_utils.clob_to_table.sql
 @@ut_utils/ut_utils.table_to_clob.sql
+@@lib/RunTest.sql ut_utils/ut_utils.append_to_clob.worksWithMultiByteChars.sql
 @@lib/RunTest.sql ut_utils/ut_utils.test_result_to_char.RunsWithInvalidValues.sql
 @@lib/RunTest.sql ut_utils/ut_utils.test_result_to_char.RunsWithNullValue.sql
 @@lib/RunTest.sql ut_utils/ut_utils.test_result_to_char.Success.sql
diff --git a/tests/ut_utils/ut_utils.append_to_clob.worksWithMultiByteChars.sql b/tests/ut_utils/ut_utils.append_to_clob.worksWithMultiByteChars.sql
@@ -0,0 +1,43 @@
+column nls_lang noprint new_value v_nls_lang
+
+select value as nls_lang from nls_session_parameters where parameter = 'NLS_DATE_LANGUAGE';
+
+--Arrange
+alter session set nls_date_language=ENGLISH;
+create or replace package tst_chars as
+--                 2) Status of the process = ‘PE’ with no linked data
+end;
+/
+
+alter session set nls_date_language=RUSSIAN;
+
+--Act
+declare
+  l_lines   sys.dbms_preprocessor.source_lines_t;
+  l_result  clob;
+begin
+  l_lines := sys.dbms_preprocessor.get_post_processed_source(
+    object_type => 'PACKAGE',
+    schema_name => user,
+    object_name => 'TST_CHARS'
+  );
+  :test_result := ut_utils.tr_success;
+  for i in 1..l_lines.count loop
+    l_result := null;
+    ut_utils.append_to_clob(l_result, l_lines(i));
+
+    --Assert
+    :test_result := coalesce(:test_result, ut_utils.tr_success);
+    if dbms_lob.getlength(l_result) != dbms_lob.getlength(l_lines(i)) then
+      :test_result := ut_utils.tr_failure;
+      dbms_output.put_line('Expected: "'||l_lines(i)||'"');
+      dbms_output.put_line('Actual: "'||l_result||'"');
+    end if;
+  end loop;
+end;
+/
+
+alter session set nls_date_language=&&v_nls_lang;
+
+undef v_nls_lang;
+drop package tst_chars;
