Thanks to visit codestin.com
Credit goes to github.com

Skip to content
Merged
Show file tree
Hide file tree
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Next Next commit
implemented a way to fail if any test failed
  • Loading branch information
Pazus committed Jul 19, 2017
commit e9219d80b0492d563308c1cd39149fbdd039b5a0
85 changes: 45 additions & 40 deletions source/api/ut_runner.pkb
Original file line number Diff line number Diff line change
Expand Up @@ -53,131 +53,136 @@ create or replace package body ut_runner is
procedure run(
a_paths ut_varchar2_list, a_reporters ut_reporters, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
) is
l_items_to_run ut_run;
l_listener ut_event_listener;
begin
ut_output_buffer.cleanup_buffer();
begin
ut_output_buffer.cleanup_buffer();

ut_console_reporter_base.set_color_enabled(a_color_console);
if a_reporters is null or a_reporters.count = 0 then
l_listener := ut_event_listener(ut_reporters(ut_documentation_reporter()));
else
l_listener := ut_event_listener(a_reporters);
end if;
l_items_to_run := ut_run(
ut_suite_manager.configure_execution_by_path(a_paths),
a_paths,
ut_utils.convert_collection(a_coverage_schemes),
to_ut_object_list(a_exclude_objects),
to_ut_object_list(a_include_objects),
set(a_source_file_mappings),
set(a_test_file_mappings)
);
l_items_to_run.do_execute(l_listener);

ut_console_reporter_base.set_color_enabled(a_color_console);
if a_reporters is null or a_reporters.count = 0 then
l_listener := ut_event_listener(ut_reporters(ut_documentation_reporter()));
else
l_listener := ut_event_listener(a_reporters);
end if;
l_items_to_run := ut_run(
ut_suite_manager.configure_execution_by_path(a_paths),
a_paths,
ut_utils.convert_collection(a_coverage_schemes),
to_ut_object_list(a_exclude_objects),
to_ut_object_list(a_include_objects),
set(a_source_file_mappings),
set(a_test_file_mappings)
);
l_items_to_run.do_execute(l_listener);

cleanup_temp_tables;
ut_output_buffer.close(l_listener.reporters);
exception
when others then
cleanup_temp_tables;
ut_output_buffer.close(l_listener.reporters);
dbms_output.put_line(dbms_utility.format_error_backtrace);
dbms_output.put_line(dbms_utility.format_error_stack);
raise;
exception
when others then
cleanup_temp_tables;
ut_output_buffer.close(l_listener.reporters);
dbms_output.put_line(dbms_utility.format_error_backtrace);
dbms_output.put_line(dbms_utility.format_error_stack);
raise;
end;
if a_fail_on_errors and l_items_to_run.result in (ut_utils.tr_failure, ut_utils.tr_error) then
raise_application_error(ut_utils.gc_some_tests_failed, 'Some tests failed');
end if;
end;

procedure run(
a_paths ut_varchar2_list, a_reporters ut_reporters, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
) is
begin
run(
a_paths, a_reporters, a_color_console, a_coverage_schemes,
ut_file_mapper.build_file_mappings(a_source_files),
ut_file_mapper.build_file_mappings(a_test_files),
a_include_objects, a_exclude_objects
a_include_objects, a_exclude_objects, a_fail_on_errors
);
end;

procedure run(
a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
) is
begin
run(
a_paths, ut_reporters(coalesce(a_reporter,ut_documentation_reporter())),
a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,
a_include_objects, a_exclude_objects
a_include_objects, a_exclude_objects, a_fail_on_errors
);
end;

procedure run(
a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
) is
begin
run(
a_paths, ut_reporters(coalesce(a_reporter,ut_documentation_reporter())),
a_color_console, a_coverage_schemes, a_source_files, a_test_files,
a_include_objects, a_exclude_objects
a_include_objects, a_exclude_objects, a_fail_on_errors
);
end;


procedure run(
a_path in varchar2, a_reporter ut_reporter_base := null, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
) is
begin
run(
ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema'))),
a_reporter, a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,
a_include_objects, a_exclude_objects
a_include_objects, a_exclude_objects, a_fail_on_errors
);
end run;

procedure run(
a_path in varchar2, a_reporter ut_reporter_base := null, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
) is
begin
run(
ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema'))),
a_reporter, a_color_console, a_coverage_schemes, a_source_files, a_test_files,
a_include_objects, a_exclude_objects
a_include_objects, a_exclude_objects, a_fail_on_errors
);
end run;

procedure run(
a_path in varchar2, a_reporters in ut_reporters, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
) is
begin
run(
ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema'))),
a_reporters, a_color_console, a_coverage_schemes, a_source_file_mappings, a_test_file_mappings,
a_include_objects, a_exclude_objects
a_include_objects, a_exclude_objects, a_fail_on_errors
);
end run;

procedure run(
a_path in varchar2, a_reporters in ut_reporters, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
) is
begin
run(
ut_varchar2_list(coalesce(a_path, sys_context('userenv', 'current_schema'))),
a_reporters, a_color_console, a_coverage_schemes, a_source_files, a_test_files,
a_include_objects, a_exclude_objects
a_include_objects, a_exclude_objects, a_fail_on_errors
);
end run;

Expand Down
16 changes: 8 additions & 8 deletions source/api/ut_runner.pks
Original file line number Diff line number Diff line change
Expand Up @@ -36,51 +36,51 @@ create or replace package ut_runner authid current_user is
procedure run(
a_path varchar2 := null, a_reporter ut_reporter_base := null, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
);

procedure run(
a_path varchar2 := null, a_reporter ut_reporter_base := null, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
);

procedure run(
a_path varchar2, a_reporters ut_reporters, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
);

procedure run(
a_path varchar2, a_reporters ut_reporters, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
);

-- TODO - implementation to be changed
procedure run(
a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
);

procedure run(
a_paths ut_varchar2_list, a_reporter ut_reporter_base := null, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
);

-- TODO - implementation to be changed
procedure run(
a_paths ut_varchar2_list, a_reporters ut_reporters, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_file_mappings ut_file_mappings := null, a_test_file_mappings ut_file_mappings := null,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
);

procedure run(
a_paths ut_varchar2_list, a_reporters ut_reporters, a_color_console boolean := false,
a_coverage_schemes ut_varchar2_list := null, a_source_files ut_varchar2_list, a_test_files ut_varchar2_list,
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null
a_include_objects ut_varchar2_list := null, a_exclude_objects ut_varchar2_list := null, a_fail_on_errors boolean default false
);

end ut_runner;
Expand Down
5 changes: 5 additions & 0 deletions source/core/ut_utils.pks
Original file line number Diff line number Diff line change
Expand Up @@ -79,6 +79,11 @@ create or replace package ut_utils authid definer is
ex_invalid_rep_event_name exception;
gc_invalid_rep_event_name constant pls_integer := -20211;
pragma exception_init(ex_invalid_rep_event_name, -20211);

-- Any of tests failed
ex_some_tests_failed exception;
gc_some_tests_failed constant pls_integer := -20213;
pragma exception_init(ex_some_tests_failed, -20213);


gc_max_storage_varchar2_len constant integer := 4000;
Expand Down