Initial checkin

lwasylow · lwasylow · commit efb2e1151bcf · 2018-07-12T13:54:40.000+01:00
diff --git a/source/api/ut.pkb b/source/api/ut.pkb
@@ -332,7 +332,7 @@ create or replace package body ut is
   ) return ut_varchar2_rows pipelined is
     l_reporter  ut_reporter_base := coalesce(a_reporter,
     ut_documentation_reporter());
-    l_paths     ut_varchar2_list := ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema')));
+    l_paths     ut_varchar2_list := coalesce(ut_utils.string_to_table(a_string => a_path,a_delimiter => ','),ut_varchar2_list(sys_context('userenv', 'current_schema')));
     l_lines     sys_refcursor;
     l_line      varchar2(4000);
   begin
@@ -372,7 +372,7 @@ create or replace package body ut is
     a_client_character_set varchar2 := null
   ) return ut_varchar2_rows pipelined is
     l_reporter  ut_reporter_base := coalesce(a_reporter, ut_documentation_reporter());
-    l_paths     ut_varchar2_list := ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema')));
+    l_paths     ut_varchar2_list := coalesce(ut_utils.string_to_table(a_string => a_path,a_delimiter => ','),ut_varchar2_list(sys_context('userenv', 'current_schema')));
     l_lines     sys_refcursor;
     l_line      varchar2(4000);
   begin
@@ -519,7 +519,7 @@ create or replace package body ut is
     a_exclude_objects ut_varchar2_list := null,
     a_client_character_set varchar2 := null
   ) is
-    l_paths  ut_varchar2_list := ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema')));
+    l_paths     ut_varchar2_list := coalesce(ut_utils.string_to_table(a_string => a_path,a_delimiter => ','),ut_varchar2_list(sys_context('userenv', 'current_schema')));
   begin
     ut.run(
       l_paths,
@@ -545,7 +545,7 @@ create or replace package body ut is
     a_exclude_objects ut_varchar2_list := null,
     a_client_character_set varchar2 := null
   ) is
-    l_paths  ut_varchar2_list := ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema')));
+    l_paths     ut_varchar2_list := coalesce(ut_utils.string_to_table(a_string => a_path,a_delimiter => ','),ut_varchar2_list(sys_context('userenv', 'current_schema')));
   begin
     ut.run(
       l_paths,
diff --git a/test/api/test_ut_run.pkb b/test/api/test_ut_run.pkb
@@ -202,6 +202,130 @@ end;]';
   begin
     execute immediate 'drop package invalid_pckag_that_revalidates';
     execute immediate 'drop package parent_specs';
+  end;  
+
+  procedure create_test_csl_packages is
+    pragma autonomous_transaction;
+  begin
+    execute immediate q'[
+      create or replace package test_csl_names1 as
+        --%suite
+        --%suitepath(test_csl_names)
+
+        --%test
+        procedure one_is_one;
+        
+        --%test
+        procedure two_is_two;
+
+      end;
+    ]';
+    
+    execute immediate q'{
+    create or replace package body test_csl_names1 as
+
+      procedure one_is_one is
+      begin
+        ut3.ut.expect(1).to_equal(1);
+      end;
+      
+      procedure two_is_two is
+      begin
+        ut3.ut.expect(2).to_equal(2);
+      end;
+      
+    end;
+    }';
+
+    execute immediate q'[
+      create or replace package test_csl_names2 as
+        --%suite
+        --%suitepath(test_csl_names)
+
+        --%test
+        procedure one_is_one;
+        
+        --%test
+        procedure two_is_two;
+
+      end;
+    ]';
+    
+    execute immediate q'{
+    create or replace package body test_csl_names2 as
+
+      procedure one_is_one is
+      begin
+        ut3.ut.expect(1).to_equal(1);
+      end;
+      
+      procedure two_is_two is
+      begin
+        ut3.ut.expect(2).to_equal(2);
+      end;
+      
+    end;
+    }';
+    
+  end;
+  
+  procedure drop_test_csl_packages is
+    pragma autonomous_transaction;
+  begin
+    execute immediate 'drop package test_csl_names1';
+    execute immediate 'drop package test_csl_names2';
+  end;
+
+  procedure pass_varchar2_name_list is
+    l_results   ut3.ut_varchar2_list;
+    l_actual    clob;
+  begin
+    select *
+      bulk collect into l_results
+    from table(ut3.ut.run(ut3.ut_varchar2_list('test_csl_names1','test_csl_names2')));
+    
+    l_actual := ut3.ut_utils.table_to_clob(l_results);
+    ut.expect(l_actual).to_be_like('%Finished in % seconds
+%4 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%'); 
+  end;
+ 
+  procedure pass_varchar2_name is
+    l_results   ut3.ut_varchar2_list;
+    l_actual    clob;
+  begin
+    select *
+      bulk collect into l_results
+    from table(ut3.ut.run('test_csl_names1'));
+    
+    l_actual := ut3.ut_utils.table_to_clob(l_results);
+    ut.expect(l_actual).to_be_like('%Finished in % seconds
+%2 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%'); 
+  end;
+  
+  procedure pass_varchar2_suite_csl is
+    l_results   ut3.ut_varchar2_list;
+    l_actual    clob;
+  begin
+    select *
+      bulk collect into l_results
+    from table(ut3.ut.run('test_csl_names1,test_csl_names2'));
+    
+    l_actual := ut3.ut_utils.table_to_clob(l_results);
+    ut.expect(l_actual).to_be_like('%Finished in % seconds
+%4 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%'); 
+  end;
+
+  procedure pass_varchar2_test_csl is
+    l_results   ut3.ut_varchar2_list;
+    l_actual    clob;
+  begin
+    select *
+      bulk collect into l_results
+    from table(ut3.ut.run('test_csl_names1.one_is_one,test_csl_names2.one_is_one'));
+    
+    l_actual := ut3.ut_utils.table_to_clob(l_results);
+    ut.expect(l_actual).to_be_like('%Finished in % seconds
+%2 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%'); 
   end;
 
 end;
diff --git a/test/api/test_ut_run.pks b/test/api/test_ut_run.pks
@@ -22,6 +22,29 @@ create or replace package test_ut_run is
   procedure run_and_revalidate_specs;
   procedure generate_invalid_spec;
   procedure drop_test_package;  
+
+  procedure create_test_csl_packages;
+  procedure drop_test_csl_packages;
+  
+  --%test( Pass name of tests as varchar2_list )  
+  --%beforetest(create_test_csl_packages)
+  --%aftertest(drop_test_csl_packages)
+  procedure pass_varchar2_name_list;
+ 
+  --%test( Pass single test name as varchar2 ) 
+  --%beforetest(create_test_csl_packages)
+  --%aftertest(drop_test_csl_packages)
+  procedure pass_varchar2_name;
+  
+  --%test( Pass coma separated list of suite names )
+  --%beforetest(create_test_csl_packages)
+  --%aftertest(drop_test_csl_packages)
+  procedure pass_varchar2_suite_csl;
+
+  --%test( Pass coma separated list of test names )
+  --%beforetest(create_test_csl_packages)
+  --%aftertest(drop_test_csl_packages)
+  procedure pass_varchar2_test_csl;
   
 end;
 /
