create or replace package body test_cov_cobertura_reporter is

procedure report_on_file is

l_results ut3.ut_varchar2_list;

l_expected clob;

l_actual clob;

begin

--Arrange

l_expected :=

q'[<?xml version="1.0"?>

<!DOCTYPE coverage SYSTEM "http://cobertura.sourceforge.net/xml/coverage-04.dtd">

<coverage line-rate="0" branch-rate="0.0" lines-covered="2" lines-valid="3" branches-covered="0" branches-valid="0" complexity="0" version="1" timestamp="%">

<sources>

<source>test/ut3.dummy_coverage.pkb</source>

</sources>

<packages>

<package name="DUMMY_COVERAGE" line-rate="0.0" branch-rate="0.0" complexity="0.0">

<class name="DUMMY_COVERAGE" filename="test/ut3.dummy_coverage.pkb" line-rate="0.0" branch-rate="0.0" complexity="0.0">

<lines>

<line number="4" hits="1" branch="false"/>

<line number="5" hits="0" branch="false"/>

<line number="7" hits="1" branch="false"/>

</lines>

</class>

</package>

</packages>

</coverage>]';

--Act

select *

bulk collect into l_results

from table(

ut3.ut.run(

a_path => 'ut3.test_dummy_coverage',

a_reporter=> ut3.ut_coverage_cobertura_reporter( ),

a_source_files => ut3.ut_varchar2_list( 'test/ut3.dummy_coverage.pkb' ),

a_test_files => ut3.ut_varchar2_list( )

)

);

l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);

--Assert

ut.expect(l_actual).to_be_like(l_expected);

end;

end;

/

create or replace package test_cov_cobertura_reporter is

--%suite(ut_cov_cobertura_reporter)

--%suitepath(utplsql.test_user.reporters.test_coverage)

--%test(reports on a project file mapped to database object)

procedure report_on_file;

end test_cov_cobertura_reporter;

/

create or replace package body test_coverage_sonar_reporter is

procedure report_on_file is

l_results ut3.ut_varchar2_list;

l_expected clob;

l_actual clob;

begin

--Arrange

l_expected := '<?xml version="1.0"?>

<coverage version="1">

<file path="test/ut3.dummy_coverage.pkb">

<lineToCover lineNumber="4" covered="true"/>

<lineToCover lineNumber="5" covered="false"/>

<lineToCover lineNumber="7" covered="true"/>

</file>

</coverage>';

--Act

select *

bulk collect into l_results

from table(

ut3.ut.run(

a_path => 'ut3.test_dummy_coverage',

a_reporter=> ut3.ut_coverage_sonar_reporter( ),

a_source_files => ut3.ut_varchar2_list( 'test/ut3.dummy_coverage.pkb' ),

a_test_files => ut3.ut_varchar2_list( )

)

);

l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);

--Assert

ut.expect(l_actual).to_equal(l_expected);

end;

procedure check_encoding_included is

begin

reporters.check_xml_encoding_included(ut3.ut_coverage_sonar_reporter(), 'UTF-8');

end;

end;

/

create or replace package test_coverage_sonar_reporter is

--%suite(ut_coverge_sonar_reporter)

--%suitepath(utplsql.test_user.reporters.test_coverage)

--%test(reports on a project file mapped to database object)

procedure report_on_file;

--%test(Includes XML header with encoding when encoding provided)

procedure check_encoding_included;

end;

/

create or replace package body test_coveralls_reporter is

procedure report_on_file is

l_results ut3.ut_varchar2_list;

l_expected clob;

l_actual clob;

begin

--Arrange

l_expected := q'[{"source_files":[

{ "name": "test/ut3.dummy_coverage.pkb",

"coverage": [

null,

null,

null,

1,

0,

null,

1

]

}

]}

]';

--Act

select *

bulk collect into l_results

from table(

ut3.ut.run(

a_path => 'ut3.test_dummy_coverage',

a_reporter=> ut3.ut_coveralls_reporter( ),

a_source_files => ut3.ut_varchar2_list( 'test/ut3.dummy_coverage.pkb' ),

a_test_files => ut3.ut_varchar2_list( )

)

);

l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);

--Assert

ut.expect(l_actual).to_equal(l_expected);

end;

procedure report_zero_coverage is

l_results ut3.ut_varchar2_list;

l_expected clob;

l_actual clob;

pragma autonomous_transaction;

begin

--Arrange

l_expected := q'[{"source_files":[

{ "name": "ut3.dummy_coverage",

"coverage": [

0,

0,

0,

0,

0,

0,

0,

0,

0,

0,

0,

0,

0,

0,

0

]

}

]}

]';

test_coverage.cleanup_dummy_coverage;

--Act

select *

bulk collect into l_results

from table(

ut3.ut.run(

'ut3.test_dummy_coverage',

ut3.ut_coveralls_reporter(),

a_include_objects => ut3.ut_varchar2_list('UT3.DUMMY_COVERAGE')

)

);

l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);

--Assert

ut.expect(l_actual).to_equal(l_expected);

test_coverage.setup_dummy_coverage;

end;

end;

/

create or replace package test_coveralls_reporter is

--%suite(ut_coveralls_reporter)

--%suitepath(utplsql.test_user.reporters.test_coverage)

--%test(reports on a project file mapped to database object)

procedure report_on_file;

--%test(reports zero coverage on each line of non-executed database object)

procedure report_zero_coverage;

end;

/

create or replace package body test_html_extended_reporter is

procedure report_on_file is

l_results ut3.ut_varchar2_list;

l_expected varchar2(32767);

l_actual clob;

l_charset varchar2(100) := 'ISO-8859-1';

begin

--Arrange

l_expected := '%<meta %charset='||l_charset||'" />%<h3>UT3.DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG</h3>%<b>4</b> relevant lines. <span class="green"><b>3</b> lines covered</span> (including <span class="yellow"><b>1</b> lines partially covered</span> ) and <span class="red"><b>1</b> lines missed%';

select *

bulk collect into l_results

from table(

ut3.ut.run(

a_path => 'ut3.test_dummy_coverage',

a_reporter=> ut3.ut_coverage_html_reporter(),

a_source_files => ut3.ut_varchar2_list( 'test/ut3.dummy_coverage_package_with_an_amazingly_long_name_that_you_would_not_think_of_in_real_life_project_because_its_simply_too_long.pkb' ),

a_test_files => ut3.ut_varchar2_list( ),

a_client_character_set => l_charset

)

);

l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);

--Assert

ut.expect(l_actual).to_be_like(l_expected);

end;

end test_html_extended_reporter;

/

create or replace package test_html_extended_reporter is

--%suite(ut_html_extended_reporter)

--%suitepath(utplsql.test_user.reporters.test_coverage.test_extended_coverage)

--%test(reports on a project file mapped to database object in extended profiler coverage)

procedure report_on_file;

end test_html_extended_reporter;

/