diff --git a/.travis.yml b/.travis.yml
index ce865e05a..af8a07cee 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -25,6 +25,8 @@ env:
- UT3_USER_PASSWORD=ut3
- UT3_TESTER=ut3_tester
- UT3_TESTER_PASSWORD=ut3
+ - UT3_TESTER_HELPER=ut3_tester_helper
+ - UT3_TESTER_HELPER_PASSWORD=ut3
- UT3_TABLESPACE=users
# Environment for building a release
- CURRENT_BRANCH=${TRAVIS_BRANCH}
@@ -45,7 +47,7 @@ env:
#utPLSQL released version directory
- UTPLSQL_DIR="utPLSQL_latest_release"
- SELFTESTING_BRANCH=${TRAVIS_BRANCH}
- - UTPLSQL_CLI_VERSION="3.1.0"
+ - UTPLSQL_CLI_VERSION="3.1.6"
# Maven
- MAVEN_HOME=/usr/local/maven
- MAVEN_CFG=$HOME/.m2
diff --git a/.travis/install.sh b/.travis/install.sh
index e37cfa35f..d8c2a87fc 100755
--- a/.travis/install.sh
+++ b/.travis/install.sh
@@ -47,6 +47,7 @@ SQL
alter session set plsql_optimize_level=0;
@install.sql $UT3_OWNER
+ @create_synonyms_and_grants_for_public.sql $UT3_OWNER
SQL
fi
@@ -60,27 +61,32 @@ grant select any dictionary to $UT3_OWNER;
grant create any procedure, drop any procedure, execute any procedure to $UT3_OWNER;
SQL
-#Create user that will own the tests
+#Create user that will own the tests that are relevant to internal framework
time "$SQLCLI" sys/$ORACLE_PWD@//$CONNECTION_STR AS SYSDBA <<-SQL
set feedback off
@create_utplsql_owner.sql $UT3_TESTER $UT3_TESTER_PASSWORD $UT3_TABLESPACE
-
---needed for testing distributed transactions
-grant create public database link to $UT3_TESTER;
-grant drop public database link to $UT3_TESTER;
-set feedback on
---Needed for testing coverage outside of main UT3 schema.
-grant create any procedure, drop any procedure, execute any procedure, create any type, drop any type, execute any type, under any type, select any table, update any table, insert any table, delete any table, create any table, drop any table, alter any table, select any dictionary to $UT3_TESTER;
-revoke execute on dbms_crypto from $UT3_TESTER;
-grant create job to $UT3_TESTER;
exit
SQL
-#Create additional UT3$USER# to test for special characters
+#Create additional UT3$USER# to test for special characters and front end API testing
time "$SQLCLI" sys/$ORACLE_PWD@//$CONNECTION_STR AS SYSDBA <<-SQL
set feedback off
@create_utplsql_owner.sql $UT3_USER $UT3_USER_PASSWORD $UT3_TABLESPACE
---Grant UT3 framework to UT3$USER#
+--Grant UT3 framework to min user
@create_user_grants.sql $UT3_OWNER $UT3_USER
exit
SQL
+
+#Create additional UT3_TESTER_HELPER that will provide a functions to allow min grant test user setup test
+time "$SQLCLI" sys/$ORACLE_PWD@//$CONNECTION_STR AS SYSDBA <<-SQL
+set feedback off
+@create_utplsql_owner.sql $UT3_TESTER_HELPER $UT3_TESTER_HELPER_PASSWORD $UT3_TABLESPACE
+--needed for testing distributed transactions
+grant create public database link to $UT3_TESTER_HELPER;
+grant drop public database link to $UT3_TESTER_HELPER;
+set feedback on
+--Needed for testing coverage outside of main UT3 schema.
+grant create any procedure, drop any procedure, execute any procedure, create any type, drop any type, execute any type, under any type, select any table, update any table, insert any table, delete any table, create any table, drop any table, alter any table, select any dictionary, create any synonym, drop any synonym to $UT3_TESTER_HELPER;
+grant create job to $UT3_TESTER_HELPER;
+exit
+SQL
diff --git a/development/cleanup.sh b/development/cleanup.sh
index 989be30b9..313e382ca 100755
--- a/development/cleanup.sh
+++ b/development/cleanup.sh
@@ -7,7 +7,6 @@ git rev-parse && cd "$(git rev-parse --show-cdup)"
"${SQLCLI}" sys/${ORACLE_PWD}@//${CONNECTION_STR} AS SYSDBA <<-SQL
set echo on
-set serveroutput on
begin
for x in (
select * from dba_objects
@@ -22,6 +21,7 @@ end;
drop user ${UT3_OWNER} cascade;
drop user ${UT3_RELEASE_VERSION_SCHEMA} cascade;
drop user ${UT3_TESTER} cascade;
+drop user ${UT3_TESTER_HELPER} cascade;
drop user ${UT3_USER} cascade;
begin
diff --git a/development/template.env.sh b/development/template.env.sh
index 94004c89d..ab4f4efa2 100755
--- a/development/template.env.sh
+++ b/development/template.env.sh
@@ -4,7 +4,7 @@ export SQLCLI=sql # For sqlcl client
#export SQLCLI=sqlplus # For sqlplus client
export CONNECTION_STR=127.0.0.1:1521/xe # Adjust the connect string
export ORACLE_PWD=oracle # Adjust your local SYS password
-export UTPLSQL_CLI_VERSION="3.1.0"
+export UTPLSQL_CLI_VERSION="3.1.6"
export SELFTESTING_BRANCH=develop
export UTPLSQL_DIR="utPLSQL_latest_release"
@@ -13,7 +13,8 @@ export UT3_OWNER_PASSWORD=ut3
export UT3_RELEASE_VERSION_SCHEMA=ut3_latest_release
export UT3_TESTER=ut3_tester
export UT3_TESTER_PASSWORD=ut3
+export UT3_TESTER_HELPER=ut3_tester_helper
+export UT3_TESTER_HELPER_PASSWORD=ut3
export UT3_TABLESPACE=users
export UT3_USER="UT3\$USER#"
export UT3_USER_PASSWORD=ut3
-
diff --git a/source/uninstall_objects.sql b/source/uninstall_objects.sql
index 3599549a3..e2295f34d 100644
--- a/source/uninstall_objects.sql
+++ b/source/uninstall_objects.sql
@@ -137,10 +137,6 @@ drop type ut_data_value_boolean force;
drop type ut_data_value_blob force;
-drop type ut_data_value_object force;
-
-drop type ut_data_value_collection force;
-
drop type ut_data_value_anydata force;
drop type ut_data_value_xmltype force;
diff --git a/test/api/test_ut_run.pkb b/test/api/test_ut_run.pkb
deleted file mode 100644
index fb18f18b8..000000000
--- a/test/api/test_ut_run.pkb
+++ /dev/null
@@ -1,1072 +0,0 @@
-create or replace package body test_ut_run is
-
- --%test(ut.version() returns version of the framework)
- procedure ut_version is
- begin
- ut.expect(ut3.ut.version()).to_match('^v\d+\.\d+\.\d+\.\d+(-\w+)?$');
- end;
-
- --%test(ut.fail() marks test as failed)
- procedure ut_fail is
- begin
- --Act
- ut3.ut.fail('Testing failure message');
- --Assert
- ut.expect(
- xmltype(anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations())).getClobVal()
- ).to_be_like('%2%Testing failure message%');
- --Cleanup
- ut3.ut_expectation_processor.clear_expectations();
- end;
-
- procedure create_ut3$user#_tests is
- pragma autonomous_transaction;
- begin
- execute immediate q'[create or replace package ut3$user#.test_package_1 is
- --%suite
- --%suitepath(tests)
-
- --%test(Test1 from test package 1)
- procedure test1;
-
- --%test(Test2 from test package 1)
- procedure test2;
-
- procedure run(a_reporter ut3.ut_reporter_base := null);
- procedure run(a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base);
- procedure run(a_path varchar2, a_reporter ut3.ut_reporter_base := null);
- procedure run(a_path varchar2, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base);
- procedure run(a_paths ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base := null);
- procedure run(a_paths ut3.ut_varchar2_list, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base);
- function run(a_reporter ut3.ut_reporter_base := null) return ut3.ut_varchar2_list;
- function run(a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) return ut3.ut_varchar2_list;
- function run(a_path varchar2, a_reporter ut3.ut_reporter_base := null) return ut3.ut_varchar2_list;
- function run(a_path varchar2, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) return ut3.ut_varchar2_list;
- function run(a_paths ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base := null) return ut3.ut_varchar2_list;
- function run(a_paths ut3.ut_varchar2_list, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) return ut3.ut_varchar2_list;
-
- end test_package_1;
- ]';
- execute immediate q'[create or replace package body ut3$user#.test_package_1 is
- procedure test1 is
- begin
- dbms_output.put_line('test_package_1.test1 executed');
- end;
- procedure test2 is
- begin
- dbms_output.put_line('test_package_1.test2 executed');
- end;
-
- procedure run(a_reporter ut3.ut_reporter_base := null) is
- begin
- ut3.ut.run(a_reporter);
- end;
- procedure run(a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) is
- begin
- ut3.ut.run(
- a_reporter, a_source_files => ut3.ut_varchar2_list(),
- a_test_files => a_test_files
- );
- end;
- procedure run(a_path varchar2, a_reporter ut3.ut_reporter_base := null) is
- begin
- ut3.ut.run(a_path, a_reporter);
- end;
- procedure run(a_path varchar2, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) is
- begin
- ut3.ut.run(
- a_path,
- a_reporter, a_source_files => ut3.ut_varchar2_list(),
- a_test_files => a_test_files
- );
- end;
- procedure run(a_paths ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base := null) is
- begin
- ut3.ut.run(a_paths, a_reporter);
- end;
- procedure run(a_paths ut3.ut_varchar2_list, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) is
- begin
- ut3.ut.run(
- a_paths,
- a_reporter, a_source_files => ut3.ut_varchar2_list(),
- a_test_files => a_test_files
- );
- end;
-
- function run(a_reporter ut3.ut_reporter_base := null) return ut3.ut_varchar2_list is
- l_results ut3.ut_varchar2_list;
- begin
- select * bulk collect into l_results from table (ut3.ut.run(a_reporter));
- return l_results;
- end;
- function run(a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) return ut3.ut_varchar2_list is
- l_results ut3.ut_varchar2_list;
- begin
- select * bulk collect into l_results from table (
- ut3.ut.run(
- a_reporter, a_source_files => ut3.ut_varchar2_list(),
- a_test_files => a_test_files
- ));
- return l_results;
- end;
- function run(a_path varchar2, a_reporter ut3.ut_reporter_base := null) return ut3.ut_varchar2_list is
- l_results ut3.ut_varchar2_list;
- begin
- select * bulk collect into l_results from table (ut3.ut.run(a_path, a_reporter));
- return l_results;
- end;
- function run(a_path varchar2, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) return ut3.ut_varchar2_list is
- l_results ut3.ut_varchar2_list;
- begin
- select * bulk collect into l_results from table (
- ut3.ut.run(
- a_path,
- a_reporter, a_source_files => ut3.ut_varchar2_list(),
- a_test_files => a_test_files
- ));
- return l_results;
- end;
- function run(a_paths ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base := null) return ut3.ut_varchar2_list is
- l_results ut3.ut_varchar2_list;
- begin
- select * bulk collect into l_results from table (ut3.ut.run(a_paths, a_reporter));
- return l_results;
- end;
- function run(a_paths ut3.ut_varchar2_list, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) return ut3.ut_varchar2_list is
- l_results ut3.ut_varchar2_list;
- begin
- select * bulk collect into l_results from table (
- ut3.ut.run(
- a_paths,
- a_reporter, a_source_files => ut3.ut_varchar2_list(),
- a_test_files => a_test_files
- ));
- return l_results;
- end;
- end test_package_1;
- ]';
-
- execute immediate q'[create or replace package ut3$user#.test_package_2 is
- --%suite
- --%suitepath(tests.test_package_1)
-
- --%test
- procedure test1;
-
- --%test
- procedure test2;
-
- end test_package_2;
- ]';
- execute immediate q'[create or replace package body ut3$user#.test_package_2 is
- procedure test1 is
- begin
- dbms_output.put_line('test_package_2.test1 executed');
- end;
- procedure test2 is
- begin
- dbms_output.put_line('test_package_2.test2 executed');
- end;
- end test_package_2;
- ]';
-
- execute immediate q'[create or replace package ut3$user#.test_package_3 is
- --%suite
- --%suitepath(tests2)
-
- --%test
- procedure test1;
-
- --%test
- procedure test2;
-
- end test_package_3;
- ]';
- execute immediate q'[create or replace package body ut3$user#.test_package_3 is
- procedure test1 is
- begin
- dbms_output.put_line('test_package_3.test1 executed');
- end;
- procedure test2 is
- begin
- dbms_output.put_line('test_package_3.test2 executed');
- end;
- end test_package_3;
- ]';
- end;
-
- procedure drop_ut3$user#_tests is
- pragma autonomous_transaction;
- begin
- execute immediate q'[drop package ut3$user#.test_package_1]';
- execute immediate q'[drop package ut3$user#.test_package_2]';
- execute immediate q'[drop package ut3$user#.test_package_3]';
- end;
-
- procedure run_proc_no_params is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_package_1.run(); end;';
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_proc_specific_reporter is
- l_results clob;
- begin
- --Act
- execute immediate 'begin ut3$user#.test_package_1.run(:a_reporter); end;'
- using in ut3.ut_documentation_reporter();
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_proc_cov_file_list is
- l_results clob;
- begin
- --Act
- execute immediate 'begin ut3$user#.test_package_1.run(a_test_files=>:a_test_files, a_reporter=>:a_reporter); end;'
- using
- in ut3.ut_varchar2_list('tests/ut3$user#.test_package_1.pkb','tests/ut3$user#.test_package_2.pkb','tests/ut3$user#.test_package_3.pkb'),
- in ut3.ut_sonar_test_reporter();
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%tests/ut3$user#.test_package_2.pkb%tests/ut3$user#.test_package_1.pkb%tests/ut3$user#.test_package_3.pkb%' );
- end;
-
- procedure run_proc_pkg_name is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_package_1.run(:a_path); end;'
- using in 'test_package_1';
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%test_package_1%' );
- ut.expect( l_results ).not_to_be_like( '%test_package_2%' );
- ut.expect( l_results ).not_to_be_like( '%test_package_3%' );
- end;
-
- procedure run_proc_pkg_name_file_list is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_package_1.run(:a_path, :a_test_files, :a_reporter); end;'
- using
- in 'test_package_3',
- in ut3.ut_varchar2_list('tests/ut3$user#.test_package_1.pkb','tests/ut3$user#.test_package_2.pkb','tests/ut3$user#.test_package_3.pkb'),
- in ut3.ut_sonar_test_reporter();
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%tests/ut3$user#.test_package_3.pkb%' );
- ut.expect( l_results ).not_to_be_like( '%tests/ut3$user#.test_package_1.pkb%' );
- ut.expect( l_results ).not_to_be_like( '%tests/ut3$user#.test_package_2.pkb%' );
- end;
-
- procedure run_proc_path_list is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_package_1.run(:a_paths); end;'
- using in ut3.ut_varchar2_list(':tests.test_package_1',':tests');
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%test_package_1%' );
- ut.expect( l_results ).to_be_like( '%test_package_2%' );
- ut.expect( l_results ).not_to_be_like( '%test_package_3%' );
- end;
-
- procedure run_proc_path_list_file_list is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_package_1.run(:a_paths, :a_test_files, :a_reporter); end;'
- using
- in ut3.ut_varchar2_list(':tests.test_package_1',':tests'),
- in ut3.ut_varchar2_list('tests/ut3$user#.test_package_1.pkb','tests/ut3$user#.test_package_2.pkb','tests/ut3$user#.test_package_3.pkb'),
- in ut3.ut_sonar_test_reporter();
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%tests/ut3$user#.test_package_1.pkb%' );
- ut.expect( l_results ).to_be_like( '%tests/ut3$user#.test_package_2.pkb%' );
- ut.expect( l_results ).not_to_be_like( '%tests/ut3$user#.test_package_3.pkb%' );
- end;
-
- procedure run_proc_null_reporter is
- l_results clob;
- begin
- --Act
- execute immediate 'begin ut3$user#.test_package_1.run(:a_reporter); end;'
- using in cast(null as ut3.ut_reporter_base);
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%tests%test_package_1%test_package_2%tests2%test_package_3%' );
- end;
-
- procedure run_proc_null_path is
- l_results clob;
- begin
- --Act
- execute immediate 'begin ut3$user#.test_package_1.run(:a_path); end;'
- using in cast(null as varchar2);
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_proc_null_path_list is
- l_results clob;
- l_paths ut3.ut_varchar2_list;
- begin
- --Act
- execute immediate 'begin ut3$user#.test_package_1.run(:a_paths); end;'
- using in l_paths;
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_proc_empty_path_list is
- l_results clob;
- begin
- --Act
- execute immediate 'begin ut3$user#.test_package_1.run(:a_paths); end;'
- using in ut3.ut_varchar2_list();
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure create_suite_with_commit is
- pragma autonomous_transaction;
- begin
- execute immediate 'create or replace package test_commit_warning is
- --%suite
- --%suitepath(ut.run.transaction)
-
- --%test
- procedure does_commit;
- end;';
- execute immediate 'create or replace package body test_commit_warning is
- procedure does_commit is
- begin
- ut3.ut.expect(1).to_equal(1);
- commit;
- end;
- end;';
- end;
-
- procedure drop_suite_with_commit is
- pragma autonomous_transaction;
- begin
- execute immediate 'drop package test_commit_warning';
- end;
-
- procedure run_proc_warn_on_commit is
- l_results clob;
- begin
- ut3.ut.run('test_commit_warning');
- l_results := core.get_dbms_output_as_clob();
- ut.expect(l_results).to_be_like(
- '%Unable to perform automatic rollback after test%'||
- 'An implicit or explicit commit/rollback occurred in procedures:%' ||
- 'does_commit%' ||
- 'Use the "--%rollback(manual)" annotation or remove commit/rollback/ddl statements that are causing the issue.%'
- );
- end;
-
- procedure create_failing_beforeall_suite is
- pragma autonomous_transaction;
- begin
- execute immediate 'create or replace package parent_suite is
- --%suite
- --%suitepath(ut.run.failing_setup)
-
- --%beforeall
- procedure failing_setup;
- end;';
- execute immediate 'create or replace package body parent_suite is
- procedure failing_setup is
- begin
- raise no_data_found;
- end;
- end;';
- execute immediate 'create or replace package child_suite is
- --%suite
- --%suitepath(ut.run.failing_setup.parent_suite.some_sub_suite)
-
- --%test
- procedure does_stuff;
- end;';
- execute immediate 'create or replace package body child_suite is
- procedure does_stuff is
- begin
- ut3.ut.expect(1).to_equal(1);
- end;
- end;';
- end;
-
- procedure drop_failing_beforeall_suite is
- pragma autonomous_transaction;
- begin
- execute immediate 'drop package parent_suite';
- execute immediate 'drop package child_suite';
- end;
-
- procedure run_proc_fail_child_suites is
- l_results clob;
- begin
- ut3.ut.run('child_suite');
- l_results := core.get_dbms_output_as_clob();
- ut.expect(l_results).to_be_like(
- '%1) does_stuff%' ||
- 'ORA-01403: no data found%' ||
- 'ORA-06512: at "UT3_TESTER.PARENT_SUITE%'
- );
- end;
-
- procedure transaction_setup is
- pragma autonomous_transaction;
- begin
- execute immediate 'create table transaction_test_table(message varchar2(100))';
- execute immediate 'create or replace package test_transaction is
- --%suite
-
- --%test
- procedure insert_row;
-
- --%test
- procedure insert_and_raise;
- end;
- ';
- execute immediate 'create or replace package body test_transaction is
- procedure insert_row is
- begin
- insert into transaction_test_table values (''2 - inside the test_transaction.insert_row test'');
- end;
- procedure insert_and_raise is
- begin
- insert into transaction_test_table values (''2 - inside the test_transaction.insert_row test'');
- raise no_data_found;
- end;
- end;
- ';
-
- end;
-
- procedure transaction_cleanup is
- pragma autonomous_transaction;
- begin
- begin
- execute immediate 'drop table transaction_test_table';
- exception
- when others then null;
- end;
- begin
- execute immediate 'drop package test_transaction';
- exception
- when others then null;
- end;
- end;
-
- procedure run_proc_keep_test_data is
- l_expected sys_refcursor;
- l_actual sys_refcursor;
- l_results clob;
- begin
- --Arrange
- execute immediate '
- insert into transaction_test_table values (''1 - inside the test_ut_run.run_proc_keep_test_changes test'')';
-
- --Act
- ut3.ut.run('test_transaction.insert_row', a_force_manual_rollback => true);
- l_results := core.get_dbms_output_as_clob();
-
- --Assert
- open l_expected for
- select '1 - inside the test_ut_run.run_proc_keep_test_changes test' as message from dual
- union all
- select '2 - inside the test_transaction.insert_row test' from dual
- order by 1;
-
- open l_actual for 'select * from transaction_test_table order by 1';
-
- ut.expect( l_actual ).to_equal(l_expected);
- end;
-
- procedure run_proc_keep_test_data_raise is
- l_expected sys_refcursor;
- l_actual sys_refcursor;
- l_results clob;
- begin
- --Arrange
- execute immediate '
- insert into transaction_test_table values (''1 - inside the test_ut_run.run_proc_keep_test_changes test'')';
-
- --Act
- ut3.ut.run('test_transaction.insert_and_raise', a_force_manual_rollback => true);
- l_results := core.get_dbms_output_as_clob();
-
- --Assert
- open l_expected for
- select '1 - inside the test_ut_run.run_proc_keep_test_changes test' as message from dual
- union all
- select '2 - inside the test_transaction.insert_row test' from dual
- order by 1;
-
- open l_actual for 'select * from transaction_test_table order by 1';
-
- ut.expect( l_actual ).to_equal(l_expected);
- end;
-
- procedure run_proc_discard_test_data is
- l_expected sys_refcursor;
- l_actual sys_refcursor;
- l_results clob;
- begin
- --Arrange
- execute immediate '
- insert into transaction_test_table values (''1 - inside the test_ut_run.run_proc_keep_test_changes test'')';
-
- --Act
- ut3.ut.run('test_transaction.insert_row');
- l_results := core.get_dbms_output_as_clob();
-
- --Assert
- open l_expected for
- select '1 - inside the test_ut_run.run_proc_keep_test_changes test' as message from dual;
-
- open l_actual for 'select * from transaction_test_table order by 1';
-
- ut.expect( l_actual ).to_equal(l_expected);
- end;
-
- procedure run_func_no_params is
- l_results ut3.ut_varchar2_list;
- begin
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(); end;' using out l_results;
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_func_specific_reporter is
- l_results ut3.ut_varchar2_list;
- begin
- --Act
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(:a_reporter); end;'
- using out l_results, in ut3.ut_documentation_reporter();
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_func_cov_file_list is
- l_results ut3.ut_varchar2_list;
- begin
- --Act
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(a_test_files=>:a_test_files, a_reporter=>:a_reporter); end;'
- using out l_results,
- in ut3.ut_varchar2_list('tests/ut3$user#.test_package_1.pkb','tests/ut3$user#.test_package_2.pkb','tests/ut3$user#.test_package_3.pkb'),
- in ut3.ut_sonar_test_reporter();
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%tests/ut3$user#.test_package_2.pkb%tests/ut3$user#.test_package_1.pkb%tests/ut3$user#.test_package_3.pkb%' );
- end;
-
- procedure run_func_pkg_name is
- l_results ut3.ut_varchar2_list;
- begin
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(:a_path); end;'
- using out l_results, in 'test_package_1';
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%test_package_1%' );
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).not_to_be_like( '%test_package_2%' );
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).not_to_be_like( '%test_package_3%' );
- end;
-
- procedure run_func_pkg_name_file_list is
- l_results ut3.ut_varchar2_list;
- begin
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(:a_path, :a_test_files, :a_reporter); end;'
- using out l_results,
- in 'test_package_3',
- in ut3.ut_varchar2_list('tests/ut3$user#.test_package_1.pkb','tests/ut3$user#.test_package_2.pkb','tests/ut3$user#.test_package_3.pkb'),
- in ut3.ut_sonar_test_reporter();
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%tests/ut3$user#.test_package_3.pkb%' );
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).not_to_be_like( '%tests/ut3$user#.test_package_1.pkb%' );
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).not_to_be_like( '%tests/ut3$user#.test_package_2.pkb%' );
- end;
-
- procedure run_func_path_list is
- l_results ut3.ut_varchar2_list;
- begin
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(:a_paths); end;'
- using out l_results, in ut3.ut_varchar2_list(':tests.test_package_1',':tests');
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%test_package_1%' );
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%test_package_2%' );
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).not_to_be_like( '%test_package_3%' );
- end;
-
- procedure run_func_path_list_file_list is
- l_results ut3.ut_varchar2_list;
- begin
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(:a_paths, :a_test_files, :a_reporter); end;'
- using out l_results,
- in ut3.ut_varchar2_list(':tests.test_package_1',':tests'),
- in ut3.ut_varchar2_list('tests/ut3$user#.test_package_1.pkb','tests/ut3$user#.test_package_2.pkb','tests/ut3$user#.test_package_3.pkb'),
- in ut3.ut_sonar_test_reporter();
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%tests/ut3$user#.test_package_1.pkb%' );
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%tests/ut3$user#.test_package_2.pkb%' );
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).not_to_be_like( '%tests/ut3$user#.test_package_3.pkb%' );
- end;
-
- procedure run_func_null_reporter is
- l_results ut3.ut_varchar2_list;
- begin
- --Act
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(:a_reporter); end;'
- using out l_results, in cast(null as ut3.ut_reporter_base);
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%tests%test_package_1%test_package_2%tests2%test_package_3%' );
- end;
-
- procedure run_func_null_path is
- l_results ut3.ut_varchar2_list;
- begin
- --Act
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(:a_path); end;'
- using out l_results, in cast(null as varchar2);
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_func_null_path_list is
- l_results ut3.ut_varchar2_list;
- l_paths ut3.ut_varchar2_list;
- begin
- --Act
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(:a_paths); end;'
- using out l_results, in l_paths;
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_func_empty_path_list is
- l_results ut3.ut_varchar2_list;
- begin
- --Act
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(:a_paths); end;'
- using out l_results, in ut3.ut_varchar2_list();
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_func_cov_file_lst_null_rep is
- l_results ut3.ut_varchar2_list;
- begin
- --Act
- execute immediate 'begin :l_results := ut3$user#.test_package_1.run(a_test_files=>:a_test_files, a_reporter=>:a_reporter); end;'
- using out l_results,
- in ut3.ut_varchar2_list('tests/ut3$user#.test_package_1.pkb','tests/ut3$user#.test_package_2.pkb','tests/ut3$user#.test_package_3.pkb'),
- in cast(null as ut3.ut_reporter_base);
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
- end;
-
- procedure run_func_empty_suite is
- l_results ut3.ut_varchar2_list;
- l_expected varchar2(32767);
- pragma autonomous_transaction;
- begin
- --Arrange
- execute immediate q'[create or replace package empty_suite as
- -- %suite
-
- procedure not_a_test;
- end;]';
- execute immediate q'[create or replace package body empty_suite as
- procedure not_a_test is begin null; end;
- end;]';
- l_expected := '%empty_suite%0 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%';
- --Act
- select * bulk collect into l_results from table(ut3.ut.run('empty_suite'));
-
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( l_expected );
-
- --Cleanup
- execute immediate q'[drop package empty_suite]';
- end;
-
- procedure create_db_link is
- l_service_name varchar2(100);
- pragma autonomous_transaction;
- begin
- select global_name into l_service_name from global_name;
- execute immediate
- 'create public database link db_loopback connect to ut3_tester identified by ut3
- using ''(DESCRIPTION=
- (ADDRESS=(PROTOCOL=TCP)
- (HOST='||sys_context('userenv','SERVER_HOST')||')
- (PORT=1521)
- )
- (CONNECT_DATA=(SERVICE_NAME='||l_service_name||')))''';
- end;
-
- procedure drop_db_link is
- begin
- execute immediate 'drop public database link db_loopback';
- exception
- when others then
- null;
- end;
-
- procedure create_test_suite is
- pragma autonomous_transaction;
- begin
- create_db_link;
- execute immediate q'[
- create or replace package stateful_package as
- function get_state return varchar2;
- end;
- ]';
- execute immediate q'[
- create or replace package body stateful_package as
- g_state varchar2(1) := 'A';
- function get_state return varchar2 is begin return g_state; end;
- end;
- ]';
- execute immediate q'[
- create or replace package test_stateful as
- --%suite
- --%suitepath(test_state)
-
- --%test
- --%beforetest(acquire_state_via_db_link,rebuild_stateful_package)
- procedure failing_stateful_test;
-
- procedure rebuild_stateful_package;
- procedure acquire_state_via_db_link;
-
- end;
- ]';
- execute immediate q'{
- create or replace package body test_stateful as
-
- procedure failing_stateful_test is
- begin
- ut3.ut.expect(stateful_package.get_state@db_loopback).to_equal('abc');
- end;
-
- procedure rebuild_stateful_package is
- pragma autonomous_transaction;
- begin
- execute immediate q'[
- create or replace package body stateful_package as
- g_state varchar2(3) := 'abc';
- function get_state return varchar2 is begin return g_state; end;
- end;
- ]';
- end;
-
- procedure acquire_state_via_db_link is
- begin
- dbms_output.put_line('stateful_package.get_state@db_loopback='||stateful_package.get_state@db_loopback);
- end;
- end;
- }';
-
- end;
-
- procedure raise_in_invalid_state is
- l_results ut3.ut_varchar2_list;
- l_expected varchar2(32767);
- begin
- --Arrange
- l_expected := 'test_state
- test_stateful
- failing_stateful_test [% sec] (FAILED - 1)%
-Failures:%
- 1) failing_stateful_test
- ORA-04068: existing state of packages (DB_LOOPBACK%) has been discarded
- ORA-04061: existing state of package body "UT3_TESTER.STATEFUL_PACKAGE" has been invalidated
- ORA-04065: not executed, altered or dropped package body "UT3_TESTER.STATEFUL_PACKAGE"%
- ORA-06512: at line 6%
-1 tests, 0 failed, 1 errored, 0 disabled, 0 warning(s)%';
-
- --Act
- select * bulk collect into l_results from table(ut3.ut.run('test_stateful'));
-
- --Assert
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( l_expected );
- ut.fail('Expected exception but nothing was raised');
- exception
- when others then
- ut.expect( ut3.ut_utils.table_to_clob(l_results) ).to_be_like( l_expected );
- ut.expect(sqlcode).to_equal(-4068);
- end;
-
- procedure drop_test_suite is
- pragma autonomous_transaction;
- begin
- drop_db_link;
- execute immediate 'drop package stateful_package';
- execute immediate 'drop package test_stateful';
- end;
-
- procedure run_in_invalid_state is
- l_results ut3.ut_varchar2_list;
- l_actual clob;
- l_expected varchar2(32767);
- begin
- select * bulk collect into l_results from table(ut3.ut.run('failing_invalid_spec'));
-
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(l_actual).to_be_like('%Call params for % are not valid: package does not exist or is invalid: %FAILING_INVALID_SPEC%');
-
- end;
-
- procedure compile_invalid_package is
- ex_compilation_error exception;
- pragma exception_init(ex_compilation_error,-24344);
- pragma autonomous_transaction;
- begin
- begin
- execute immediate q'[
- create or replace package failing_invalid_spec as
- --%suite
- gv_glob_val non_existing_table.id%type := 0;
-
- --%test
- procedure test1;
- end;]';
- exception when ex_compilation_error then null;
- end;
- begin
- execute immediate q'[
- create or replace package body failing_invalid_spec as
- procedure test1 is begin ut.expect(1).to_equal(1); end;
- end;]';
- exception when ex_compilation_error then null;
- end;
- end;
- procedure drop_invalid_package is
- pragma autonomous_transaction;
- begin
- execute immediate 'drop package failing_invalid_spec';
- end;
-
- procedure run_and_revalidate_specs is
- l_results ut3.ut_varchar2_list;
- l_actual clob;
- l_is_invalid number;
- begin
- execute immediate q'[select count(1) from all_objects o where o.owner = :object_owner and o.object_type = 'PACKAGE'
- and o.status = 'INVALID' and o.object_name= :object_name]' into l_is_invalid
- using user,'INVALID_PCKAG_THAT_REVALIDATES';
-
- select * bulk collect into l_results from table(ut3.ut.run('invalid_pckag_that_revalidates'));
-
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(1).to_equal(l_is_invalid);
- ut.expect(l_actual).to_be_like('%invalid_pckag_that_revalidates%invalidspecs [% sec]%
-%Finished in % seconds%
-%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%');
-
- end;
-
- procedure generate_invalid_spec is
- ex_compilation_error exception;
- pragma exception_init(ex_compilation_error,-24344);
- pragma autonomous_transaction;
- begin
-
- execute immediate q'[
- create or replace package parent_specs as
- c_test constant varchar2(1) := 'Y';
- end;]';
-
- execute immediate q'[
- create or replace package invalid_pckag_that_revalidates as
- --%suite
- g_var varchar2(1) := parent_specs.c_test;
-
- --%test(invalidspecs)
- procedure test1;
- end;]';
-
- execute immediate q'[
- create or replace package body invalid_pckag_that_revalidates as
- procedure test1 is begin ut.expect('Y').to_equal(g_var); end;
- end;]';
-
- -- That should invalidate test package and we can then revers
- execute immediate q'[
- create or replace package parent_specs as
- c_test_error constant varchar2(1) := 'Y';
- end;]';
-
- execute immediate q'[
- create or replace package parent_specs as
- c_test constant varchar2(1) := 'Y';
- end;]';
-
- end;
- procedure drop_invalid_spec is
- pragma autonomous_transaction;
- begin
- execute immediate 'drop package invalid_pckag_that_revalidates';
- execute immediate 'drop package parent_specs';
- end;
-
- procedure run_and_report_warnings is
- l_results ut3.ut_varchar2_list;
- l_actual clob;
- begin
-
- select * bulk collect into l_results from table(ut3.ut.run('bad_annotations'));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
-
- ut.expect(l_actual).to_be_like('%Invalid annotation "--%context". Cannot find following "--%endcontext". Annotation ignored.%
-%1 tests, 0 failed, 0 errored, 0 disabled, 1 warning(s)%');
-
- end;
-
- procedure create_bad_annot is
- pragma autonomous_transaction;
- begin
- execute immediate q'[
- create or replace package bad_annotations as
- --%suite
-
- --%context
-
- --%test(invalidspecs)
- procedure test1;
-
- end;]';
-
- execute immediate q'[
- create or replace package body bad_annotations as
- procedure test1 is begin ut.expect(1).to_equal(1); end;
- end;]';
-
- end;
-
- procedure drop_bad_annot is
- pragma autonomous_transaction;
- begin
- execute immediate 'drop package bad_annotations';
- end;
-
- procedure savepoints_on_db_links is
- l_results clob;
- begin
- ut3.ut.run('test_distributed_savepoint');
- l_results := core.get_dbms_output_as_clob();
- ut.expect(l_results).to_be_like('%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%');
- end;
-
- procedure create_suite_with_link is
- pragma autonomous_transaction;
- begin
- create_db_link;
- execute immediate 'create table tst(id number(18,0))';
- execute immediate q'[
- create or replace package test_distributed_savepoint is
- --%suite
- --%suitepath(alltests)
-
- --%beforeall
- procedure setup;
-
- --%test
- procedure test;
- end;]';
-
- execute immediate q'[
- create or replace package body test_distributed_savepoint is
-
- g_expected constant integer := 1;
-
- procedure setup is
- begin
- insert into tst@db_loopback values(g_expected);
- end;
-
- procedure test is
- l_actual integer := 0;
- begin
- select id into l_actual from tst@db_loopback;
-
- ut.expect(l_actual).to_equal(g_expected);
- end;
-
- end;]';
- end;
-
- procedure drop_suite_with_link is
- pragma autonomous_transaction;
- begin
- drop_db_link;
- execute immediate 'drop table tst';
- execute immediate 'drop package test_distributed_savepoint';
- end;
-
- procedure remove_time_from_results(a_results in out nocopy ut3.ut_varchar2_list) is
- begin
- for i in 1 .. a_results.count loop
- a_results(i) := regexp_replace(a_results(i),'\[[0-9]*\.[0-9]+ sec\]','');
- a_results(i) := regexp_replace(a_results(i),'Finished in [0-9]*\.[0-9]+ seconds','');
- end loop;
- end;
-
- procedure run_with_random_order is
- l_random_results ut3.ut_varchar2_list;
- l_results ut3.ut_varchar2_list;
- begin
- select * bulk collect into l_random_results
- from table ( ut3.ut.run( 'ut3$user#.test_package_1', a_random_test_order_seed => 3 ) )
- where trim(column_value) is not null and column_value not like 'Finished in %'
- and column_value not like '%Tests were executed with random order %';
-
- select * bulk collect into l_results
- from table ( ut3.ut.run( 'ut3$user#.test_package_1' ) )
- --TODO this condition should be removed once issues with unordered compare and 'blank text rows' are resolved.
- where trim(column_value) is not null and column_value not like 'Finished in %';
-
- remove_time_from_results(l_results);
- remove_time_from_results(l_random_results);
-
- ut.expect(anydata.convertCollection(l_random_results)).to_equal(anydata.convertCollection(l_results)).unordered();
- ut.expect(anydata.convertCollection(l_random_results)).not_to_equal(anydata.convertCollection(l_results));
- end;
-
- procedure run_and_report_random_ord_seed is
- l_actual ut3.ut_varchar2_list;
- begin
- select * bulk collect into l_actual
- from table ( ut3.ut.run( 'ut3$user#.test_package_1', a_random_test_order_seed => 123456789 ) );
-
- ut.expect( ut3.ut_utils.table_to_clob(l_actual) ).to_be_like( q'[%Tests were executed with random order seed '123456789'.%]' );
- end;
-
- procedure run_with_random_order_seed is
- l_expected ut3.ut_varchar2_list;
- l_actual ut3.ut_varchar2_list;
- begin
-
- select * bulk collect into l_expected
- from table ( ut3.ut.run( 'ut3$user#.test_package_1', a_random_test_order_seed => 3 ) );
- select * bulk collect into l_actual
- from table ( ut3.ut.run( 'ut3$user#.test_package_1', a_random_test_order_seed => 3 ) );
-
- remove_time_from_results(l_actual);
- remove_time_from_results(l_expected);
- l_actual.delete(l_actual.count);
- l_expected.delete(l_expected.count);
-
- ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected));
- end;
-
-end;
-/
diff --git a/test/common_helper/utplsql.pkb b/test/common_helper/utplsql.pkb
new file mode 100644
index 000000000..c752caa41
--- /dev/null
+++ b/test/common_helper/utplsql.pkb
@@ -0,0 +1,11 @@
+create or replace package body utplsql is
+
+ procedure global_setup is
+ begin
+ --we need to have dbms_output enable for our tests
+ --TODO - move this to utPLSQL-cli once cli has support for it.
+ dbms_output.enable(null);
+ end;
+
+end;
+/
diff --git a/test/common_helper/utplsql.pks b/test/common_helper/utplsql.pks
new file mode 100644
index 000000000..51adbb117
--- /dev/null
+++ b/test/common_helper/utplsql.pks
@@ -0,0 +1,9 @@
+create or replace package utplsql is
+
+ --%suite
+
+ --%beforeall
+ procedure global_setup;
+
+end;
+/
diff --git a/test/core.pkb b/test/core.pkb
deleted file mode 100644
index b2405da9f..000000000
--- a/test/core.pkb
+++ /dev/null
@@ -1,93 +0,0 @@
-create or replace package body core is
-
- function get_dbms_output_as_clob return clob is
- l_status number;
- l_line varchar2(32767);
- l_result clob;
- begin
-
- dbms_output.get_line(line => l_line, status => l_status);
- if l_status != 1 then
- dbms_lob.createtemporary(l_result, true, dur => dbms_lob.session);
- end if;
- while l_status != 1 loop
- if l_line is not null then
- ut3.ut_utils.append_to_clob(l_result, l_line||chr(10));
- end if;
- dbms_output.get_line(line => l_line, status => l_status);
- end loop;
- return l_result;
- end;
-
- procedure global_setup is
- begin
- dbms_output.enable(null);
- ut3.ut_coverage.set_develop_mode(true);
- --improve performance of test execution by disabling all compiler optimizations
- execute_autonomous('ALTER SESSION SET PLSQL_OPTIMIZE_LEVEL=0');
-
- execute_autonomous(
- q'[create or replace package ut_transaction_control as
- function count_rows(a_val varchar2) return number;
- procedure setup;
- procedure test;
- procedure test_failure;
- end;]'
- );
- execute_autonomous(
- q'[create or replace package body ut_transaction_control
- as
-
- function count_rows(a_val varchar2) return number is
- l_cnt number;
- begin
- select count(*) into l_cnt from ut$test_table t where t.val = a_val;
- return l_cnt;
- end;
- procedure setup is begin
- insert into ut$test_table values ('s');
- end;
- procedure test is
- begin
- insert into ut$test_table values ('t');
- end;
- procedure test_failure is
- begin
- insert into ut$test_table values ('t');
- --raise no_data_found;
- raise_application_error(-20001,'Error');
- end;
- end;]'
- );
- end;
-
- procedure global_cleanup is
- begin
- execute_autonomous('drop package ut_transaction_control');
- end;
-
- procedure execute_autonomous(a_sql varchar2) is
- pragma autonomous_transaction;
- begin
- if a_sql is not null then
- execute immediate a_sql;
- end if;
- commit;
- end;
-
- function run_test(a_path varchar2) return clob is
- l_lines ut3.ut_varchar2_list;
- begin
- select * bulk collect into l_lines from table(ut3.ut.run(a_path));
- return ut3.ut_utils.table_to_clob(l_lines);
- end;
-
- function get_value(a_variable varchar2) return integer is
- l_glob_val integer;
- begin
- execute immediate 'begin :l_glob_val := '||a_variable||'; end;' using out l_glob_val;
- return l_glob_val;
- end;
-
-end;
-/
diff --git a/test/core.pks b/test/core.pks
deleted file mode 100644
index d23ab6be0..000000000
--- a/test/core.pks
+++ /dev/null
@@ -1,21 +0,0 @@
-create or replace package core is
-
- --%suite
- --%suitepath(utplsql)
-
- --%beforeall
- procedure global_setup;
-
- --%afterall
- procedure global_cleanup;
-
- procedure execute_autonomous(a_sql varchar2);
-
- function run_test(a_path varchar2) return clob;
-
- function get_value(a_variable varchar2) return integer;
-
- function get_dbms_output_as_clob return clob;
-
-end;
-/
diff --git a/test/core/expectations/unary/test_expect_not_to_be_null.pkb b/test/core/expectations/unary/test_expect_not_to_be_null.pkb
deleted file mode 100644
index 45ce4f697..000000000
--- a/test/core/expectations/unary/test_expect_not_to_be_null.pkb
+++ /dev/null
@@ -1,265 +0,0 @@
-create or replace package body test_expect_not_to_be_null
-is
- gc_object_name constant varchar2(30) := 't_not_to_be_null_test';
- gc_nested_table_name constant varchar2(30) := 'tt_not_to_be_null_test';
- gc_varray_name constant varchar2(30) := 'tv_not_to_be_null_test';
-
- procedure cleanup_expectations is
- begin
- expectations.cleanup_expectations( );
- end;
-
- procedure create_types is
- pragma autonomous_transaction;
- begin
- execute immediate 'create type ' || gc_object_name || ' is object (dummy number)';
- execute immediate 'create type ' || gc_nested_table_name || ' is table of number';
- execute immediate 'create type ' || gc_varray_name || ' is varray(1) of number';
- end;
-
- procedure drop_types is
- pragma autonomous_transaction;
- begin
- execute immediate 'drop type ' || gc_object_name;
- execute immediate 'drop type ' || gc_nested_table_name;
- execute immediate 'drop type ' || gc_varray_name;
- end;
-
- procedure blob_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'blob', 'to_blob(''abc'')' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure blob_0_length is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'blob', 'empty_blob()' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure boolean_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'boolean', 'true' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure clob_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'clob', 'to_clob(''abc'')' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
-
- procedure clob_0_length is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'clob', 'empty_clob()' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure date_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'date', 'sysdate' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure number_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'number', '1234' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure timestamp_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'timestamp', 'systimestamp' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure timestamp_with_ltz_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block(
- 'not_to_be_null', 'timestamp with local time zone', 'systimestamp'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure timestamp_with_tz_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'timestamp with time zone',
- 'systimestamp' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure varchar2_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'varchar2(4000)', '''abc''' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure initialized_object is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'not_to_be_null', gc_object_name, gc_object_name || '(1)', 'object'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure initialized_nested_table is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'not_to_be_null', gc_nested_table_name, gc_nested_table_name || '()', 'collection'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure initialized_varray is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'not_to_be_null', gc_varray_name, gc_varray_name || '()', 'collection'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_blob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'blob', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure null_boolean is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'boolean', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure null_clob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'clob', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure null_date is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'date', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure null_number is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'number', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure null_timestamp is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'timestamp', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure null_timestamp_with_ltz is
- begin
- --Act
- execute immediate expectations.unary_expectation_block(
- 'not_to_be_null', 'timestamp with local time zone', 'null'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure null_timestamp_with_tz is
- begin
- --Act
- execute immediate expectations.unary_expectation_block(
- 'not_to_be_null', 'timestamp with time zone', 'null'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure null_varchar2 is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'varchar2(4000)', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure null_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'not_to_be_null', 'anydata', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure uninit_object_in_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'not_to_be_null', gc_object_name, 'null', 'object'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure uninit_nested_table_in_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'not_to_be_null', gc_nested_table_name, 'null', 'collection'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure uninit_varray_in_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'not_to_be_null', gc_varray_name, 'null', 'collection'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
-end test_expect_not_to_be_null;
-/
diff --git a/test/core/expectations/unary/test_expect_to_be_not_null.pkb b/test/core/expectations/unary/test_expect_to_be_not_null.pkb
deleted file mode 100644
index be6b3f2f8..000000000
--- a/test/core/expectations/unary/test_expect_to_be_not_null.pkb
+++ /dev/null
@@ -1,264 +0,0 @@
-create or replace package body test_expect_to_be_not_null
-is
- gc_object_name constant varchar2(30) := 't_to_be_not_null_test';
- gc_nested_table_name constant varchar2(30) := 'tt_to_be_not_null_test';
- gc_varray_name constant varchar2(30) := 'tv_to_be_not_null_test';
-
- procedure cleanup_expectations is
- begin
- expectations.cleanup_expectations();
- end;
-
- procedure create_types is
- pragma autonomous_transaction;
- begin
- execute immediate 'create type '||gc_object_name||' is object (dummy number)';
- execute immediate 'create type '||gc_nested_table_name||' is table of number';
- execute immediate 'create type '||gc_varray_name||' is varray(1) of number';
- end;
-
- procedure drop_types is
- pragma autonomous_transaction;
- begin
- execute immediate 'drop type '||gc_object_name;
- execute immediate 'drop type '||gc_nested_table_name;
- execute immediate 'drop type '||gc_varray_name;
- end;
-
- procedure blob_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'blob', 'to_blob(''abc'')');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure empty_blob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'blob', 'empty_blob()');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure boolean_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'boolean', 'true');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure clob_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'clob', 'to_clob(''abc'')');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure empty_clob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'clob', 'empty_clob()');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure date_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'date', 'sysdate');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure number_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'number', '1234');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure timestamp_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'timestamp', 'systimestamp');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure timestamp_with_ltz_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'timestamp with local time zone', 'systimestamp');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure timestamp_with_tz_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'timestamp with time zone', 'systimestamp');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure varchar2_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'varchar2(4000)', '''abc''');
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure initialized_object is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_not_null', gc_object_name, gc_object_name||'(1)', 'object'
- );
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure initialized_nested_table is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_not_null', gc_nested_table_name, gc_nested_table_name||'()', 'collection'
- );
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure initialized_varray is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_not_null', gc_varray_name, gc_varray_name||'()', 'collection'
- );
- --Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
- end;
-
- procedure null_blob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'blob', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
- procedure null_boolean is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'boolean', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
-
- procedure null_clob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'clob', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
-
- procedure null_date is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'date', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
-
- procedure null_number is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'number', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
-
- procedure null_timestamp is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'timestamp', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
-
- procedure null_timestamp_with_ltz is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'timestamp with local time zone', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
-
- procedure null_timestamp_with_tz is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'timestamp with time zone', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
-
- procedure null_varchar2 is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'varchar2(4000)', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
- procedure null_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_block('to_be_not_null', 'anydata', 'null');
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
- procedure uninit_object_in_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_not_null', gc_object_name, 'null', 'object'
- );
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
- procedure uninit_nested_table_in_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_not_null', gc_nested_table_name, 'null', 'collection'
- );
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
- procedure uninit_varray_in_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_not_null', gc_varray_name, 'null', 'collection'
- );
- --Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
- end;
-
-end test_expect_to_be_not_null;
-/
diff --git a/test/core/expectations/unary/test_expect_to_be_null.pkb b/test/core/expectations/unary/test_expect_to_be_null.pkb
deleted file mode 100644
index 4179bfbe6..000000000
--- a/test/core/expectations/unary/test_expect_to_be_null.pkb
+++ /dev/null
@@ -1,260 +0,0 @@
-create or replace package body test_expect_to_be_null
-is
- gc_object_name constant varchar2(30) := 't_to_be_null_test';
- gc_nested_table_name constant varchar2(30) := 'tt_to_be_null_test';
- gc_varray_name constant varchar2(30) := 'tv_to_be_null_test';
-
- procedure cleanup_expectations is
- begin
- expectations.cleanup_expectations( );
- end;
-
- procedure create_types is
- pragma autonomous_transaction;
- begin
- execute immediate 'create type ' || gc_object_name || ' is object (dummy number)';
- execute immediate 'create type ' || gc_nested_table_name || ' is table of number';
- execute immediate 'create type ' || gc_varray_name || ' is varray(1) of number';
- end;
-
- procedure drop_types is
- pragma autonomous_transaction;
- begin
- execute immediate 'drop type ' || gc_object_name;
- execute immediate 'drop type ' || gc_nested_table_name;
- execute immediate 'drop type ' || gc_varray_name;
- end;
-
- procedure null_blob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'blob', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_boolean is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'boolean', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_clob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'clob', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_date is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'date', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_number is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'number', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_timestamp is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'timestamp', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_timestamp_with_ltz is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'timestamp with local time zone', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_timestamp_with_tz is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'timestamp with time zone', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_varchar2 is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'varchar2(4000)', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure null_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'anydata', 'null' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure uninit_object_in_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_null', gc_object_name, 'null', 'object'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure uninit_nested_table_in_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_null', gc_nested_table_name, 'null', 'collection'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure uninit_varray_in_anydata is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block( 'to_be_null', gc_varray_name,
- 'null', 'collection' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
- end;
-
- procedure blob_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'blob', 'to_blob(''abc'')' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure empty_blob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'blob', 'empty_blob()' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure boolean_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'boolean', 'true' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure clob_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'clob', 'to_clob(''abc'')' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure empty_clob is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'clob', 'empty_clob()' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure date_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'date', 'sysdate' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure number_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'number', '1234' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure timestamp_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'timestamp', 'systimestamp' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure timestamp_with_ltz_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block(
- 'to_be_null', 'timestamp with local time zone', 'systimestamp'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure timestamp_with_tz_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block(
- 'to_be_null', 'timestamp with time zone', 'systimestamp'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure varchar2_not_null is
- begin
- --Act
- execute immediate expectations.unary_expectation_block( 'to_be_null', 'varchar2(4000)', '''abc''' );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure initialized_object is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_null', gc_object_name, gc_object_name || '(1)', 'object'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure initialized_nested_table is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_null', gc_nested_table_name, gc_nested_table_name || '()', 'collection'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
- procedure initialized_varray is
- begin
- --Act
- execute immediate expectations.unary_expectation_object_block(
- 'to_be_null', gc_varray_name, gc_varray_name || '()', 'collection'
- );
- --Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
- end;
-
-end test_expect_to_be_null;
-/
diff --git a/test/core/min_grant_user/test_min_grant_user.pkb b/test/core/min_grant_user/test_min_grant_user.pkb
deleted file mode 100644
index 233cca67f..000000000
--- a/test/core/min_grant_user/test_min_grant_user.pkb
+++ /dev/null
@@ -1,71 +0,0 @@
-create or replace package body test_min_grant_user is
-
- procedure test_join_by_cursor is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_cursor_grants.run_test_join_by_cursor(); end;';
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%execute join by test [% sec]' ||
- '%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%' );
-
- end;
-
- procedure test_equal_cursor is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_cursor_grants.run_test_equal_cursor(); end;';
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%execute equal test [% sec]' ||
- '%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%' );
-
- end;
-
- procedure test_not_empty_cursor is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_cursor_grants.run_test_not_empty_cursor(); end;';
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%execute not_empty test [% sec]' ||
- '%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%' );
-
- end;
-
-
- procedure test_have_count_cursor is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_cursor_grants.run_test_have_count_cursor(); end;';
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%execute have_count test [% sec]' ||
- '%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%' );
-
- end;
-
- procedure test_empty_cursor is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_cursor_grants.run_test_empty_cursor(); end;';
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%execute empty test [% sec]' ||
- '%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%' );
-
- end;
-
- procedure test_equal_non_diff_sql is
- l_results clob;
- begin
- execute immediate 'begin ut3$user#.test_cursor_grants.run_test_equal_non_diff_sql(); end;';
- l_results := core.get_dbms_output_as_clob();
- --Assert
- ut.expect( l_results ).to_be_like( '%execute test with non diff datatype [% sec]' ||
- '%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%' );
-
- end;
-
-end;
-/
diff --git a/test/core/min_grant_user/test_min_grant_user.pks b/test/core/min_grant_user/test_min_grant_user.pks
deleted file mode 100644
index daf34b35d..000000000
--- a/test/core/min_grant_user/test_min_grant_user.pks
+++ /dev/null
@@ -1,25 +0,0 @@
-create or replace package test_min_grant_user is
-
- --%suite(minimum grant user tests)
- --%suitepath(utplsql.core)
-
- --%test(execute join by test)
- procedure test_join_by_cursor;
-
- --%test(execute equal test)
- procedure test_equal_cursor;
-
- --%test(execute not_empty test)
- procedure test_not_empty_cursor;
-
- --%test(execute have_count test)
- procedure test_have_count_cursor;
-
- --%test(execute empty test)
- procedure test_empty_cursor;
-
- --%test(execute test with non diff datatype)
- procedure test_equal_non_diff_sql;
-
-end;
-/
diff --git a/test/core/reporters/test_coverage.pkb b/test/core/reporters/test_coverage.pkb
deleted file mode 100644
index 2c67dc8c9..000000000
--- a/test/core/reporters/test_coverage.pkb
+++ /dev/null
@@ -1,262 +0,0 @@
-create or replace package body test_coverage is
-
- function get_mock_run_id return integer is
- v_result integer;
- begin
- select nvl(min(runid),0) - 1 into v_result
- from ut3.plsql_profiler_runs;
- return v_result;
- end;
-
- procedure create_dummy_coverage_package is
- pragma autonomous_transaction;
- begin
- execute immediate q'[create or replace package UT3.DUMMY_COVERAGE is
- procedure do_stuff;
- end;]';
- execute immediate q'[create or replace package body UT3.DUMMY_COVERAGE is
- procedure do_stuff is
- begin
- if 1 = 2 then
- dbms_output.put_line('should not get here');
- else
- dbms_output.put_line('should get here');
- end if;
- end;
- end;]';
- end;
-
- procedure create_dummy_coverage_test is
- pragma autonomous_transaction;
- begin
- execute immediate q'[create or replace package UT3.TEST_DUMMY_COVERAGE is
- --%suite(dummy coverage test)
- --%suitepath(coverage_testing)
-
- --%test
- procedure test_do_stuff;
- end;]';
- execute immediate q'[create or replace package body UT3.TEST_DUMMY_COVERAGE is
- procedure test_do_stuff is
- begin
- dummy_coverage.do_stuff;
- end;
- end;]';
- end;
-
- procedure create_dummy_coverage_test_1 is
- pragma autonomous_transaction;
- begin
- execute immediate q'[create or replace package UT3.DUMMY_COVERAGE_1 is
- procedure do_stuff;
- end;]';
- execute immediate q'[create or replace package body UT3.DUMMY_COVERAGE_1 is
- procedure do_stuff is
- begin
- if 1 = 2 then
- dbms_output.put_line('should not get here');
- else
- dbms_output.put_line('should get here');
- end if;
- end;
- end;]';
- execute immediate q'[create or replace package UT3.TEST_DUMMY_COVERAGE_1 is
- --%suite(dummy coverage test 1)
- --%suitepath(coverage_testing)
-
- --%test
- procedure test_do_stuff;
- end;]';
- execute immediate q'[create or replace package body UT3.TEST_DUMMY_COVERAGE_1 is
- procedure test_do_stuff is
- begin
- dummy_coverage_1.do_stuff;
- end;
- end;]';
- end;
-
- procedure drop_dummy_coverage_test_1 is
- pragma autonomous_transaction;
- begin
- execute immediate q'[drop package UT3.DUMMY_COVERAGE_1]';
- execute immediate q'[drop package UT3.TEST_DUMMY_COVERAGE_1]';
- end;
-
-
- procedure mock_coverage_data(a_run_id integer) is
- c_unit_id constant integer := 1;
- begin
- insert into ut3.plsql_profiler_runs ( runid, run_owner, run_date, run_comment)
- values(a_run_id, user, sysdate, 'unit testing utPLSQL');
-
- insert into ut3.plsql_profiler_units ( runid, unit_number, unit_type, unit_owner, unit_name)
- values(a_run_id, c_unit_id, 'PACKAGE BODY', 'UT3', 'DUMMY_COVERAGE');
-
- insert into ut3.plsql_profiler_data ( runid, unit_number, line#, total_occur, total_time)
- select a_run_id, c_unit_id, 4, 1, 1 from dual union all
- select a_run_id, c_unit_id, 5, 0, 0 from dual union all
- select a_run_id, c_unit_id, 7, 1, 1 from dual;
- end;
-
- procedure create_dummy_coverage_pkg is
- pragma autonomous_transaction;
- begin
- create_dummy_coverage_package();
- create_dummy_coverage_test();
- end;
-
- procedure setup_dummy_coverage is
- pragma autonomous_transaction;
- begin
- g_run_id := get_mock_run_id();
- ut3.ut_coverage.mock_coverage_id(g_run_id, ut3.ut_coverage.gc_proftab_coverage);
- mock_coverage_data(g_run_id);
- commit;
- end;
-
- procedure drop_dummy_coverage_pkg is
- pragma autonomous_transaction;
- begin
- begin execute immediate q'[drop package ut3.test_dummy_coverage]'; exception when others then null; end;
- begin execute immediate q'[drop package ut3.dummy_coverage]'; exception when others then null; end;
- end;
-
- procedure cleanup_dummy_coverage is
- pragma autonomous_transaction;
- begin
- delete from ut3.plsql_profiler_data where runid = g_run_id;
- delete from ut3.plsql_profiler_units where runid = g_run_id;
- delete from ut3.plsql_profiler_runs where runid = g_run_id;
- commit;
- end;
-
- procedure coverage_for_object is
- l_expected clob;
- l_actual clob;
- l_results ut3.ut_varchar2_list;
- begin
- --Arrange
- l_expected := '%%';
- --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_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage' )
- )
- );
- --Assert
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(l_actual).to_be_like(l_expected);
- end;
-
- procedure coverage_for_object_no_owner is
- l_expected clob;
- l_actual clob;
- l_results ut3.ut_varchar2_list;
- begin
- --Arrange
- l_expected := '%%';
- --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_include_objects => ut3.ut_varchar2_list( 'dummy_coverage' )
- )
- );
- --Assert
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(l_actual).to_be_like(l_expected);
- end;
-
- procedure coverage_for_schema is
- l_expected clob;
- l_actual clob;
- l_results ut3.ut_varchar2_list;
- begin
- --Arrange
- l_expected := '';
- l_expected := '%'||l_expected||'%'||l_expected||'%';
- --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_coverage_schemes => ut3.ut_varchar2_list( 'ut3' )
- )
- );
- --Assert
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(l_actual).to_be_like(l_expected);
- end;
-
- procedure coverage_for_file is
- l_expected clob;
- l_actual clob;
- l_results ut3.ut_varchar2_list;
- l_file_path varchar2(100);
- begin
- --Arrange
- l_file_path := lower('test/ut3.dummy_coverage.pkb');
- l_expected := '%%';
- --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( l_file_path ),
- a_test_files => ut3.ut_varchar2_list( )
- )
- );
- --Assert
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(l_actual).to_be_like(l_expected);
- end;
-
- procedure coverage_tmp_data_refresh is
- l_actual clob;
- l_results ut3.ut_varchar2_list;
- begin
- --Arrange
- select *
- bulk collect into l_results
- from table(
- ut3.ut.run(
- a_path => 'ut3:coverage_testing',
- a_reporter=> ut3.ut_coverage_sonar_reporter( ),
- a_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage' )
- )
- );
- cleanup_dummy_coverage();
- drop_dummy_coverage_pkg();
- create_dummy_coverage_test_1;
-
- --Act
- select *
- bulk collect into l_results
- from table(
- ut3.ut.run(
- a_path => 'ut3:coverage_testing',
- a_reporter=> ut3.ut_coverage_sonar_reporter( ),
- a_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage' )
- )
- );
-
- --Assert
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(l_actual).to_equal(to_clob('
-
-'));
- end;
-
-end;
-/
diff --git a/test/core/reporters/test_extended_coverage.pkb b/test/core/reporters/test_extended_coverage.pkb
deleted file mode 100644
index a3719e503..000000000
--- a/test/core/reporters/test_extended_coverage.pkb
+++ /dev/null
@@ -1,188 +0,0 @@
-create or replace package body test_extended_coverage is
-
- g_run_id ut3.ut_coverage.tt_coverage_id_arr;
-
- function get_mock_block_run_id return integer is
- v_result integer;
- begin
- select nvl(min(run_id),0) - 1 into v_result
- from dbmspcc_runs;
- return v_result;
- end;
-
- function get_mock_proftab_run_id return integer is
- v_result integer;
- begin
- select nvl(min(runid),0) - 1 into v_result
- from ut3.plsql_profiler_runs;
- return v_result;
- end;
-
- procedure create_dummy_coverage_package is
- pragma autonomous_transaction;
- begin
- execute immediate q'[create or replace package UT3.DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG is
- procedure do_stuff(i_input in number);
- end;]';
- execute immediate q'[create or replace package body UT3.DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG is
- procedure do_stuff(i_input in number) is
- begin
- if i_input = 2 then
- dbms_output.put_line('should not get here');
- else
- dbms_output.put_line('should get here');
- end if;
- end;
- end;]';
- end;
-
- procedure create_dummy_coverage_test is
- pragma autonomous_transaction;
- begin
- execute immediate q'[create or replace package UT3.TEST_DUMMY_COVERAGE is
- --%suite(dummy coverage test)
- --%suitepath(coverage_testing)
-
- --%test
- procedure test_do_stuff;
- end;]';
- execute immediate q'[create or replace package body UT3.TEST_DUMMY_COVERAGE is
- procedure test_do_stuff is
- begin
- dummy_coverage_package_with_an_amazingly_long_name_that_you_would_not_think_of_in_real_life_project_because_its_simply_too_long.do_stuff(1);
- ut.expect(1).to_equal(1);
- end;
- end;]';
- end;
-
- procedure mock_block_coverage_data(a_run_id integer) is
- c_unit_id constant integer := 1;
- begin
- insert into dbmspcc_runs ( run_id, run_owner, run_timestamp, run_comment)
- values(a_run_id, user, sysdate, 'unit testing utPLSQL');
-
- insert into dbmspcc_units ( run_id, object_id, type, owner, name,last_ddl_time)
- values(a_run_id, c_unit_id, 'PACKAGE BODY', 'UT3', 'DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG',sysdate);
-
- insert into dbmspcc_blocks ( run_id, object_id, line,block,col,covered,not_feasible)
- select a_run_id, c_unit_id,4,1,1,1,0 from dual union all
- select a_run_id, c_unit_id,4,2,2,0,0 from dual union all
- select a_run_id, c_unit_id,5,3,0,1,0 from dual union all
- select a_run_id, c_unit_id,7,4,1,1,0 from dual;
- end;
-
- procedure mock_profiler_coverage_data(a_run_id integer) is
- c_unit_id constant integer := 1;
- begin
- insert into ut3.plsql_profiler_runs ( runid, run_owner, run_date, run_comment)
- values(a_run_id, user, sysdate, 'unit testing utPLSQL');
-
- insert into ut3.plsql_profiler_units ( runid, unit_number, unit_type, unit_owner, unit_name)
- values(a_run_id, c_unit_id, 'PACKAGE BODY', 'UT3', 'DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG');
-
- insert into ut3.plsql_profiler_data ( runid, unit_number, line#, total_occur, total_time)
- select a_run_id, c_unit_id, 4, 1, 1 from dual union all
- select a_run_id, c_unit_id, 5, 0, 0 from dual union all
- select a_run_id, c_unit_id, 6, 1, 0 from dual union all
- select a_run_id, c_unit_id, 7, 1, 1 from dual;
- end;
-
- procedure setup_dummy_coverage is
- pragma autonomous_transaction;
- begin
- create_dummy_coverage_package();
- create_dummy_coverage_test();
- g_run_id(ut3.ut_coverage.gc_block_coverage) := get_mock_block_run_id();
- g_run_id(ut3.ut_coverage.gc_proftab_coverage) := get_mock_proftab_run_id();
- ut3.ut_coverage.mock_coverage_id(g_run_id);
- mock_block_coverage_data(g_run_id(ut3.ut_coverage.gc_block_coverage));
- mock_profiler_coverage_data(g_run_id(ut3.ut_coverage.gc_proftab_coverage));
- commit;
- end;
-
- procedure cleanup_dummy_coverage is
- pragma autonomous_transaction;
- begin
- begin execute immediate q'[drop package ut3.test_dummy_coverage]'; exception when others then null; end;
- begin execute immediate q'[drop package ut3.dummy_coverage_package_with_an_amazingly_long_name_that_you_would_not_think_of_in_real_life_project_because_its_simply_too_long]'; exception when others then null; end;
- delete from dbmspcc_blocks where run_id = g_run_id(ut3.ut_coverage.gc_block_coverage);
- delete from dbmspcc_units where run_id = g_run_id(ut3.ut_coverage.gc_block_coverage);
- delete from dbmspcc_runs where run_id = g_run_id(ut3.ut_coverage.gc_block_coverage);
- delete from ut3.plsql_profiler_data where runid = g_run_id(ut3.ut_coverage.gc_proftab_coverage);
- delete from ut3.plsql_profiler_units where runid = g_run_id(ut3.ut_coverage.gc_proftab_coverage);
- delete from ut3.plsql_profiler_runs where runid = g_run_id(ut3.ut_coverage.gc_proftab_coverage);
- commit;
- end;
-
- procedure coverage_for_object is
- l_expected clob;
- l_actual clob;
- l_results ut3.ut_varchar2_list;
- begin
- --Arrange
- l_expected := '%%%';
- --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_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage_package_with_an_amazingly_long_name_that_you_would_not_think_of_in_real_life_project_because_its_simply_too_long' )
- )
- );
- --Assert
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(l_actual).to_be_like(l_expected);
- end;
-
- procedure coverage_for_schema is
- l_expected clob;
- l_actual clob;
- l_results ut3.ut_varchar2_list;
- begin
- --Arrange
- l_expected := '%%%';
- --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_coverage_schemes => ut3.ut_varchar2_list( 'ut3' )
- )
- );
- --Assert
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(l_actual).to_be_like(l_expected);
- ut.expect(l_actual).to_be_like('%%%');
- end;
-
- procedure coverage_for_file is
- l_expected clob;
- l_actual clob;
- l_results ut3.ut_varchar2_list;
- l_file_path varchar2(250);
- begin
- --Arrange
- l_file_path := lower('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');
- l_expected := '%%%';
- --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( l_file_path ),
- a_test_files => ut3.ut_varchar2_list( )
- )
- );
- --Assert
- l_actual := ut3.ut_utils.table_to_clob(l_results);
- ut.expect(l_actual).to_be_like(l_expected);
- end;
-
-end;
-/
diff --git a/test/grant_ut3_owner_to_ut3_tester.sql b/test/grant_ut3_owner_to_ut3_tester.sql
new file mode 100644
index 000000000..19424be1a
--- /dev/null
+++ b/test/grant_ut3_owner_to_ut3_tester.sql
@@ -0,0 +1,35 @@
+set define off
+whenever sqlerror exit failure rollback
+whenever oserror exit failure rollback
+
+alter session set plsql_optimize_level=0;
+
+set linesize 200
+set define on
+set verify off
+
+prompt Empowering UT3_TESTER to UT3_OWNER objects
+
+begin
+ for i in ( select object_name from all_objects t
+ where t.object_type in ('PACKAGE','TYPE')
+ and owner = 'UT3'
+ and generated = 'N'
+ and lower(object_name) not like 'sys%')
+ loop
+ execute immediate 'grant execute on ut3."'||i.object_name||'" to UT3_TESTER';
+ end loop;
+end;
+/
+
+prompt Empowering UT3_TESTER to UT3_OWNER tables
+
+begin
+ for i in ( select table_name from all_tables t where owner = 'UT3' and nested = 'NO' and IOT_TYPE is NULL)
+ loop
+ execute immediate 'grant select on UT3.'||i.table_name||' to UT3_TESTER';
+ end loop;
+end;
+/
+
+exit;
diff --git a/test/helpers/ut3user#.test_cursor_grants.pkb b/test/helpers/ut3user#.test_cursor_grants.pkb
deleted file mode 100644
index 112d9559e..000000000
--- a/test/helpers/ut3user#.test_cursor_grants.pkb
+++ /dev/null
@@ -1,114 +0,0 @@
-create or replace package body ut3$user#.test_cursor_grants is
-
- procedure run_test_join_by_cursor is
- begin
- ut3.ut.run('test_cursor_grants.test_join_by_cursor');
- end;
-
- procedure run_test_equal_cursor is
- begin
- ut3.ut.run('test_cursor_grants.test_equal_cursor');
- end;
-
- procedure run_test_not_empty_cursor is
- begin
- ut3.ut.run('test_cursor_grants.test_not_empty_cursor');
- end;
-
- procedure run_test_have_count_cursor is
- begin
- ut3.ut.run('test_cursor_grants.test_have_count_cursor');
- end;
-
- procedure run_test_empty_cursor is
- begin
- ut3.ut.run('test_cursor_grants.test_empty_cursor');
- end;
-
- procedure run_test_equal_non_diff_sql is
- begin
- ut3.ut.run('test_cursor_grants.test_equal_non_diff_sql');
- end;
-
- procedure test_join_by_cursor is
- l_actual SYS_REFCURSOR;
- l_expected SYS_REFCURSOR;
- begin
- --Arrange
- open l_actual for select owner, object_name,object_type from all_objects where owner = user
- order by 1,2,3 asc;
- open l_expected for select owner, object_name,object_type from all_objects where owner = user
- order by 1,2,3 desc;
-
- --Act
- ut3.ut.expect(l_actual).to_equal(l_expected).join_by('OBJECT_NAME,OBJECT_TYPE');
-
- end;
-
- procedure test_equal_cursor is
- l_actual SYS_REFCURSOR;
- l_expected SYS_REFCURSOR;
- l_list ut3_tester.test_dummy_object_list;
- begin
- --Arrange
- open l_actual for select value(x) as item from table(l_list) x;
- open l_expected for select value(x) as item from table(l_list) x;
-
- --Act
- ut3.ut.expect(l_actual).to_equal(l_expected);
-
- end;
-
- procedure test_not_empty_cursor is
- l_details_cur SYS_REFCURSOR;
- l_expected ut3_tester.test_dummy_object_list;
- begin
- select ut3_tester.test_dummy_object( rn, 'Something '||rn, rn1)
- bulk collect into l_expected
- from (select rownum * case when mod(rownum,2) = 0 then -1 else 1 end rn,
- rownum * case when mod(rownum,4) = 0 then -1 else 1 end rn1
- from dual connect by level <=10);
-
- --Arrange
- open l_details_cur for
- select value(x) as item from table(l_expected) x;
-
- --Act
- ut3.ut.expect(l_details_cur).not_to_be_empty();
- end;
-
- procedure test_have_count_cursor is
- l_expected SYS_REFCURSOR;
- begin
- --Arrange
- open l_expected for
- select value(x) as item from table(ut3_tester.test_dummy_object_list()) x;
-
- --Act
- ut3.ut.expect(l_expected).to_have_count(0);
- end;
-
- procedure test_empty_cursor is
- l_expected SYS_REFCURSOR;
- begin
- open l_expected for
- select value(x) as item from table(ut3_tester.test_dummy_object_list()) x;
- --Act
- ut3.ut.expect(l_expected).to_be_empty();
- end;
-
- procedure test_equal_non_diff_sql is
- l_actual SYS_REFCURSOR;
- l_expected SYS_REFCURSOR;
- begin
- open l_actual for
- select to_clob('test1') as item from dual;
-
- open l_expected for
- select to_clob('test1') as item from dual;
-
- ut3.ut.expect(l_actual).to_equal(l_expected);
- end;
-
-end;
-/
diff --git a/test/helpers/ut3user#.test_cursor_grants.pks b/test/helpers/ut3user#.test_cursor_grants.pks
deleted file mode 100644
index cf829c09f..000000000
--- a/test/helpers/ut3user#.test_cursor_grants.pks
+++ /dev/null
@@ -1,30 +0,0 @@
-create or replace package ut3$user#.test_cursor_grants is
- --%suite()
-
- procedure run_test_join_by_cursor;
- procedure run_test_equal_cursor;
- procedure run_test_not_empty_cursor;
- procedure run_test_have_count_cursor;
- procedure run_test_empty_cursor;
- procedure run_test_equal_non_diff_sql;
-
- --%test(execute join by test)
- procedure test_join_by_cursor;
-
- --%test(execute equal test)
- procedure test_equal_cursor;
-
- --%test(execute not empty test)
- procedure test_not_empty_cursor;
-
- --%test(execute have_count test)
- procedure test_have_count_cursor;
-
- --%test(execute empty test)
- procedure test_empty_cursor;
-
- --%test(execute test with non diff datatype)
- procedure test_equal_non_diff_sql;
-
-end;
-/
diff --git a/test/helpers/ut_example_tests.pkb b/test/helpers/ut_example_tests.pkb
deleted file mode 100644
index d8afd592a..000000000
--- a/test/helpers/ut_example_tests.pkb
+++ /dev/null
@@ -1,24 +0,0 @@
-create or replace package body ut_example_tests
-as
-
- procedure set_g_number_0 as
- begin
- g_number := 0;
- end;
-
- procedure add_1_to_g_number as
- begin
- g_number := g_number + 1;
- end;
-
- procedure failing_procedure as
- begin
- g_number := 1 / 0;
- end;
-
- procedure ut_commit_test is
- begin
- commit;
- end;
-end;
-/
diff --git a/test/helpers/ut_with_invalid_body.pkb b/test/helpers/ut_with_invalid_body.pkb
deleted file mode 100644
index e265bf8de..000000000
--- a/test/helpers/ut_with_invalid_body.pkb
+++ /dev/null
@@ -1,4 +0,0 @@
-create or replace package body ut_with_invalid_body as
- procedure test1;
-end;
-/
\ No newline at end of file
diff --git a/test/helpers/ut_with_invalid_body.pks b/test/helpers/ut_with_invalid_body.pks
deleted file mode 100644
index 702affb59..000000000
--- a/test/helpers/ut_with_invalid_body.pks
+++ /dev/null
@@ -1,4 +0,0 @@
-create or replace package ut_with_invalid_body as
- procedure test1;
-end;
-/
\ No newline at end of file
diff --git a/test/helpers/ut_without_body.pks b/test/helpers/ut_without_body.pks
deleted file mode 100644
index 45a3c50d4..000000000
--- a/test/helpers/ut_without_body.pks
+++ /dev/null
@@ -1,4 +0,0 @@
-create or replace package ut_without_body as
- procedure test1;
-end;
-/
\ No newline at end of file
diff --git a/test/install_and_run_tests.sh b/test/install_and_run_tests.sh
index 385cb46a4..be7857346 100755
--- a/test/install_and_run_tests.sh
+++ b/test/install_and_run_tests.sh
@@ -6,13 +6,19 @@ git rev-parse && cd "$(git rev-parse --show-cdup)"
cd test
-time "$SQLCLI" ${UT3_TESTER}/${UT3_TESTER_PASSWORD}@//${CONNECTION_STR} @install_tests.sql
+time "$SQLCLI" sys/${ORACLE_PWD}@//${CONNECTION_STR} AS SYSDBA @grant_ut3_owner_to_ut3_tester.sql
-cd ..
+time "$SQLCLI" ${UT3_TESTER_HELPER}/${UT3_TESTER_HELPER_PASSWORD}@//${CONNECTION_STR} @install_ut3_tester_helper.sql
+
+time "$SQLCLI" ${UT3_USER}/${UT3_USER_PASSWORD}@//${CONNECTION_STR} @install_ut3_user_tests.sql
+time "$SQLCLI" ${UT3_TESTER}/${UT3_TESTER_PASSWORD}@//${CONNECTION_STR} @install_ut3_tester_tests.sql
+
+cd ..
-time utPLSQL-cli/bin/utplsql run ${UT3_TESTER}/${UT3_TESTER_PASSWORD}@${CONNECTION_STR} \
+time utPLSQL-cli/bin/utplsql run ${UT3_TESTER_HELPER}/${UT3_TESTER_HELPER_PASSWORD}@${CONNECTION_STR} \
-source_path=source -owner=ut3 \
+-p='ut3_tester,ut3$user#' \
-test_path=test -c \
-f=ut_coverage_sonar_reporter -o=coverage.xml \
-f=ut_coverage_html_reporter -o=coverage.html \
@@ -20,5 +26,4 @@ time utPLSQL-cli/bin/utplsql run ${UT3_TESTER}/${UT3_TESTER_PASSWORD}@${CONNECTI
-f=ut_sonar_test_reporter -o=test_results.xml \
-f=ut_junit_reporter -o=junit_test_results.xml \
-f=ut_tfs_junit_reporter -o=tfs_test_results.xml \
--f=ut_documentation_reporter -o=test_results.log -s \
--scc
+-f=ut_documentation_reporter -o=test_results.log -s
diff --git a/test/install_ut3_tester_helper.sql b/test/install_ut3_tester_helper.sql
new file mode 100644
index 000000000..c6244fd39
--- /dev/null
+++ b/test/install_ut3_tester_helper.sql
@@ -0,0 +1,63 @@
+set define off
+whenever sqlerror exit failure rollback
+whenever oserror exit failure rollback
+
+alter session set plsql_optimize_level=0;
+--Install ut3_tester_helper
+@@ut3_tester_helper/test_dummy_object.tps
+@@ut3_tester_helper/other_dummy_object.tps
+@@ut3_tester_helper/test_dummy_object_list.tps
+@@ut3_tester_helper/test_tab_varchar2.tps
+@@ut3_tester_helper/test_tab_varray.tps
+@@ut3_tester_helper/test_dummy_number.tps
+@@ut3_tester_helper/ut_test_table.sql
+@@ut3_tester_helper/test_event_object.tps
+@@ut3_tester_helper/test_event_list.tps
+
+@@ut3_tester_helper/main_helper.pks
+@@ut3_tester_helper/run_helper.pks
+@@ut3_tester_helper/coverage_helper.pks
+@@ut3_tester_helper/expectations_helper.pks
+@@ut3_tester_helper/ut_example_tests.pks
+
+@@ut3_tester_helper/main_helper.pkb
+@@ut3_tester_helper/run_helper.pkb
+@@ut3_tester_helper/coverage_helper.pkb
+@@ut3_tester_helper/expectations_helper.pkb
+@@ut3_tester_helper/ut_example_tests.pkb
+
+set linesize 200
+set define on
+set verify off
+column text format a100
+column error_count noprint new_value error_count
+
+prompt Validating installation
+
+set heading on
+select type, name, sequence, line, position, text, count(1) over() error_count
+ from all_errors
+ where owner = USER
+ and name not like 'BIN$%' --not recycled
+ and name != 'UT_WITH_INVALID_BODY'
+ -- errors only. ignore warnings
+ and attribute = 'ERROR'
+ order by name, type, sequence
+/
+
+begin
+ if to_number('&&error_count') > 0 then
+ raise_application_error(-20000, 'Not all sources were successfully installed.');
+ else
+ dbms_output.put_line('Installation completed successfully');
+ end if;
+
+ for i in ( select object_name from user_objects t where t.object_type in ('PACKAGE','TYPE'))
+ loop
+ execute immediate 'grant execute on '||i.object_name||' to PUBLIC';
+ end loop;
+
+end;
+/
+
+exit;
diff --git a/test/install_ut3_tester_tests.sql b/test/install_ut3_tester_tests.sql
new file mode 100644
index 000000000..6b3a5356c
--- /dev/null
+++ b/test/install_ut3_tester_tests.sql
@@ -0,0 +1,72 @@
+set define off
+whenever sqlerror exit failure rollback
+whenever oserror exit failure rollback
+
+alter session set plsql_optimize_level=0;
+
+@@common_helper/utplsql.pks
+@@common_helper/utplsql.pkb
+
+--Install tests
+@@ut3_tester/core.pks
+@@ut3_tester/core/annotations/test_before_after_annotations.pks
+@@ut3_tester/core/annotations/test_annotation_parser.pks
+@@ut3_tester/core/annotations/test_annot_throws_exception.pks
+@@ut3_tester/core/annotations/test_annotation_manager.pks
+@@ut3_tester/core/expectations/test_expectation_processor.pks
+@@ut3_tester/core/test_ut_utils.pks
+@@ut3_tester/core/test_ut_test.pks
+@@ut3_tester/core/test_ut_suite.pks
+@@ut3_tester/core/test_ut_executable.pks
+@@ut3_tester/core/test_suite_manager.pks
+@@ut3_tester/core/test_file_mapper.pks
+@@ut3_tester/core/test_output_buffer.pks
+@@ut3_tester/core/test_suite_builder.pks
+
+
+@@ut3_tester/core.pkb
+@@ut3_tester/core/annotations/test_before_after_annotations.pkb
+@@ut3_tester/core/annotations/test_annotation_parser.pkb
+@@ut3_tester/core/expectations/test_expectation_processor.pkb
+@@ut3_tester/core/annotations/test_annotation_manager.pkb
+@@ut3_tester/core/annotations/test_annot_throws_exception.pkb
+@@ut3_tester/core/test_ut_utils.pkb
+@@ut3_tester/core/test_ut_test.pkb
+@@ut3_tester/core/test_ut_suite.pkb
+@@ut3_tester/core/test_ut_executable.pkb
+@@ut3_tester/core/test_suite_manager.pkb
+@@ut3_tester/core/test_file_mapper.pkb
+@@ut3_tester/core/test_output_buffer.pkb
+@@ut3_tester/core/test_suite_builder.pkb
+
+
+
+set linesize 200
+set define on
+set verify off
+column text format a100
+column error_count noprint new_value error_count
+
+prompt Validating installation
+
+set heading on
+select type, name, sequence, line, position, text, count(1) over() error_count
+ from all_errors
+ where owner = USER
+ and name not like 'BIN$%' --not recycled
+ and name != 'UT_WITH_INVALID_BODY'
+ -- errors only. ignore warnings
+ and attribute = 'ERROR'
+ order by name, type, sequence
+/
+
+begin
+ if to_number('&&error_count') > 0 then
+ raise_application_error(-20000, 'Not all sources were successfully installed.');
+ else
+ dbms_output.put_line('Installation completed successfully');
+ end if;
+end;
+/
+
+exit;
diff --git a/test/install_ut3_user_tests.sql b/test/install_ut3_user_tests.sql
new file mode 100644
index 000000000..67014f815
--- /dev/null
+++ b/test/install_ut3_user_tests.sql
@@ -0,0 +1,122 @@
+set define off
+whenever sqlerror exit failure rollback
+whenever oserror exit failure rollback
+
+alter session set plsql_optimize_level=0;
+
+@@common_helper/utplsql.pks
+@@common_helper/utplsql.pkb
+
+prompt Install user tests
+@@ut3_user/test_user.pks
+@@ut3_user/expectations/unary/test_expect_not_to_be_null.pks
+@@ut3_user/expectations/unary/test_expect_to_be_null.pks
+@@ut3_user/expectations/unary/test_expect_to_be_empty.pks
+@@ut3_user/expectations/unary/test_expect_to_have_count.pks
+@@ut3_user/expectations/unary/test_expect_to_be_true_false.pks
+@@ut3_user/expectations/unary/test_expect_to_be_not_null.pks
+@@ut3_user/expectations/binary/test_equal.pks
+@@ut3_user/expectations/binary/test_expect_to_be_less_than.pks
+@@ut3_user/expectations/binary/test_be_less_or_equal.pks
+@@ut3_user/expectations/binary/test_be_greater_or_equal.pks
+@@ut3_user/expectations/binary/test_be_greater_than.pks
+@@ut3_user/expectations/test_matchers.pks
+@@ut3_user/expectations/test_expectation_anydata.pks
+@@ut3_user/expectations/test_expectations_cursor.pks
+@@ut3_user/api/test_ut_runner.pks
+@@ut3_user/api/test_ut_run.pks
+@@ut3_user/reporters.pks
+@@ut3_user/reporters/test_tfs_junit_reporter.pks
+@@ut3_user/reporters/test_teamcity_reporter.pks
+@@ut3_user/reporters/test_sonar_test_reporter.pks
+@@ut3_user/reporters/test_junit_reporter.pks
+@@ut3_user/reporters/test_documentation_reporter.pks
+@@ut3_user/reporters/test_debug_reporter.pks
+@@ut3_user/reporters/test_realtime_reporter.pks
+@@ut3_user/reporters/test_coverage.pks
+set define on
+@@install_above_12_1.sql 'ut3_user/reporters/test_extended_coverage.pks'
+@@install_above_12_1.sql 'ut3_user/reporters/test_coverage/test_html_extended_reporter.pks'
+set define off
+@@ut3_user/reporters/test_coverage/test_coveralls_reporter.pks
+@@ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pks
+@@ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pks
+set define on
+@@install_below_12_2.sql 'ut3_user/reporters/test_proftab_coverage.pks'
+@@install_below_12_2.sql 'ut3_user/reporters/test_coverage/test_html_proftab_reporter.pks'
+set define off
+
+@@ut3_user/test_user.pkb
+@@ut3_user/expectations/unary/test_expect_not_to_be_null.pkb
+@@ut3_user/expectations/unary/test_expect_to_be_null.pkb
+@@ut3_user/expectations/unary/test_expect_to_be_empty.pkb
+@@ut3_user/expectations/unary/test_expect_to_have_count.pkb
+@@ut3_user/expectations/unary/test_expect_to_be_true_false.pkb
+@@ut3_user/expectations/unary/test_expect_to_be_not_null.pkb
+@@ut3_user/expectations/binary/test_equal.pkb
+@@ut3_user/expectations/binary/test_expect_to_be_less_than.pkb
+@@ut3_user/expectations/binary/test_be_less_or_equal.pkb
+@@ut3_user/expectations/binary/test_be_greater_or_equal.pkb
+@@ut3_user/expectations/binary/test_be_greater_than.pkb
+@@ut3_user/expectations/test_matchers.pkb
+@@ut3_user/expectations/test_expectation_anydata.pkb
+@@ut3_user/expectations/test_expectations_cursor.pkb
+@@ut3_user/api/test_ut_runner.pkb
+@@ut3_user/api/test_ut_run.pkb
+@@ut3_user/reporters.pkb
+@@ut3_user/reporters/test_tfs_junit_reporter.pkb
+@@ut3_user/reporters/test_teamcity_reporter.pkb
+@@ut3_user/reporters/test_sonar_test_reporter.pkb
+@@ut3_user/reporters/test_junit_reporter.pkb
+@@ut3_user/reporters/test_documentation_reporter.pkb
+@@ut3_user/reporters/test_debug_reporter.pkb
+@@ut3_user/reporters/test_realtime_reporter.pkb
+@@ut3_user/reporters/test_coverage.pkb
+set define on
+@@install_above_12_1.sql 'ut3_user/reporters/test_extended_coverage.pkb'
+@@install_above_12_1.sql 'ut3_user/reporters/test_coverage/test_html_extended_reporter.pkb'
+set define off
+@@ut3_user/reporters/test_coverage/test_coveralls_reporter.pkb
+@@ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pkb
+@@ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pkb
+set define on
+@@install_below_12_2.sql 'ut3_user/reporters/test_proftab_coverage.pkb'
+@@install_below_12_2.sql 'ut3_user/reporters/test_coverage/test_html_proftab_reporter.pkb'
+set define off
+
+
+set linesize 200
+set define on
+set verify off
+column text format a100
+column error_count noprint new_value error_count
+
+prompt Validating installation
+
+set heading on
+select type, name, sequence, line, position, text, count(1) over() error_count
+ from all_errors
+ where owner = USER
+ and name not like 'BIN$%' --not recycled
+ and name != 'UT_WITH_INVALID_BODY'
+ -- errors only. ignore warnings
+ and attribute = 'ERROR'
+ order by name, type, sequence
+/
+
+begin
+ if to_number('&&error_count') > 0 then
+ raise_application_error(-20000, 'Not all sources were successfully installed.');
+ else
+ dbms_output.put_line('Installation completed successfully');
+ end if;
+
+ for i in ( select object_name from user_objects t where t.object_type = 'PACKAGE')
+ loop
+ execute immediate 'grant execute on '||i.object_name||' to UT3_TESTER';
+ end loop;
+
+end;
+/
+
+exit;
diff --git a/test/ut3_tester/core.pkb b/test/ut3_tester/core.pkb
new file mode 100644
index 000000000..505388a8f
--- /dev/null
+++ b/test/ut3_tester/core.pkb
@@ -0,0 +1,11 @@
+create or replace package body core is
+
+ procedure global_setup is
+ begin
+ ut3.ut_coverage.set_develop_mode(true);
+ --improve performance of test execution by disabling all compiler optimizations
+ ut3_tester_helper.main_helper.execute_autonomous('ALTER SESSION SET PLSQL_OPTIMIZE_LEVEL=0');
+ end;
+
+end;
+/
diff --git a/test/ut3_tester/core.pks b/test/ut3_tester/core.pks
new file mode 100644
index 000000000..4565c47f3
--- /dev/null
+++ b/test/ut3_tester/core.pks
@@ -0,0 +1,10 @@
+create or replace package core is
+
+ --%suite
+ --%suitepath(utplsql.ut3_tester)
+
+ --%beforeall
+ procedure global_setup;
+
+end;
+/
diff --git a/test/core/annotations/test_annot_throws_exception.pkb b/test/ut3_tester/core/annotations/test_annot_throws_exception.pkb
similarity index 100%
rename from test/core/annotations/test_annot_throws_exception.pkb
rename to test/ut3_tester/core/annotations/test_annot_throws_exception.pkb
diff --git a/test/core/annotations/test_annot_throws_exception.pks b/test/ut3_tester/core/annotations/test_annot_throws_exception.pks
similarity index 98%
rename from test/core/annotations/test_annot_throws_exception.pks
rename to test/ut3_tester/core/annotations/test_annot_throws_exception.pks
index 54e814b55..ce2e6ba7a 100644
--- a/test/core/annotations/test_annot_throws_exception.pks
+++ b/test/ut3_tester/core/annotations/test_annot_throws_exception.pks
@@ -1,7 +1,7 @@
create or replace package test_annot_throws_exception
is
--%suite(annotations - throws)
- --%suitepath(utplsql.core.annotations)
+ --%suitepath(utplsql.ut3_tester.core.annotations)
--%beforeall
procedure recollect_tests_results;
diff --git a/test/core/annotations/test_annotation_manager.pkb b/test/ut3_tester/core/annotations/test_annotation_manager.pkb
similarity index 78%
rename from test/core/annotations/test_annotation_manager.pkb
rename to test/ut3_tester/core/annotations/test_annotation_manager.pkb
index 804980a39..46f0959e8 100644
--- a/test/core/annotations/test_annotation_manager.pkb
+++ b/test/ut3_tester/core/annotations/test_annotation_manager.pkb
@@ -58,33 +58,23 @@ create or replace package body test_annotation_manager is
end;
procedure create_parse_proc_as_ut3$user# is
- pragma autonomous_transaction;
begin
- execute immediate q'[
- create or replace procedure ut3$user#.parse_annotations is
- begin
- ut3.ut_annotation_manager.rebuild_annotation_cache('UT3_TESTER','PACKAGE');
- end;]';
+ ut3_tester_helper.main_helper.create_parse_proc_as_ut3$user#();
end;
procedure parse_dummy_test_as_ut3$user# is
- pragma autonomous_transaction;
begin
- execute immediate 'begin ut3$user#.parse_annotations; end;';
+ ut3_tester_helper.main_helper.parse_dummy_test_as_ut3$user#();
end;
procedure drop_parse_proc_as_ut3$user# is
- pragma autonomous_transaction;
begin
- execute immediate 'drop procedure ut3$user#.parse_annotations';
+ ut3_tester_helper.main_helper.drop_parse_proc_as_ut3$user#();
end;
procedure cleanup_annotation_cache is
- pragma autonomous_transaction;
begin
- delete from ut3.ut_annotation_cache_info
- where object_owner = user and object_type = 'PACKAGE' and object_name in ('DUMMY_PACKAGE','DUMMY_TEST_PACKAGE');
- commit;
+ ut3_tester_helper.main_helper.cleanup_annotation_cache();
end;
@@ -95,12 +85,12 @@ create or replace package body test_annotation_manager is
begin
--Act
l_start_date := sysdate;
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
--Assert
select max(cache_id)
into l_actual_cache_id
from ut3.ut_annotation_cache_info
- where object_owner = user and object_type = 'PACKAGE' and object_name = 'DUMMY_PACKAGE'
+ where object_owner = sys_context('USERENV', 'CURRENT_USER') and object_type = 'PACKAGE' and object_name = 'DUMMY_PACKAGE'
and parse_time >= l_start_date;
ut.expect(l_actual_cache_id).to_be_not_null;
@@ -121,7 +111,7 @@ create or replace package body test_annotation_manager is
begin
--Arrange
l_start_date := sysdate;
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
recompile_dummy_package();
l_start_date := sysdate;
$if dbms_db_version.version >= 18 $then
@@ -130,12 +120,12 @@ create or replace package body test_annotation_manager is
dbms_lock.sleep(1);
$end
--Act
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
--Assert
select max(cache_id)
into l_actual_cache_id
from ut3.ut_annotation_cache_info
- where object_owner = user and object_type = 'PACKAGE' and object_name = 'DUMMY_PACKAGE'
+ where object_owner = sys_context('USERENV', 'CURRENT_USER') and object_type = 'PACKAGE' and object_name = 'DUMMY_PACKAGE'
and parse_time >= l_start_date;
ut.expect(l_actual_cache_id).to_be_not_null;
@@ -158,12 +148,12 @@ create or replace package body test_annotation_manager is
--Arrange
l_start_date := sysdate;
--Act
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
--Assert
select max(cache_id)
into l_actual_cache_id
from ut3.ut_annotation_cache_info
- where object_owner = user and object_type = 'PACKAGE' and object_name = 'DUMMY_TEST_PACKAGE'
+ where object_owner = sys_context('USERENV', 'CURRENT_USER') and object_type = 'PACKAGE' and object_name = 'DUMMY_TEST_PACKAGE'
and parse_time >= l_start_date;
ut.expect(l_actual_cache_id).to_be_not_null;
@@ -195,16 +185,16 @@ create or replace package body test_annotation_manager is
l_start_date date;
begin
--Arrange
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
l_start_date := sysdate;
modify_dummy_test_package();
--Act
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
--Assert
select max(cache_id)
into l_actual_cache_id
from ut3.ut_annotation_cache_info
- where object_owner = user and object_type = 'PACKAGE' and object_name = 'DUMMY_TEST_PACKAGE'
+ where object_owner = sys_context('USERENV', 'CURRENT_USER') and object_type = 'PACKAGE' and object_name = 'DUMMY_TEST_PACKAGE'
and parse_time >= l_start_date;
ut.expect(l_actual_cache_id).to_be_not_null;
@@ -240,7 +230,7 @@ create or replace package body test_annotation_manager is
select max(cache_id)
into l_actual_cache_id
from ut3.ut_annotation_cache_info
- where object_owner = user and object_type = 'PACKAGE' and object_name = 'DUMMY_TEST_PACKAGE'
+ where object_owner = sys_context('USERENV', 'CURRENT_USER') and object_type = 'PACKAGE' and object_name = 'DUMMY_TEST_PACKAGE'
and parse_time >= l_start_date;
ut.expect(l_actual_cache_id).not_to_be_null();
@@ -268,11 +258,11 @@ create or replace package body test_annotation_manager is
l_actual sys_refcursor;
begin
--Arrange
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
drop_dummy_test_package();
--Act
open l_actual for
- select * from table(ut3.ut_annotation_manager.get_annotated_objects(user,'PACKAGE'))
+ select * from table(ut3.ut_annotation_manager.get_annotated_objects(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE'))
where object_name = 'DUMMY_TEST_PACKAGE';
--Assert
ut.expect(l_actual).to_be_empty();
@@ -285,16 +275,16 @@ create or replace package body test_annotation_manager is
l_start_date date;
begin
--Arrange
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
l_start_date := sysdate;
drop_dummy_test_package();
--Act
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
--Assert
select count(1)
into l_cache_count
from ut3.ut_annotation_cache_info
- where object_owner = user
+ where object_owner = sys_context('USERENV', 'CURRENT_USER')
and object_type = 'PACKAGE'
and object_name = 'DUMMY_TEST_PACKAGE';
diff --git a/test/core/annotations/test_annotation_manager.pks b/test/ut3_tester/core/annotations/test_annotation_manager.pks
similarity index 96%
rename from test/core/annotations/test_annotation_manager.pks
rename to test/ut3_tester/core/annotations/test_annotation_manager.pks
index 0726c8256..b2f351a6f 100644
--- a/test/core/annotations/test_annotation_manager.pks
+++ b/test/ut3_tester/core/annotations/test_annotation_manager.pks
@@ -1,7 +1,7 @@
create or replace package test_annotation_manager is
--%suite(ut_annotation_manager)
- --%suitepath(utplsql.core.annotations)
+ --%suitepath(utplsql.ut3_tester.core.annotations)
--%aftereach
procedure cleanup_annotation_cache;
diff --git a/test/core/annotations/test_annotation_parser.pkb b/test/ut3_tester/core/annotations/test_annotation_parser.pkb
similarity index 100%
rename from test/core/annotations/test_annotation_parser.pkb
rename to test/ut3_tester/core/annotations/test_annotation_parser.pkb
diff --git a/test/core/annotations/test_annotation_parser.pks b/test/ut3_tester/core/annotations/test_annotation_parser.pks
similarity index 96%
rename from test/core/annotations/test_annotation_parser.pks
rename to test/ut3_tester/core/annotations/test_annotation_parser.pks
index 19b98ae63..a4fe3ed70 100644
--- a/test/core/annotations/test_annotation_parser.pks
+++ b/test/ut3_tester/core/annotations/test_annotation_parser.pks
@@ -1,7 +1,7 @@
create or replace package test_annotation_parser is
--%suite(ut_annotation_parser)
- --%suitepath(utplsql.core.annotations)
+ --%suitepath(utplsql.ut3_tester.core.annotations)
--%test(Treats procedure level annotations as package level, if mixed with comments)
procedure test_proc_comments;
diff --git a/test/core/annotations/test_before_after_annotations.pkb b/test/ut3_tester/core/annotations/test_before_after_annotations.pkb
similarity index 98%
rename from test/core/annotations/test_before_after_annotations.pkb
rename to test/ut3_tester/core/annotations/test_before_after_annotations.pkb
index 0aa9f5c39..9ee917d84 100644
--- a/test/core/annotations/test_before_after_annotations.pkb
+++ b/test/ut3_tester/core/annotations/test_before_after_annotations.pkb
@@ -200,12 +200,12 @@ create or replace package body test_before_after_annotations is
execute immediate l_test_package_body;
--Execute the tests and collect the results
- select * bulk collect into l_test_results from table(ut3.ut.run(('dummy_before_after_test')));
+ select * bulk collect into l_test_results from table(ut3.ut.run(('ut3_tester.dummy_before_after_test')));
execute immediate 'drop package dummy_before_after_test';
execute immediate 'drop package shared_test_package';
- g_tests_results := ut3.ut_utils.table_to_clob(l_test_results);
+ g_tests_results := ut3_tester_helper.main_helper.table_to_clob(l_test_results);
end;
procedure beforetest_local_procedure is
diff --git a/test/core/annotations/test_before_after_annotations.pks b/test/ut3_tester/core/annotations/test_before_after_annotations.pks
similarity index 96%
rename from test/core/annotations/test_before_after_annotations.pks
rename to test/ut3_tester/core/annotations/test_before_after_annotations.pks
index a4ce52727..062efff48 100644
--- a/test/core/annotations/test_before_after_annotations.pks
+++ b/test/ut3_tester/core/annotations/test_before_after_annotations.pks
@@ -1,7 +1,7 @@
create or replace package test_before_after_annotations is
--%suite(annotations - beforetest and aftertest)
- --%suitepath(utplsql.core.annotations)
+ --%suitepath(utplsql.ut3_tester.core.annotations)
subtype t_procedure_name is varchar2(250) not null;
type t_procedures is table of t_procedure_name;
diff --git a/test/core/expectations/test_expectation_processor.pkb b/test/ut3_tester/core/expectations/test_expectation_processor.pkb
similarity index 100%
rename from test/core/expectations/test_expectation_processor.pkb
rename to test/ut3_tester/core/expectations/test_expectation_processor.pkb
diff --git a/test/core/expectations/test_expectation_processor.pks b/test/ut3_tester/core/expectations/test_expectation_processor.pks
similarity index 88%
rename from test/core/expectations/test_expectation_processor.pks
rename to test/ut3_tester/core/expectations/test_expectation_processor.pks
index ecde48153..5b63c8938 100644
--- a/test/core/expectations/test_expectation_processor.pks
+++ b/test/ut3_tester/core/expectations/test_expectation_processor.pks
@@ -1,7 +1,7 @@
create or replace package test_expectation_processor is
--%suite(expectation_processor)
- --%suitepath(utplsql.core.expectations)
+ --%suitepath(utplsql.ut3_tester.core.expectations)
--%context(who_called_expectation)
diff --git a/test/core/test_file_mapper.pkb b/test/ut3_tester/core/test_file_mapper.pkb
similarity index 83%
rename from test/core/test_file_mapper.pkb
rename to test/ut3_tester/core/test_file_mapper.pkb
index 34b38f108..3813c9450 100644
--- a/test/core/test_file_mapper.pkb
+++ b/test/ut3_tester/core/test_file_mapper.pkb
@@ -6,8 +6,8 @@ create or replace package body test_file_mapper is
begin
--Arrange
l_expected := ut3.ut_file_mappings(
- ut3.ut_file_mapping('C:\tests\helpers\core.pkb',USER,'CORE','PACKAGE BODY'),
- ut3.ut_file_mapping('tests/helpers/test_file_mapper.pkb',USER,'TEST_FILE_MAPPER','PACKAGE BODY')
+ ut3.ut_file_mapping('C:\tests\helpers\core.pkb',sys_context('USERENV', 'CURRENT_USER'),'CORE','PACKAGE BODY'),
+ ut3.ut_file_mapping('tests/helpers/test_file_mapper.pkb',sys_context('USERENV', 'CURRENT_USER'),'TEST_FILE_MAPPER','PACKAGE BODY')
);
--Act
l_actual := ut3.ut_file_mapper.build_file_mappings(
diff --git a/test/core/test_file_mapper.pks b/test/ut3_tester/core/test_file_mapper.pks
similarity index 88%
rename from test/core/test_file_mapper.pks
rename to test/ut3_tester/core/test_file_mapper.pks
index f64343637..b2443766c 100644
--- a/test/core/test_file_mapper.pks
+++ b/test/ut3_tester/core/test_file_mapper.pks
@@ -1,7 +1,7 @@
create or replace package test_file_mapper is
--%suite(file_mapper)
- --%suitepath(utplsql.core)
+ --%suitepath(utplsql.ut3_tester.core)
--%test(Maps file paths into database objects using default mappings)
procedure default_mappings;
diff --git a/test/core/test_output_buffer.pkb b/test/ut3_tester/core/test_output_buffer.pkb
similarity index 83%
rename from test/core/test_output_buffer.pkb
rename to test/ut3_tester/core/test_output_buffer.pkb
index 79e88f8d8..d8157a687 100644
--- a/test/core/test_output_buffer.pkb
+++ b/test/ut3_tester/core/test_output_buffer.pkb
@@ -27,7 +27,8 @@ create or replace package body test_output_buffer is
ut.expect(l_actual_text).to_equal(l_expected_text);
ut.expect(l_actual_item_type).to_equal(l_expected_item_type);
- select count(1) into l_remaining from ut3.ut_output_buffer_tmp where output_id = l_buffer.output_id;
+ select count(1) into l_remaining from table(ut3_tester_helper.run_helper.ut_output_buffer_tmp)
+ where output_id = l_buffer.output_id;
ut.expect(l_remaining).to_equal(0);
end;
@@ -37,11 +38,11 @@ create or replace package body test_output_buffer is
l_result integer;
l_buffer ut3.ut_output_buffer_base := ut3.ut_output_table_buffer();
begin
- delete from ut3.ut_output_buffer_tmp;
+ ut3_tester_helper.run_helper.delete_buffer();
--Act
l_buffer.send_line(null);
- open l_cur for select * from ut3.ut_output_buffer_tmp;
+ open l_cur for select * from table(ut3_tester_helper.run_helper.ut_output_buffer_tmp);
ut.expect(l_cur).to_be_empty;
end;
@@ -52,7 +53,7 @@ create or replace package body test_output_buffer is
begin
l_buffer.send_line(c_expected);
- select text into l_result from ut3.ut_output_buffer_tmp where output_id = l_buffer.output_id;
+ select text into l_result from table(ut3_tester_helper.run_helper.ut_output_buffer_tmp) where output_id = l_buffer.output_id;
ut.expect(l_result).to_equal(c_expected);
end;
@@ -85,7 +86,7 @@ create or replace package body test_output_buffer is
ut.expect(l_duration).to_be_greater_than(interval '0.99' second);
end;
- select count(1) into l_remaining from ut3.ut_output_buffer_tmp where output_id = l_buffer.output_id;
+ select count(1) into l_remaining from table(ut3_tester_helper.run_helper.ut_output_buffer_tmp) where output_id = l_buffer.output_id;
--Data got removed from output buffer
ut.expect(l_remaining).to_equal(0);
diff --git a/test/core/test_output_buffer.pks b/test/ut3_tester/core/test_output_buffer.pks
similarity index 91%
rename from test/core/test_output_buffer.pks
rename to test/ut3_tester/core/test_output_buffer.pks
index 417b1ce09..9a4cfa68a 100644
--- a/test/core/test_output_buffer.pks
+++ b/test/ut3_tester/core/test_output_buffer.pks
@@ -1,7 +1,7 @@
create or replace package test_output_buffer is
--%suite(output_buffer)
- --%suitepath(utplsql.core)
+ --%suitepath(utplsql.ut3_tester.core)
--%test(Receives a line from buffer table and deletes)
procedure test_receive;
diff --git a/test/core/test_suite_builder.pkb b/test/ut3_tester/core/test_suite_builder.pkb
similarity index 100%
rename from test/core/test_suite_builder.pkb
rename to test/ut3_tester/core/test_suite_builder.pkb
diff --git a/test/core/test_suite_builder.pks b/test/ut3_tester/core/test_suite_builder.pks
similarity index 99%
rename from test/core/test_suite_builder.pks
rename to test/ut3_tester/core/test_suite_builder.pks
index 21ca58206..5715cfd85 100644
--- a/test/core/test_suite_builder.pks
+++ b/test/ut3_tester/core/test_suite_builder.pks
@@ -1,6 +1,6 @@
create or replace package test_suite_builder is
--%suite(suite_builder)
- --%suitepath(utplsql.core)
+ --%suitepath(utplsql.ut3_tester.core)
--%context(suite)
--%displayname(--%suite annotation)
diff --git a/test/core/test_suite_manager.pkb b/test/ut3_tester/core/test_suite_manager.pkb
similarity index 91%
rename from test/core/test_suite_manager.pkb
rename to test/ut3_tester/core/test_suite_manager.pkb
index bd6c97779..6f4237f9c 100644
--- a/test/core/test_suite_manager.pkb
+++ b/test/ut3_tester/core/test_suite_manager.pkb
@@ -4,32 +4,13 @@ create or replace package body test_suite_manager is
pragma exception_init(ex_obj_doesnt_exist, -04043);
procedure create_dummy_long_test_package is
- pragma autonomous_transaction;
begin
- execute immediate q'[create or replace package ut3.dummy_long_test_package as
-
- --%suitepath(verylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtext)
- --%suite(dummy_test_suite)
-
- --%test(dummy_test)
- procedure some_dummy_test_procedure;
- end;]';
-
- execute immediate q'[create or replace package ut3.dummy_long_test_package1 as
-
- --%suitepath(verylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtext)
- --%suite(dummy_test_suite1)
-
- --%test(dummy_test)
- procedure some_dummy_test_procedure;
- end;]';
+ ut3_tester_helper.run_helper.create_dummy_long_test_package();
end;
procedure drop_dummy_long_test_package is
- pragma autonomous_transaction;
begin
- execute immediate q'[drop package ut3.dummy_long_test_package]';
- execute immediate q'[drop package ut3.dummy_long_test_package1]';
+ ut3_tester_helper.run_helper.drop_dummy_long_test_package();
end;
procedure compile_dummy_packages is
@@ -310,7 +291,7 @@ end test_package_with_ctx;]';
end;
procedure test_schema_run is
- c_path constant varchar2(100) := USER;
+ c_path constant varchar2(100) := sys_context('USERENV', 'CURRENT_USER');
l_objects_to_run ut3.ut_suite_items := ut3.ut_suite_items();
l_all_objects_to_run ut3.ut_suite_items;
@@ -357,7 +338,7 @@ end test_package_with_ctx;]';
end;
procedure test_top2_by_name is
- c_path varchar2(100) := USER||'.test_package_2';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||'.test_package_2';
l_objects_to_run ut3.ut_suite_items;
l_test0_suite ut3.ut_logical_suite;
@@ -415,7 +396,7 @@ end test_package_with_ctx;]';
end;
procedure test_by_path_to_subsuite is
- c_path varchar2(100) := USER||':tests.test_package_1.test_package_2';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||':tests.test_package_1.test_package_2';
l_objects_to_run ut3.ut_suite_items;
l_test0_suite ut3.ut_logical_suite;
@@ -469,7 +450,7 @@ end test_package_with_ctx;]';
end;
procedure test_subsute_proc_by_path is
- c_path varchar2(100) := USER||':tests.test_package_1.test_package_2.test2';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||':tests.test_package_1.test_package_2.test2';
l_objects_to_run ut3.ut_suite_items;
l_test0_suite ut3.ut_logical_suite;
@@ -539,7 +520,7 @@ end test_package_with_ctx;]';
end;
procedure test_top_pack_by_name is
- c_path varchar2(100) := USER||'.test_package_1';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||'.test_package_1';
l_objects_to_run ut3.ut_suite_items;
l_test0_suite ut3.ut_logical_suite;
@@ -614,7 +595,7 @@ end test_package_with_ctx;]';
end;
procedure test_top_pack_by_path is
- c_path varchar2(100) := USER||':tests';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||':tests';
l_objects_to_run ut3.ut_suite_items;
l_test0_suite ut3.ut_logical_suite;
@@ -668,7 +649,7 @@ end test_package_with_ctx;]';
end;
procedure test_top_pck_proc_by_path is
- c_path varchar2(100) := USER||':tests.test_package_1.test2';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||':tests.test_package_1.test2';
l_objects_to_run ut3.ut_suite_items;
l_test0_suite ut3.ut_logical_suite;
@@ -728,7 +709,7 @@ end test_package_with_ctx;]';
end;
procedure test_top_pkc_proc_by_name is
- c_path varchar2(100) := USER||'.test_package_1.test2';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||'.test_package_1.test2';
l_objects_to_run ut3.ut_suite_items;
l_test0_suite ut3.ut_logical_suite;
@@ -784,7 +765,7 @@ end test_package_with_ctx;]';
end;
procedure test_top_pkc_nosub_by_name is
- c_path varchar2(100) := USER||'.test_package_3';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||'.test_package_3';
l_objects_to_run ut3.ut_suite_items;
l_test0_suite ut3.ut_logical_suite;
@@ -848,7 +829,7 @@ end test_package_with_ctx;]';
end;
procedure test_top_subpck_by_path is
- c_path varchar2(100) := USER||':tests2.test_package_3';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||':tests2.test_package_3';
l_objects_to_run ut3.ut_suite_items;
l_test0_suite ut3.ut_logical_suite;
@@ -1035,13 +1016,13 @@ end;';
l_test_report ut3.ut_varchar2_list;
begin
- select * bulk collect into l_test_report from table(ut3.ut.run(USER||'.tst_package_to_be_dropped'));
+ select * bulk collect into l_test_report from table(ut3.ut.run(sys_context('USERENV', 'CURRENT_USER')||'.tst_package_to_be_dropped'));
-- drop package
clean_inv_cache_on_drop;
begin
- select * bulk collect into l_test_report from table(ut3.ut.run(user || '.tst_package_to_be_dropped'));
+ select * bulk collect into l_test_report from table(ut3.ut.run(sys_context('USERENV', 'CURRENT_USER') || '.tst_package_to_be_dropped'));
ut.fail('Cache not invalidated on package drop');
exception
when others then
@@ -1078,7 +1059,7 @@ end;';
l_test_report ut3.ut_varchar2_list;
begin
- select * bulk collect into l_test_report from table(ut3.ut.run(USER||'.test_dependencies'));
+ select * bulk collect into l_test_report from table(ut3.ut.run(sys_context('USERENV', 'CURRENT_USER')||'.test_dependencies'));
ut.expect(l_test_report(l_test_report.count-1)).to_be_like('1 test_, 0 failed, 0 errored, 0 disabled, 0 warning(s)');
--execute immediate 'select * from table(ut3.ut.run(''UT3.test_dependencies'', ut3.utplsql_test_reporter()))' into l_result;
@@ -1396,7 +1377,7 @@ end;]';
end;
procedure pck_proc_in_ctx_by_name is
- c_path varchar2(100) := USER||'.test_package_with_ctx.test1';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||'.test_package_with_ctx.test1';
l_objects_to_run ut3.ut_suite_items;
l_test_suite ut3.ut_logical_suite;
@@ -1423,7 +1404,7 @@ end;]';
end;
procedure pck_proc_in_ctx_by_path is
- c_path varchar2(100) := USER||':test_package_with_ctx.some_context.test1';
+ c_path varchar2(100) := sys_context('USERENV', 'CURRENT_USER')||':test_package_with_ctx.some_context.test1';
l_objects_to_run ut3.ut_suite_items;
l_test_suite ut3.ut_logical_suite;
@@ -1456,28 +1437,20 @@ end;]';
l_expected := ut3.ut_object_names(
ut3.ut_object_name('UT3','SOME_TEST_PACKAGE')
);
- l_actual := ut3.ut_suite_manager.get_schema_ut_packages(ut3.ut_varchar2_rows('UT3'));
+ l_actual := ut3_tester_helper.run_helper.get_object_name('UT3');
ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected));
end;
+
procedure create_ut3_suite is
- pragma autonomous_transaction;
begin
- execute immediate q'[
- create or replace package ut3.some_test_package
- as
- --%suite
-
- --%test
- procedure some_test;
-
- end;]';
+ ut3_tester_helper.run_helper.create_ut3_suite();
end;
procedure drop_ut3_suite is
pragma autonomous_transaction;
begin
- execute immediate q'[drop package ut3.some_test_package]';
+ ut3_tester_helper.run_helper.drop_ut3_suite();
end;
procedure add_new_long_test_package is
@@ -1485,7 +1458,7 @@ end;]';
l_expected_message varchar2(500);
begin
l_expected_message := q'[ORA-20217: 'Suitepath exceeds 1000 CHAR on: UT3.DUMMY_LONG_TEST_PACKAGE,UT3.DUMMY_LONG_TEST_PACKAGE1'%]';
- l_actual := ut3.ut_suite_manager.get_schema_ut_packages(ut3.ut_varchar2_rows('UT3'));
+ l_actual := ut3_tester_helper.run_helper.get_object_name('UT3');
ut.fail('Expected exception for suitpaths over 1k for two packages');
exception
when others then
diff --git a/test/core/test_suite_manager.pks b/test/ut3_tester/core/test_suite_manager.pks
similarity index 99%
rename from test/core/test_suite_manager.pks
rename to test/ut3_tester/core/test_suite_manager.pks
index aad29fad0..ed318b890 100644
--- a/test/core/test_suite_manager.pks
+++ b/test/ut3_tester/core/test_suite_manager.pks
@@ -1,7 +1,7 @@
create or replace package test_suite_manager is
--%suite(suite_manager)
- --%suitepath(utplsql.core)
+ --%suitepath(utplsql.ut3_tester.core)
procedure create_dummy_long_test_package;
diff --git a/test/core/test_ut_executable.pkb b/test/ut3_tester/core/test_ut_executable.pkb
similarity index 80%
rename from test/core/test_ut_executable.pkb
rename to test/ut3_tester/core/test_ut_executable.pkb
index 1d2e74ff3..92420de47 100644
--- a/test/core/test_ut_executable.pkb
+++ b/test/ut3_tester/core/test_ut_executable.pkb
@@ -24,8 +24,9 @@ create or replace package body test_ut_executable is
l_result boolean;
begin
--Arrange
- l_test := ut3.ut_test(a_object_name => 'test_ut_executable',a_name => 'test_ut_executable', a_line_no=> 1);
- l_executable := ut3.ut_executable_test( user, 'test_ut_executable', 'output_proc', ut3.ut_utils.gc_test_execute );
+ l_test := ut3.ut_test(a_object_owner => 'ut3_tester', a_object_name => 'test_ut_executable',a_name => 'test_ut_executable', a_line_no=> 1);
+ l_executable := ut3.ut_executable_test( a_owner => 'ut3_tester', a_package => 'test_ut_executable',
+ a_procedure_name => 'output_proc', a_executable_type => ut3.ut_utils.gc_test_execute );
--Act
l_result := l_executable.do_execute(l_test);
--Assert
@@ -40,8 +41,8 @@ create or replace package body test_ut_executable is
l_result boolean;
begin
--Arrange
- l_test := ut3.ut_test(a_object_name => 'test_ut_executable',a_name => 'test_ut_executable', a_line_no=> 1);
- l_executable := ut3.ut_executable_test( user, 'test_ut_executable', 'throwing_proc', ut3.ut_utils.gc_test_execute );
+ l_test := ut3.ut_test(a_object_owner => 'ut3_tester', a_object_name => 'test_ut_executable',a_name => 'test_ut_executable', a_line_no=> 1);
+ l_executable := ut3.ut_executable_test( 'ut3_tester', 'test_ut_executable', 'throwing_proc', ut3.ut_utils.gc_test_execute );
--Act
l_result := l_executable.do_execute(l_test);
--Assert
@@ -76,9 +77,7 @@ create or replace package body test_ut_executable is
dbms_lock.sleep(0.4);
$end
while l_cnt > 0 loop
- select count(1) into l_cnt
- from dba_scheduler_running_jobs srj
- where srj.job_name = l_job_name;
+ l_cnt:=ut3_tester_helper.main_helper.get_job_count(l_job_name);
end loop;
end;
@@ -97,7 +96,7 @@ create or replace package body test_ut_executable is
procedure output_proc is
begin
- dbms_output.put_line(g_dbms_output_text);
+ dbms_output.put_line('Some output from procedure');
end;
procedure throwing_proc is
diff --git a/test/core/test_ut_executable.pks b/test/ut3_tester/core/test_ut_executable.pks
similarity index 94%
rename from test/core/test_ut_executable.pks
rename to test/ut3_tester/core/test_ut_executable.pks
index 4c11e5142..882f0f209 100644
--- a/test/core/test_ut_executable.pks
+++ b/test/ut3_tester/core/test_ut_executable.pks
@@ -1,7 +1,7 @@
create or replace package test_ut_executable is
--%suite(ut_executable)
- --%suitepath(utplsql.core)
+ --%suitepath(utplsql.ut3_tester.core)
--%context(do_execute)
diff --git a/test/core/test_ut_suite.pkb b/test/ut3_tester/core/test_ut_suite.pkb
similarity index 67%
rename from test/core/test_ut_suite.pkb
rename to test/ut3_tester/core/test_ut_suite.pkb
index 04d75277a..3ea323a6d 100644
--- a/test/core/test_ut_suite.pkb
+++ b/test/ut3_tester/core/test_ut_suite.pkb
@@ -2,26 +2,36 @@ create or replace package body test_ut_suite is
procedure cleanup_package_state is
begin
- ut_example_tests.g_number := null;
+ ut3_tester_helper.ut_example_tests.g_number := null;
end;
-
+
+ procedure create_trans_control is
+ begin
+ ut3_tester_helper.run_helper.create_trans_control;
+ end;
+
+ procedure drop_trans_control is
+ begin
+ ut3_tester_helper.run_helper.drop_trans_control;
+ end;
+
procedure disabled_suite is
l_suite ut3.ut_suite;
begin
--Arrange
l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_EXAMPLE_TESTS', a_line_no=> 1);
- l_suite.path := 'ut_example_tests';
+ l_suite.path := 'ut3_tester_helper.ut_example_tests';
l_suite.disabled_flag := ut3.ut_utils.boolean_to_int(true);
l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'set_g_number_0', ut3.ut_utils.gc_before_all));
l_suite.after_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'add_1_to_g_number', ut3.ut_utils.gc_before_all));
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => 'ut3_tester_helper', a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => 'ut3_tester_helper', a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
--Act
l_suite.do_execute();
--Assert
- ut.expect(ut_example_tests.g_number).to_be_null;
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_be_null;
ut.expect(l_suite.result).to_equal(ut3.ut_utils.gc_disabled);
ut.expect(l_suite.results_count.disabled_count).to_equal(2);
ut.expect(l_suite.results_count.warnings_count).to_equal(0);
@@ -35,14 +45,14 @@ create or replace package body test_ut_suite is
begin
--Arrange
l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_EXAMPLE_TESTS', a_line_no=> 1);
- l_suite.path := 'ut_example_tests';
+ l_suite.path := 'ut3_tester_helper.ut_example_tests';
l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'failing_procedure', ut3.ut_utils.gc_before_all));
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'set_g_number_0', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => 'ut3_tester_helper',a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'set_g_number_0', a_line_no=> 1);
--Act
l_suite.do_execute();
--Assert
- ut.expect(ut_example_tests.g_number).to_be_null;
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_be_null;
ut.expect(l_suite.result).to_equal(ut3.ut_utils.gc_error);
ut.expect(l_suite.results_count.disabled_count).to_equal(0);
ut.expect(l_suite.results_count.warnings_count).to_equal(0);
@@ -56,17 +66,17 @@ create or replace package body test_ut_suite is
begin
--Arrange
l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_EXAMPLE_TESTS', a_line_no=> 1);
- l_suite.path := 'ut_example_tests';
+ l_suite.path := 'ut3_tester_helper.ut_example_tests';
l_suite.after_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'failing_procedure', ut3.ut_utils.gc_after_all));
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'set_g_number_0', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => 'ut3_tester_helper', a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'set_g_number_0', a_line_no=> 1);
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => 'ut3_tester_helper', a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
--Act
l_suite.do_execute();
--Assert
- ut.expect(ut_example_tests.g_number).to_equal(1);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(1);
ut.expect(l_suite.result).to_equal(ut3.ut_utils.gc_success);
ut.expect(l_suite.results_count.disabled_count).to_equal(0);
ut.expect(l_suite.results_count.warnings_count).to_equal(1);
@@ -101,44 +111,39 @@ create or replace package body test_ut_suite is
ut.expect(l_suite.result).to_equal(ut3.ut_utils.gc_error);
end;
- procedure test_rollback_type(a_procedure_name varchar2, a_rollback_type integer, a_expectation ut3_latest_release.ut_matcher) is
+ procedure rollback_auto is
l_suite ut3.ut_suite;
begin
--Arrange
- execute immediate 'delete from ut$test_table';
+ execute immediate 'delete from ut3_tester_helper.ut$test_table';
l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_TRANSACTION_CONTROL', a_line_no=> 1);
- l_suite.path := 'ut_transaction_control';
+ l_suite.path := 'ut3_tester_helper.ut_transaction_control';
l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_TRANSACTION_CONTROL', 'setup', ut3.ut_utils.gc_before_all));
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => USER, a_object_name => 'ut_transaction_control',a_name => a_procedure_name, a_line_no=> 1);
- l_suite.set_rollback_type(a_rollback_type);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => USER, a_object_name => 'ut_transaction_control',a_name => 'test', a_line_no=> 1);
+ l_suite.set_rollback_type(ut3.ut_utils.gc_rollback_auto);
--Act
l_suite.do_execute();
--Assert
- ut.expect(core.get_value(q'[ut_transaction_control.count_rows('t')]')).to_( a_expectation );
- ut.expect(core.get_value(q'[ut_transaction_control.count_rows('s')]')).to_( a_expectation );
- end;
-
- procedure rollback_auto is
- begin
- test_rollback_type('test', ut3.ut_utils.gc_rollback_auto, equal(0) );
+ ut.expect(ut3_tester_helper.main_helper.get_value(q'[ut3_tester_helper.ut_transaction_control.count_rows('t')]')).to_equal(0);
+ ut.expect(ut3_tester_helper.main_helper.get_value(q'[ut3_tester_helper.ut_transaction_control.count_rows('s')]')).to_equal(0);
end;
procedure rollback_auto_on_failure is
begin
- test_rollback_type('test_failure', ut3.ut_utils.gc_rollback_auto, equal(0) );
+ ut3_tester_helper.run_helper.test_rollback_type('test_failure', ut3.ut_utils.gc_rollback_auto, equal(0) );
end;
procedure rollback_manual is
begin
- test_rollback_type('test', ut3.ut_utils.gc_rollback_manual, be_greater_than(0) );
+ ut3_tester_helper.run_helper.test_rollback_type('test', ut3.ut_utils.gc_rollback_manual, be_greater_than(0) );
end;
procedure rollback_manual_on_failure is
begin
- test_rollback_type('test_failure', ut3.ut_utils.gc_rollback_manual, be_greater_than(0) );
+ ut3_tester_helper.run_helper.test_rollback_type('test_failure', ut3.ut_utils.gc_rollback_manual, be_greater_than(0) );
end;
procedure trim_transaction_invalidators is
diff --git a/test/core/test_ut_suite.pks b/test/ut3_tester/core/test_ut_suite.pks
similarity index 78%
rename from test/core/test_ut_suite.pks
rename to test/ut3_tester/core/test_ut_suite.pks
index cc4de8528..385d00fc7 100644
--- a/test/core/test_ut_suite.pks
+++ b/test/ut3_tester/core/test_ut_suite.pks
@@ -1,7 +1,7 @@
create or replace package test_ut_suite is
--%suite(ut_suite)
- --%suitepath(utplsql.core)
+ --%suitepath(utplsql.ut3_tester.core)
--%beforeeach
procedure cleanup_package_state;
@@ -15,12 +15,21 @@ create or replace package test_ut_suite is
--%test(Reports warnings for each test if afterall raises exception)
procedure aftereall_errors;
+ --%beforetest(ut3_tester_helper.run_helper.package_no_body)
+ --%aftertest(ut3_tester_helper.run_helper.drop_package_no_body)
--%test(Fails all tests in package when package has no body)
procedure package_without_body;
--%test(Fails all tests in package when package body is invalid)
procedure package_with_invalid_body;
+ --%context( rollback_test )
+
+ --%beforeall
+ procedure create_trans_control;
+ --%afterall
+ procedure drop_trans_control;
+
--%test(Performs automatic rollback after a suite)
procedure rollback_auto;
@@ -32,7 +41,9 @@ create or replace package test_ut_suite is
--%test(rollback(manual) - disables automatic rollback after a suite even if test fails)
procedure rollback_manual_on_failure;
-
+
+ --%endcontext
+
--%test(Transaction invalidators list is trimmed in warnings when too long)
procedure trim_transaction_invalidators;
diff --git a/test/core/test_ut_test.pkb b/test/ut3_tester/core/test_ut_test.pkb
similarity index 78%
rename from test/core/test_ut_test.pkb
rename to test/ut3_tester/core/test_ut_test.pkb
index b521d6841..2a85a323f 100644
--- a/test/core/test_ut_test.pkb
+++ b/test/ut3_tester/core/test_ut_test.pkb
@@ -2,7 +2,7 @@ create or replace package body test_ut_test is
procedure cleanup_package_state is
begin
- ut_example_tests.g_number := null;
+ ut3_tester_helper.ut_example_tests.g_number := null;
end;
procedure disabled_test is
@@ -10,19 +10,19 @@ create or replace package body test_ut_test is
l_test ut3.ut_test;
begin
--Arrange
- l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_EXAMPLE_TESTS', a_line_no=> 1);
- l_suite.path := 'ut_example_tests';
- l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'set_g_number_0', ut3.ut_utils.gc_before_all));
+ l_suite := ut3.ut_suite(a_object_owner => 'ut3_tester_helper', a_object_name => 'ut_example_tests', a_line_no=> 1);
+ l_suite.path := 'ut3_tester_helper.ut_example_tests';
+ l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'set_g_number_0', ut3.ut_utils.gc_before_all));
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => 'ut3_tester_helper',a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 1);
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 2);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => 'ut3_tester_helper',a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 2);
l_suite.items(l_suite.items.last).disabled_flag := ut3.ut_utils.boolean_to_int(true);
--Act
l_suite.do_execute();
--Assert
- ut.expect(ut_example_tests.g_number).to_equal(1);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(1);
ut.expect(l_suite.result).to_equal(ut3.ut_utils.gc_success);
ut.expect(l_suite.results_count.disabled_count).to_equal(1);
ut.expect(l_suite.results_count.warnings_count).to_equal(0);
@@ -36,21 +36,21 @@ create or replace package body test_ut_test is
l_test ut3.ut_test;
begin
--Arrange
- l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_EXAMPLE_TESTS', a_line_no=> 1);
- l_suite.path := 'ut_example_tests';
- l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'set_g_number_0', ut3.ut_utils.gc_before_all));
+ l_suite := ut3.ut_suite(a_object_owner => 'ut3_tester_helper', a_object_name => 'ut_example_tests', a_line_no=> 1);
+ l_suite.path := 'ut3_tester_helper.ut_example_tests';
+ l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'set_g_number_0', ut3.ut_utils.gc_before_all));
- l_test := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
- l_test.before_test_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'add_1_to_g_number', ut3.ut_utils.gc_before_test));
- l_test.after_test_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'failing_procedure', ut3.ut_utils.gc_after_test));
+ l_test := ut3.ut_test(a_object_owner => 'ut3_tester_helper',a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_test.before_test_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'add_1_to_g_number', ut3.ut_utils.gc_before_test));
+ l_test.after_test_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'failing_procedure', ut3.ut_utils.gc_after_test));
l_suite.items.extend;
l_suite.items(l_suite.items.last) := l_test;
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => 'ut3_tester_helper',a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 1);
--Act
l_suite.do_execute();
--Assert
- ut.expect(ut_example_tests.g_number).to_equal(3);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(3);
ut.expect(l_suite.result).to_equal(ut3.ut_utils.gc_error);
ut.expect(l_suite.results_count.disabled_count).to_equal(0);
ut.expect(l_suite.results_count.warnings_count).to_equal(0);
@@ -64,19 +64,19 @@ create or replace package body test_ut_test is
l_test ut3.ut_test;
begin
--Arrange
- l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_EXAMPLE_TESTS', a_line_no=> 1);
- l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'set_g_number_0', ut3.ut_utils.gc_before_all));
- l_test := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
- l_test.before_each_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'add_1_to_g_number', ut3.ut_utils.gc_before_each));
- l_test.after_each_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'failing_procedure', ut3.ut_utils.gc_after_each));
+ l_suite := ut3.ut_suite(a_object_owner => 'ut3_tester_helper', a_object_name => 'ut_example_tests', a_line_no=> 1);
+ l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'set_g_number_0', ut3.ut_utils.gc_before_all));
+ l_test := ut3.ut_test(a_object_owner => 'ut3_tester_helper',a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_test.before_each_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'add_1_to_g_number', ut3.ut_utils.gc_before_each));
+ l_test.after_each_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'failing_procedure', ut3.ut_utils.gc_after_each));
l_suite.items.extend;
l_suite.items(l_suite.items.last) := l_test;
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => 'ut3_tester_helper',a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 1);
--Act
l_suite.do_execute();
--Assert
- ut.expect(ut_example_tests.g_number).to_equal(3);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(3);
ut.expect(l_suite.result).to_equal(ut3.ut_utils.gc_error);
ut.expect(l_suite.results_count.disabled_count).to_equal(0);
ut.expect(l_suite.results_count.warnings_count).to_equal(0);
@@ -90,19 +90,19 @@ create or replace package body test_ut_test is
l_test ut3.ut_test;
begin
--Arrange
- l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_EXAMPLE_TESTS', a_line_no=> 1);
- l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'set_g_number_0', ut3.ut_utils.gc_before_all));
- l_test := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
- l_test.before_test_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'failing_procedure', ut3.ut_utils.gc_before_test));
- l_test.after_test_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'add_1_to_g_number', ut3.ut_utils.gc_after_test));
+ l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'ut_example_tests', a_line_no=> 1);
+ l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'set_g_number_0', ut3.ut_utils.gc_before_all));
+ l_test := ut3.ut_test(a_object_owner =>'ut3_tester_helper',a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_test.before_test_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'failing_procedure', ut3.ut_utils.gc_before_test));
+ l_test.after_test_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'add_1_to_g_number', ut3.ut_utils.gc_after_test));
l_suite.items.extend;
l_suite.items(l_suite.items.last) := l_test;
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner =>'ut3_tester_helper',a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 1);
--Act
l_suite.do_execute();
--Assert
- ut.expect(ut_example_tests.g_number).to_equal(2);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(2);
ut.expect(l_suite.result).to_equal(ut3.ut_utils.gc_error);
ut.expect(l_suite.results_count.disabled_count).to_equal(0);
ut.expect(l_suite.results_count.warnings_count).to_equal(0);
@@ -116,19 +116,19 @@ create or replace package body test_ut_test is
l_test ut3.ut_test;
begin
--Arrange
- l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_EXAMPLE_TESTS', a_line_no=> 1);
- l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'set_g_number_0', ut3.ut_utils.gc_before_all));
- l_test := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
- l_test.before_each_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'failing_procedure', ut3.ut_utils.gc_before_each));
- l_test.after_each_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_EXAMPLE_TESTS', 'add_1_to_g_number', ut3.ut_utils.gc_after_each));
+ l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'ut_example_tests', a_line_no=> 1);
+ l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'set_g_number_0', ut3.ut_utils.gc_before_all));
+ l_test := ut3.ut_test(a_object_owner => USER,a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_test.before_each_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'failing_procedure', ut3.ut_utils.gc_before_each));
+ l_test.after_each_list := ut3.ut_executables(ut3.ut_executable(USER, 'ut_example_tests', 'add_1_to_g_number', ut3.ut_utils.gc_after_each));
l_suite.items.extend;
l_suite.items(l_suite.items.last) := l_test;
l_suite.items.extend;
- l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_name => 'UT_EXAMPLE_TESTS',a_name => 'add_1_to_g_number', a_line_no=> 1);
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => USER,a_object_name => 'ut_example_tests',a_name => 'add_1_to_g_number', a_line_no=> 1);
--Act
l_suite.do_execute();
--Assert
- ut.expect(ut_example_tests.g_number).to_equal(2);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(2);
ut.expect(l_suite.result).to_equal(ut3.ut_utils.gc_error);
ut.expect(l_suite.results_count.disabled_count).to_equal(0);
ut.expect(l_suite.results_count.warnings_count).to_equal(0);
@@ -140,22 +140,31 @@ create or replace package body test_ut_test is
procedure after_each_executed is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
);
begin
- l_test.after_each_list := ut3.ut_executables(ut3.ut_executable(user, 'ut_example_tests', 'add_1_to_g_number', ut3.ut_utils.gc_after_each));
+ l_test.after_each_list := ut3.ut_executables(
+ ut3.ut_executable(
+ user,
+ 'UT_EXAMPLE_TESTS',
+ 'add_1_to_g_number',
+ ut3.ut_utils.gc_after_each
+ )
+ );
--Act
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_success);
- ut.expect(ut_example_tests.g_number).to_equal(1);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(1);
end;
procedure after_each_proc_name_invalid is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -168,12 +177,13 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_error);
- ut.expect(ut_example_tests.g_number).to_equal(0);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(0);
end;
procedure after_each_procedure_name_null is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -186,7 +196,7 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_error);
- ut.expect(ut_example_tests.g_number).to_equal(0);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(0);
end;
procedure create_app_info_package is
@@ -309,6 +319,7 @@ create or replace package body test_ut_test is
procedure before_each_executed is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'add_1_to_g_number',
a_line_no => null
@@ -319,13 +330,14 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_success);
- ut.expect(ut_example_tests.g_number).to_equal(1);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(1);
end;
procedure before_each_proc_name_invalid is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -338,12 +350,13 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_error);
- ut.expect(ut_example_tests.g_number).to_be_null;
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_be_null;
end;
procedure before_each_proc_name_null is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -356,14 +369,15 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_error);
- ut.expect(ut_example_tests.g_number).to_be_null;
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_be_null;
end;
procedure ignore_savepoint_exception is
pragma autonomous_transaction;
--Arrange
l_test ut3.ut_test := ut3.ut_test(
- a_object_name => 'ut_example_tests',
+ a_object_owner => 'ut3_tester_helper',
+ a_object_name => 'ut_example_tests',
a_name => 'ut_commit_test',
a_line_no => null
);
@@ -390,10 +404,19 @@ create or replace package body test_ut_test is
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_error);
end;
+ procedure create_synonym is
+ begin
+ ut3_tester_helper.ut_example_tests.create_synonym;
+ end;
+
+ procedure drop_synonym is
+ begin
+ ut3_tester_helper.ut_example_tests.drop_synonym;
+ end;
+
procedure owner_name_null is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
- a_object_owner => null,
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -403,10 +426,9 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_success);
- ut.expect(ut_example_tests.g_number).to_equal(0);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(0);
end;
-
procedure create_invalid_package is
pragma autonomous_transaction;
begin
@@ -471,6 +493,7 @@ create or replace package body test_ut_test is
procedure procedure_name_invalid is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'invalid procedure name',
a_line_no => null
@@ -485,6 +508,7 @@ create or replace package body test_ut_test is
procedure procedure_name_null is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => null,
a_line_no => null
@@ -499,6 +523,7 @@ create or replace package body test_ut_test is
procedure before_test_executed is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'add_1_to_g_number',
a_line_no => null
@@ -509,12 +534,13 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_success);
- ut.expect(ut_example_tests.g_number).to_equal(1);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(1);
end;
procedure before_test_proc_name_invalid is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -527,12 +553,13 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_error);
- ut.expect(ut_example_tests.g_number).to_be_null;
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_be_null;
end;
procedure before_test_proc_name_null is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -545,12 +572,13 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_error);
- ut.expect(ut_example_tests.g_number).to_be_null;
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_be_null;
end;
procedure after_test_executed is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -561,12 +589,13 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_success);
- ut.expect(ut_example_tests.g_number).to_equal(1);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(1);
end;
procedure after_test_proce_name_invalid is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -579,12 +608,13 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_error);
- ut.expect(ut_example_tests.g_number).to_equal(0);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(0);
end;
procedure after_test_proc_name_null is
--Arrange
l_test ut3.ut_test := ut3.ut_test(
+ a_object_owner => 'ut3_tester_helper',
a_object_name => 'ut_example_tests',
a_name => 'set_g_number_0',
a_line_no => null
@@ -597,7 +627,7 @@ create or replace package body test_ut_test is
l_test.do_execute();
--Assert
ut.expect(l_test.result).to_equal(ut3.ut_utils.gc_error);
- ut.expect(ut_example_tests.g_number).to_equal(0);
+ ut.expect(ut3_tester_helper.ut_example_tests.g_number).to_equal(0);
end;
procedure create_output_package is
diff --git a/test/core/test_ut_test.pks b/test/ut3_tester/core/test_ut_test.pks
similarity index 94%
rename from test/core/test_ut_test.pks
rename to test/ut3_tester/core/test_ut_test.pks
index ee888ecd3..18ea6613f 100644
--- a/test/core/test_ut_test.pks
+++ b/test/ut3_tester/core/test_ut_test.pks
@@ -1,8 +1,8 @@
create or replace package test_ut_test is
--%suite(ut_test)
- --%suitepath(utplsql.core)
-
+ --%suitepath(utplsql.ut3_tester.core)
+
--%beforeeach
procedure cleanup_package_state;
@@ -49,7 +49,14 @@ create or replace package test_ut_test is
procedure ignore_savepoint_exception;
--%test(Fails when owner name invalid)
procedure owner_name_invalid;
+
+
+ procedure create_synonym;
+ procedure drop_synonym;
+
--%test(Runs test as current schema when owner name null)
+ --%beforetest(create_synonym)
+ --%aftertest(drop_synonym)
procedure owner_name_null;
procedure create_invalid_package;
diff --git a/test/core/test_ut_utils.pkb b/test/ut3_tester/core/test_ut_utils.pkb
similarity index 99%
rename from test/core/test_ut_utils.pkb
rename to test/ut3_tester/core/test_ut_utils.pkb
index 326f5a49b..31e1520d2 100644
--- a/test/core/test_ut_utils.pkb
+++ b/test/ut3_tester/core/test_ut_utils.pkb
@@ -252,7 +252,7 @@ end;]' using p_expected_list;
begin
l_lines := sys.dbms_preprocessor.get_post_processed_source(
object_type => 'PACKAGE',
- schema_name => user,
+ schema_name => sys_context('USERENV', 'CURRENT_USER'),
object_name => 'TST_CHARS'
);
diff --git a/test/core/test_ut_utils.pks b/test/ut3_tester/core/test_ut_utils.pks
similarity index 98%
rename from test/core/test_ut_utils.pks
rename to test/ut3_tester/core/test_ut_utils.pks
index 8452f84c3..d8fca3b60 100644
--- a/test/core/test_ut_utils.pks
+++ b/test/ut3_tester/core/test_ut_utils.pks
@@ -1,7 +1,7 @@
create or replace package test_ut_utils is
--%suite(ut_utils)
- --%suitepath(utplsql.core)
+ --%suitepath(utplsql.ut3_tester.core)
function get_numeric_delimiter return varchar2;
diff --git a/test/ut3_tester_helper/coverage_helper.pkb b/test/ut3_tester_helper/coverage_helper.pkb
new file mode 100644
index 000000000..feac8000d
--- /dev/null
+++ b/test/ut3_tester_helper/coverage_helper.pkb
@@ -0,0 +1,275 @@
+create or replace package body coverage_helper is
+
+ function get_mock_run_id return integer is
+ v_result integer;
+ begin
+ select nvl(min(runid),0) - 1 into v_result
+ from ut3.plsql_profiler_runs;
+ return v_result;
+ end;
+
+ function get_mock_block_run_id return integer is
+ v_result integer;
+ begin
+ select nvl(min(run_id),0) - 1 into v_result
+ from dbmspcc_runs;
+ return v_result;
+ end;
+
+ procedure mock_coverage_data(a_run_id integer,a_user in varchar2) is
+ c_unit_id constant integer := 1;
+ begin
+ insert into ut3.plsql_profiler_runs ( runid, run_owner, run_date, run_comment)
+ values(a_run_id, a_user, sysdate, 'unit testing utPLSQL');
+
+ insert into ut3.plsql_profiler_units ( runid, unit_number, unit_type, unit_owner, unit_name)
+ values(a_run_id, c_unit_id, 'PACKAGE BODY', 'UT3', 'DUMMY_COVERAGE');
+
+ insert into ut3.plsql_profiler_data ( runid, unit_number, line#, total_occur, total_time)
+ select a_run_id, c_unit_id, 4, 1, 1 from dual union all
+ select a_run_id, c_unit_id, 5, 0, 0 from dual union all
+ select a_run_id, c_unit_id, 7, 1, 1 from dual;
+ end;
+
+ procedure cleanup_dummy_coverage(a_run_id in integer) is
+ pragma autonomous_transaction;
+ begin
+ delete from ut3.plsql_profiler_data where runid = a_run_id;
+ delete from ut3.plsql_profiler_units where runid = a_run_id;
+ delete from ut3.plsql_profiler_runs where runid = a_run_id;
+ commit;
+ end;
+
+ procedure create_dummy_coverage_package is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[create or replace package UT3.DUMMY_COVERAGE is
+ procedure do_stuff;
+
+ procedure grant_myself;
+ end;]';
+ execute immediate q'[create or replace package body UT3.DUMMY_COVERAGE is
+ procedure do_stuff is
+ begin
+ if 1 = 2 then
+ dbms_output.put_line('should not get here');
+ else
+ dbms_output.put_line('should get here');
+ end if;
+ end;
+
+ procedure grant_myself is
+ begin
+ execute immediate 'grant debug,execute on UT3.DUMMY_COVERAGE to ut3$user#';
+ end;
+ end;]';
+
+ end;
+
+ procedure create_dummy_coverage_test is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[create or replace package UT3.TEST_DUMMY_COVERAGE is
+ --%suite(dummy coverage test)
+ --%suitepath(coverage_testing)
+
+ --%test
+ procedure test_do_stuff;
+
+ procedure grant_myself;
+ end;]';
+ execute immediate q'[create or replace package body UT3.TEST_DUMMY_COVERAGE is
+ procedure test_do_stuff is
+ begin
+ dummy_coverage.do_stuff;
+ end;
+
+ procedure grant_myself is
+ begin
+ execute immediate 'grant debug,execute on UT3.TEST_DUMMY_COVERAGE to ut3$user#';
+ end;
+ end;]';
+
+ end;
+
+ procedure grant_exec_on_cov is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'begin UT3.DUMMY_COVERAGE.grant_myself(); end;';
+ execute immediate 'begin UT3.TEST_DUMMY_COVERAGE.grant_myself(); end;';
+ end;
+
+ procedure drop_dummy_coverage_pkg is
+ pragma autonomous_transaction;
+ begin
+ begin execute immediate q'[drop package ut3.test_dummy_coverage]'; exception when others then null; end;
+ begin execute immediate q'[drop package ut3.dummy_coverage]'; exception when others then null; end;
+ end;
+
+
+ procedure create_dummy_coverage_test_1 is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[create or replace package UT3.DUMMY_COVERAGE_1 is
+ procedure do_stuff;
+ procedure grant_myself;
+ end;]';
+ execute immediate q'[create or replace package body UT3.DUMMY_COVERAGE_1 is
+ procedure do_stuff is
+ begin
+ if 1 = 2 then
+ dbms_output.put_line('should not get here');
+ else
+ dbms_output.put_line('should get here');
+ end if;
+ end;
+
+ procedure grant_myself is
+ begin
+ execute immediate 'grant debug,execute on UT3.DUMMY_COVERAGE_1 to ut3$user#';
+ end;
+
+ end;]';
+ execute immediate q'[create or replace package UT3.TEST_DUMMY_COVERAGE_1 is
+ --%suite(dummy coverage test 1)
+ --%suitepath(coverage_testing)
+
+ --%test
+ procedure test_do_stuff;
+
+ procedure grant_myself;
+ end;]';
+ execute immediate q'[create or replace package body UT3.TEST_DUMMY_COVERAGE_1 is
+ procedure test_do_stuff is
+ begin
+ dummy_coverage_1.do_stuff;
+ end;
+
+ procedure grant_myself is
+ begin
+ execute immediate 'grant debug,execute on UT3.TEST_DUMMY_COVERAGE_1 to ut3$user#';
+ end;
+
+ end;]';
+ end;
+
+ procedure drop_dummy_coverage_test_1 is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[drop package UT3.DUMMY_COVERAGE_1]';
+ execute immediate q'[drop package UT3.TEST_DUMMY_COVERAGE_1]';
+ end;
+
+ procedure grant_exec_on_cov_1 is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'begin UT3.DUMMY_COVERAGE_1.grant_myself(); end;';
+ execute immediate 'begin UT3.TEST_DUMMY_COVERAGE_1.grant_myself(); end;';
+ end;
+
+ --12.2 Setup
+ procedure create_dummy_12_2_cov_pck is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[create or replace package UT3.DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG is
+ procedure do_stuff(i_input in number);
+
+ procedure grant_myself;
+ end;]';
+ execute immediate q'[create or replace package body UT3.DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG is
+ procedure do_stuff(i_input in number) is
+ begin
+ if i_input = 2 then
+ dbms_output.put_line('should not get here');
+ else
+ dbms_output.put_line('should get here');
+ end if;
+ end;
+
+ procedure grant_myself is
+ begin
+ execute immediate 'grant debug,execute on UT3.DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG to ut3$user#';
+ end;
+
+ end;]';
+ end;
+
+ procedure create_dummy_12_2_cov_test is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[create or replace package UT3.TEST_BLOCK_DUMMY_COVERAGE is
+ --%suite(dummy coverage test)
+ --%suitepath(coverage_testing)
+
+ --%test
+ procedure test_do_stuff;
+
+ procedure grant_myself;
+
+ end;]';
+ execute immediate q'[create or replace package body UT3.TEST_BLOCK_DUMMY_COVERAGE is
+ procedure test_do_stuff is
+ begin
+ dummy_coverage_package_with_an_amazingly_long_name_that_you_would_not_think_of_in_real_life_project_because_its_simply_too_long.do_stuff(1);
+ ut.expect(1).to_equal(1);
+ end;
+
+ procedure grant_myself is
+ begin
+ execute immediate 'grant debug,execute on UT3.TEST_BLOCK_DUMMY_COVERAGE to ut3$user#';
+ end;
+ end;]';
+ end;
+
+ procedure mock_block_coverage_data(a_run_id integer,a_user in varchar2) is
+ c_unit_id constant integer := 1;
+ begin
+ insert into dbmspcc_runs ( run_id, run_owner, run_timestamp, run_comment)
+ values(a_run_id, a_user, sysdate, 'unit testing utPLSQL');
+
+ insert into dbmspcc_units ( run_id, object_id, type, owner, name,last_ddl_time)
+ values(a_run_id, c_unit_id, 'PACKAGE BODY', 'UT3', 'DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG',sysdate);
+
+ insert into dbmspcc_blocks ( run_id, object_id, line,block,col,covered,not_feasible)
+ select a_run_id, c_unit_id,4,1,1,1,0 from dual union all
+ select a_run_id, c_unit_id,4,2,2,0,0 from dual union all
+ select a_run_id, c_unit_id,5,3,0,1,0 from dual union all
+ select a_run_id, c_unit_id,7,4,1,1,0 from dual;
+ end;
+
+ procedure mock_profiler_coverage_data(a_run_id integer,a_user in varchar2) is
+ c_unit_id constant integer := 1;
+ begin
+ insert into ut3.plsql_profiler_runs ( runid, run_owner, run_date, run_comment)
+ values(a_run_id, a_user, sysdate, 'unit testing utPLSQL');
+
+ insert into ut3.plsql_profiler_units ( runid, unit_number, unit_type, unit_owner, unit_name)
+ values(a_run_id, c_unit_id, 'PACKAGE BODY', 'UT3', 'DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG');
+
+ insert into ut3.plsql_profiler_data ( runid, unit_number, line#, total_occur, total_time)
+ select a_run_id, c_unit_id, 4, 1, 1 from dual union all
+ select a_run_id, c_unit_id, 5, 0, 0 from dual union all
+ select a_run_id, c_unit_id, 6, 1, 0 from dual union all
+ select a_run_id, c_unit_id, 7, 1, 1 from dual;
+ end;
+
+ procedure cleanup_dummy_coverage(a_block_id in integer, a_prof_id in integer) is
+ pragma autonomous_transaction;
+ begin
+ begin execute immediate q'[drop package ut3.test_block_dummy_coverage]'; exception when others then null; end;
+ begin execute immediate q'[drop package ut3.dummy_coverage_package_with_an_amazingly_long_name_that_you_would_not_think_of_in_real_life_project_because_its_simply_too_long]'; exception when others then null; end;
+ delete from dbmspcc_blocks where run_id = a_block_id;
+ delete from dbmspcc_units where run_id = a_block_id;
+ delete from dbmspcc_runs where run_id = a_block_id;
+ cleanup_dummy_coverage(a_prof_id);
+ commit;
+ end;
+
+ procedure grant_exec_on_12_2_cov is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'begin UT3.DUMMY_COVERAGE_PACKAGE_WITH_AN_AMAZINGLY_LONG_NAME_THAT_YOU_WOULD_NOT_THINK_OF_IN_REAL_LIFE_PROJECT_BECAUSE_ITS_SIMPLY_TOO_LONG.grant_myself(); end;';
+ execute immediate 'begin UT3.TEST_BLOCK_DUMMY_COVERAGE.grant_myself(); end;';
+ end;
+end;
+/
diff --git a/test/ut3_tester_helper/coverage_helper.pks b/test/ut3_tester_helper/coverage_helper.pks
new file mode 100644
index 000000000..73ff7b448
--- /dev/null
+++ b/test/ut3_tester_helper/coverage_helper.pks
@@ -0,0 +1,30 @@
+create or replace package coverage_helper is
+
+ g_run_id integer;
+
+ type prof_runs_tab is table of ut3.plsql_profiler_runs%rowtype;
+
+ function get_mock_run_id return integer;
+ function get_mock_block_run_id return integer;
+ procedure cleanup_dummy_coverage(a_run_id in integer);
+ procedure mock_coverage_data(a_run_id integer,a_user in varchar2);
+
+ --Profiler coveage
+ procedure create_dummy_coverage_package;
+ procedure create_dummy_coverage_test;
+ procedure grant_exec_on_cov;
+ procedure mock_profiler_coverage_data(a_run_id integer,a_user in varchar2);
+ procedure drop_dummy_coverage_pkg;
+ procedure create_dummy_coverage_test_1;
+ procedure drop_dummy_coverage_test_1;
+ procedure grant_exec_on_cov_1;
+
+ --Block coverage
+ procedure create_dummy_12_2_cov_pck;
+ procedure create_dummy_12_2_cov_test;
+ procedure mock_block_coverage_data(a_run_id integer,a_user in varchar2);
+ procedure cleanup_dummy_coverage(a_block_id in integer, a_prof_id in integer);
+ procedure grant_exec_on_12_2_cov;
+
+end;
+/
diff --git a/test/core/expectations.pkb b/test/ut3_tester_helper/expectations_helper.pkb
similarity index 81%
rename from test/core/expectations.pkb
rename to test/ut3_tester_helper/expectations_helper.pkb
index cc2bae436..cc86f18a6 100644
--- a/test/core/expectations.pkb
+++ b/test/ut3_tester_helper/expectations_helper.pkb
@@ -1,4 +1,4 @@
-create or replace package body expectations is
+create or replace package body expectations_helper is
function unary_expectation_block(
a_matcher_name varchar2,
@@ -52,16 +52,6 @@ create or replace package body expectations is
end;';
return l_execute;
end;
-
- function failed_expectations_data return anydata is
- begin
- return anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations());
- end;
-
- procedure cleanup_expectations is
- begin
- ut3.ut_expectation_processor.clear_expectations();
- end;
-
-end expectations;
+
+end;
/
diff --git a/test/core/expectations.pks b/test/ut3_tester_helper/expectations_helper.pks
similarity index 78%
rename from test/core/expectations.pks
rename to test/ut3_tester_helper/expectations_helper.pks
index 9abc29400..9c1d54333 100644
--- a/test/core/expectations.pks
+++ b/test/ut3_tester_helper/expectations_helper.pks
@@ -1,4 +1,4 @@
-create or replace package expectations is
+create or replace package expectations_helper is
function unary_expectation_block(
a_matcher_name varchar2,
@@ -20,10 +20,6 @@ create or replace package expectations is
a_expected_data_type varchar2,
a_expected_data varchar2
) return varchar2;
-
- function failed_expectations_data return anydata;
-
- procedure cleanup_expectations;
-
-end expectations;
+
+end;
/
diff --git a/test/ut3_tester_helper/main_helper.pkb b/test/ut3_tester_helper/main_helper.pkb
new file mode 100644
index 000000000..ffccc3185
--- /dev/null
+++ b/test/ut3_tester_helper/main_helper.pkb
@@ -0,0 +1,158 @@
+create or replace package body main_helper is
+
+ function get_dbms_output_as_clob return clob is
+ l_status number;
+ l_line varchar2(32767);
+ l_result clob;
+ begin
+
+ dbms_output.get_line(line => l_line, status => l_status);
+ if l_status != 1 then
+ dbms_lob.createtemporary(l_result, true, dur => dbms_lob.session);
+ end if;
+ while l_status != 1 loop
+ if l_line is not null then
+ ut3.ut_utils.append_to_clob(l_result, l_line||chr(10));
+ end if;
+ dbms_output.get_line(line => l_line, status => l_status);
+ end loop;
+ return l_result;
+ end;
+
+ procedure execute_autonomous(a_sql varchar2) is
+ pragma autonomous_transaction;
+ begin
+ if a_sql is not null then
+ execute immediate a_sql;
+ end if;
+ commit;
+ end;
+
+ function run_test(a_path varchar2) return clob is
+ l_lines ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_lines from table(ut3.ut.run(a_path));
+ return ut3.ut_utils.table_to_clob(l_lines);
+ end;
+
+ function get_value(a_variable varchar2) return integer is
+ l_glob_val integer;
+ begin
+ execute immediate 'begin :l_glob_val := '||a_variable||'; end;' using out l_glob_val;
+ return l_glob_val;
+ end;
+
+ function get_failed_expectations return ut3.ut_varchar2_list is
+ l_expectations_result ut3.ut_expectation_results := ut3.ut_expectation_processor.get_failed_expectations();
+ l_result ut3.ut_varchar2_list := ut3.ut_varchar2_list();
+ begin
+ for i in 1..l_expectations_result.count loop
+ l_result := l_result multiset union l_expectations_result(i).get_result_lines();
+ end loop;
+ return l_result;
+ end;
+
+ function get_failed_expectations(a_pos in number) return varchar2 is
+ l_result varchar2(32767) := ut3.ut_expectation_processor.get_failed_expectations()(a_pos).message;
+ begin
+ return l_result;
+ end;
+
+ function failed_expectations_data return anydata is
+ begin
+ return anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations());
+ end;
+
+ function get_failed_expectations_num return number is
+ l_num_failed number;
+ l_results ut3.ut_expectation_results := ut3.ut_expectation_processor.get_failed_expectations();
+ begin
+ l_num_failed := l_results.count;
+ return l_num_failed;
+ end;
+
+ procedure clear_expectations is
+ begin
+ ut3.ut_expectation_processor.clear_expectations();
+ end;
+
+ function table_to_clob(a_results in ut3.ut_varchar2_list) return clob is
+ begin
+ return ut3.ut_utils.table_to_clob(a_results);
+ end;
+
+ function get_warnings return ut3.ut_varchar2_rows is
+ begin
+ return ut3.ut_expectation_processor.get_warnings();
+ end;
+
+ procedure reset_nulls_equal is
+ begin
+ ut3.ut_expectation_processor.nulls_Are_equal(ut3.ut_expectation_processor.gc_default_nulls_are_equal);
+ end;
+
+ procedure nulls_are_equal(a_nulls_equal boolean := true) is
+ begin
+ ut3.ut_expectation_processor.nulls_Are_equal(a_nulls_equal);
+ end;
+
+ procedure cleanup_annotation_cache is
+ pragma autonomous_transaction;
+ begin
+ delete from ut3.ut_annotation_cache_info
+ where object_owner = user and object_type = 'PACKAGE' and object_name in ('DUMMY_PACKAGE','DUMMY_TEST_PACKAGE');
+ commit;
+ end;
+
+ procedure create_parse_proc_as_ut3$user# is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[
+ create or replace procedure ut3$user#.parse_annotations is
+ begin
+ ut3.ut_annotation_manager.rebuild_annotation_cache('UT3_TESTER','PACKAGE');
+ end;]';
+ end;
+
+ procedure drop_parse_proc_as_ut3$user# is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop procedure ut3$user#.parse_annotations';
+ end;
+
+ procedure parse_dummy_test_as_ut3$user# is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'begin ut3$user#.parse_annotations; end;';
+ end;
+
+ function get_job_count(a_job_name varchar2) return number is
+ l_cnt number;
+ begin
+ select count(1) into l_cnt
+ from dba_scheduler_running_jobs srj
+ where srj.job_name = a_job_name;
+ end;
+
+ procedure append_to_list(a_list in out nocopy ut3.ut_varchar2_list, a_item varchar2) is
+ begin
+ ut3.ut_utils.append_to_list(a_list,a_item);
+ end;
+
+ procedure append_to_list(a_list in out nocopy ut3.ut_varchar2_rows, a_item varchar2) is
+ begin
+ ut3.ut_utils.append_to_list(a_list,a_item);
+ end;
+
+ procedure append_to_list(a_list in out nocopy ut3.ut_varchar2_rows, a_item clob) is
+ begin
+ ut3.ut_utils.append_to_list(a_list,a_item);
+ end;
+
+ procedure append_to_list(a_list in out nocopy ut3.ut_varchar2_rows, a_items ut3.ut_varchar2_rows) is
+ begin
+ ut3.ut_utils.append_to_list(a_list,a_items);
+ end;
+
+end;
+/
diff --git a/test/ut3_tester_helper/main_helper.pks b/test/ut3_tester_helper/main_helper.pks
new file mode 100644
index 000000000..7d349151c
--- /dev/null
+++ b/test/ut3_tester_helper/main_helper.pks
@@ -0,0 +1,49 @@
+create or replace package main_helper is
+
+ gc_success number := ut3.ut_utils.gc_success;
+ gc_failure number := ut3.ut_utils.gc_failure;
+
+ procedure execute_autonomous(a_sql varchar2);
+
+ function run_test(a_path varchar2) return clob;
+
+ function get_value(a_variable varchar2) return integer;
+
+ function get_dbms_output_as_clob return clob;
+
+ function get_failed_expectations return ut3.ut_varchar2_list;
+
+ function get_failed_expectations(a_pos in number) return varchar2;
+
+ function get_failed_expectations_num return number;
+
+ procedure clear_expectations;
+
+ function table_to_clob(a_results in ut3.ut_varchar2_list) return clob;
+
+ function get_warnings return ut3.ut_varchar2_rows;
+
+ procedure reset_nulls_equal;
+
+ procedure nulls_are_equal(a_nulls_equal boolean := true);
+
+ procedure cleanup_annotation_cache;
+
+ procedure create_parse_proc_as_ut3$user#;
+
+ procedure drop_parse_proc_as_ut3$user#;
+
+ procedure parse_dummy_test_as_ut3$user#;
+
+ function get_job_count(a_job_name varchar2) return number;
+
+ procedure append_to_list(a_list in out nocopy ut3.ut_varchar2_list, a_item varchar2);
+
+ procedure append_to_list(a_list in out nocopy ut3.ut_varchar2_rows, a_item varchar2);
+
+ procedure append_to_list(a_list in out nocopy ut3.ut_varchar2_rows, a_item clob);
+
+ procedure append_to_list(a_list in out nocopy ut3.ut_varchar2_rows, a_items ut3.ut_varchar2_rows);
+
+end;
+/
diff --git a/test/helpers/other_dummy_object.tps b/test/ut3_tester_helper/other_dummy_object.tps
similarity index 99%
rename from test/helpers/other_dummy_object.tps
rename to test/ut3_tester_helper/other_dummy_object.tps
index c1019c415..7453d5dcf 100644
--- a/test/helpers/other_dummy_object.tps
+++ b/test/ut3_tester_helper/other_dummy_object.tps
@@ -13,4 +13,4 @@ create or replace type other_dummy_object as object (
"name" varchar2(30),
"Value" varchar2(30)
)
-/
\ No newline at end of file
+/
diff --git a/test/ut3_tester_helper/run_helper.pkb b/test/ut3_tester_helper/run_helper.pkb
new file mode 100644
index 000000000..0fad905fd
--- /dev/null
+++ b/test/ut3_tester_helper/run_helper.pkb
@@ -0,0 +1,527 @@
+create or replace package body run_helper is
+
+ procedure setup_cache_objects is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[create or replace package ut3$user#.dummy_test_package as
+ --%suite(dummy_test_suite)
+ --%rollback(manual)
+
+ --%test(dummy_test)
+ --%beforetest(some_procedure)
+ procedure some_dummy_test_procedure;
+ end;]';
+ execute immediate q'[create or replace procedure ut3$user#.dummy_test_procedure as
+ --%some_annotation(some_text)
+ --%rollback(manual)
+ begin
+ null;
+ end;]';
+ execute immediate q'[create or replace procedure ut3_tester_helper.dummy_test_procedure as
+ --%some_annotation(some_text)
+ --%rollback(manual)
+ begin
+ null;
+ end;]';
+
+ execute immediate q'[grant execute on ut3_tester_helper.dummy_test_procedure to public]';
+ end;
+
+ procedure create_trans_control is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[create or replace package ut_transaction_control as
+ function count_rows(a_val varchar2) return number;
+ procedure setup;
+ procedure test;
+ procedure test_failure;
+ end;]';
+
+ execute immediate
+ q'[create or replace package body ut_transaction_control
+ as
+
+ function count_rows(a_val varchar2) return number is
+ l_cnt number;
+ begin
+ select count(*) into l_cnt from ut$test_table t where t.val = a_val;
+ return l_cnt;
+ end;
+ procedure setup is begin
+ insert into ut$test_table values ('s');
+ end;
+ procedure test is
+ begin
+ insert into ut$test_table values ('t');
+ end;
+ procedure test_failure is
+ begin
+ insert into ut$test_table values ('t');
+ --raise no_data_found;
+ raise_application_error(-20001,'Error');
+ end;
+ end;]';
+
+ execute immediate 'grant execute on ut_transaction_control to public';
+ end;
+
+ procedure drop_trans_control is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop package ut_transaction_control';
+ end;
+
+ procedure setup_cache is
+ pragma autonomous_transaction;
+ begin
+ setup_cache_objects();
+ ut3.ut_annotation_manager.rebuild_annotation_cache('UT3$USER#','PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache('UT3$USER#','PROCEDURE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache('UT3_TESTER_HELPER','PROCEDURE');
+ end;
+
+ procedure cleanup_cache is
+ pragma autonomous_transaction;
+ begin
+ delete from ut3.ut_annotation_cache_info
+ where object_type = 'PROCEDURE' and object_owner in ('UT3$USER#','UT3_TESTER_HELPER')
+ or object_type = 'PACKAGE' and object_owner = user and object_name = 'DUMMY_TEST_PACKAGE';
+ execute immediate q'[drop package ut3$user#.dummy_test_package]';
+ execute immediate q'[drop procedure ut3$user#.dummy_test_procedure]';
+ execute immediate q'[drop procedure ut3_tester_helper.dummy_test_procedure]';
+ end;
+
+ procedure create_db_link is
+ l_service_name varchar2(100);
+ pragma autonomous_transaction;
+ begin
+ select global_name into l_service_name from global_name;
+ execute immediate
+ 'create public database link db_loopback connect to ut3_tester_helper identified by ut3
+ using ''(DESCRIPTION=
+ (ADDRESS=(PROTOCOL=TCP)
+ (HOST='||sys_context('userenv','SERVER_HOST')||')
+ (PORT=1521)
+ )
+ (CONNECT_DATA=(SERVICE_NAME='||l_service_name||')))''';
+ end;
+
+ procedure drop_db_link is
+ begin
+ execute immediate 'drop public database link db_loopback';
+ exception
+ when others then
+ null;
+ end;
+
+ procedure db_link_setup is
+ l_service_name varchar2(100);
+ begin
+ create_db_link;
+ execute immediate q'[
+ create or replace package ut3$user#.test_db_link is
+ --%suite
+
+ --%test
+ procedure runs_with_db_link;
+ end;]';
+
+ execute immediate q'[
+ create or replace package body ut3$user#.test_db_link is
+ procedure runs_with_db_link is
+ a_value integer;
+ begin
+ select 1 into a_value
+ from dual@db_loopback;
+ ut3.ut.expect(a_value).to_be_null();
+ end;
+ end;]';
+
+ end;
+
+ procedure db_link_cleanup is
+ begin
+ drop_db_link;
+ begin execute immediate 'drop package ut3$user#.test_db_link'; exception when others then null; end;
+ end;
+
+ procedure create_suite_with_link is
+ pragma autonomous_transaction;
+ begin
+ create_db_link;
+ execute immediate 'create table tst(id number(18,0))';
+ execute immediate q'[
+ create or replace package test_distributed_savepoint is
+ --%suite
+ --%suitepath(alltests)
+
+ --%beforeall
+ procedure setup;
+
+ --%test
+ procedure test;
+ end;]';
+
+ execute immediate q'[
+ create or replace package body test_distributed_savepoint is
+
+ g_expected constant integer := 1;
+
+ procedure setup is
+ begin
+ insert into tst@db_loopback values(g_expected);
+ end;
+
+ procedure test is
+ l_actual integer := 0;
+ begin
+ select id into l_actual from tst@db_loopback;
+
+ ut.expect(l_actual).to_equal(g_expected);
+ end;
+
+ end;]';
+ execute immediate 'grant execute on test_distributed_savepoint to public';
+ end;
+
+ procedure drop_suite_with_link is
+ pragma autonomous_transaction;
+ begin
+ drop_db_link;
+ execute immediate 'drop table tst';
+ execute immediate 'drop package test_distributed_savepoint';
+ end;
+
+ procedure create_ut3$user#_tests is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[create or replace package test_package_1 is
+ --%suite
+ --%suitepath(tests)
+ --%rollback(manual)
+
+ --%test(Test1 from test package 1)
+ procedure test1;
+
+ --%test(Test2 from test package 1)
+ procedure test2;
+
+ end test_package_1;
+ ]';
+ execute immediate q'[create or replace package body test_package_1 is
+ procedure test1 is
+ begin
+ dbms_output.put_line('test_package_1.test1 executed');
+ raise_application_error(-20111,'test');
+ end;
+ procedure test2 is
+ begin
+ dbms_output.put_line('test_package_1.test2 executed');
+ end;
+ end test_package_1;
+ ]';
+
+ execute immediate q'[create or replace package test_package_2 is
+ --%suite
+ --%suitepath(tests.test_package_1)
+
+ --%test
+ procedure test1;
+
+ --%test
+ procedure test2;
+
+ end test_package_2;
+ ]';
+ execute immediate q'[create or replace package body test_package_2 is
+ procedure test1 is
+ begin
+ dbms_output.put_line('test_package_2.test1 executed');
+ end;
+ procedure test2 is
+ begin
+ dbms_output.put_line('test_package_2.test2 executed');
+ end;
+ end test_package_2;
+ ]';
+
+ execute immediate q'[create or replace package test_package_3 is
+ --%suite
+ --%suitepath(tests2)
+
+ --%test
+ procedure test1;
+
+ --%test
+ procedure test2;
+
+ end test_package_3;
+ ]';
+ execute immediate q'[create or replace package body test_package_3 is
+ procedure test1 is
+ begin
+ dbms_output.put_line('test_package_3.test1 executed');
+ end;
+ procedure test2 is
+ begin
+ dbms_output.put_line('test_package_3.test2 executed');
+ end;
+ end test_package_3;
+ ]';
+ execute immediate q'[grant execute on test_package_1 to public]';
+ execute immediate q'[grant execute on test_package_2 to public]';
+ execute immediate q'[grant execute on test_package_3 to public]';
+ end;
+
+ procedure drop_ut3$user#_tests is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[drop package test_package_1]';
+ execute immediate q'[drop package test_package_2]';
+ execute immediate q'[drop package test_package_3]';
+ end;
+
+ procedure create_test_suite is
+ pragma autonomous_transaction;
+ begin
+ ut3_tester_helper.run_helper.create_db_link;
+ execute immediate q'[
+ create or replace package stateful_package as
+ function get_state return varchar2;
+ end;
+ ]';
+ execute immediate q'[
+ create or replace package body stateful_package as
+ g_state varchar2(1) := 'A';
+ function get_state return varchar2 is begin return g_state; end;
+ end;
+ ]';
+ execute immediate q'[
+ create or replace package test_stateful as
+ --%suite
+ --%suitepath(test_state)
+
+ --%test
+ --%beforetest(acquire_state_via_db_link,rebuild_stateful_package)
+ procedure failing_stateful_test;
+
+ procedure rebuild_stateful_package;
+ procedure acquire_state_via_db_link;
+
+ end;
+ ]';
+ execute immediate q'{
+ create or replace package body test_stateful as
+
+ procedure failing_stateful_test is
+ begin
+ ut3.ut.expect(stateful_package.get_state@db_loopback).to_equal('abc');
+ end;
+
+ procedure rebuild_stateful_package is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[
+ create or replace package body stateful_package as
+ g_state varchar2(3) := 'abc';
+ function get_state return varchar2 is begin return g_state; end;
+ end;
+ ]';
+ end;
+
+ procedure acquire_state_via_db_link is
+ begin
+ dbms_output.put_line('stateful_package.get_state@db_loopback='||stateful_package.get_state@db_loopback);
+ end;
+ end;
+ }';
+ execute immediate 'grant execute on test_stateful to public';
+ end;
+
+ procedure drop_test_suite is
+ pragma autonomous_transaction;
+ begin
+ drop_db_link;
+ execute immediate 'drop package stateful_package';
+ execute immediate 'drop package test_stateful';
+ end;
+
+ procedure package_no_body is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'create or replace package ut_without_body as
+ procedure test1;
+ end;';
+ end;
+
+ procedure drop_package_no_body is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop package ut_without_body';
+ end;
+
+ procedure run(a_reporter ut3.ut_reporter_base := null) is
+ begin
+ ut3.ut.run(a_reporter);
+ end;
+
+ procedure run(a_path varchar2, a_reporter ut3.ut_reporter_base := null) is
+ begin
+ ut3.ut.run(a_path, a_reporter);
+ end;
+
+ procedure run(a_paths ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base := null) is
+ begin
+ ut3.ut.run(a_paths, a_reporter);
+ end;
+
+ procedure run(a_paths ut3.ut_varchar2_list, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) is
+ begin
+ ut3.ut.run(
+ a_paths,
+ a_reporter,
+ a_source_files => ut3.ut_varchar2_list(),
+ a_test_files => a_test_files
+ );
+ end;
+
+ function run(a_reporter ut3.ut_reporter_base := null) return ut3.ut_varchar2_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_results from table (ut3.ut.run(a_reporter));
+ return l_results;
+ end;
+
+ function run(a_paths ut3.ut_varchar2_list, a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base) return ut3.ut_varchar2_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_results from table (
+ ut3.ut.run(
+ a_paths,
+ a_reporter, a_source_files => ut3.ut_varchar2_list(),
+ a_test_files => a_test_files
+ ));
+ return l_results;
+ end;
+
+ function run(a_path varchar2, a_reporter ut3.ut_reporter_base := null)
+ return ut3.ut_varchar2_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_results from table (ut3.ut.run(a_path, a_reporter));
+ return l_results;
+ end;
+
+ function run(a_paths ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base := null)
+ return ut3.ut_varchar2_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_results from table (ut3.ut.run(a_paths, a_reporter));
+ return l_results;
+ end;
+
+ function run(a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base)
+ return ut3.ut_varchar2_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_results from table (
+ ut3.ut.run(
+ a_reporter, a_source_files => ut3.ut_varchar2_list(),
+ a_test_files => a_test_files
+ ));
+ return l_results;
+ end;
+
+ procedure test_rollback_type(a_procedure_name varchar2, a_rollback_type integer, a_expectation ut3_latest_release.ut_matcher) is
+ l_suite ut3.ut_suite;
+ begin
+ --Arrange
+ execute immediate 'delete from ut$test_table';
+ l_suite := ut3.ut_suite(a_object_owner => USER, a_object_name => 'UT_TRANSACTION_CONTROL', a_line_no=> 1);
+ l_suite.path := 'ut_transaction_control';
+ l_suite.before_all_list := ut3.ut_executables(ut3.ut_executable(USER, 'UT_TRANSACTION_CONTROL', 'setup', ut3.ut_utils.gc_before_all));
+ l_suite.items.extend;
+ l_suite.items(l_suite.items.last) := ut3.ut_test(a_object_owner => USER, a_object_name => 'ut_transaction_control',a_name => a_procedure_name, a_line_no=> 1);
+ l_suite.set_rollback_type(a_rollback_type);
+
+ --Act
+ l_suite.do_execute();
+
+ --Assert
+ ut.expect(main_helper.get_value(q'[ut_transaction_control.count_rows('t')]')).to_( a_expectation );
+ ut.expect(main_helper.get_value(q'[ut_transaction_control.count_rows('s')]')).to_( a_expectation );
+ end;
+
+ procedure create_dummy_long_test_package is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[create or replace package ut3.dummy_long_test_package as
+
+ --%suitepath(verylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtext)
+ --%suite(dummy_test_suite)
+
+ --%test(dummy_test)
+ procedure some_dummy_test_procedure;
+ end;]';
+
+ execute immediate q'[create or replace package ut3.dummy_long_test_package1 as
+
+ --%suitepath(verylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtextverylongtext)
+ --%suite(dummy_test_suite1)
+
+ --%test(dummy_test)
+ procedure some_dummy_test_procedure;
+ end;]';
+ end;
+
+ procedure drop_dummy_long_test_package is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[drop package ut3.dummy_long_test_package]';
+ execute immediate q'[drop package ut3.dummy_long_test_package1]';
+ end;
+
+ procedure create_ut3_suite is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[
+ create or replace package ut3.some_test_package
+ as
+ --%suite
+
+ --%test
+ procedure some_test;
+
+ end;]';
+ end;
+
+ procedure drop_ut3_suite is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[drop package ut3.some_test_package]';
+ end;
+
+ function get_object_name(a_owner in varchar2) return ut3.ut_object_names is
+ begin
+ return ut3.ut_suite_manager.get_schema_ut_packages(ut3.ut_varchar2_rows(a_owner));
+ end;
+
+ function ut_output_buffer_tmp return t_out_buff_tab pipelined is
+ l_buffer_tab t_out_buff_tab;
+ cursor get_buffer is
+ select * from ut3.ut_output_buffer_tmp;
+ begin
+ open get_buffer;
+ fetch get_buffer bulk collect into l_buffer_tab;
+ for idx in 1..l_buffer_tab.count loop
+ pipe row(l_buffer_tab(idx));
+ end loop;
+ end;
+
+ procedure delete_buffer is
+ begin
+ delete from ut3.ut_output_buffer_tmp;
+ end;
+
+end;
+/
diff --git a/test/ut3_tester_helper/run_helper.pks b/test/ut3_tester_helper/run_helper.pks
new file mode 100644
index 000000000..7d285d7af
--- /dev/null
+++ b/test/ut3_tester_helper/run_helper.pks
@@ -0,0 +1,57 @@
+create or replace package run_helper is
+
+ g_run_id integer;
+
+ type t_out_buff_tab is table of ut3.ut_output_buffer_tmp%rowtype;
+ type prof_runs_tab is table of ut3.plsql_profiler_runs%rowtype;
+
+ procedure setup_cache_objects;
+ procedure setup_cache;
+ procedure cleanup_cache;
+ procedure create_db_link;
+ procedure drop_db_link;
+ procedure db_link_setup;
+ procedure db_link_cleanup;
+
+ procedure create_suite_with_link;
+ procedure drop_suite_with_link;
+
+ procedure create_ut3$user#_tests;
+ procedure drop_ut3$user#_tests;
+
+ procedure create_test_suite;
+ procedure drop_test_suite;
+ procedure package_no_body;
+ procedure drop_package_no_body;
+
+ procedure create_trans_control;
+ procedure drop_trans_control;
+
+ procedure run(a_reporter ut3.ut_reporter_base := null);
+ procedure run(a_path varchar2, a_reporter ut3.ut_reporter_base := null);
+ procedure run(a_paths ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base := null);
+ procedure run(a_paths ut3.ut_varchar2_list, a_test_files ut3.ut_varchar2_list,
+ a_reporter ut3.ut_reporter_base);
+ function run(a_reporter ut3.ut_reporter_base := null) return ut3.ut_varchar2_list;
+ function run(a_paths ut3.ut_varchar2_list, a_test_files ut3.ut_varchar2_list,
+ a_reporter ut3.ut_reporter_base) return ut3.ut_varchar2_list;
+ function run(a_path varchar2, a_reporter ut3.ut_reporter_base := null)
+ return ut3.ut_varchar2_list;
+ function run(a_paths ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base := null)
+ return ut3.ut_varchar2_list;
+ function run(a_test_files ut3.ut_varchar2_list, a_reporter ut3.ut_reporter_base)
+ return ut3.ut_varchar2_list;
+
+ procedure test_rollback_type(a_procedure_name varchar2, a_rollback_type integer, a_expectation ut3_latest_release.ut_matcher);
+
+ procedure create_dummy_long_test_package;
+ procedure drop_dummy_long_test_package;
+ procedure create_ut3_suite;
+ procedure drop_ut3_suite;
+ function get_object_name(a_owner in varchar2) return ut3.ut_object_names;
+
+ function ut_output_buffer_tmp return t_out_buff_tab pipelined;
+ procedure delete_buffer;
+
+end;
+/
diff --git a/test/ut3_tester_helper/test_dummy_number.tps b/test/ut3_tester_helper/test_dummy_number.tps
new file mode 100644
index 000000000..b6283c93b
--- /dev/null
+++ b/test/ut3_tester_helper/test_dummy_number.tps
@@ -0,0 +1,14 @@
+declare
+ l_exists integer;
+begin
+ select count(1) into l_exists from user_types where type_name = 'TEST_DUMMY_NUMBER';
+ if l_exists > 0 then
+ execute immediate 'drop type test_dummy_number force';
+ end if;
+end;
+/
+
+create or replace type test_dummy_number as object (
+ id number
+)
+/
diff --git a/test/helpers/test_dummy_object.tps b/test/ut3_tester_helper/test_dummy_object.tps
similarity index 87%
rename from test/helpers/test_dummy_object.tps
rename to test/ut3_tester_helper/test_dummy_object.tps
index 79eed3e6e..7f095fc0a 100644
--- a/test/helpers/test_dummy_object.tps
+++ b/test/ut3_tester_helper/test_dummy_object.tps
@@ -14,6 +14,3 @@ create or replace type test_dummy_object as object (
"Value" varchar2(30)
)
/
-
-
-grant execute on test_dummy_object to ut3$user#;
\ No newline at end of file
diff --git a/test/helpers/test_dummy_object_list.tps b/test/ut3_tester_helper/test_dummy_object_list.tps
similarity index 59%
rename from test/helpers/test_dummy_object_list.tps
rename to test/ut3_tester_helper/test_dummy_object_list.tps
index e1dde66ed..67bba558e 100644
--- a/test/helpers/test_dummy_object_list.tps
+++ b/test/ut3_tester_helper/test_dummy_object_list.tps
@@ -1,4 +1,2 @@
create or replace type test_dummy_object_list as table of test_dummy_object
/
-
-grant execute on test_dummy_object_list to ut3$user#;
\ No newline at end of file
diff --git a/test/helpers/test_event_list.tps b/test/ut3_tester_helper/test_event_list.tps
similarity index 100%
rename from test/helpers/test_event_list.tps
rename to test/ut3_tester_helper/test_event_list.tps
diff --git a/test/helpers/test_event_object.tps b/test/ut3_tester_helper/test_event_object.tps
similarity index 100%
rename from test/helpers/test_event_object.tps
rename to test/ut3_tester_helper/test_event_object.tps
diff --git a/test/helpers/test_tab_varchar2.tps b/test/ut3_tester_helper/test_tab_varchar2.tps
similarity index 100%
rename from test/helpers/test_tab_varchar2.tps
rename to test/ut3_tester_helper/test_tab_varchar2.tps
diff --git a/test/helpers/test_tab_varray.tps b/test/ut3_tester_helper/test_tab_varray.tps
similarity index 100%
rename from test/helpers/test_tab_varray.tps
rename to test/ut3_tester_helper/test_tab_varray.tps
diff --git a/test/ut3_tester_helper/ut_example_tests.pkb b/test/ut3_tester_helper/ut_example_tests.pkb
new file mode 100644
index 000000000..7e795d184
--- /dev/null
+++ b/test/ut3_tester_helper/ut_example_tests.pkb
@@ -0,0 +1,36 @@
+create or replace package body ut_example_tests
+as
+ procedure create_synonym is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'create or replace synonym ut3_tester.ut_example_tests for ut3_tester_helper.ut_example_tests';
+ end;
+
+ procedure drop_synonym is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop synonym ut3_tester.ut_example_tests';
+ end;
+
+ procedure set_g_number_0 as
+ begin
+ g_number := 0;
+ end;
+
+ procedure add_1_to_g_number as
+ begin
+ g_number := g_number + 1;
+ end;
+
+ procedure failing_procedure as
+ begin
+ g_number := 1 / 0;
+ end;
+
+ procedure ut_commit_test is
+ begin
+ commit;
+ end;
+
+end;
+/
diff --git a/test/helpers/ut_example_tests.pks b/test/ut3_tester_helper/ut_example_tests.pks
similarity index 57%
rename from test/helpers/ut_example_tests.pks
rename to test/ut3_tester_helper/ut_example_tests.pks
index 428d55743..a62c02332 100644
--- a/test/helpers/ut_example_tests.pks
+++ b/test/ut3_tester_helper/ut_example_tests.pks
@@ -1,5 +1,9 @@
-create or replace package ut_example_tests as
+create or replace package ut_example_tests is
g_number number;
+
+ procedure create_synonym;
+ procedure drop_synonym;
+
procedure set_g_number_0;
procedure add_1_to_g_number;
procedure failing_procedure;
diff --git a/test/helpers/ut_test_table.sql b/test/ut3_tester_helper/ut_test_table.sql
similarity index 80%
rename from test/helpers/ut_test_table.sql
rename to test/ut3_tester_helper/ut_test_table.sql
index bccd07bc4..c4832a10f 100644
--- a/test/helpers/ut_test_table.sql
+++ b/test/ut3_tester_helper/ut_test_table.sql
@@ -9,3 +9,4 @@ end;
/
create table ut$test_table (val varchar2(1));
+grant select,insert,update,delete on ut$test_table to public;
diff --git a/test/ut3_user/api/test_ut_run.pkb b/test/ut3_user/api/test_ut_run.pkb
new file mode 100644
index 000000000..43a2238ae
--- /dev/null
+++ b/test/ut3_user/api/test_ut_run.pkb
@@ -0,0 +1,791 @@
+create or replace package body test_ut_run is
+
+ procedure clear_expectations is
+ begin
+ ut3_tester_helper.main_helper.clear_expectations();
+ end;
+
+ procedure create_ut3$user#_tests is
+ begin
+ ut3_tester_helper.run_helper.create_ut3$user#_tests();
+ end;
+
+ procedure drop_ut3$user#_tests is
+ begin
+ ut3_tester_helper.run_helper.drop_ut3$user#_tests();
+ end;
+
+ procedure ut_version is
+ begin
+ ut.expect(ut3.ut.version()).to_match('^v\d+\.\d+\.\d+\.\d+(-\w+)?$');
+ end;
+
+ procedure ut_fail is
+ begin
+ --Act
+ ut3.ut.fail('Testing failure message');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations(1))
+ .to_be_like('%Testing failure message%');
+ end;
+
+ procedure run_proc_no_params is
+ l_results clob;
+ begin
+ ut3_tester_helper.run_helper.run();
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_proc_specific_reporter is
+ l_results clob;
+ begin
+ --Act
+ ut3.ut.run('ut3_tester_helper',a_reporter => ut3.ut_documentation_reporter() );
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_proc_cov_file_list is
+ l_results clob;
+ begin
+ --Act
+ ut3.ut.run(
+ 'ut3_tester_helper',
+ a_reporter => ut3.ut_sonar_test_reporter(),
+ a_source_files => ut3.ut_varchar2_list(),
+ a_test_files => ut3.ut_varchar2_list('tests/ut3_tester_helper.test_package_1.pkb',
+ 'tests/ut3_tester_helper.test_package_2.pkb',
+ 'tests/ut3_tester_helper.test_package_3.pkb')
+ );
+
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%tests/ut3_tester_helper.test_package_2.pkb'||
+ '%tests/ut3_tester_helper.test_package_1.pkb'||
+ '%tests/ut3_tester_helper.test_package_3.pkb%' );
+ end;
+
+ procedure run_proc_pkg_name is
+ l_results clob;
+ begin
+ ut3.ut.run('ut3_tester_helper.test_package_1');
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%test_package_1%' );
+ ut.expect( l_results ).not_to_be_like( '%test_package_2%' );
+ ut.expect( l_results ).not_to_be_like( '%test_package_3%' );
+ end;
+
+ procedure run_proc_pkg_name_file_list is
+ l_results clob;
+ begin
+ ut3.ut.run(
+ 'ut3_tester_helper.test_package_3',
+ ut3.ut_sonar_test_reporter(), a_source_files => ut3.ut_varchar2_list(),
+ a_test_files => ut3.ut_varchar2_list('tests/ut3_tester_helper.test_package_1.pkb',
+ 'tests/ut3_tester_helper.test_package_2.pkb',
+ 'tests/ut3_tester_helper.test_package_3.pkb')
+ );
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%tests/ut3_tester_helper.test_package_3.pkb%' );
+ ut.expect( l_results ).not_to_be_like( '%tests/ut3_tester_helper.test_package_1.pkb%' );
+ ut.expect( l_results ).not_to_be_like( '%tests/ut3_tester_helper.test_package_2.pkb%' );
+ end;
+
+ procedure run_proc_path_list is
+ l_results clob;
+ begin
+ ut3_tester_helper.run_helper.run(ut3.ut_varchar2_list(':tests.test_package_1',':tests'));
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%test_package_1%' );
+ ut.expect( l_results ).to_be_like( '%test_package_2%' );
+ ut.expect( l_results ).not_to_be_like( '%test_package_3%' );
+ end;
+
+ procedure run_proc_path_list_file_list is
+ l_results clob;
+ begin
+ ut3_tester_helper.run_helper.run(
+ a_paths => ut3.ut_varchar2_list(':tests.test_package_1',':tests'),
+ a_reporter => ut3.ut_sonar_test_reporter(),
+ a_test_files => ut3.ut_varchar2_list('tests/ut3_tester_helper.test_package_1.pkb',
+ 'tests/ut3_tester_helper.test_package_2.pkb',
+ 'tests/ut3_tester_helper.test_package_3.pkb')
+ );
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%tests/ut3_tester_helper.test_package_1.pkb%' );
+ ut.expect( l_results ).to_be_like( '%tests/ut3_tester_helper.test_package_2.pkb%' );
+ ut.expect( l_results ).not_to_be_like( '%tests/ut3_tester_helper.test_package_3.pkb%' );
+ end;
+
+ procedure run_proc_null_reporter is
+ l_results clob;
+ begin
+ --Act
+ ut3.ut.run('ut3_tester_helper', cast(null as ut3.ut_reporter_base));
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%tests%test_package_1%test_package_2%tests2%test_package_3%' );
+ end;
+
+ procedure run_proc_null_path is
+ l_results clob;
+ begin
+ --Act
+ ut3_tester_helper.run_helper.run(cast(null as varchar2));
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_proc_null_path_list is
+ l_results clob;
+ l_paths ut3.ut_varchar2_list;
+ begin
+ --Act
+ ut3_tester_helper.run_helper.run(l_paths);
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_proc_empty_path_list is
+ l_results clob;
+ begin
+ --Act
+ ut3_tester_helper.run_helper.run(ut3.ut_varchar2_list());
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ --Assert
+ ut.expect( l_results ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure create_suite_with_commit is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'create or replace package test_commit_warning is
+ --%suite
+ --%suitepath(ut.run.transaction)
+
+ --%test
+ procedure does_commit;
+ end;';
+ execute immediate 'create or replace package body test_commit_warning is
+ procedure does_commit is
+ begin
+ ut3.ut.expect(1).to_equal(1);
+ commit;
+ end;
+ end;';
+ end;
+
+ procedure drop_suite_with_commit is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop package test_commit_warning';
+ end;
+
+ procedure run_proc_warn_on_commit is
+ l_results clob;
+ begin
+ ut3.ut.run('test_commit_warning');
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ ut.expect(l_results).to_be_like(
+ '%Unable to perform automatic rollback after test%'||
+ 'An implicit or explicit commit/rollback occurred in procedures:%' ||
+ 'does_commit%' ||
+ 'Use the "--%rollback(manual)" annotation or remove commit/rollback/ddl statements that are causing the issue.%'
+ );
+ end;
+
+ procedure create_failing_beforeall_suite is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'create or replace package parent_suite is
+ --%suite
+ --%suitepath(ut.run.failing_setup)
+
+ --%beforeall
+ procedure failing_setup;
+ end;';
+ execute immediate 'create or replace package body parent_suite is
+ procedure failing_setup is
+ begin
+ raise no_data_found;
+ end;
+ end;';
+ execute immediate 'create or replace package child_suite is
+ --%suite
+ --%suitepath(ut.run.failing_setup.parent_suite.some_sub_suite)
+
+ --%test
+ procedure does_stuff;
+ end;';
+ execute immediate 'create or replace package body child_suite is
+ procedure does_stuff is
+ begin
+ ut3.ut.expect(1).to_equal(1);
+ end;
+ end;';
+ end;
+
+ procedure drop_failing_beforeall_suite is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop package parent_suite';
+ execute immediate 'drop package child_suite';
+ end;
+
+ procedure run_proc_fail_child_suites is
+ l_results clob;
+ begin
+ ut3.ut.run('child_suite');
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ ut.expect(l_results).to_be_like(
+ '%1) does_stuff%' ||
+ 'ORA-01403: no data found%' ||
+ 'ORA-06512: at "UT3$USER#.PARENT_SUITE%'
+ );
+ end;
+
+ procedure transaction_setup is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'create table transaction_test_table(message varchar2(100))';
+ execute immediate 'create or replace package test_transaction is
+ --%suite
+
+ --%test
+ procedure insert_row;
+
+ --%test
+ procedure insert_and_raise;
+ end;
+ ';
+ execute immediate 'create or replace package body test_transaction is
+ procedure insert_row is
+ begin
+ insert into transaction_test_table values (''2 - inside the test_transaction.insert_row test'');
+ end;
+ procedure insert_and_raise is
+ begin
+ insert into transaction_test_table values (''2 - inside the test_transaction.insert_row test'');
+ raise no_data_found;
+ end;
+ end;
+ ';
+
+ end;
+
+ procedure transaction_cleanup is
+ pragma autonomous_transaction;
+ begin
+ begin
+ execute immediate 'drop table transaction_test_table';
+ exception
+ when others then null;
+ end;
+ begin
+ execute immediate 'drop package test_transaction';
+ exception
+ when others then null;
+ end;
+ end;
+
+ procedure run_proc_keep_test_data is
+ l_expected sys_refcursor;
+ l_actual sys_refcursor;
+ l_results clob;
+ begin
+ --Arrange
+ execute immediate '
+ insert into transaction_test_table values (''1 - inside the test_ut_run.run_proc_keep_test_changes test'')';
+
+ --Act
+ ut3.ut.run('test_transaction.insert_row', a_force_manual_rollback => true);
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+
+ --Assert
+ open l_expected for
+ select '1 - inside the test_ut_run.run_proc_keep_test_changes test' as message from dual
+ union all
+ select '2 - inside the test_transaction.insert_row test' from dual
+ order by 1;
+
+ open l_actual for 'select * from transaction_test_table order by 1';
+
+ ut.expect( l_actual ).to_equal(l_expected);
+ end;
+
+ procedure run_proc_keep_test_data_raise is
+ l_expected sys_refcursor;
+ l_actual sys_refcursor;
+ l_results clob;
+ begin
+ --Arrange
+ execute immediate '
+ insert into transaction_test_table values (''1 - inside the test_ut_run.run_proc_keep_test_changes test'')';
+
+ --Act
+ ut3.ut.run('test_transaction.insert_and_raise', a_force_manual_rollback => true);
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+
+ --Assert
+ open l_expected for
+ select '1 - inside the test_ut_run.run_proc_keep_test_changes test' as message from dual
+ union all
+ select '2 - inside the test_transaction.insert_row test' from dual
+ order by 1;
+
+ open l_actual for 'select * from transaction_test_table order by 1';
+
+ ut.expect( l_actual ).to_equal(l_expected);
+ end;
+
+ procedure run_proc_discard_test_data is
+ l_expected sys_refcursor;
+ l_actual sys_refcursor;
+ l_results clob;
+ begin
+ --Arrange
+ execute immediate '
+ insert into transaction_test_table values (''1 - inside the test_ut_run.run_proc_keep_test_changes test'')';
+
+ --Act
+ ut3.ut.run('test_transaction.insert_row');
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+
+ --Assert
+ open l_expected for
+ select '1 - inside the test_ut_run.run_proc_keep_test_changes test' as message from dual;
+
+ open l_actual for 'select * from transaction_test_table order by 1';
+
+ ut.expect( l_actual ).to_equal(l_expected);
+ end;
+
+ procedure run_func_no_params is
+ l_results ut3.ut_varchar2_list;
+ begin
+ l_results := ut3_tester_helper.run_helper.run();
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_func_specific_reporter is
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Act
+ l_results := ut3_tester_helper.run_helper.run(ut3.ut_documentation_reporter());
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_func_cov_file_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Act
+ select * bulk collect into l_results from table (
+ ut3.ut.run('ut3_tester_helper',
+ ut3.ut_sonar_test_reporter(),
+ a_source_files => ut3.ut_varchar2_list(),
+ a_test_files => ut3.ut_varchar2_list('tests/ut3_tester_helper.test_package_1.pkb',
+ 'tests/ut3_tester_helper.test_package_2.pkb',
+ 'tests/ut3_tester_helper.test_package_3.pkb')
+ ));
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%tests/ut3_tester_helper.test_package_2.pkb%tests/ut3_tester_helper.test_package_1.pkb%tests/ut3_tester_helper.test_package_3.pkb%' );
+ end;
+
+ procedure run_func_pkg_name is
+ l_results ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_results from table (ut3.ut.run('ut3_tester_helper.test_package_1'));
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%test_package_1%' );
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).not_to_be_like( '%test_package_2%' );
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).not_to_be_like( '%test_package_3%' );
+ end;
+
+ procedure run_func_pkg_name_file_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_results from table (
+ ut3.ut.run('ut3_tester_helper.test_package_3',
+ ut3.ut_sonar_test_reporter(),
+ a_source_files => ut3.ut_varchar2_list(),
+ a_test_files => ut3.ut_varchar2_list('tests/ut3_tester_helper.test_package_1.pkb',
+ 'tests/ut3_tester_helper.test_package_2.pkb',
+ 'tests/ut3_tester_helper.test_package_3.pkb')
+ ));
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%tests/ut3_tester_helper.test_package_3.pkb%' );
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).not_to_be_like( '%tests/ut3_tester_helper.test_package_1.pkb%' );
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).not_to_be_like( '%tests/ut3_tester_helper.test_package_2.pkb%' );
+ end;
+
+ procedure run_func_path_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ l_results := ut3_tester_helper.run_helper.run(ut3.ut_varchar2_list(':tests.test_package_1',':tests'));
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%test_package_1%' );
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%test_package_2%' );
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).not_to_be_like( '%test_package_3%' );
+ end;
+
+ procedure run_func_path_list_file_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ l_results := ut3_tester_helper.run_helper.run(
+ a_paths => ut3.ut_varchar2_list(':tests.test_package_1',':tests'),
+ a_reporter => ut3.ut_sonar_test_reporter(),
+ a_test_files => ut3.ut_varchar2_list('tests/ut3_tester_helper.test_package_1.pkb',
+ 'tests/ut3_tester_helper.test_package_2.pkb',
+ 'tests/ut3_tester_helper.test_package_3.pkb')
+ );
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%tests/ut3_tester_helper.test_package_1.pkb%' );
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%tests/ut3_tester_helper.test_package_2.pkb%' );
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).not_to_be_like( '%tests/ut3_tester_helper.test_package_3.pkb%' );
+ end;
+
+ procedure run_func_null_reporter is
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Act
+ select * bulk collect into l_results from table (ut3.ut.run('ut3_tester_helper',cast(null as ut3.ut_reporter_base)));
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%tests%test_package_1%test_package_2%tests2%test_package_3%' );
+ end;
+
+ procedure run_func_null_path is
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Act
+ l_results := ut3_tester_helper.run_helper.run(cast(null as varchar2));
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_func_null_path_list is
+ l_results ut3.ut_varchar2_list;
+ l_paths ut3.ut_varchar2_list;
+ begin
+ --Act
+ l_results := ut3_tester_helper.run_helper.run(l_paths);
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_func_empty_path_list is
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Act
+ l_results := ut3_tester_helper.run_helper.run(ut3.ut_varchar2_list());
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_func_cov_file_lst_null_rep is
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Act
+ l_results := ut3_tester_helper.run_helper.run(
+ a_test_files => ut3.ut_varchar2_list('tests/ut3_tester_helper.test_package_1.pkb',
+ 'tests/ut3_tester_helper.test_package_2.pkb',
+ 'tests/ut3_tester_helper.test_package_3.pkb'),
+ a_reporter => cast(null as ut3.ut_reporter_base));
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( '%test_package_1%test_package_2%test_package_3%' );
+ end;
+
+ procedure run_func_empty_suite is
+ l_results ut3.ut_varchar2_list;
+ l_expected varchar2(32767);
+ pragma autonomous_transaction;
+ begin
+ --Arrange
+ execute immediate q'[create or replace package empty_suite as
+ -- %suite
+
+ procedure not_a_test;
+ end;]';
+ execute immediate q'[create or replace package body empty_suite as
+ procedure not_a_test is begin null; end;
+ end;]';
+ l_expected := '%empty_suite%0 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%';
+ --Act
+ select * bulk collect into l_results from table(ut3.ut.run('empty_suite'));
+
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( l_expected );
+
+ --Cleanup
+ execute immediate q'[drop package empty_suite]';
+ end;
+
+ procedure raise_in_invalid_state is
+ l_results ut3.ut_varchar2_list;
+ l_expected varchar2(32767);
+ begin
+ --Arrange
+ l_expected := 'test_state
+ test_stateful
+ failing_stateful_test [% sec] (FAILED - 1)%
+Failures:%
+ 1) failing_stateful_test
+ ORA-04068: existing state of packages (DB_LOOPBACK%) has been discarded
+ ORA-04061: existing state of package body "%.STATEFUL_PACKAGE" has been invalidated
+ ORA-04065: not executed, altered or dropped package body "%.STATEFUL_PACKAGE"%
+ ORA-06512: at line 6%
+1 tests, 0 failed, 1 errored, 0 disabled, 0 warning(s)%';
+
+ --Act
+ select * bulk collect into l_results from table(ut3.ut.run('ut3_tester_helper.test_stateful'));
+
+ --Assert
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( l_expected );
+ ut.fail('Expected exception but nothing was raised');
+ exception
+ when others then
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_results) ).to_be_like( l_expected );
+ ut.expect(sqlcode).to_equal(-4068);
+ end;
+
+ procedure create_test_suite is
+ begin
+ ut3_tester_helper.run_helper.create_test_suite;
+ end;
+
+ procedure drop_test_suite is
+ begin
+ ut3_tester_helper.run_helper.drop_test_suite;
+ end;
+
+ procedure run_in_invalid_state is
+ l_results ut3.ut_varchar2_list;
+ l_actual clob;
+ l_expected varchar2(32767);
+ begin
+ select * bulk collect into l_results from table(ut3.ut.run('failing_invalid_spec'));
+
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(l_actual).to_be_like('%Call params for % are not valid: package does not exist or is invalid: %FAILING_INVALID_SPEC%');
+
+ end;
+
+ procedure compile_invalid_package is
+ ex_compilation_error exception;
+ pragma exception_init(ex_compilation_error,-24344);
+ pragma autonomous_transaction;
+ begin
+ begin
+ execute immediate q'[
+ create or replace package failing_invalid_spec as
+ --%suite
+ gv_glob_val non_existing_table.id%type := 0;
+
+ --%test
+ procedure test1;
+ end;]';
+ exception when ex_compilation_error then null;
+ end;
+ begin
+ execute immediate q'[
+ create or replace package body failing_invalid_spec as
+ procedure test1 is begin ut.expect(1).to_equal(1); end;
+ end;]';
+ exception when ex_compilation_error then null;
+ end;
+ end;
+ procedure drop_invalid_package is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop package failing_invalid_spec';
+ end;
+
+ procedure run_and_revalidate_specs is
+ l_results ut3.ut_varchar2_list;
+ l_actual clob;
+ l_is_invalid number;
+ begin
+ execute immediate q'[select count(1) from all_objects o where o.owner = :object_owner and o.object_type = 'PACKAGE'
+ and o.status = 'INVALID' and o.object_name= :object_name]' into l_is_invalid
+ using 'UT3$USER#','INVALID_PCKAG_THAT_REVALIDATES';
+
+ select * bulk collect into l_results from table(ut3.ut.run('invalid_pckag_that_revalidates'));
+
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(1).to_equal(l_is_invalid);
+ ut.expect(l_actual).to_be_like('%invalid_pckag_that_revalidates%invalidspecs [% sec]%
+%Finished in % seconds%
+%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%');
+
+ end;
+
+ procedure generate_invalid_spec is
+ ex_compilation_error exception;
+ pragma exception_init(ex_compilation_error,-24344);
+ pragma autonomous_transaction;
+ begin
+
+ execute immediate q'[
+ create or replace package parent_specs as
+ c_test constant varchar2(1) := 'Y';
+ end;]';
+
+ execute immediate q'[
+ create or replace package invalid_pckag_that_revalidates as
+ --%suite
+ g_var varchar2(1) := parent_specs.c_test;
+
+ --%test(invalidspecs)
+ procedure test1;
+ end;]';
+
+ execute immediate q'[
+ create or replace package body invalid_pckag_that_revalidates as
+ procedure test1 is begin ut.expect('Y').to_equal(g_var); end;
+ end;]';
+
+ -- That should invalidate test package and we can then revers
+ execute immediate q'[
+ create or replace package parent_specs as
+ c_test_error constant varchar2(1) := 'Y';
+ end;]';
+
+ execute immediate q'[
+ create or replace package parent_specs as
+ c_test constant varchar2(1) := 'Y';
+ end;]';
+
+ end;
+ procedure drop_invalid_spec is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop package invalid_pckag_that_revalidates';
+ execute immediate 'drop package parent_specs';
+ end;
+
+ procedure run_and_report_warnings is
+ l_results ut3.ut_varchar2_list;
+ l_actual clob;
+ begin
+
+ select * bulk collect into l_results from table(ut3.ut.run('bad_annotations'));
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+
+ ut.expect(l_actual).to_be_like('%Invalid annotation "--%context". Cannot find following "--%endcontext". Annotation ignored.%
+%1 tests, 0 failed, 0 errored, 0 disabled, 1 warning(s)%');
+
+ end;
+
+ procedure create_bad_annot is
+ pragma autonomous_transaction;
+ begin
+ execute immediate q'[
+ create or replace package bad_annotations as
+ --%suite
+
+ --%context
+
+ --%test(invalidspecs)
+ procedure test1;
+
+ end;]';
+
+ execute immediate q'[
+ create or replace package body bad_annotations as
+ procedure test1 is begin ut.expect(1).to_equal(1); end;
+ end;]';
+
+ end;
+
+ procedure drop_bad_annot is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop package bad_annotations';
+ end;
+
+ procedure create_suite_with_link is
+ begin
+ ut3_tester_helper.run_helper.create_suite_with_link;
+ end;
+
+ procedure drop_suite_with_link is
+ begin
+ ut3_tester_helper.run_helper.drop_suite_with_link;
+ end;
+
+ procedure savepoints_on_db_links is
+ l_results clob;
+ begin
+ ut3.ut.run('ut3_tester_helper.test_distributed_savepoint');
+ l_results := ut3_tester_helper.main_helper.get_dbms_output_as_clob();
+ ut.expect(l_results).to_be_like('%1 tests, 0 failed, 0 errored, 0 disabled, 0 warning(s)%');
+ end;
+
+ procedure remove_time_from_results(a_results in out nocopy ut3.ut_varchar2_list) is
+ begin
+ for i in 1 .. a_results.count loop
+ a_results(i) := regexp_replace(a_results(i),'\[[0-9]*\.[0-9]+ sec\]','');
+ a_results(i) := regexp_replace(a_results(i),'Finished in [0-9]*\.[0-9]+ seconds','');
+ end loop;
+ end;
+
+ procedure run_with_random_order is
+ l_random_results ut3.ut_varchar2_list;
+ l_results ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_random_results
+ from table ( ut3.ut.run( 'ut3_tester_helper.test_package_1', a_random_test_order_seed => 3 ) )
+ where trim(column_value) is not null and column_value not like 'Finished in %'
+ and column_value not like '%Tests were executed with random order %';
+
+ select * bulk collect into l_results
+ from table ( ut3.ut.run( 'ut3_tester_helper.test_package_1' ) )
+ --TODO this condition should be removed once issues with unordered compare and 'blank text rows' are resolved.
+ where trim(column_value) is not null and column_value not like 'Finished in %';
+
+ remove_time_from_results(l_results);
+ remove_time_from_results(l_random_results);
+
+ ut.expect(anydata.convertCollection(l_random_results)).to_equal(anydata.convertCollection(l_results)).unordered();
+ ut.expect(anydata.convertCollection(l_random_results)).not_to_equal(anydata.convertCollection(l_results));
+ end;
+
+ procedure run_and_report_random_ord_seed is
+ l_actual ut3.ut_varchar2_list;
+ begin
+ select * bulk collect into l_actual
+ from table ( ut3.ut.run( 'ut3_tester_helper.test_package_1', a_random_test_order_seed => 123456789 ) );
+
+ ut.expect( ut3_tester_helper.main_helper.table_to_clob(l_actual) ).to_be_like( q'[%Tests were executed with random order seed '123456789'.%]' );
+ end;
+
+ procedure run_with_random_order_seed is
+ l_expected ut3.ut_varchar2_list;
+ l_actual ut3.ut_varchar2_list;
+ begin
+
+ select * bulk collect into l_expected
+ from table ( ut3.ut.run( 'ut3_tester_helper.test_package_1', a_random_test_order_seed => 3 ) );
+ select * bulk collect into l_actual
+ from table ( ut3.ut.run( 'ut3_tester_helper.test_package_1', a_random_test_order_seed => 3 ) );
+
+ remove_time_from_results(l_actual);
+ remove_time_from_results(l_expected);
+ l_actual.delete(l_actual.count);
+ l_expected.delete(l_expected.count);
+
+ ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected));
+ end;
+
+end;
+/
diff --git a/test/api/test_ut_run.pks b/test/ut3_user/api/test_ut_run.pks
similarity index 97%
rename from test/api/test_ut_run.pks
rename to test/ut3_user/api/test_ut_run.pks
index a2fae4b1f..82b7eee95 100644
--- a/test/api/test_ut_run.pks
+++ b/test/ut3_user/api/test_ut_run.pks
@@ -1,17 +1,19 @@
create or replace package test_ut_run is
--%suite(ut.run)
- --%suitepath(utplsql.api)
-
+ --%suitepath(utplsql.test_user.api)
+ procedure clear_expectations;
+
+ procedure create_ut3$user#_tests;
+ procedure drop_ut3$user#_tests;
+
--%test(ut.version() returns version of the framework)
procedure ut_version;
--%test(ut.fail() marks test as failed)
+ --%aftertest(clear_expectations)
procedure ut_fail;
- procedure create_ut3$user#_tests;
- procedure drop_ut3$user#_tests;
-
--%context(ut_run_procedure)
--%displayname(ut.run() procedure options)
--%beforeall(create_ut3$user#_tests)
@@ -56,12 +58,13 @@ create or replace package test_ut_run is
--%aftertest(drop_failing_beforeall_suite)
procedure run_proc_fail_child_suites;
+ procedure create_suite_with_link;
+ procedure drop_suite_with_link;
+
--%test(Savepoints are working properly on distributed transactions - Issue #839)
--%beforetest(create_suite_with_link)
--%aftertest(drop_suite_with_link)
procedure savepoints_on_db_links;
- procedure create_suite_with_link;
- procedure drop_suite_with_link;
--%endcontext
@@ -162,3 +165,4 @@ create or replace package test_ut_run is
end;
/
+
diff --git a/test/api/test_ut_runner.pkb b/test/ut3_user/api/test_ut_runner.pkb
similarity index 75%
rename from test/api/test_ut_runner.pkb
rename to test/ut3_user/api/test_ut_runner.pkb
index 79c78d911..298c15c2a 100644
--- a/test/api/test_ut_runner.pkb
+++ b/test/ut3_user/api/test_ut_runner.pkb
@@ -1,48 +1,18 @@
create or replace package body test_ut_runner is
procedure setup_cache_objects is
- pragma autonomous_transaction;
begin
- execute immediate q'[create or replace package dummy_test_package as
- --%suite(dummy_test_suite)
- --%rollback(manual)
-
- --%test(dummy_test)
- --%beforetest(some_procedure)
- procedure some_dummy_test_procedure;
- end;]';
- execute immediate q'[create or replace procedure dummy_test_procedure as
- --%some_annotation(some_text)
- --%rollback(manual)
- begin
- null;
- end;]';
- execute immediate q'[create or replace procedure ut3.dummy_test_procedure as
- --%some_annotation(some_text)
- --%rollback(manual)
- begin
- null;
- end;]';
+ ut3_tester_helper.run_helper.setup_cache_objects();
end;
procedure setup_cache is
- pragma autonomous_transaction;
begin
- setup_cache_objects();
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PROCEDURE');
- ut3.ut_annotation_manager.rebuild_annotation_cache('UT3','PROCEDURE');
+ ut3_tester_helper.run_helper.setup_cache();
end;
procedure cleanup_cache is
- pragma autonomous_transaction;
begin
- delete from ut3.ut_annotation_cache_info
- where object_type = 'PROCEDURE' and object_owner in ('UT3',user)
- or object_type = 'PACKAGE' and object_owner = user and object_name = 'DUMMY_TEST_PACKAGE';
- execute immediate q'[drop package dummy_test_package]';
- execute immediate q'[drop procedure dummy_test_procedure]';
- execute immediate q'[drop procedure ut3.dummy_test_procedure]';
+ ut3_tester_helper.run_helper.cleanup_cache();
end;
procedure create_test_spec
@@ -99,6 +69,7 @@ end;';
procedure close_newly_opened_transaction is
l_output_data dbms_output.chararr;
l_num_lines integer := 100000;
+ pragma autonomous_transaction;
begin
--Arrange
create_test_spec();
@@ -171,7 +142,7 @@ end;';
bulk collect into l_results
from table(ut3.ut.run('test_cache'));
--Assert
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
l_expected := '%ut3.ut.expect(1).to_be_null;%';
ut.expect(l_actual).to_be_like(l_expected);
drop_test_package();
@@ -217,29 +188,29 @@ end;';
procedure test_purge_cache_schema_type is
l_actual sys_refcursor;
begin
-
+
open l_actual for
select * from ut3.ut_annotation_cache_info
- where object_owner = user and object_type = 'PROCEDURE';
+ where object_owner = sys_context('USERENV', 'CURRENT_USER') and object_type = 'PROCEDURE';
ut.expect(l_actual).not_to_be_empty();
--Act
- ut3.ut_runner.purge_cache(user,'PROCEDURE');
+ ut3.ut_runner.purge_cache(sys_context('USERENV', 'CURRENT_USER'),'PROCEDURE');
--Assert
open l_actual for
select * from ut3.ut_annotation_cache_info
- where object_owner = user and object_type = 'PROCEDURE';
+ where object_owner = sys_context('USERENV', 'CURRENT_USER') and object_type = 'PROCEDURE';
--Cache purged for object owner/type
ut.expect(l_actual).to_be_empty();
open l_actual for
select * from ut3.ut_annotation_cache_info
- where object_owner = user and object_type = 'PACKAGE';
+ where object_owner = sys_context('USERENV', 'CURRENT_USER') and object_type = 'PACKAGE';
--Cache not purged for other types
ut.expect(l_actual).not_to_be_empty();
open l_actual for
select * from ut3.ut_annotation_cache_info
- where object_owner = 'UT3' and object_type = 'PROCEDURE';
+ where object_owner = 'UT3_TESTER_HELPER' and object_type = 'PROCEDURE';
--Cache not purged for other owners
ut.expect(l_actual).not_to_be_empty();
@@ -249,19 +220,19 @@ end;';
l_actual integer;
begin
--Act
- ut3.ut_annotation_manager.rebuild_annotation_cache(user,'PACKAGE');
+ ut3.ut_annotation_manager.rebuild_annotation_cache(sys_context('USERENV', 'CURRENT_USER'),'PACKAGE');
--Assert
select count(1) into l_actual
from ut3.ut_annotation_cache_info i
join ut3.ut_annotation_cache c on c.cache_id = i.cache_id
- where object_owner = user and object_type = 'PACKAGE' and object_name = 'DUMMY_TEST_PACKAGE';
- --Rebuild cache for user/packages
+ where object_owner = sys_context('USERENV', 'CURRENT_USER') and object_type = 'PACKAGE' and object_name = 'DUMMY_TEST_PACKAGE';
+ --Rebuild cache for sys_context('USERENV', 'CURRENT_USER')/packages
ut.expect(l_actual).to_equal(4);
select count(1) into l_actual
from ut3.ut_annotation_cache_info i
join ut3.ut_annotation_cache c on c.cache_id = i.cache_id
- where object_owner = 'UT3' and object_type = 'PROCEDURE';
+ where object_owner = 'UT3_TESTER_HELPER' and object_type = 'PROCEDURE';
--Did not rebuild cache for ut3/procedures
ut.expect(l_actual).to_equal(0);
@@ -274,17 +245,17 @@ end;';
--Arrange
open l_expected for
select
- 'UT3_TESTER' object_owner, 'DUMMY_TEST_PACKAGE' object_name, 'DUMMY_TEST_PACKAGE' item_name,
+ 'UT3$USER#' object_owner, 'DUMMY_TEST_PACKAGE' object_name, 'DUMMY_TEST_PACKAGE' item_name,
'dummy_test_suite' item_description, 'UT_SUITE' item_type, 2 item_line_no,
'dummy_test_package' path, 0 disabled_flag
from dual union all
select
- 'UT3_TESTER' object_owner, 'DUMMY_TEST_PACKAGE' object_name, 'SOME_DUMMY_TEST_PROCEDURE' item_name,
+ 'UT3$USER#' object_owner, 'DUMMY_TEST_PACKAGE' object_name, 'SOME_DUMMY_TEST_PROCEDURE' item_name,
'dummy_test' item_description, 'UT_TEST' item_type, 5 item_line_no,
'dummy_test_package.some_dummy_test_procedure' path, 0 disabled_flag
from dual;
--Act
- open l_actual for select * from table(ut3.ut_runner.get_suites_info(NULL,'DUMMY_TEST_PACKAGE'));
+ open l_actual for select * from table(ut3.ut_runner.get_suites_info('UT3$USER#','DUMMY_TEST_PACKAGE'));
--Assert
ut.expect(l_actual).to_equal(l_expected);
end;
@@ -315,47 +286,21 @@ end;';
end;
procedure db_link_cleanup is
- begin
- begin execute immediate 'drop public database link db_loopback'; exception when others then null; end;
- begin execute immediate 'drop package test_db_link'; exception when others then null; end;
- end;
+ pragma autonomous_transaction;
+ begin
+ ut3_tester_helper.run_helper.db_link_cleanup();
+ end;
procedure db_link_setup is
- l_service_name varchar2(100);
- begin
- select global_name into l_service_name from global_name;
- execute immediate
- 'create public database link db_loopback connect to ut3_tester identified by ut3
- using ''(DESCRIPTION=
- (ADDRESS=(PROTOCOL=TCP)
- (HOST='||sys_context('userenv','SERVER_HOST')||')
- (PORT=1521)
- )
- (CONNECT_DATA=(SERVICE_NAME='||l_service_name||')))''';
- execute immediate q'[
- create or replace package test_db_link is
- --%suite
-
- --%test
- procedure runs_with_db_link;
- end;]';
-
- execute immediate q'[
- create or replace package body test_db_link is
- procedure runs_with_db_link is
- a_value integer;
- begin
- select 1 into a_value
- from dual@db_loopback;
- ut3.ut.expect(a_value).to_be_null();
- end;
- end;]';
-
- end;
+ pragma autonomous_transaction;
+ begin
+ ut3_tester_helper.run_helper.db_link_setup();
+ end;
procedure raises_20213_on_fail_link is
l_reporter ut3.ut_documentation_reporter := ut3.ut_documentation_reporter();
l_lines ut3.ut_varchar2_list;
+ pragma autonomous_transaction;
begin
--Arrange
--Act
@@ -448,7 +393,7 @@ end;';
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);
+ l_actual := ut3_tester_helper.main_helper.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;
@@ -461,7 +406,7 @@ end;';
bulk collect into l_results
from table(ut3.ut.run('test_csl_names1'));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.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;
@@ -474,7 +419,7 @@ end;';
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);
+ l_actual := ut3_tester_helper.main_helper.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;
@@ -487,7 +432,7 @@ end;';
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);
+ l_actual := ut3_tester_helper.main_helper.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;
@@ -500,7 +445,7 @@ end;';
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);
+ l_actual := ut3_tester_helper.main_helper.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;
@@ -520,7 +465,7 @@ end;';
)
);
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.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;
@@ -533,7 +478,7 @@ end;';
bulk collect into l_results
from table(ut3.ut.run(ut3.ut_varchar2_list('test_csl_names1.one_is_one,test_csl_names2.one_is_one')));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.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;
@@ -542,19 +487,19 @@ end;';
begin
ut.expect(
ut3.ut_runner.is_test(
- a_owner => 'UT3_TESTER',
+ a_owner => 'UT3$USER#',
a_package_name => 'DUMMY_TEST_PACKAGE',
a_procedure_name => 'SOME_DUMMY_TEST_PROCEDURE'
)
).to_be_true();
- ut.expect( ut3.ut_runner.is_test( 'ut3_tester','dummy_test_package','some_dummy_test_procedure' ) ).to_be_true();
+ ut.expect( ut3.ut_runner.is_test( 'ut3$user#','dummy_test_package','some_dummy_test_procedure' ) ).to_be_true();
end;
procedure is_test_false is
begin
- ut.expect( ut3.ut_runner.is_test( 'UT3_TESTER','DUMMY_TEST_PACKAGE', 'BAD' ) ).to_be_false();
- ut.expect( ut3.ut_runner.is_test( 'UT3_TESTER','DUMMY_TEST_PACKAGE', null ) ).to_be_false();
- ut.expect( ut3.ut_runner.is_test( 'UT3_TESTER',null,'some_dummy_test_procedure' ) ).to_be_false();
+ ut.expect( ut3.ut_runner.is_test( 'UT3$USER#','DUMMY_TEST_PACKAGE', 'BAD' ) ).to_be_false();
+ ut.expect( ut3.ut_runner.is_test( 'UT3$USER#','DUMMY_TEST_PACKAGE', null ) ).to_be_false();
+ ut.expect( ut3.ut_runner.is_test( 'UT3$USER#',null,'some_dummy_test_procedure' ) ).to_be_false();
ut.expect( ut3.ut_runner.is_test( null,'DUMMY_TEST_PACKAGE','some_dummy_test_procedure' ) ).to_be_false();
end;
@@ -562,26 +507,26 @@ end;';
begin
ut.expect(
ut3.ut_runner.is_suite(
- a_owner => 'UT3_TESTER',
+ a_owner => 'UT3$USER#',
a_package_name => 'DUMMY_TEST_PACKAGE'
)
).to_be_true();
- ut.expect( ut3.ut_runner.is_suite( 'ut3_tester','dummy_test_package' ) ).to_be_true();
+ ut.expect( ut3.ut_runner.is_suite( 'ut3$user#','dummy_test_package' ) ).to_be_true();
end;
procedure is_suite_false is
begin
- ut.expect( ut3.ut_runner.is_suite( 'UT3_TESTER','BAD' ) ).to_be_false();
- ut.expect( ut3.ut_runner.is_suite( 'UT3_TESTER', null ) ).to_be_false();
+ ut.expect( ut3.ut_runner.is_suite( 'UT3$USER#','BAD' ) ).to_be_false();
+ ut.expect( ut3.ut_runner.is_suite( 'UT3$USER#', null ) ).to_be_false();
ut.expect( ut3.ut_runner.is_suite( null,'DUMMY_TEST_PACKAGE' ) ).to_be_false();
end;
procedure has_suites_true is
begin
- ut.expect( ut3.ut_runner.has_suites( a_owner => 'UT3_TESTER' ) ).to_be_true();
+ ut.expect( ut3.ut_runner.has_suites( a_owner => 'UT3$USER#' ) ).to_be_true();
- ut.expect( ut3.ut_runner.has_suites( 'ut3_tester' ) ).to_be_true();
+ ut.expect( ut3.ut_runner.has_suites( 'ut3$user#' ) ).to_be_true();
end;
procedure has_suites_false is
diff --git a/test/api/test_ut_runner.pks b/test/ut3_user/api/test_ut_runner.pks
similarity index 98%
rename from test/api/test_ut_runner.pks
rename to test/ut3_user/api/test_ut_runner.pks
index d67ee45fc..70eed747f 100644
--- a/test/api/test_ut_runner.pks
+++ b/test/ut3_user/api/test_ut_runner.pks
@@ -1,7 +1,7 @@
create or replace package test_ut_runner is
--%suite(ut_runner)
- --%suitepath(utplsql.api)
+ --%suitepath(utplsql.test_user.api)
--%rollback(manual)
--%test(transaction stays open after the run if it was opened before the run)
diff --git a/test/core/expectations/binary/test_be_greater_or_equal.pkb b/test/ut3_user/expectations/binary/test_be_greater_or_equal.pkb
similarity index 69%
rename from test/core/expectations/binary/test_be_greater_or_equal.pkb
rename to test/ut3_user/expectations/binary/test_be_greater_or_equal.pkb
index f41878643..5d99d07b6 100644
--- a/test/core/expectations/binary/test_be_greater_or_equal.pkb
+++ b/test/ut3_user/expectations/binary/test_be_greater_or_equal.pkb
@@ -2,7 +2,7 @@ create or replace package body test_be_greater_or_equal is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
function to_greater_equal_block(
@@ -11,7 +11,7 @@ create or replace package body test_be_greater_or_equal is
a_expected varchar2
) return varchar2 is
begin
- return expectations.binary_expectation_block(
+ return ut3_tester_helper.expectations_helper.binary_expectation_block(
'to_be_greater_or_equal', a_data_type, a_actual, a_data_type, a_expected
);
end;
@@ -22,7 +22,7 @@ create or replace package body test_be_greater_or_equal is
a_expected varchar2
) return varchar2 is
begin
- return expectations.binary_expectation_block(
+ return ut3_tester_helper.expectations_helper.binary_expectation_block(
'not_to_be_greater_or_equal', a_data_type, a_actual, a_data_type, a_expected
);
end;
@@ -32,7 +32,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('date', 'sysdate', 'sysdate-1');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_number_greater is
@@ -40,7 +40,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('number', '2.0', '1.99');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ym_greater is
@@ -48,7 +48,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('interval year to month', '''2-1''', '''2-0''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ds_greater is
@@ -56,7 +56,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_greater is
@@ -64,7 +64,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_tz_greater is
@@ -72,7 +72,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_ltz_greater is
@@ -80,7 +80,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_date_equal is
@@ -88,7 +88,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('date', 'sysdate', 'sysdate');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_number_equal is
@@ -96,7 +96,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('number', '2.0', '2.00');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ym_equal is
@@ -104,7 +104,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('interval year to month', '''2-1''', '''2-1''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ds_equal is
@@ -112,7 +112,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('interval day to second', '''2 01:00:00''', '''2 01:00:00''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_equal is
@@ -120,7 +120,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_tz_equal is
@@ -128,7 +128,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_ltz_equal is
@@ -136,7 +136,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_date_less is
@@ -144,7 +144,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('date', 'sysdate-1', 'sysdate');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_number_less is
@@ -152,7 +152,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('number', '1.0', '1.01');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ym_less is
@@ -160,7 +160,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('interval year to month', '''2-1''', '''2-2''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ds_less is
@@ -168,7 +168,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('interval day to second', '''2 00:59:58''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_less is
@@ -176,7 +176,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('timestamp', 'to_timestamp(''1997 12'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_tz_less is
@@ -184,7 +184,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +03:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_ltz_less is
@@ -192,7 +192,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate to_greater_equal_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +03:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_date_greater is
@@ -200,7 +200,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate not_to_greater_equal_block('date', 'sysdate', 'sysdate-1');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_number_greater is
@@ -208,7 +208,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate not_to_greater_equal_block('number', '2.0', '1.99');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_interval_ym_greater is
@@ -216,7 +216,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate not_to_greater_equal_block('interval year to month', '''2-1''', '''2-0''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_interval_ds_greater is
@@ -224,7 +224,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate not_to_greater_equal_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_timestamp_greater is
@@ -232,7 +232,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate not_to_greater_equal_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_timestamp_tz_gretr is
@@ -240,7 +240,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate not_to_greater_equal_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_timestamp_ltz_gretr is
@@ -248,7 +248,7 @@ create or replace package body test_be_greater_or_equal is
--Act
execute immediate not_to_greater_equal_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_clob is
@@ -256,7 +256,7 @@ create or replace package body test_be_greater_or_equal is
--Act
ut3.ut.expect(to_clob('3')).to_( ut3.be_greater_or_equal(3) );
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
end;
diff --git a/test/core/expectations/binary/test_be_greater_or_equal.pks b/test/ut3_user/expectations/binary/test_be_greater_or_equal.pks
similarity index 98%
rename from test/core/expectations/binary/test_be_greater_or_equal.pks
rename to test/ut3_user/expectations/binary/test_be_greater_or_equal.pks
index 077dff59c..3f51e8e3f 100644
--- a/test/core/expectations/binary/test_be_greater_or_equal.pks
+++ b/test/ut3_user/expectations/binary/test_be_greater_or_equal.pks
@@ -1,7 +1,7 @@
create or replace package test_be_greater_or_equal is
--%suite((not)to_be_greater_or_equal)
- --%suitepath(utplsql.core.expectations.binary)
+ --%suitepath(utplsql.test_user.expectations.binary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/core/expectations/binary/test_be_greater_than.pkb b/test/ut3_user/expectations/binary/test_be_greater_than.pkb
similarity index 68%
rename from test/core/expectations/binary/test_be_greater_than.pkb
rename to test/ut3_user/expectations/binary/test_be_greater_than.pkb
index 5863b11b1..37e15f633 100644
--- a/test/core/expectations/binary/test_be_greater_than.pkb
+++ b/test/ut3_user/expectations/binary/test_be_greater_than.pkb
@@ -2,7 +2,7 @@ create or replace package body test_be_greater_than is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
function to_greater_than_block(
@@ -11,7 +11,7 @@ create or replace package body test_be_greater_than is
a_expected varchar2
) return varchar2 is
begin
- return expectations.binary_expectation_block(
+ return ut3_tester_helper.expectations_helper.binary_expectation_block(
'to_be_greater_than', a_data_type, a_actual, a_data_type, a_expected
);
end;
@@ -22,7 +22,7 @@ create or replace package body test_be_greater_than is
a_expected varchar2
) return varchar2 is
begin
- return expectations.binary_expectation_block(
+ return ut3_tester_helper.expectations_helper.binary_expectation_block(
'not_to_be_greater_than', a_data_type, a_actual, a_data_type, a_expected
);
end;
@@ -32,7 +32,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('date', 'sysdate', 'sysdate-1');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_number_greater is
@@ -40,7 +40,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('number', '2.0', '1.99');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ym_greater is
@@ -48,7 +48,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('interval year to month', '''2-1''', '''2-0''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ds_greater is
@@ -56,7 +56,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_greater is
@@ -64,7 +64,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_tz_greater is
@@ -72,7 +72,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_ltz_greater is
@@ -80,7 +80,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_date_equal is
@@ -88,7 +88,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('date', 'sysdate', 'sysdate');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_number_equal is
@@ -96,7 +96,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('number', '2.0', '2.00');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ym_equal is
@@ -104,7 +104,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('interval year to month', '''2-1''', '''2-1''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ds_equal is
@@ -112,7 +112,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('interval day to second', '''2 01:00:00''', '''2 01:00:00''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_equal is
@@ -120,7 +120,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_tz_equal is
@@ -128,7 +128,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_ltz_equal is
@@ -136,7 +136,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_date_less is
@@ -144,7 +144,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('date', 'sysdate-1', 'sysdate');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_number_less is
@@ -152,7 +152,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('number', '1.0', '1.01');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ym_less is
@@ -160,7 +160,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('interval year to month', '''2-1''', '''2-2''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ds_less is
@@ -168,7 +168,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('interval day to second', '''2 00:59:58''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_less is
@@ -176,7 +176,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('timestamp', 'to_timestamp(''1997 12'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_tz_less is
@@ -184,7 +184,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +03:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_ltz_less is
@@ -192,7 +192,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate to_greater_than_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +03:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_date_greater is
@@ -200,7 +200,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate not_to_greater_than_block('date', 'sysdate', 'sysdate-1');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_number_greater is
@@ -208,7 +208,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate not_to_greater_than_block('number', '2.0', '1.99');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_interval_ym_greater is
@@ -216,7 +216,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate not_to_greater_than_block('interval year to month', '''2-1''', '''2-0''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_interval_ds_greater is
@@ -224,7 +224,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate not_to_greater_than_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_timestamp_greater is
@@ -232,7 +232,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate not_to_greater_than_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_timestamp_tz_gretr is
@@ -240,7 +240,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate not_to_greater_than_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_actual_timestamp_ltz_gretr is
@@ -248,7 +248,7 @@ create or replace package body test_be_greater_than is
--Act
execute immediate not_to_greater_than_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_clob is
@@ -256,7 +256,7 @@ create or replace package body test_be_greater_than is
--Act
ut3.ut.expect(to_clob('3')).to_( ut3.be_greater_than(2) );
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
end;
diff --git a/test/core/expectations/binary/test_be_greater_than.pks b/test/ut3_user/expectations/binary/test_be_greater_than.pks
similarity index 98%
rename from test/core/expectations/binary/test_be_greater_than.pks
rename to test/ut3_user/expectations/binary/test_be_greater_than.pks
index 6a1dfcc3e..fb158dddb 100644
--- a/test/core/expectations/binary/test_be_greater_than.pks
+++ b/test/ut3_user/expectations/binary/test_be_greater_than.pks
@@ -1,7 +1,7 @@
create or replace package test_be_greater_than is
--%suite((not)to_be_greater_than)
- --%suitepath(utplsql.core.expectations.binary)
+ --%suitepath(utplsql.test_user.expectations.binary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/core/expectations/binary/test_be_less_or_equal.pkb b/test/ut3_user/expectations/binary/test_be_less_or_equal.pkb
similarity index 69%
rename from test/core/expectations/binary/test_be_less_or_equal.pkb
rename to test/ut3_user/expectations/binary/test_be_less_or_equal.pkb
index c72e0039b..bf7632cc4 100644
--- a/test/core/expectations/binary/test_be_less_or_equal.pkb
+++ b/test/ut3_user/expectations/binary/test_be_less_or_equal.pkb
@@ -2,7 +2,7 @@ create or replace package body test_be_less_or_equal is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
function to_less_or_equal_block(
@@ -11,7 +11,7 @@ create or replace package body test_be_less_or_equal is
a_expected varchar2
) return varchar2 is
begin
- return expectations.binary_expectation_block(
+ return ut3_tester_helper.expectations_helper.binary_expectation_block(
'to_be_less_or_equal', a_data_type, a_actual, a_data_type, a_expected
);
end;
@@ -22,7 +22,7 @@ create or replace package body test_be_less_or_equal is
a_expected varchar2
) return varchar2 is
begin
- return expectations.binary_expectation_block(
+ return ut3_tester_helper.expectations_helper.binary_expectation_block(
'not_to_be_less_or_equal', a_data_type, a_actual, a_data_type, a_expected
);
end;
@@ -32,7 +32,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('date', 'sysdate', 'sysdate-1');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_number_greater is
@@ -40,7 +40,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('number', '2.0', '1.99');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ym_greater is
@@ -48,7 +48,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('interval year to month', '''2-1''', '''2-0''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ds_greater is
@@ -56,7 +56,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_greater is
@@ -64,7 +64,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_tz_greater is
@@ -72,7 +72,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_ltz_greater is
@@ -80,7 +80,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_date_equal is
@@ -88,7 +88,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('date', 'sysdate', 'sysdate');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_number_equal is
@@ -96,7 +96,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('number', '2.0', '2.00');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ym_equal is
@@ -104,7 +104,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('interval year to month', '''2-1''', '''2-1''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ds_equal is
@@ -112,7 +112,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('interval day to second', '''2 01:00:00''', '''2 01:00:00''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_equal is
@@ -120,7 +120,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_tz_equal is
@@ -128,7 +128,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_ltz_equal is
@@ -136,7 +136,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_date_less is
@@ -144,7 +144,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('date', 'sysdate-1', 'sysdate');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_number_less is
@@ -152,7 +152,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('number', '1.0', '1.01');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ym_less is
@@ -160,7 +160,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('interval year to month', '''2-1''', '''2-2''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ds_less is
@@ -168,7 +168,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('interval day to second', '''2 00:59:58''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_less is
@@ -176,7 +176,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('timestamp', 'to_timestamp(''1997 12'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_tz_less is
@@ -184,7 +184,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +03:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_ltz_less is
@@ -192,7 +192,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate to_less_or_equal_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +03:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_date_greater is
@@ -200,7 +200,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate not_to_less_or_equal_block('date', 'sysdate', 'sysdate-1');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_number_greater is
@@ -208,7 +208,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate not_to_less_or_equal_block('number', '2.0', '1.99');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_interval_ym_greater is
@@ -216,7 +216,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate not_to_less_or_equal_block('interval year to month', '''2-1''', '''2-0''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_interval_ds_greater is
@@ -224,7 +224,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate not_to_less_or_equal_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_timestamp_greater is
@@ -232,7 +232,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate not_to_less_or_equal_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_timestamp_tz_gretr is
@@ -240,7 +240,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate not_to_less_or_equal_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_timestamp_ltz_gretr is
@@ -248,7 +248,7 @@ create or replace package body test_be_less_or_equal is
--Act
execute immediate not_to_less_or_equal_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_clob is
@@ -256,7 +256,7 @@ create or replace package body test_be_less_or_equal is
--Act
ut3.ut.expect(to_clob('3')).to_( ut3.be_less_or_equal(3) );
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
end;
diff --git a/test/core/expectations/binary/test_be_less_or_equal.pks b/test/ut3_user/expectations/binary/test_be_less_or_equal.pks
similarity index 98%
rename from test/core/expectations/binary/test_be_less_or_equal.pks
rename to test/ut3_user/expectations/binary/test_be_less_or_equal.pks
index a6ab01664..d6baf037e 100644
--- a/test/core/expectations/binary/test_be_less_or_equal.pks
+++ b/test/ut3_user/expectations/binary/test_be_less_or_equal.pks
@@ -1,7 +1,7 @@
create or replace package test_be_less_or_equal is
--%suite((not)to_be_less_or_equal)
- --%suitepath(utplsql.core.expectations.binary)
+ --%suitepath(utplsql.test_user.expectations.binary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/core/expectations/binary/test_equal.pkb b/test/ut3_user/expectations/binary/test_equal.pkb
similarity index 95%
rename from test/core/expectations/binary/test_equal.pkb
rename to test/ut3_user/expectations/binary/test_equal.pkb
index dd7dd7a82..95fd594c7 100644
--- a/test/core/expectations/binary/test_equal.pkb
+++ b/test/ut3_user/expectations/binary/test_equal.pkb
@@ -2,12 +2,12 @@ create or replace package body test_equal is
procedure reset_nulls_equal is
begin
- ut3.ut_expectation_processor.nulls_Are_equal(ut3.ut_expectation_processor.gc_default_nulls_are_equal);
+ ut3_tester_helper.main_helper.reset_nulls_equal;
end;
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
function to_equal_block(
@@ -40,7 +40,7 @@ create or replace package body test_equal is
begin
execute immediate
to_equal_block( 'to_equal', a_actual_type, a_expected_type, a_actual, a_expected, a_nulls_equal );
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
cleanup_expectations;
end;
@@ -65,7 +65,7 @@ create or replace package body test_equal is
begin
execute immediate
to_equal_block( 'to_equal', a_actual_type, a_expected_type, a_actual, a_expected, a_nulls_equal );
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
cleanup_expectations;
end;
@@ -79,7 +79,7 @@ create or replace package body test_equal is
begin
execute immediate
to_equal_block( 'not_to_equal', a_actual_type, a_expected_type, a_actual, a_expected, a_nulls_equal );
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
cleanup_expectations;
end;
@@ -200,7 +200,7 @@ create or replace package body test_equal is
procedure failure_on_both_null_with_conf is
begin
- ut3.ut_expectation_processor.nulls_Are_equal(false);
+ ut3_tester_helper.main_helper.nulls_are_equal(false);
test_to_equal_fail('blob', 'NULL', 'NULL');
test_to_equal_fail('boolean', 'NULL', 'NULL');
test_to_equal_fail('clob', 'NULL', 'NULL');
@@ -246,7 +246,7 @@ create or replace package body test_equal is
procedure success_on_both_null_with_parm is
begin
- ut3.ut_expectation_processor.nulls_Are_equal(false);
+ ut3_tester_helper.main_helper.nulls_are_equal(false);
test_to_equal_success('blob', 'NULL', 'NULL', true);
test_to_equal_success('boolean', 'NULL', 'NULL', true);
test_to_equal_success('clob', 'NULL', 'NULL', true);
diff --git a/test/core/expectations/binary/test_equal.pks b/test/ut3_user/expectations/binary/test_equal.pks
similarity index 95%
rename from test/core/expectations/binary/test_equal.pks
rename to test/ut3_user/expectations/binary/test_equal.pks
index c0280c288..923d43a31 100644
--- a/test/core/expectations/binary/test_equal.pks
+++ b/test/ut3_user/expectations/binary/test_equal.pks
@@ -1,7 +1,7 @@
create or replace package test_equal is
--%suite((not)to_be_equal)
- --%suitepath(utplsql.core.expectations.binary)
+ --%suitepath(utplsql.test_user.expectations.binary)
procedure reset_nulls_equal;
diff --git a/test/core/expectations/binary/test_expect_to_be_less_than.pkb b/test/ut3_user/expectations/binary/test_expect_to_be_less_than.pkb
similarity index 69%
rename from test/core/expectations/binary/test_expect_to_be_less_than.pkb
rename to test/ut3_user/expectations/binary/test_expect_to_be_less_than.pkb
index 8f1278db4..d7bf5533b 100644
--- a/test/core/expectations/binary/test_expect_to_be_less_than.pkb
+++ b/test/ut3_user/expectations/binary/test_expect_to_be_less_than.pkb
@@ -2,7 +2,7 @@ create or replace package body test_expect_to_be_less_than is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
function to_be_less_than_block(
@@ -11,7 +11,7 @@ create or replace package body test_expect_to_be_less_than is
a_expected varchar2
) return varchar2 is
begin
- return expectations.binary_expectation_block(
+ return ut3_tester_helper.expectations_helper.binary_expectation_block(
'to_be_less_than', a_data_type, a_actual, a_data_type, a_expected
);
end;
@@ -22,7 +22,7 @@ create or replace package body test_expect_to_be_less_than is
a_expected varchar2
) return varchar2 is
begin
- return expectations.binary_expectation_block(
+ return ut3_tester_helper.expectations_helper.binary_expectation_block(
'not_to_be_less_than', a_data_type, a_actual, a_data_type, a_expected
);
end;
@@ -32,7 +32,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('date', 'sysdate', 'sysdate-1');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_number_greater is
@@ -40,7 +40,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('number', '2.0', '1.99');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ym_greater is
@@ -48,7 +48,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('interval year to month', '''2-1''', '''2-0''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ds_greater is
@@ -56,7 +56,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_greater is
@@ -64,7 +64,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_tz_greater is
@@ -72,7 +72,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_ltz_greater is
@@ -80,7 +80,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_date_equal is
@@ -88,7 +88,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('date', 'sysdate', 'sysdate');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_number_equal is
@@ -96,7 +96,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('number', '2.0', '2.00');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ym_equal is
@@ -104,7 +104,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('interval year to month', '''2-1''', '''2-1''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_interval_ds_equal is
@@ -112,7 +112,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('interval day to second', '''2 01:00:00''', '''2 01:00:00''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_equal is
@@ -120,7 +120,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_tz_equal is
@@ -128,7 +128,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_timestamp_ltz_equal is
@@ -136,7 +136,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure actual_date_less is
@@ -144,7 +144,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('date', 'sysdate-1', 'sysdate');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_number_less is
@@ -152,7 +152,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('number', '1.0', '1.01');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ym_less is
@@ -160,7 +160,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('interval year to month', '''2-1''', '''2-2''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_interval_ds_less is
@@ -168,7 +168,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('interval day to second', '''2 00:59:58''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_less is
@@ -176,7 +176,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('timestamp', 'to_timestamp(''1997 12'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_tz_less is
@@ -184,7 +184,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +03:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_timestamp_ltz_less is
@@ -192,7 +192,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate to_be_less_than_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +03:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_date_greater is
@@ -200,7 +200,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate not_to_be_less_than_block('date', 'sysdate', 'sysdate-1');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_number_greater is
@@ -208,7 +208,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate not_to_be_less_than_block('number', '2.0', '1.99');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_interval_ym_greater is
@@ -216,7 +216,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate not_to_be_less_than_block('interval year to month', '''2-1''', '''2-0''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_interval_ds_greater is
@@ -224,7 +224,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate not_to_be_less_than_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_timestamp_greater is
@@ -232,7 +232,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate not_to_be_less_than_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_timestamp_tz_gretr is
@@ -240,7 +240,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate not_to_be_less_than_block('timestamp with time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_actual_timestamp_ltz_gretr is
@@ -248,7 +248,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
execute immediate not_to_be_less_than_block('timestamp with local time zone', 'to_timestamp_tz(''1997 12 +01:00'',''YYYY FF TZR'')', 'to_timestamp_tz(''1997 12 +02:00'',''YYYY FF TZR'')');
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure actual_clob is
@@ -256,7 +256,7 @@ create or replace package body test_expect_to_be_less_than is
--Act
ut3.ut.expect(to_clob('3')).to_( ut3.be_less_than(4) );
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
end;
diff --git a/test/core/expectations/binary/test_expect_to_be_less_than.pks b/test/ut3_user/expectations/binary/test_expect_to_be_less_than.pks
similarity index 98%
rename from test/core/expectations/binary/test_expect_to_be_less_than.pks
rename to test/ut3_user/expectations/binary/test_expect_to_be_less_than.pks
index 67e6b8776..c03f0d28e 100644
--- a/test/core/expectations/binary/test_expect_to_be_less_than.pks
+++ b/test/ut3_user/expectations/binary/test_expect_to_be_less_than.pks
@@ -1,7 +1,7 @@
create or replace package test_expect_to_be_less_than is
--%suite((not)to_be_less_than)
- --%suitepath(utplsql.core.expectations.binary)
+ --%suitepath(utplsql.test_user.expectations.binary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/core/expectations/test_expectation_anydata.pkb b/test/ut3_user/expectations/test_expectation_anydata.pkb
similarity index 50%
rename from test/core/expectations/test_expectation_anydata.pkb
rename to test/ut3_user/expectations/test_expectation_anydata.pkb
index 9aa968b09..dec64d30d 100644
--- a/test/core/expectations/test_expectation_anydata.pkb
+++ b/test/ut3_user/expectations/test_expectation_anydata.pkb
@@ -5,7 +5,7 @@ create or replace package body test_expectation_anydata is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
procedure cleanup is
@@ -20,13 +20,13 @@ create or replace package body test_expectation_anydata is
l_expected_message varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertObject( cast(null as test_dummy_object) );
- g_test_actual := anydata.convertObject( cast(null as other_dummy_object) );
+ g_test_expected := anydata.convertObject( cast(null as ut3_tester_helper.test_dummy_object) );
+ g_test_actual := anydata.convertObject( cast(null as ut3_tester_helper.other_dummy_object) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_expected_message := q'[%Actual (ut3_tester.other_dummy_object) cannot be compared to Expected (ut3_tester.test_dummy_object) using matcher 'equal'.]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_expected_message := q'[%Actual (ut3_tester_helper.other_dummy_object) cannot be compared to Expected (ut3_tester_helper.test_dummy_object) using matcher 'equal'.]';
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -36,13 +36,13 @@ create or replace package body test_expectation_anydata is
l_expected_message varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertObject( test_dummy_object(1, 'A', '0') );
- g_test_actual := anydata.convertObject( other_dummy_object(1, 'A', '0') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.other_dummy_object(1, 'A', '0') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_expected_message := q'[%Actual (ut3_tester.other_dummy_object) cannot be compared to Expected (ut3_tester.test_dummy_object) using matcher 'equal'.]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_expected_message := q'[%Actual (ut3_tester_helper.other_dummy_object) cannot be compared to Expected (ut3_tester_helper.test_dummy_object) using matcher 'equal'.]';
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -50,12 +50,12 @@ create or replace package body test_expectation_anydata is
procedure fail_on_different_object_data is
begin
--Arrange
- g_test_expected := anydata.convertObject( test_dummy_object(1, 'A', '0') );
- g_test_actual := anydata.convertObject( test_dummy_object(1, null, '0') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, null, '0') );
--Act
ut3.ut.expect( g_test_actual ).not_to_equal( g_test_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_on_one_object_null is
@@ -63,16 +63,16 @@ create or replace package body test_expectation_anydata is
l_expected_message varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertObject( test_dummy_object(1, 'A', '0') );
- g_test_actual := anydata.convertObject( cast(null as test_dummy_object) );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
+ g_test_actual := anydata.convertObject( cast(null as ut3_tester_helper.test_dummy_object) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_expected_message := q'[%Actual: ut3_tester.test_dummy_object was expected to equal: ut3_tester.test_dummy_object
+ l_expected_message := q'[%Actual: ut3_tester_helper.test_dummy_object was expected to equal: ut3_tester_helper.test_dummy_object
%Diff:
%Rows: [ 1 differences ]
%Row No. 1 - Missing: 1A0]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
@@ -83,54 +83,54 @@ create or replace package body test_expectation_anydata is
l_expected_message varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertObject( test_dummy_object(1, 'A', '0') );
- g_test_actual := anydata.convertCollection( test_dummy_object_list(test_dummy_object(1, 'A', '0')) );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(ut3_tester_helper.test_dummy_object(1, 'A', '0')) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_expected_message := q'[%Actual (ut3_tester.test_dummy_object_list) cannot be compared to Expected (ut3_tester.test_dummy_object) using matcher 'equal'.]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_expected_message := q'[%Actual (ut3_tester_helper.test_dummy_object_list) cannot be compared to Expected (ut3_tester_helper.test_dummy_object) using matcher 'equal'.]';
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure fail_on_null_vs_empty_coll is
- l_null_list test_dummy_object_list;
+ l_null_list ut3_tester_helper.test_dummy_object_list;
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertCollection( test_dummy_object_list() );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list() );
g_test_actual := anydata.convertCollection( l_null_list );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_expected_message := q'[%Actual: ut3_tester.test_dummy_object_list [ count = ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 0 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.test_dummy_object_list [ count = ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 0 ]
%Diff:
%Rows: [ all different ]
%All rows are different as the columns position is not matching.]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure fail_on_one_collection_null is
- l_null_list test_dummy_object_list;
+ l_null_list ut3_tester_helper.test_dummy_object_list;
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertCollection( test_dummy_object_list(test_dummy_object(1, 'A', '0')) );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(ut3_tester_helper.test_dummy_object(1, 'A', '0')) );
g_test_actual := anydata.convertCollection( l_null_list );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_expected_message := q'[%Actual: ut3_tester.test_dummy_object_list [ count = ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 1 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.test_dummy_object_list [ count = ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 1 ]
%Diff:
%Rows: [ 1 differences ]
%Row No. 1 - Missing: 1A0]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -140,16 +140,16 @@ create or replace package body test_expectation_anydata is
l_expected_message varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertCollection( test_dummy_object_list(test_dummy_object(1, 'A', '0')) );
- g_test_actual := anydata.convertCollection( test_dummy_object_list() );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(ut3_tester_helper.test_dummy_object(1, 'A', '0')) );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list() );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_expected_message := q'[%Actual: ut3_tester.test_dummy_object_list [ count = 0 ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 1 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.test_dummy_object_list [ count = 0 ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 1 ]
%Diff:
%Rows: [ 1 differences ]
%Row No. 1 - Missing: 1A0]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
@@ -158,19 +158,19 @@ create or replace package body test_expectation_anydata is
procedure fail_on_different_coll_data is
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
- l_obj test_dummy_object := test_dummy_object(1, 'A', '0');
+ l_obj ut3_tester_helper.test_dummy_object := ut3_tester_helper.test_dummy_object(1, 'A', '0');
begin
--Arrange
- g_test_expected := anydata.convertCollection( test_dummy_object_list(l_obj) );
- g_test_actual := anydata.convertCollection( test_dummy_object_list(l_obj, l_obj) );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(l_obj) );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(l_obj, l_obj) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_expected_message := q'[%Actual: ut3_tester.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 1 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 1 ]
%Diff:
%Rows: [ 1 differences ]
%Row No. 2 - Extra: 1A0]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -183,66 +183,66 @@ create or replace package body test_expectation_anydata is
--Act
ut3.ut.expect( l_null_anydata ).to_equal( l_null_anydata );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_on_both_object_null is
--Arrange
- l_null_object test_dummy_object;
+ l_null_object ut3_tester_helper.test_dummy_object;
l_anydata anydata := anydata.convertObject(l_null_object);
begin
--Act
ut3.ut.expect( l_anydata ).to_equal( l_anydata );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_on_both_coll_null is
--Arrange
- l_null_collection test_dummy_object_list;
+ l_null_collection ut3_tester_helper.test_dummy_object_list;
l_anydata anydata := anydata.convertCollection(l_null_collection);
begin
--Act
ut3.ut.expect( l_anydata ).to_equal( l_anydata );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_on_same_coll_data is
begin
--Arrange
- g_test_expected := anydata.convertCollection( test_dummy_object_list(test_dummy_object(1, 'A', '0')) );
- g_test_actual := anydata.convertCollection( test_dummy_object_list(test_dummy_object(1, 'A', '0')) );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(ut3_tester_helper.test_dummy_object(1, 'A', '0')) );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(ut3_tester_helper.test_dummy_object(1, 'A', '0')) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_on_coll_different_order is
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
- l_first_obj test_dummy_object := test_dummy_object(1, 'A', '0');
- l_second_obj test_dummy_object := test_dummy_object(2, 'b', '1');
+ l_first_obj ut3_tester_helper.test_dummy_object := ut3_tester_helper.test_dummy_object(1, 'A', '0');
+ l_second_obj ut3_tester_helper.test_dummy_object := ut3_tester_helper.test_dummy_object(2, 'b', '1');
begin
--Arrange
- g_test_expected := anydata.convertCollection( test_dummy_object_list(l_first_obj, l_second_obj) );
- g_test_actual := anydata.convertCollection( test_dummy_object_list(l_second_obj, l_first_obj) );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(l_first_obj, l_second_obj) );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(l_second_obj, l_first_obj) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure success_on_same_object_data is
begin
--Arrange
- g_test_expected := anydata.convertObject( test_dummy_object(1, 'A', '0') );
- g_test_actual := anydata.convertObject( test_dummy_object(1, 'A', '0') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_attributes_as_list is
@@ -250,12 +250,12 @@ create or replace package body test_expectation_anydata is
begin
--Arrange
l_list := ut3.ut_varchar2_list('TEST_DUMMY_OBJECT/Value','/TEST_DUMMY_OBJECT/ID');
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>3, "name"=>'A',"Value"=>'1') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>3, "name"=>'A',"Value"=>'1') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected, a_exclude=> l_list );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_attributes_as_csv is
@@ -263,12 +263,12 @@ create or replace package body test_expectation_anydata is
begin
--Arrange
l_list := 'TEST_DUMMY_OBJECT/Value,TEST_DUMMY_OBJECT/ID';
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>2, "name"=>'A',"Value"=>'1') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>2, "name"=>'A',"Value"=>'1') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected, a_exclude=> l_list );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_attributes_xpath is
@@ -276,12 +276,12 @@ create or replace package body test_expectation_anydata is
begin
--Arrange
l_xpath := '//TEST_DUMMY_OBJECT/Value|//TEST_DUMMY_OBJECT/ID';
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>2, "name"=>'A',"Value"=>'1') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>2, "name"=>'A',"Value"=>'1') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected, a_exclude=> l_xpath );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_ignores_invalid_attrib is
@@ -289,12 +289,12 @@ create or replace package body test_expectation_anydata is
begin
--Arrange
l_exclude := 'BadAttributeName';
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected, a_exclude=> l_exclude );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_attributes_as_list is
@@ -302,12 +302,12 @@ create or replace package body test_expectation_anydata is
begin
--Arrange
l_list := ut3.ut_varchar2_list('TEST_DUMMY_OBJECT/Value','TEST_DUMMY_OBJECT/ID');
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>1, "name"=>'b',"Value"=>'0') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'b',"Value"=>'0') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected ).include( l_list );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_attributes_as_csv is
@@ -315,12 +315,12 @@ create or replace package body test_expectation_anydata is
begin
--Arrange
l_xpath := 'TEST_DUMMY_OBJECT/key,TEST_DUMMY_OBJECT/ID';
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected ).include( l_xpath );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_attributes_xpath is
@@ -328,12 +328,12 @@ create or replace package body test_expectation_anydata is
begin
--Arrange
l_xpath := '//TEST_DUMMY_OBJECT/key|//TEST_DUMMY_OBJECT/ID';
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected ).include( l_xpath );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_ignores_invalid_attrib is
@@ -341,12 +341,12 @@ create or replace package body test_expectation_anydata is
begin
--Arrange
l_include := ' BadAttributeName, TEST_DUMMY_OBJECT/ID ';
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'B',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'B',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected ).include( l_include );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_exclude_attributes_csv is
@@ -356,12 +356,12 @@ create or replace package body test_expectation_anydata is
--Arrange
l_include := 'TEST_DUMMY_OBJECT/key,TEST_DUMMY_OBJECT/ID,TEST_DUMMY_OBJECT/Value';
l_exclude := '//TEST_DUMMY_OBJECT/key|//TEST_DUMMY_OBJECT/Value';
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'B',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'B',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected ).exclude( l_exclude ).include( l_include );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_exclude_attrib_list is
@@ -373,12 +373,12 @@ create or replace package body test_expectation_anydata is
--Arrange
l_include := ut3.ut_varchar2_list('TEST_DUMMY_OBJECT/key','TEST_DUMMY_OBJECT/ID','TEST_DUMMY_OBJECT/Value');
l_exclude := ut3.ut_varchar2_list('TEST_DUMMY_OBJECT/key','TEST_DUMMY_OBJECT/Value');
- g_test_expected := anydata.convertObject( test_dummy_object(id=>1, "name"=>'B',"Value"=>'0') );
- g_test_actual := anydata.convertObject( test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'B',"Value"=>'0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(id=>1, "name"=>'A',"Value"=>'1') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected ).exclude( l_exclude ).include( l_include );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure reports_diff_attribute is
@@ -386,9 +386,9 @@ create or replace package body test_expectation_anydata is
l_actual varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertObject( test_dummy_object(1, 'A', '0') );
- g_test_actual := anydata.convertObject( test_dummy_object(1, NULL, '0') );
- l_expected := q'[Actual: ut3_tester.test_dummy_object was expected to equal: ut3_tester.test_dummy_object
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, NULL, '0') );
+ l_expected := q'[Actual: ut3_tester_helper.test_dummy_object was expected to equal: ut3_tester_helper.test_dummy_object
Diff:
Rows: [ 1 differences ]
Row No. 1 - Actual:
@@ -396,33 +396,33 @@ Rows: [ 1 differences ]
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_actual := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual := ut3_tester_helper.main_helper.get_failed_expectations(1);
ut.expect(l_actual).to_be_like(l_expected);
end;
procedure reports_diff_structure is
- l_obj test_dummy_object := test_dummy_object(1, 'A', '0');
+ l_obj ut3_tester_helper.test_dummy_object := ut3_tester_helper.test_dummy_object(1, 'A', '0');
l_expected varchar2(32767);
l_actual varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertCollection( test_dummy_object_list(l_obj) );
- g_test_actual := anydata.convertCollection( test_dummy_object_list(l_obj, l_obj) );
- l_expected := q'[Actual: ut3_tester.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 1 ]
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(l_obj) );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list(l_obj, l_obj) );
+ l_expected := q'[Actual: ut3_tester_helper.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 1 ]
Diff:
Rows: [ 1 differences ]
Row No. 2 - Extra: 1A0]';
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
--Assert
- l_actual := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual := ut3_tester_helper.main_helper.get_failed_expectations(1);
ut.expect(l_actual).to_be_like(l_expected);
end;
function get_anydata return anydata is
begin
- return anydata.convertObject( test_dummy_object(1, 'B', '0') );
+ return anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'B', '0') );
end;
procedure deprec_to_equal_excl_varch is
@@ -430,8 +430,8 @@ Rows: [ 1 differences ]
--Act
ut3.ut.expect(get_anydata()).to_equal(get_anydata(), a_exclude => 'A_COLUMN,Some_Col');
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_to_equal_excl_list is
@@ -439,8 +439,8 @@ Rows: [ 1 differences ]
--Act
ut3.ut.expect(get_anydata()).to_equal(get_anydata(), a_exclude => ut3.ut_varchar2_list('A_COLUMN','Some_Col'));
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_not_to_equal_excl_varch is
@@ -448,8 +448,8 @@ Rows: [ 1 differences ]
--Act
ut3.ut.expect(get_anydata()).not_to_equal(get_anydata(), a_exclude => 'A_COLUMN,Some_Col');
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_not_to_equal_excl_list is
@@ -457,8 +457,8 @@ Rows: [ 1 differences ]
--Act
ut3.ut.expect(get_anydata()).not_to_equal(get_anydata(), a_exclude => ut3.ut_varchar2_list('A_COLUMN','Some_Col'));
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_equal_excl_varch is
@@ -466,8 +466,8 @@ Rows: [ 1 differences ]
--Act
ut3.ut.expect(get_anydata()).to_(ut3.equal(get_anydata(), a_exclude => 'A_COLUMN,Some_Col'));
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_equal_excl_list is
@@ -475,58 +475,58 @@ Rows: [ 1 differences ]
--Act
ut3.ut.expect(get_anydata()).to_(ut3.equal(get_anydata(), a_exclude => ut3.ut_varchar2_list('A_COLUMN','Some_Col')));
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure data_diff_on_atr_data_mismatch is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
begin
--Arrange
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_actual
from dual connect by level <=2;
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=2
order by rownum desc;
--Act
ut3.ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected));
- l_expected_message := q'[Actual: ut3_tester.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 2 ]
+ l_expected_message := q'[Actual: ut3_tester_helper.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 2 ]
Diff:
Rows: [ 2 differences ]
Row No. 1 - Actual: 1Something 11
Row No. 1 - Expected: 2Something 22
Row No. 2 - Actual: 2Something 22
Row No. 2 - Expected: 1Something 11]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure data_diff_on_20_rows_only is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
begin
--Arrange
- select test_dummy_object( rn, 'Something '||rn, rn1)
+ select ut3_tester_helper.test_dummy_object( rn, 'Something '||rn, rn1)
bulk collect into l_actual
from (select rownum * case when mod(rownum,2) = 0 then -1 else 1 end rn,
rownum * case when mod(rownum,4) = 0 then -1 else 1 end rn1
from dual connect by level <=100);
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=110;
--Act
ut3.ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected));
- l_expected_message := q'[Actual: ut3_tester.test_dummy_object_list [ count = 100 ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 110 ]
+ l_expected_message := q'[Actual: ut3_tester_helper.test_dummy_object_list [ count = 100 ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 110 ]
Diff:
Rows: [ 60 differences, showing first 20 ]
Row No. 2 - Actual: -2Something -2
@@ -538,72 +538,72 @@ Rows: [ 60 differences, showing first 20 ]
Row No. 38 - Expected: 38Something 38
Row No. 40 - Actual: -40Something -40-40
Row No. 40 - Expected: 40Something 4040]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure collection_include_list is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
l_list ut3.ut_varchar2_list;
begin
l_list := ut3.ut_varchar2_list('TEST_DUMMY_OBJECT/Value','TEST_DUMMY_OBJECT/ID');
--Arrange
- select test_dummy_object( rownum, 'SomethingsDifferent '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'SomethingsDifferent '||rownum, rownum)
bulk collect into l_actual
from dual connect by level <=2;
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=2;
--Act
ut3.ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected)).include( l_list );
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure collection_exclude_list is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
l_list ut3.ut_varchar2_list;
begin
l_list := ut3.ut_varchar2_list('TEST_DUMMY_OBJECT/Value','TEST_DUMMY_OBJECT/ID');
--Arrange
- select test_dummy_object( rownum*2, 'Something '||rownum, rownum*2)
+ select ut3_tester_helper.test_dummy_object( rownum*2, 'Something '||rownum, rownum*2)
bulk collect into l_actual
from dual connect by level <=2;
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=2;
--Act
ut3.ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected)).exclude( l_list );
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure collection_include_list_fail is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
l_list ut3.ut_varchar2_list;
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
begin
l_list := ut3.ut_varchar2_list('TEST_DUMMY_OBJECT/name');
--Arrange
- select test_dummy_object( rownum, 'SomethingsDifferent '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'SomethingsDifferent '||rownum, rownum)
bulk collect into l_actual
from dual connect by level <=2;
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=2;
--Act
ut3.ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected)).include( l_list );
- l_expected_message := q'[%Actual: ut3_tester.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 2 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 2 ]
%Diff:
%Rows: [ 2 differences ]
%All rows are different as the columns are not matching.]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -611,11 +611,11 @@ Rows: [ 60 differences, showing first 20 ]
procedure array_same_data is
begin
--Arrange
- g_test_expected := anydata.convertCollection( t_tab_varchar('A') );
- g_test_actual := anydata.convertCollection( t_tab_varchar('A') );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.t_tab_varchar('A') );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.t_tab_varchar('A') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure array_diff_data is
@@ -623,119 +623,119 @@ Rows: [ 60 differences, showing first 20 ]
l_expected_message varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertCollection( t_tab_varchar('A') );
- g_test_actual := anydata.convertCollection( t_tab_varchar('B') );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.t_tab_varchar('A') );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.t_tab_varchar('B') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- l_expected_message := q'[%Actual: ut3_tester.t_tab_varchar [ count = 1 ] was expected to equal: ut3_tester.t_tab_varchar [ count = 1 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.t_tab_varchar [ count = 1 ] was expected to equal: ut3_tester_helper.t_tab_varchar [ count = 1 ]
%Diff:
%Rows: [ 1 differences ]
%Row No. 1 - Actual: B
%Row No. 1 - Expected: A]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure array_is_null is
- l_is_null t_tab_varchar ;
+ l_is_null ut3_tester_helper.t_tab_varchar ;
begin
ut3.ut.expect( anydata.convertCollection( l_is_null ) ).to_be_null;
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure array_null_equal_array_null is
- l_is_null t_tab_varchar ;
- l_is_null_bis t_tab_varchar ;
+ l_is_null ut3_tester_helper.t_tab_varchar ;
+ l_is_null_bis ut3_tester_helper.t_tab_varchar ;
begin
ut3.ut.expect( anydata.convertCollection( l_is_null ) ).to_equal(anydata.convertCollection( l_is_null_bis ));
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure array_null_equal_array_notnull is
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
- l_is_null t_tab_varchar ;
+ l_is_null ut3_tester_helper.t_tab_varchar ;
begin
--Arrange
g_test_expected := anydata.convertCollection( l_is_null );
- g_test_actual := anydata.convertCollection( t_tab_varchar('A') );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.t_tab_varchar('A') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- l_expected_message := q'[%Actual: ut3_tester.t_tab_varchar [ count = 1 ] was expected to equal: ut3_tester.t_tab_varchar [ count = ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.t_tab_varchar [ count = 1 ] was expected to equal: ut3_tester_helper.t_tab_varchar [ count = ]
%Diff:
%Rows: [ 1 differences ]
%Row No. 1 - Extra: A]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure empty_array_have_zero_elem is
begin
- ut3.ut.expect( anydata.convertCollection(t_tab_varchar())).to_have_count(0);
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut3.ut.expect( anydata.convertCollection(ut3_tester_helper.t_tab_varchar())).to_have_count(0);
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure array_empty_equal_array_empty is
begin
--Arrange
- g_test_expected := anydata.convertCollection(t_tab_varchar());
- g_test_actual := anydata.convertCollection(t_tab_varchar());
+ g_test_expected := anydata.convertCollection(ut3_tester_helper.t_tab_varchar());
+ g_test_actual := anydata.convertCollection(ut3_tester_helper.t_tab_varchar());
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure arr_empty_equal_arr_notempty is
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
- l_is_null t_tab_varchar ;
+ l_is_null ut3_tester_helper.t_tab_varchar ;
begin
--Arrange
- g_test_expected := anydata.convertCollection( t_tab_varchar() );
- g_test_actual := anydata.convertCollection( t_tab_varchar('A') );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.t_tab_varchar() );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.t_tab_varchar('A') );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- l_expected_message := q'[%Actual: ut3_tester.t_tab_varchar [ count = 1 ] was expected to equal: ut3_tester.t_tab_varchar [ count = 0 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.t_tab_varchar [ count = 1 ] was expected to equal: ut3_tester_helper.t_tab_varchar [ count = 0 ]
%Diff:
%Rows: [ 1 differences ]
%Row No. 1 - Extra: A]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure collection_is_null is
- l_null_list test_dummy_object_list;
+ l_null_list ut3_tester_helper.test_dummy_object_list;
begin
--Arrange
g_test_actual := anydata.convertCollection( l_null_list );
--Act
ut3.ut.expect( g_test_actual ).to_be_null;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure collection_is_empty is
begin
--Arrange
- g_test_actual := anydata.convertCollection( test_dummy_object_list() );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.test_dummy_object_list() );
--Act
ut3.ut.expect( g_test_actual ).to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure varray_same_data is
begin
--Arrange
- g_test_expected := anydata.convertCollection( t_varray(1) );
- g_test_actual := anydata.convertCollection( t_varray(1) );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.t_varray(1) );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.t_varray(1) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure varray_diff_data is
@@ -743,125 +743,125 @@ Rows: [ 60 differences, showing first 20 ]
l_expected_message varchar2(32767);
begin
--Arrange
- g_test_expected := anydata.convertCollection( t_varray(1) );
- g_test_actual := anydata.convertCollection( t_varray(2) );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.t_varray(1) );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.t_varray(2) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- l_expected_message := q'[%Actual: ut3_tester.t_varray [ count = 1 ] was expected to equal: ut3_tester.t_varray [ count = 1 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.t_varray [ count = 1 ] was expected to equal: ut3_tester_helper.t_varray [ count = 1 ]
%Diff:
%Rows: [ 1 differences ]
%Row No. 1 - Actual: 2
%Row No. 1 - Expected: 1]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure varray_is_null is
- l_is_null t_varray ;
+ l_is_null ut3_tester_helper.t_varray ;
begin
ut3.ut.expect( anydata.convertCollection( l_is_null ) ).to_be_null;
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure varray_null_equal_varray_null is
- l_is_null t_varray ;
- l_is_null_bis t_varray ;
+ l_is_null ut3_tester_helper.t_varray ;
+ l_is_null_bis ut3_tester_helper.t_varray ;
begin
ut3.ut.expect( anydata.convertCollection( l_is_null ) ).to_equal(anydata.convertCollection( l_is_null_bis ));
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure varr_null_equal_varr_notnull is
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
- l_is_null t_varray ;
+ l_is_null ut3_tester_helper.t_varray ;
begin
--Arrange
g_test_expected := anydata.convertCollection( l_is_null );
- g_test_actual := anydata.convertCollection( t_varray(1) );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.t_varray(1) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- l_expected_message := q'[%Actual: ut3_tester.t_varray [ count = 1 ] was expected to equal: ut3_tester.t_varray [ count = ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.t_varray [ count = 1 ] was expected to equal: ut3_tester_helper.t_varray [ count = ]
%Diff:
%Rows: [ 1 differences ]
%Row No. 1 - Extra: 1]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure empty_varray_have_zero_elem is
begin
- ut3.ut.expect( anydata.convertCollection(t_varray())).to_have_count(0);
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut3.ut.expect( anydata.convertCollection(ut3_tester_helper.t_varray())).to_have_count(0);
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure varr_empty_equal_varr_empty is
begin
--Arrange
- g_test_expected := anydata.convertCollection(t_varray());
- g_test_actual := anydata.convertCollection(t_varray());
+ g_test_expected := anydata.convertCollection(ut3_tester_helper.t_varray());
+ g_test_actual := anydata.convertCollection(ut3_tester_helper.t_varray());
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure varr_empty_equal_varr_notempty is
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
- l_is_null t_varray ;
+ l_is_null ut3_tester_helper.t_varray ;
begin
--Arrange
- g_test_expected := anydata.convertCollection( t_varray() );
- g_test_actual := anydata.convertCollection( t_varray(1) );
+ g_test_expected := anydata.convertCollection( ut3_tester_helper.t_varray() );
+ g_test_actual := anydata.convertCollection( ut3_tester_helper.t_varray(1) );
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected );
- l_expected_message := q'[%Actual: ut3_tester.t_varray [ count = 1 ] was expected to equal: ut3_tester.t_varray [ count = 0 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.t_varray [ count = 1 ] was expected to equal: ut3_tester_helper.t_varray [ count = 0 ]
%Diff:
%Rows: [ 1 differences ]
%Row No. 1 - Extra: 1]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure collection_join_by is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
begin
--Arrange
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_actual
from dual connect by level <=2;
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=2
order by rownum desc;
--Act
ut3.ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected)).join_by('TEST_DUMMY_OBJECT/ID');
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure collection_join_by_fail is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
begin
--Arrange
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_actual
from dual connect by level <=2;
- select test_dummy_object( rownum * 2, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum * 2, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=2
order by rownum desc;
--Act
ut3.ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected)).join_by('TEST_DUMMY_OBJECT/ID');
- l_expected_message := q'[%Actual: ut3_tester.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 2 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 2 ]
%Diff:
%Rows: [ 3 differences ]
%PK 2 - Actual: Something 2
@@ -870,44 +870,44 @@ Rows: [ 60 differences, showing first 20 ]
%PK 2 - Expected: 1
%PK 1 - Extra: 1Something 11
%PK 4 - Missing: 4Something 22]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure collection_unordered is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
begin
--Arrange
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_actual
from dual connect by level <=3;
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=3
order by rownum desc;
--Act
ut3.ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected)).unordered;
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure collection_unordered_fail is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
l_actual_message varchar2(32767);
l_expected_message varchar2(32767);
begin
--Arrange
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_actual
from dual connect by level <=2;
- select test_dummy_object( rownum * 2, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum * 2, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=2
order by rownum desc;
- l_expected_message := q'[%Actual: ut3_tester.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester.test_dummy_object_list [ count = 2 ]
+ l_expected_message := q'[%Actual: ut3_tester_helper.test_dummy_object_list [ count = 2 ] was expected to equal: ut3_tester_helper.test_dummy_object_list [ count = 2 ]
%Diff:
%Rows: [ 4 differences ]
%Extra: 1Something 11
@@ -916,7 +916,7 @@ Rows: [ 60 differences, showing first 20 ]
%Missing: 2Something 11]';
ut3.ut.expect(anydata.convertCollection(l_actual)).to_equal(anydata.convertCollection(l_expected)).unordered;
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -924,73 +924,73 @@ Rows: [ 60 differences, showing first 20 ]
procedure object_join_by is
begin
--Arrange
- g_test_expected := anydata.convertObject( test_dummy_object(1, 'A', '0') );
- g_test_actual := anydata.convertObject( test_dummy_object(1, 'A', '0') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
--Act
ut3.ut.expect(g_test_actual).to_equal(g_test_expected).join_by('TEST_DUMMY_OBJECT/ID');
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure object_unordered is
begin
- g_test_expected := anydata.convertObject( test_dummy_object(1, 'A', '0') );
- g_test_actual := anydata.convertObject( test_dummy_object(1, 'A', '0') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
--Act
ut3.ut.expect(g_test_actual).to_equal(g_test_expected).unordered;
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure collection_to_contain is
- l_actual test_dummy_object_list;
- l_expected test_dummy_object_list;
+ l_actual ut3_tester_helper.test_dummy_object_list;
+ l_expected ut3_tester_helper.test_dummy_object_list;
begin
--Arrange
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_actual
from dual connect by level <=4;
- select test_dummy_object( rownum, 'Something '||rownum, rownum)
+ select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum)
bulk collect into l_expected
from dual connect by level <=2
order by rownum desc;
--Act
ut3.ut.expect(anydata.convertCollection(l_actual)).to_contain(anydata.convertCollection(l_expected));
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure object_to_contain is
begin
--Arrange
- g_test_expected := anydata.convertObject( test_dummy_object(1, 'A', '0') );
- g_test_actual := anydata.convertObject( test_dummy_object(1, 'A', '0') );
+ g_test_expected := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
+ g_test_actual := anydata.convertObject( ut3_tester_helper.test_dummy_object(1, 'A', '0') );
--Act
ut3.ut.expect(g_test_actual).to_contain(g_test_expected);
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure arr_empty_eq_arr_empty_unord is
begin
--Arrange
- g_test_expected := anydata.convertCollection(t_tab_varchar(null));
- g_test_actual := anydata.convertCollection(t_tab_varchar(null));
+ g_test_expected := anydata.convertCollection(ut3_tester_helper.t_tab_varchar(null));
+ g_test_actual := anydata.convertCollection(ut3_tester_helper.t_tab_varchar(null));
--Act
ut3.ut.expect( g_test_actual ).to_equal( g_test_expected ).unordered();
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure arr_empty_nqua_arr_e_unord is
begin
--Arrange
- g_test_expected := anydata.convertCollection(t_tab_varchar('t'));
- g_test_actual := anydata.convertCollection(t_tab_varchar(' '));
+ g_test_expected := anydata.convertCollection(ut3_tester_helper.t_tab_varchar('t'));
+ g_test_actual := anydata.convertCollection(ut3_tester_helper.t_tab_varchar(' '));
--Act
ut3.ut.expect( g_test_actual ).not_to_equal( g_test_expected ).unordered();
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
diff --git a/test/core/expectations/test_expectation_anydata.pks b/test/ut3_user/expectations/test_expectation_anydata.pks
similarity index 99%
rename from test/core/expectations/test_expectation_anydata.pks
rename to test/ut3_user/expectations/test_expectation_anydata.pks
index bd0ac95db..a6eeb25fb 100644
--- a/test/core/expectations/test_expectation_anydata.pks
+++ b/test/ut3_user/expectations/test_expectation_anydata.pks
@@ -1,7 +1,7 @@
create or replace package test_expectation_anydata is
--%suite(equal on anydata)
- --%suitepath(utplsql.core.expectations)
+ --%suitepath(utplsql.test_user.expectations)
--%aftereach
procedure cleanup;
diff --git a/test/core/expectations/test_expectations_cursor.pkb b/test/ut3_user/expectations/test_expectations_cursor.pkb
similarity index 86%
rename from test/core/expectations/test_expectations_cursor.pkb
rename to test/ut3_user/expectations/test_expectations_cursor.pkb
index 1b155353d..a83fb0ae9 100644
--- a/test/core/expectations/test_expectations_cursor.pkb
+++ b/test/ut3_user/expectations/test_expectations_cursor.pkb
@@ -13,7 +13,7 @@ create or replace package body test_expectations_cursor is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
procedure setup_temp_table_test
@@ -50,7 +50,7 @@ create or replace package body test_expectations_cursor is
--Act - execute the expectation on cursor opened on GTT
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
--Cleanup
rollback;
end;
@@ -78,7 +78,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
ut3.ut.reset_nls;
end;
@@ -93,7 +93,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_on_both_null
@@ -104,7 +104,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_to_be_null
@@ -114,7 +114,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_be_null();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_not_to_be_not_null
@@ -124,7 +124,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).not_to_be_not_null();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_not_to_be_null
@@ -136,7 +136,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_be_not_null();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_to_be_not_null
@@ -148,7 +148,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_be_not_null();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_is_empty
@@ -160,7 +160,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure success_is_not_empty
@@ -172,7 +172,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).not_to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure failure_is_null
@@ -184,7 +184,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_be_null();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure failure_is_not_null
@@ -194,7 +194,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).not_to_be_null();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure failure_is_empty
@@ -206,7 +206,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure failure_is_not_empty
@@ -218,7 +218,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).not_to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_null_vs_empty
@@ -231,7 +231,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).not_to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_on_difference
@@ -245,7 +245,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_on_expected_missing
@@ -259,7 +259,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_on_actual_missing
@@ -273,7 +273,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_on_different_column_name
@@ -287,7 +287,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
@@ -302,7 +302,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure pass_on_different_column_order
@@ -316,7 +316,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected ).unordered_columns;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure pass_on_diff_column_ord_uc
@@ -330,7 +330,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected ).uc;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_on_multi_diff_col_order
@@ -351,7 +351,7 @@ create or replace package body test_expectations_cursor is
%Rows: [ 1 differences ]
%Row No. 1 - Actual: 4030
%Row No. 1 - Expected: 34]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -374,7 +374,7 @@ create or replace package body test_expectations_cursor is
%Rows: [ 1 differences ]
%Row No. 1 - Actual: 4030
%Row No. 1 - Expected: 34]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -390,7 +390,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure include_time_in_date_with_nls
@@ -407,7 +407,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect( l_actual ).to_equal( l_expected );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
ut3.ut.reset_nls;
end;
@@ -422,7 +422,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_columns_as_list
@@ -436,7 +436,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected, a_exclude=>ut3.ut_varchar2_list('A_COLUMN','Some_Col'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_columns_as_csv
@@ -450,7 +450,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected, a_exclude=>'A_COLUMN,Some_Col');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_columns_as_mixed_list is
@@ -463,7 +463,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected, a_exclude=>ut3.ut_varchar2_list('A_COLUMN','/ROW/Some_Col'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_columns_as_mix_csv_lst is
@@ -476,7 +476,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected, a_exclude=>'A_COLUMN,/ROW/Some_Col');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_columns_xpath_invalid
@@ -501,7 +501,7 @@ create or replace package body test_expectations_cursor is
%Row No. 2 - Expected: c
%Row No. 3 - Actual: d
%Row No. 3 - Expected: c]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -517,7 +517,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected, a_exclude=>'/ROW/A_COLUMN|/ROW/Some_Col');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure exclude_ignores_invalid_column
@@ -531,7 +531,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected, a_exclude=>ut3.ut_varchar2_list('A_COLUMN','non_existing_column'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_columns_as_list
@@ -545,7 +545,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).include(ut3.ut_varchar2_list('RN','//A_Column','SOME_COL'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_columns_as_csv
@@ -559,7 +559,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).include('RN,//A_Column, SOME_COL');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_columns_xpath
@@ -573,7 +573,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).include('/ROW/RN|//A_Column|//SOME_COL');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_ignores_invalid_column
@@ -587,7 +587,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).include(ut3.ut_varchar2_list(' RN ',' non_existing_column '));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_exclude_col_csv_xpath
@@ -601,7 +601,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).exclude('Some_Col').include('/ROW/RN|//Some_Col');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure include_exclude_columns_list
@@ -615,7 +615,7 @@ create or replace package body test_expectations_cursor is
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).exclude(ut3.ut_varchar2_list('A_COLUMN')).include(ut3.ut_varchar2_list('RN','A_Column','A_COLUMN'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure data_diff_on_rows_mismatch
@@ -637,7 +637,7 @@ Rows: [ 2 differences ]
Row No. 2 - Actual: 6
Row No. 2 - Expected: 2
Row No. 3 - Missing: 3]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -659,7 +659,7 @@ Columns:
Column [position: 2, data-type: NUMBER] is not expected in results.
Rows: [ 1 differences ]
All rows are different as the columns are not matching.]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -682,7 +682,7 @@ Columns:
Column data-type is invalid. Expected: NUMBER, actual: VARCHAR2.
Rows: [ all different ]
All rows are different as the columns position is not matching.]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -704,7 +704,7 @@ Diff:
Columns:%
Column [data-type: NUMBER] is missing. Expected column position: 2.%
Column [position: 2, data-type: NUMBER] is not expected in results.%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -729,7 +729,7 @@ Columns:
Column is misplaced. Expected position: 4, actual position: 3.
Rows: [ all different ]
All rows are different as the columns position is not matching.]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -746,7 +746,7 @@ Rows: [ all different ]
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).unordered_columns;
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
--%test(Reports only mismatched columns on column data mismatch)
@@ -769,7 +769,7 @@ Rows: [ 2 differences ]
Row No. 1 - Expected: 1
Row No. 2 - Actual: -2
Row No. 2 - Expected: 2]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -806,7 +806,7 @@ Rows: [ 60 differences, showing first 20 ]
Row No. 38 - Expected: 38
Row No. 40 - Actual: -40
Row No. 40 - Expected: 40]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -843,7 +843,7 @@ Rows: [ 4 differences ]
Row No. 3 - Actual: JESSICAJONES42345
Row No. 3 - Expected: 3TONYSTARK100000
Row No. 4 - Extra: MLUKESKYWALKER21000]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -879,7 +879,7 @@ Rows: [ 4 differences ]
Row No. 3 - Actual: JESSICAJONES42345
Row No. 3 - Expected: 3TONYSTARK100000
Row No. 4 - Extra: MLUKESKYWALKER21000]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -937,7 +937,7 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(l_expected).to_equal(l_actual);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure closes_cursor_after_use
@@ -1008,13 +1008,13 @@ Rows: [ 4 differences ]
l_expected sys_refcursor;
begin
--Arrange
- open l_actual for select object_name from all_objects where rownum <=1100 order by object_id;
- open l_expected for select object_name from all_objects where rownum <=1100 order by object_id;
+ open l_actual for select rownum object_name from dual connect by level <=1100;
+ open l_expected for select rownum object_name from dual connect by level <=1100;
--Act
ut3.ut.expect(l_actual).to_equal(l_expected);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
function get_cursor return sys_refcursor is
@@ -1029,8 +1029,8 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(get_cursor()).to_equal(get_cursor(), a_exclude => 'A_COLUMN,Some_Col');
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_to_equal_excl_list is
@@ -1038,8 +1038,8 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(get_cursor()).to_equal(get_cursor(), a_exclude => ut3.ut_varchar2_list('A_COLUMN','Some_Col'));
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_not_to_equal_excl_varch is
@@ -1047,8 +1047,8 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(get_cursor()).not_to_equal(get_cursor(), a_exclude => 'A_COLUMN,Some_Col');
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_not_to_equal_excl_list is
@@ -1056,8 +1056,8 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(get_cursor()).not_to_equal(get_cursor(), a_exclude => ut3.ut_varchar2_list('A_COLUMN','Some_Col'));
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_equal_excl_varch is
@@ -1065,8 +1065,8 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(get_cursor()).to_(ut3.equal(get_cursor(), a_exclude => 'A_COLUMN,Some_Col'));
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure deprec_equal_excl_list is
@@ -1074,8 +1074,8 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(get_cursor()).to_(ut3.equal(get_cursor(), a_exclude => ut3.ut_varchar2_list('A_COLUMN','Some_Col')));
--Assert
- ut.expect(cardinality(ut3.ut_expectation_processor.get_warnings())).to_equal(1);
- ut.expect(ut3.ut_expectation_processor.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
+ ut.expect(cardinality(ut3_tester_helper.main_helper.get_warnings())).to_equal(1);
+ ut.expect(ut3_tester_helper.main_helper.get_warnings()(1)).to_be_like('The syntax: "%" is deprecated.%');
end;
procedure col_diff_on_col_name_implicit is
@@ -1099,7 +1099,7 @@ Rows: [ 4 differences ]
%Column <2> [position: 2, data-type: CHAR] is not expected in results.
%Rows: [ all different ]
%All rows are different as the columns position is not matching.]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1116,7 +1116,7 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(l_actual).to_equal(l_expected);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_unorderd_compr_success is
@@ -1129,7 +1129,7 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).unordered;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_unord_compr_success_uc is
@@ -1142,7 +1142,7 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).unordered().uc();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_unordered_compare_fail is
@@ -1168,7 +1168,7 @@ Rows: [ 4 differences ]
%Rows: [ 2 differences ]%
%Extra: test-666%
%Missing: test-667%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1184,7 +1184,7 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by('OBJECT_ID').uc();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_joinby_compare is
@@ -1198,7 +1198,7 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by('OBJECT_ID');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_joinby_col_not_ord
@@ -1221,7 +1221,7 @@ Rows: [ 4 differences ]
%PK 1 - Expected: 3
%PK 1 - Actual: 40
%PK 1 - Expected: 4]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1237,7 +1237,7 @@ Rows: [ 4 differences ]
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by(ut3.ut_varchar2_list('OBJECT_ID,OBJECT_NAME'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_joinby_compare_nokey is
@@ -1258,7 +1258,7 @@ Diff:%
%Unable to join sets:%
%Join key OWNER does not exists in expected%
%Join key OWNER does not exists in actual%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1283,7 +1283,7 @@ Diff:%
%Join key USER_ID does not exists in expected%
%Join key OWNER does not exists in actual%
%Join key USER_ID does not exists in actual%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1306,7 +1306,7 @@ Diff:%
%Unable to join sets:%
%Join key SOME_COL does not exists in expected%
%Join key SOME_COL does not exists in actual%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1329,7 +1329,7 @@ Diff:%
%Unable to join sets:%
%Join key RN does not exists in expected%
%Join key RN does not exists in actual%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1351,7 +1351,7 @@ Diff:%
Diff:%
%Unable to join sets:%
%Join key RNI does not exists in expected%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1373,7 +1373,7 @@ Diff:%
Diff:%
%Unable to join sets:%
%Join key RNI does not exists in actual%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1388,7 +1388,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by('OBJECT_ID');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_unorder_compare_1000 is
@@ -1401,7 +1401,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).unordered;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_joinby_compare_fail is
@@ -1425,7 +1425,7 @@ Diff:%
%Rows: [ 1 differences ]%
%PK TEST - Actual:%-610%
%PK TEST - Expected:%-600%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1451,7 +1451,7 @@ Diff:%
%Rows: [ 2 differences ]%
%PK TEST-610 - Extra: TEST-610%
%PK TEST-600 - Missing: TEST-600%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1477,7 +1477,7 @@ Diff:%
%Rows: [ 1 differences ]%
%PK TESTY - Actual:%-610%
%PK TESTY - Expected:%-600%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1493,7 +1493,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).include(ut3.ut_varchar2_list('RN','//A_Column','SOME_COL')).unordered;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure joinby_incl_cols_as_list
@@ -1507,7 +1507,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).include(ut3.ut_varchar2_list('RN','//A_Column','SOME_COL')).join_by('RN');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure joinby_excl_cols_as_list
@@ -1521,7 +1521,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).exclude(ut3.ut_varchar2_list('//Some_Col','A_COLUMN')).join_by('RN');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure unord_excl_cols_as_list
@@ -1535,7 +1535,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).exclude(ut3.ut_varchar2_list('A_COLUMN|//Some_Col')).unordered;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure excl_dif_cols_as_list
@@ -1549,7 +1549,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).exclude(ut3.ut_varchar2_list('A_COLUMN'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure inlc_dif_cols_as_list
@@ -1563,7 +1563,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).include(ut3.ut_varchar2_list('RN'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure inlc_exc_dif_cols_as_list
@@ -1577,7 +1577,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).include(ut3.ut_varchar2_list('RN')).exclude(ut3.ut_varchar2_list('A_COLUMN'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure compare_obj_typ_col_un is
@@ -1585,16 +1585,16 @@ Diff:%
l_expected sys_refcursor;
begin
--Arrange
- open l_actual for select test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_actual for select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum asc;
- open l_expected for select test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_expected for select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum desc;
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).unordered;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure compare_obj_typ_col_jb is
@@ -1602,16 +1602,16 @@ Diff:%
l_expected sys_refcursor;
begin
--Arrange
- open l_actual for select test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_actual for select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum asc;
- open l_expected for select test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_expected for select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum desc;
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by('COLVAL/ID');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure comp_obj_typ_col_un_fail is
@@ -1621,10 +1621,10 @@ Diff:%
l_actual_message varchar2(32767);
begin
--Arrange
- open l_actual for select test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_actual for select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum asc;
- open l_expected for select test_dummy_object( rownum, 'Somethings '||rownum, rownum) as colval
+ open l_expected for select ut3_tester_helper.test_dummy_object( rownum, 'Somethings '||rownum, rownum) as colval
from dual connect by level <=3 order by rownum desc;
--Act
@@ -1637,7 +1637,7 @@ Rows: [ 5 differences%
%Missing: 3Somethings 33%
%Missing: 2Somethings 22%
%Missing: 1Somethings 11%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1647,16 +1647,16 @@ Rows: [ 5 differences%
l_expected sys_refcursor;
begin
--Arrange
- open l_actual for select test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_actual for select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum asc;
- open l_expected for select test_dummy_object( rownum, 'Somethings '||rownum, rownum) as colval
+ open l_expected for select ut3_tester_helper.test_dummy_object( rownum, 'Somethings '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum desc;
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by('COLVAL/ID');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_not_null();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure comp_obj_typ_col_jb_multi is
@@ -1664,16 +1664,16 @@ Rows: [ 5 differences%
l_expected sys_refcursor;
begin
--Arrange
- open l_actual for select rownum as rn,test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_actual for select rownum as rn,ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum asc;
- open l_expected for select rownum as rn,test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_expected for select rownum as rn,ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum desc;
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by(ut3.ut_varchar2_list('RN,COLVAL/ID'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure comp_obj_typ_col_jb_nokey is
@@ -1683,10 +1683,10 @@ Rows: [ 5 differences%
l_actual_message varchar2(32767);
begin
--Arrange
- open l_actual for select test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_actual for select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum asc;
- open l_expected for select test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
+ open l_expected for select ut3_tester_helper.test_dummy_object( rownum, 'Something '||rownum, rownum) as colval
from dual connect by level <=2 order by rownum desc;
--Act
@@ -1697,7 +1697,7 @@ Diff:%
%Unable to join sets:%
%Join key COLVAL/IDS does not exists in expected%
%Join key COLVAL/IDS does not exists in actual%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1729,7 +1729,7 @@ Diff:%
ut3.ut.expect(l_actual).to_equal(l_expected).join_by('KEY');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure compare_nest_tab_col_jb_fail is
@@ -1764,7 +1764,7 @@ Diff:%
%PK % - Expected: %%
%PK % - Actual: %%
%PK % - Expected: %%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1796,7 +1796,7 @@ Diff:%
ut3.ut.expect(l_actual).to_equal(l_expected).join_by(ut3.ut_varchar2_list('KEY,VALUE'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure compare_nest_tab_cols_jb_fail is
@@ -1831,7 +1831,7 @@ Diff:%
%PK %% - Extra%
%PK %% - Missing%
%PK %% - Missing%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -1870,7 +1870,7 @@ Diff:%
%PK %%%%%%%%%%%%%Extra%%%
%PK %%%%%%%%%%%%%Missing%%%
%PK %%%%%%%%%%%%%Missing%%%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
@@ -1902,7 +1902,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
@@ -1940,7 +1940,7 @@ Diff:%
%Extra: 21Apples 12Apples 2
%Missing: 11Peaches 12Peaches 2
%Missing: 21Peaches 12Peaches 2%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
@@ -1974,7 +1974,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by('NESTED_TABLE');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
@@ -2006,7 +2006,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by('NESTED_TABLE/OBJECT_OWNER');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
@@ -2038,7 +2038,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_equal(l_expected).join_by('NESTED_TABLE/ANNOTATIONS');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
@@ -2081,10 +2081,10 @@ Diff:%
%Rows: [ 1 differences ]
%PK TEST - Actual: TESTTESTTEST%1testtesttest2testtesttest%
%PK TEST - Expected: TESTTESTTEST%11testtesttest2testtesttest%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
- --ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ --ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure compare_rec_coll_as_join is
@@ -2122,7 +2122,7 @@ Diff:%
%Join key NESTED_TABLE/ANNOTATIONS/TEXT does not exists in expected%
%Join key NESTED_TABLE/ANNOTATIONS/TEXT does not exists in actual%
%Please make sure that your join clause is not refferring to collection element%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
@@ -2154,7 +2154,7 @@ Diff:%
%Diff:
%Rows: [ 1 differences ]
%Missing: Table%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
@@ -2171,9 +2171,9 @@ Diff:%
and rownum < 20;
--Act
- ut3.ut.expect(l_actual).to_( ut3.contain(l_expected) );
+ ut3.ut.expect(l_actual).to_contain(l_expected);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_to_contain_uc is
@@ -2187,9 +2187,9 @@ Diff:%
and rownum < 20;
--Act
- ut3.ut.expect(l_actual).to_( ut3.contain(l_expected).uc() );
+ ut3.ut.expect(l_actual).to_contain(l_expected).uc();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_to_contain_unordered is
@@ -2198,15 +2198,15 @@ Diff:%
begin
--Arrange
open l_actual for
- select owner, object_name,object_type from all_objects where owner = user
+ select rownum owner, rownum||'name' object_name,'PACKAGE' object_type from dual connect by level < 20
order by 1,2,3 asc;
open l_expected for
- select owner, object_name,object_type from all_objects where owner = user and rownum < 20;
+ select rownum owner, rownum||'name' object_name,'PACKAGE' object_type from dual connect by level < 10;
--Act
- ut3.ut.expect(l_actual).to_( ut3.contain(l_expected).unordered() );
+ ut3.ut.expect(l_actual).to_contain(l_expected).unordered();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_to_contain_fail is
@@ -2216,10 +2216,8 @@ Diff:%
l_actual_message varchar2(32767);
begin
--Arrange
- open l_actual for select owner, object_name,object_type from all_objects where owner = user
- and rownum < 5;
- open l_expected for select owner, object_name,object_type from all_objects where owner = user
- and rownum < 10;
+ open l_actual for select rownum owner,rownum object_name, 'PACKAGE' object_type from dual connect by level < 5;
+ open l_expected for select rownum owner,rownum object_name, 'PACKAGE' object_type from dual connect by level < 10;
--Act
ut3.ut.expect(l_actual).to_contain(l_expected);
@@ -2232,7 +2230,7 @@ Diff:%
%Missing: %%%%
%Missing: %%%%
%Missing: %%%%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -2248,7 +2246,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_contain(l_expected).join_by('USERNAME');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_contain_joinby_fail is
@@ -2275,7 +2273,7 @@ Diff:%
%Rows: [ 1 differences ]
%PK TEST - Actual: -600
%PK TEST - Expected: -601%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
@@ -2292,7 +2290,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_contain(l_expected).include(ut3.ut_varchar2_list('RN','//A_Column','SOME_COL'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure to_cont_join_incl_cols_as_lst
@@ -2306,7 +2304,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_contain(l_expected).include(ut3.ut_varchar2_list('RN','//A_Column','SOME_COL')).join_by('RN');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure contain_join_excl_cols_as_lst
@@ -2320,7 +2318,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_contain(l_expected).exclude(ut3.ut_varchar2_list('//Some_Col','A_COLUMN')).join_by('RN');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure contain_excl_cols_as_list
@@ -2334,7 +2332,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_contain(l_expected).exclude(ut3.ut_varchar2_list('A_COLUMN|//Some_Col'));
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_not_to_contain
@@ -2351,7 +2349,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).not_to_contain(l_expected);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure cursor_not_to_contain_fail is
@@ -2379,7 +2377,7 @@ Diff:%
%CHARNUMBER%
%Data:%
%TEST-600
%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -2395,7 +2393,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).not_to_contain(l_expected).join_by('USER_ID');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_cont_join_incl_cols_as_lst is
@@ -2408,7 +2406,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).not_to_contain(l_expected).include(ut3.ut_varchar2_list('RN','//A_Column','SOME_COL')).join_by('RN');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_cont_join_excl_cols_as_lst is
@@ -2421,7 +2419,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).not_to_contain(l_expected).exclude(ut3.ut_varchar2_list('//Some_Col','A_COLUMN')).join_by('RN');
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure to_contain_duplicates is
@@ -2437,7 +2435,7 @@ Diff:%
--Act
ut3.ut.expect(l_actual).to_contain(l_expected);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure to_contain_duplicates_fail is
@@ -2460,7 +2458,7 @@ Diff:%
%Missing: %
%Missing: %
%Missing: %]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -2492,7 +2490,7 @@ Diff:%
%Rows: [ 2 differences ]
%Missing: 1Something 1
%Missing: 2Something 2%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -2520,7 +2518,7 @@ Diff:%
%1Something 1
2Something 2
%was expected to be empty%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
diff --git a/test/core/expectations/test_expectations_cursor.pks b/test/ut3_user/expectations/test_expectations_cursor.pks
similarity index 99%
rename from test/core/expectations/test_expectations_cursor.pks
rename to test/ut3_user/expectations/test_expectations_cursor.pks
index e8f492674..ae37b37d3 100644
--- a/test/core/expectations/test_expectations_cursor.pks
+++ b/test/ut3_user/expectations/test_expectations_cursor.pks
@@ -1,7 +1,7 @@
create or replace package test_expectations_cursor is
--%suite(cursor expectations)
- --%suitepath(utplsql.core.expectations)
+ --%suitepath(utplsql.test_user.expectations)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/core/expectations/test_matchers.pkb b/test/ut3_user/expectations/test_matchers.pkb
similarity index 57%
rename from test/core/expectations/test_matchers.pkb
rename to test/ut3_user/expectations/test_matchers.pkb
index 1a15986b9..88e25e8b1 100644
--- a/test/core/expectations/test_matchers.pkb
+++ b/test/ut3_user/expectations/test_matchers.pkb
@@ -2,7 +2,7 @@ create or replace package body test_matchers is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
procedure exec_matcher(a_type varchar2, a_actual_value varchar2, a_expected_value varchar2, a_matcher varchar2, a_result integer, a_prefix varchar2 := null) is
@@ -16,10 +16,10 @@ create or replace package body test_matchers is
ut3.ut.expect( l_actual ).'||a_prefix||'to_'||a_matcher||'( l_expected );
end;';
execute immediate l_statement;
- if a_result = ut3.ut_utils.gc_success then
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ if a_result = ut3_tester_helper.main_helper.gc_success then
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_equal(0);
else
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_be_greater_than(0);
end if;
cleanup_expectations();
end exec_matcher;
@@ -36,10 +36,10 @@ create or replace package body test_matchers is
ut3.ut.expect(l_actual_value).to_be_between(l_lower, l_higher);
end;';
execute immediate l_statement;
- if a_result = ut3.ut_utils.gc_success then
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ if a_result = ut3_tester_helper.main_helper.gc_success then
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_equal(0);
else
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_be_greater_than(0);
end if;
cleanup_expectations();
end exec_be_between;
@@ -56,10 +56,10 @@ create or replace package body test_matchers is
ut3.ut.expect(l_actual_value).'||a_not_prefix||'to_be_between(l_value1, l_value2);
end;';
execute immediate l_statement;
- if a_result = ut3.ut_utils.gc_success then
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ if a_result = ut3_tester_helper.main_helper.gc_success then
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_equal(0);
else
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_be_greater_than(0);
end if;
cleanup_expectations();
end exec_be_between2;
@@ -76,13 +76,14 @@ create or replace package body test_matchers is
ut3.ut.expect( l_actual ).' || a_prefix ||q'[to_be_like(l_pattern, l_escape_char);
end;]'
using a_pattern, a_escape;
- if a_result = ut3.ut_utils.gc_success then
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ if a_result = ut3_tester_helper.main_helper.gc_success then
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_equal(0);
else
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_be_greater_than(0);
end if;
cleanup_expectations();
end;
+
procedure exec_match(a_type varchar2, a_actual_value varchar2, a_pattern varchar2, a_modifiers varchar2, a_result integer, a_not_prefix varchar2 default null) is
l_statement varchar2(32767);
begin
@@ -96,10 +97,10 @@ create or replace package body test_matchers is
ut3.ut.expect( l_actual ).'||a_not_prefix||'to_match(l_pattern, l_modifiers);
end;';
execute immediate l_statement using a_pattern, a_modifiers;
- if a_result = ut3.ut_utils.gc_success then
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ if a_result = ut3_tester_helper.main_helper.gc_success then
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_equal(0);
else
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num()).to_be_greater_than(0);
end if;
cleanup_expectations();
end;
@@ -108,135 +109,135 @@ create or replace package body test_matchers is
begin
--failure when value out of range
- exec_be_between2('date', 'sysdate', 'sysdate-2', 'sysdate-1', ut3.ut_utils.gc_failure, '');
- exec_be_between2('number', '2.0', '1.99', '1.999', ut3.ut_utils.gc_failure, '');
- exec_be_between2('varchar2(1)', '''c''', '''a''', '''b''', ut3.ut_utils.gc_failure, '');
- exec_be_between2('timestamp', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3.ut_utils.gc_failure, '');
- exec_be_between2('timestamp with local time zone', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3.ut_utils.gc_failure, '');
- exec_be_between2('timestamp with time zone', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3.ut_utils.gc_failure, '');
- exec_be_between2('interval year to month', '''2-2''', '''2-0''', '''2-1''', ut3.ut_utils.gc_failure, '');
- exec_be_between2('interval day to second', '''2 01:00:00''', '''2 00:59:58''', '''2 00:59:59''', ut3.ut_utils.gc_failure, '');
+ exec_be_between2('date', 'sysdate', 'sysdate-2', 'sysdate-1', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('number', '2.0', '1.99', '1.999', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('varchar2(1)', '''c''', '''a''', '''b''', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('timestamp', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('timestamp with local time zone', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('timestamp with time zone', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('interval year to month', '''2-2''', '''2-0''', '''2-1''', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('interval day to second', '''2 01:00:00''', '''2 00:59:58''', '''2 00:59:59''', ut3_tester_helper.main_helper.gc_failure, '');
--success when value in range
- exec_be_between2('date', 'sysdate', 'sysdate-1', 'sysdate+1', ut3.ut_utils.gc_success, '');
- exec_be_between2('number', '2.0', '1.99', '2.01', ut3.ut_utils.gc_success, '');
- exec_be_between2('varchar2(1)', '''b''', '''a''', '''c''', ut3.ut_utils.gc_success, '');
- exec_be_between2('timestamp', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3.ut_utils.gc_success, '');
- exec_be_between2('timestamp with local time zone', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3.ut_utils.gc_success, '');
- exec_be_between2('timestamp with time zone', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3.ut_utils.gc_success, '');
- exec_be_between2('interval year to month', '''2-1''', '''2-0''', '''2-2''', ut3.ut_utils.gc_success, '');
- exec_be_between2('interval day to second', '''2 01:00:00''', '''2 00:59:58''', '''2 01:00:01''', ut3.ut_utils.gc_success, '');
+ exec_be_between2('date', 'sysdate', 'sysdate-1', 'sysdate+1', ut3_tester_helper.main_helper.gc_success, '');
+ exec_be_between2('number', '2.0', '1.99', '2.01', ut3_tester_helper.main_helper.gc_success, '');
+ exec_be_between2('varchar2(1)', '''b''', '''a''', '''c''', ut3_tester_helper.main_helper.gc_success, '');
+ exec_be_between2('timestamp', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3_tester_helper.main_helper.gc_success, '');
+ exec_be_between2('timestamp with local time zone', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3_tester_helper.main_helper.gc_success, '');
+ exec_be_between2('timestamp with time zone', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3_tester_helper.main_helper.gc_success, '');
+ exec_be_between2('interval year to month', '''2-1''', '''2-0''', '''2-2''', ut3_tester_helper.main_helper.gc_success, '');
+ exec_be_between2('interval day to second', '''2 01:00:00''', '''2 00:59:58''', '''2 01:00:01''', ut3_tester_helper.main_helper.gc_success, '');
--success when value not in range
- exec_be_between2('date', 'sysdate', 'sysdate-2', 'sysdate-1', ut3.ut_utils.gc_success, 'not_');
- exec_be_between2('number', '2.0', '1.99', '1.999', ut3.ut_utils.gc_success, 'not_');
- exec_be_between2('varchar2(1)', '''c''', '''a''', '''b''', ut3.ut_utils.gc_success, 'not_');
- exec_be_between2('timestamp', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3.ut_utils.gc_success, 'not_');
- exec_be_between2('timestamp with local time zone', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3.ut_utils.gc_success, 'not_');
- exec_be_between2('timestamp with time zone', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3.ut_utils.gc_success, 'not_');
- exec_be_between2('interval year to month', '''2-2''', '''2-0''', '''2-1''', ut3.ut_utils.gc_success, 'not_');
- exec_be_between2('interval day to second', '''2 01:00:00''', '''2 00:59:58''', '''2 00:59:59''', ut3.ut_utils.gc_success, 'not_');
+ exec_be_between2('date', 'sysdate', 'sysdate-2', 'sysdate-1', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_between2('number', '2.0', '1.99', '1.999', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_between2('varchar2(1)', '''c''', '''a''', '''b''', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_between2('timestamp', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_between2('timestamp with local time zone', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_between2('timestamp with time zone', 'systimestamp+1', 'systimestamp-1', 'systimestamp', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_between2('interval year to month', '''2-2''', '''2-0''', '''2-1''', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_between2('interval day to second', '''2 01:00:00''', '''2 00:59:58''', '''2 00:59:59''', ut3_tester_helper.main_helper.gc_success, 'not_');
--failure when value not out of range
- exec_be_between2('date', 'sysdate', 'sysdate-1', 'sysdate+1', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('number', '2.0', '1.99', '2.01', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('varchar2(1)', '''b''', '''a''', '''c''', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('timestamp', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('timestamp with local time zone', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('timestamp with time zone', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('interval year to month', '''2-1''', '''2-0''', '''2-2''', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('interval day to second', '''2 01:00:00''', '''2 00:59:58''', '''2 01:00:01''', ut3.ut_utils.gc_failure, 'not_');
+ exec_be_between2('date', 'sysdate', 'sysdate-1', 'sysdate+1', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('number', '2.0', '1.99', '2.01', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('varchar2(1)', '''b''', '''a''', '''c''', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('timestamp', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('timestamp with local time zone', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('timestamp with time zone', 'systimestamp', 'systimestamp-1', 'systimestamp+1', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('interval year to month', '''2-1''', '''2-0''', '''2-2''', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('interval day to second', '''2 01:00:00''', '''2 00:59:58''', '''2 01:00:01''', ut3_tester_helper.main_helper.gc_failure, 'not_');
--failure when value is null
- exec_be_between2('date', 'null', 'sysdate-1', 'sysdate+1', ut3.ut_utils.gc_failure, '');
- exec_be_between2('number', 'null', '1.99', '2.01', ut3.ut_utils.gc_failure, '');
- exec_be_between2('varchar2(1)', 'null', '''a''', '''c''', ut3.ut_utils.gc_failure, '');
- exec_be_between2('timestamp', 'null', 'systimestamp-1', 'systimestamp+1', ut3.ut_utils.gc_failure, '');
- exec_be_between2('timestamp with local time zone', 'null', 'systimestamp-1', 'systimestamp+1', ut3.ut_utils.gc_failure, '');
- exec_be_between2('timestamp with time zone', 'null', 'systimestamp-1', 'systimestamp+1', ut3.ut_utils.gc_failure, '');
- exec_be_between2('interval year to month', 'null', '''2-0''', '''2-2''', ut3.ut_utils.gc_failure, '');
- exec_be_between2('interval day to second', 'null', '''2 00:59:58''', '''2 01:00:01''', ut3.ut_utils.gc_failure, '');
+ exec_be_between2('date', 'null', 'sysdate-1', 'sysdate+1', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('number', 'null', '1.99', '2.01', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('varchar2(1)', 'null', '''a''', '''c''', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('timestamp', 'null', 'systimestamp-1', 'systimestamp+1', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('timestamp with local time zone', 'null', 'systimestamp-1', 'systimestamp+1', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('timestamp with time zone', 'null', 'systimestamp-1', 'systimestamp+1', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('interval year to month', 'null', '''2-0''', '''2-2''', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('interval day to second', 'null', '''2 00:59:58''', '''2 01:00:01''', ut3_tester_helper.main_helper.gc_failure, '');
- exec_be_between2('date', 'null', 'sysdate-2', 'sysdate-1', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('number', 'null', '1.99', '1.999', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('varchar2(1)', 'null', '''a''', '''b''', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('timestamp', 'null', 'systimestamp-1', 'systimestamp', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('timestamp with local time zone', 'null', 'systimestamp-1', 'systimestamp', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('timestamp with time zone', 'null', 'systimestamp-1', 'systimestamp', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('interval year to month', 'null', '''2-0''', '''2-1''', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('interval day to second', 'null', '''2 00:59:58''', '''2 00:59:59''', ut3.ut_utils.gc_failure, 'not_');
+ exec_be_between2('date', 'null', 'sysdate-2', 'sysdate-1', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('number', 'null', '1.99', '1.999', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('varchar2(1)', 'null', '''a''', '''b''', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('timestamp', 'null', 'systimestamp-1', 'systimestamp', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('timestamp with local time zone', 'null', 'systimestamp-1', 'systimestamp', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('timestamp with time zone', 'null', 'systimestamp-1', 'systimestamp', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('interval year to month', 'null', '''2-0''', '''2-1''', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('interval day to second', 'null', '''2 00:59:58''', '''2 00:59:59''', ut3_tester_helper.main_helper.gc_failure, 'not_');
--failure when lower bound is null
- exec_be_between2('date', 'sysdate', 'null', 'sysdate+1', ut3.ut_utils.gc_failure, '');
- exec_be_between2('number', '2.0', 'null', '2.01', ut3.ut_utils.gc_failure, '');
- exec_be_between2('varchar2(1)', '''b''', 'null', '''c''', ut3.ut_utils.gc_failure, '');
- exec_be_between2('timestamp', 'systimestamp', 'null', 'systimestamp+1', ut3.ut_utils.gc_failure, '');
- exec_be_between2('timestamp with local time zone', 'systimestamp', 'null', 'systimestamp+1', ut3.ut_utils.gc_failure, '');
- exec_be_between2('timestamp with time zone', 'systimestamp', 'null', 'systimestamp+1', ut3.ut_utils.gc_failure, '');
- exec_be_between2('interval year to month', '''2-1''', 'null', '''2-2''', ut3.ut_utils.gc_failure, '');
- exec_be_between2('interval day to second', '''2 01:00:00''', 'null', '''2 01:00:01''', ut3.ut_utils.gc_failure, '');
+ exec_be_between2('date', 'sysdate', 'null', 'sysdate+1', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('number', '2.0', 'null', '2.01', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('varchar2(1)', '''b''', 'null', '''c''', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('timestamp', 'systimestamp', 'null', 'systimestamp+1', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('timestamp with local time zone', 'systimestamp', 'null', 'systimestamp+1', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('timestamp with time zone', 'systimestamp', 'null', 'systimestamp+1', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('interval year to month', '''2-1''', 'null', '''2-2''', ut3_tester_helper.main_helper.gc_failure, '');
+ exec_be_between2('interval day to second', '''2 01:00:00''', 'null', '''2 01:00:01''', ut3_tester_helper.main_helper.gc_failure, '');
- exec_be_between2('date', 'sysdate', 'null', 'sysdate-1', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('number', '2.0', 'null', '1.999', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('varchar2(1)', '''b''', 'null', '''b''', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('timestamp', 'systimestamp+1', 'null', 'systimestamp', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('timestamp with local time zone', 'systimestamp+1', 'null', 'systimestamp', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('timestamp with time zone', 'systimestamp+1', 'null', 'systimestamp', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('interval year to month', '''2-2''', 'null', '''2-1''', ut3.ut_utils.gc_failure, 'not_');
- exec_be_between2('interval day to second', '''2 01:00:00''', 'null', '''2 00:59:59''', ut3.ut_utils.gc_failure, 'not_');
+ exec_be_between2('date', 'sysdate', 'null', 'sysdate-1', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('number', '2.0', 'null', '1.999', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('varchar2(1)', '''b''', 'null', '''b''', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('timestamp', 'systimestamp+1', 'null', 'systimestamp', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('timestamp with local time zone', 'systimestamp+1', 'null', 'systimestamp', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('timestamp with time zone', 'systimestamp+1', 'null', 'systimestamp', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('interval year to month', '''2-2''', 'null', '''2-1''', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_between2('interval day to second', '''2 01:00:00''', 'null', '''2 00:59:59''', ut3_tester_helper.main_helper.gc_failure, 'not_');
--Fails for unsupported data-type
- exec_be_between2('clob', '''b''', '''a''', '''c''', ut3.ut_utils.gc_failure, '');
+ exec_be_between2('clob', '''b''', '''a''', '''c''', ut3_tester_helper.main_helper.gc_failure, '');
end;
procedure test_match is
begin
- exec_match('varchar2(100)', '''Stephen''', '^Ste(v|ph)en$', '', ut3.ut_utils.gc_success);
- exec_match('varchar2(100)', '''sTEPHEN''', '^Ste(v|ph)en$', 'i', ut3.ut_utils.gc_success);
- exec_match('clob', 'to_clob(rpad('', '',32767)||''Stephen'')', 'Ste(v|ph)en$', '', ut3.ut_utils.gc_success);
- exec_match('clob', 'to_clob(rpad('', '',32767)||''sTEPHEN'')', 'Ste(v|ph)en$', 'i', ut3.ut_utils.gc_success);
+ exec_match('varchar2(100)', '''Stephen''', '^Ste(v|ph)en$', '', ut3_tester_helper.main_helper.gc_success);
+ exec_match('varchar2(100)', '''sTEPHEN''', '^Ste(v|ph)en$', 'i', ut3_tester_helper.main_helper.gc_success);
+ exec_match('clob', 'to_clob(rpad('', '',32767)||''Stephen'')', 'Ste(v|ph)en$', '', ut3_tester_helper.main_helper.gc_success);
+ exec_match('clob', 'to_clob(rpad('', '',32767)||''sTEPHEN'')', 'Ste(v|ph)en$', 'i', ut3_tester_helper.main_helper.gc_success);
- exec_match('varchar2(100)', '''Stephen''', '^Steven$', '', ut3.ut_utils.gc_failure);
- exec_match('varchar2(100)', '''sTEPHEN''', '^Steven$', 'i', ut3.ut_utils.gc_failure);
- exec_match('clob', 'to_clob(rpad('', '',32767)||''Stephen'')', '^Stephen', '', ut3.ut_utils.gc_failure);
- exec_match('clob', 'to_clob(rpad('', '',32767)||''sTEPHEN'')', '^Stephen', 'i', ut3.ut_utils.gc_failure);
+ exec_match('varchar2(100)', '''Stephen''', '^Steven$', '', ut3_tester_helper.main_helper.gc_failure);
+ exec_match('varchar2(100)', '''sTEPHEN''', '^Steven$', 'i', ut3_tester_helper.main_helper.gc_failure);
+ exec_match('clob', 'to_clob(rpad('', '',32767)||''Stephen'')', '^Stephen', '', ut3_tester_helper.main_helper.gc_failure);
+ exec_match('clob', 'to_clob(rpad('', '',32767)||''sTEPHEN'')', '^Stephen', 'i', ut3_tester_helper.main_helper.gc_failure);
- exec_match('varchar2(100)', '''Stephen''', '^Ste(v|ph)en$', '', ut3.ut_utils.gc_failure, 'not_');
- exec_match('varchar2(100)', '''sTEPHEN''', '^Ste(v|ph)en$', 'i', ut3.ut_utils.gc_failure, 'not_');
- exec_match('clob', 'to_clob(rpad('', '',32767)||''Stephen'')', 'Ste(v|ph)en$', '', ut3.ut_utils.gc_failure, 'not_');
- exec_match('clob', 'to_clob(rpad('', '',32767)||''sTEPHEN'')', 'Ste(v|ph)en$', 'i', ut3.ut_utils.gc_failure, 'not_');
+ exec_match('varchar2(100)', '''Stephen''', '^Ste(v|ph)en$', '', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_match('varchar2(100)', '''sTEPHEN''', '^Ste(v|ph)en$', 'i', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_match('clob', 'to_clob(rpad('', '',32767)||''Stephen'')', 'Ste(v|ph)en$', '', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_match('clob', 'to_clob(rpad('', '',32767)||''sTEPHEN'')', 'Ste(v|ph)en$', 'i', ut3_tester_helper.main_helper.gc_failure, 'not_');
- exec_match('varchar2(100)', '''Stephen''', '^Steven$', '', ut3.ut_utils.gc_success, 'not_');
- exec_match('varchar2(100)', '''sTEPHEN''', '^Steven$', 'i', ut3.ut_utils.gc_success, 'not_');
- exec_match('clob', 'to_clob(rpad('', '',32767)||''Stephen'')', '^Stephen', '', ut3.ut_utils.gc_success, 'not_');
- exec_match('clob', 'to_clob(rpad('', '',32767)||''sTEPHEN'')', '^Stephen', 'i', ut3.ut_utils.gc_success, 'not_');
+ exec_match('varchar2(100)', '''Stephen''', '^Steven$', '', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_match('varchar2(100)', '''sTEPHEN''', '^Steven$', 'i', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_match('clob', 'to_clob(rpad('', '',32767)||''Stephen'')', '^Stephen', '', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_match('clob', 'to_clob(rpad('', '',32767)||''sTEPHEN'')', '^Stephen', 'i', ut3_tester_helper.main_helper.gc_success, 'not_');
--Fails for unsupported data-type
- exec_match('number', '12345', '^123.*', 'i', ut3.ut_utils.gc_failure);
+ exec_match('number', '12345', '^123.*', 'i', ut3_tester_helper.main_helper.gc_failure);
end;
procedure test_be_like is
begin
- exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste__en%', '', ut3.ut_utils.gc_success);
- exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste__en\_K%', '\', ut3.ut_utils.gc_success);
- exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste__en%', '', ut3.ut_utils.gc_success);
- exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste__en\_K%', '\', ut3.ut_utils.gc_success);
+ exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste__en%', '', ut3_tester_helper.main_helper.gc_success);
+ exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste__en\_K%', '\', ut3_tester_helper.main_helper.gc_success);
+ exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste__en%', '', ut3_tester_helper.main_helper.gc_success);
+ exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste__en\_K%', '\', ut3_tester_helper.main_helper.gc_success);
- exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste_en%', '', ut3.ut_utils.gc_failure);
- exec_be_like('varchar2(100)', '''Stephen_King''', 'Stephe\__%', '\', ut3.ut_utils.gc_failure);
- exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste_en%', '', ut3.ut_utils.gc_failure);
- exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Stephe\__%', '\', ut3.ut_utils.gc_failure);
+ exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste_en%', '', ut3_tester_helper.main_helper.gc_failure);
+ exec_be_like('varchar2(100)', '''Stephen_King''', 'Stephe\__%', '\', ut3_tester_helper.main_helper.gc_failure);
+ exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste_en%', '', ut3_tester_helper.main_helper.gc_failure);
+ exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Stephe\__%', '\', ut3_tester_helper.main_helper.gc_failure);
- exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste__en%', '', ut3.ut_utils.gc_failure, 'not_');
- exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste__en\_K%', '\', ut3.ut_utils.gc_failure, 'not_');
- exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste__en%', '', ut3.ut_utils.gc_failure, 'not_');
- exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste__en\_K%', '\', ut3.ut_utils.gc_failure, 'not_');
+ exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste__en%', '', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste__en\_K%', '\', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste__en%', '', ut3_tester_helper.main_helper.gc_failure, 'not_');
+ exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste__en\_K%', '\', ut3_tester_helper.main_helper.gc_failure, 'not_');
- exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste_en%', '', ut3.ut_utils.gc_success, 'not_');
- exec_be_like('varchar2(100)', '''Stephen_King''', 'Stephe\__%', '\', ut3.ut_utils.gc_success, 'not_');
- exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste_en%', '', ut3.ut_utils.gc_success, 'not_');
- exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Stephe\__%', '\', ut3.ut_utils.gc_success, 'not_');
+ exec_be_like('varchar2(100)', '''Stephen_King''', 'Ste_en%', '', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_like('varchar2(100)', '''Stephen_King''', 'Stephe\__%', '\', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Ste_en%', '', ut3_tester_helper.main_helper.gc_success, 'not_');
+ exec_be_like('clob', 'to_clob(rpad(''a'',32767,''a'')||''Stephen_King'')', 'a%Stephe\__%', '\', ut3_tester_helper.main_helper.gc_success, 'not_');
--Fails for unsupported data-type
- exec_be_like('number', '12345', '123%', '', ut3.ut_utils.gc_failure);
+ exec_be_like('number', '12345', '123%', '', ut3_tester_helper.main_helper.gc_failure);
end;
procedure test_timestamp_between is
diff --git a/test/core/expectations/test_matchers.pks b/test/ut3_user/expectations/test_matchers.pks
similarity index 88%
rename from test/core/expectations/test_matchers.pks
rename to test/ut3_user/expectations/test_matchers.pks
index 0fa0953d4..e3e22e0cd 100644
--- a/test/core/expectations/test_matchers.pks
+++ b/test/ut3_user/expectations/test_matchers.pks
@@ -1,11 +1,11 @@
create or replace package test_matchers is
--%suite(matchers)
- --%suitepath(utplsql.core.expectations)
+ --%suitepath(utplsql.test_user.expectations)
--%aftereach
procedure cleanup_expectations;
-
+
--%test
procedure test_be_between2;
--%test
diff --git a/test/ut3_user/expectations/unary/test_expect_not_to_be_null.pkb b/test/ut3_user/expectations/unary/test_expect_not_to_be_null.pkb
new file mode 100644
index 000000000..448addb8c
--- /dev/null
+++ b/test/ut3_user/expectations/unary/test_expect_not_to_be_null.pkb
@@ -0,0 +1,265 @@
+create or replace package body test_expect_not_to_be_null
+is
+ gc_object_name constant varchar2(30) := 't_not_to_be_null_test';
+ gc_nested_table_name constant varchar2(30) := 'tt_not_to_be_null_test';
+ gc_varray_name constant varchar2(30) := 'tv_not_to_be_null_test';
+
+ procedure cleanup_expectations is
+ begin
+ ut3_tester_helper.main_helper.clear_expectations( );
+ end;
+
+ procedure create_types is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'create type ' || gc_object_name || ' is object (dummy number)';
+ execute immediate 'create type ' || gc_nested_table_name || ' is table of number';
+ execute immediate 'create type ' || gc_varray_name || ' is varray(1) of number';
+ end;
+
+ procedure drop_types is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop type ' || gc_object_name;
+ execute immediate 'drop type ' || gc_nested_table_name;
+ execute immediate 'drop type ' || gc_varray_name;
+ end;
+
+ procedure blob_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'blob', 'to_blob(''abc'')' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure blob_0_length is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'blob', 'empty_blob()' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure boolean_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'boolean', 'true' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure clob_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'clob', 'to_clob(''abc'')' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+
+ procedure clob_0_length is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'clob', 'empty_clob()' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure date_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'date', 'sysdate' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure number_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'number', '1234' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure timestamp_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'timestamp', 'systimestamp' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure timestamp_with_ltz_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block(
+ 'not_to_be_null', 'timestamp with local time zone', 'systimestamp'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure timestamp_with_tz_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'timestamp with time zone',
+ 'systimestamp' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure varchar2_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'varchar2(4000)', '''abc''' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure initialized_object is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'not_to_be_null', gc_object_name, gc_object_name || '(1)', 'object'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure initialized_nested_table is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'not_to_be_null', gc_nested_table_name, gc_nested_table_name || '()', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure initialized_varray is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'not_to_be_null', gc_varray_name, gc_varray_name || '()', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_blob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'blob', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_boolean is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'boolean', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_clob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'clob', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_date is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'date', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_number is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'number', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_timestamp is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'timestamp', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_timestamp_with_ltz is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block(
+ 'not_to_be_null', 'timestamp with local time zone', 'null'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_timestamp_with_tz is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block(
+ 'not_to_be_null', 'timestamp with time zone', 'null'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_varchar2 is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'varchar2(4000)', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'not_to_be_null', 'anydata', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure uninit_object_in_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'not_to_be_null', gc_object_name, 'null', 'object'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure uninit_nested_table_in_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'not_to_be_null', gc_nested_table_name, 'null', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure uninit_varray_in_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'not_to_be_null', gc_varray_name, 'null', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+end test_expect_not_to_be_null;
+/
diff --git a/test/core/expectations/unary/test_expect_not_to_be_null.pks b/test/ut3_user/expectations/unary/test_expect_not_to_be_null.pks
similarity index 97%
rename from test/core/expectations/unary/test_expect_not_to_be_null.pks
rename to test/ut3_user/expectations/unary/test_expect_not_to_be_null.pks
index fa2d6193f..11648d5d2 100644
--- a/test/core/expectations/unary/test_expect_not_to_be_null.pks
+++ b/test/ut3_user/expectations/unary/test_expect_not_to_be_null.pks
@@ -1,7 +1,7 @@
create or replace package test_expect_not_to_be_null
is
--%suite(not_to_be_null)
- --%suitepath(utplsql.core.expectations.unary)
+ --%suitepath(utplsql.test_user.expectations.unary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/core/expectations/unary/test_expect_to_be_empty.pkb b/test/ut3_user/expectations/unary/test_expect_to_be_empty.pkb
similarity index 66%
rename from test/core/expectations/unary/test_expect_to_be_empty.pkb
rename to test/ut3_user/expectations/unary/test_expect_to_be_empty.pkb
index 0db499906..3694850fe 100644
--- a/test/core/expectations/unary/test_expect_to_be_empty.pkb
+++ b/test/ut3_user/expectations/unary/test_expect_to_be_empty.pkb
@@ -2,10 +2,9 @@ create or replace package body test_expect_to_be_empty is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
-
- procedure success_be_empty_cursor is
+ procedure success_be_empty_cursor is
l_cursor sys_refcursor;
begin
--Arrange
@@ -13,7 +12,7 @@ create or replace package body test_expect_to_be_empty is
--Act
ut3.ut.expect(l_cursor).to_be_empty;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_be_empty_cursor is
@@ -24,7 +23,7 @@ create or replace package body test_expect_to_be_empty is
--Act
ut3.ut.expect(l_cursor).to_be_empty;
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_be_empty_cursor_report is
@@ -40,7 +39,7 @@ create or replace package body test_expect_to_be_empty is
l_expected_message := q'[Actual: (refcursor [ count = 1 ])%
X
%
was expected to be empty%%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
@@ -54,7 +53,7 @@ was expected to be empty%%]';
--Act
ut3.ut.expect(l_cursor).not_to_be_empty;
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_not_be_empty_cursor is
@@ -65,7 +64,7 @@ was expected to be empty%%]';
--Act
ut3.ut.expect(l_cursor).not_to_be_empty;
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure success_be_empty_collection is
@@ -76,7 +75,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect(l_actual).to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_be_empty_collection is
@@ -87,7 +86,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect(l_actual).to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure success_not_be_empty_coll is
@@ -98,7 +97,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect(l_actual).not_to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_not_be_empty_collection is
@@ -109,7 +108,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect(l_actual).not_to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_be_empty_null_collection is
@@ -121,7 +120,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect(l_actual).to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_not_be_empty_null_coll is
@@ -133,30 +132,30 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect(l_actual).not_to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_be_empty_object is
l_actual anydata;
begin
--Arrange
- l_actual := anydata.convertObject(ut3.ut_data_value_number(1));
+ l_actual := anydata.convertObject(ut3_tester_helper.test_dummy_number(1));
-- Act
ut3.ut.expect(l_actual).to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_be_empty_null_object is
l_actual anydata;
- l_data ut3.ut_data_value_number;
+ l_data ut3_tester_helper.test_dummy_number;
begin
--Arrange
l_actual := anydata.convertObject(l_data);
-- Act
ut3.ut.expect(l_actual).to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_be_empty_number is
@@ -164,7 +163,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( 1 ).to_( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
/**
@@ -175,23 +174,23 @@ was expected to be empty%%]';
l_actual anydata;
begin
--Arrange
- l_actual := anydata.convertObject(ut3.ut_data_value_number(1));
+ l_actual := anydata.convertObject(ut3_tester_helper.test_dummy_number(1));
-- Act
ut3.ut.expect(l_actual).not_to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_not_be_empty_null_object is
l_actual anydata;
- l_data ut3.ut_data_value_number;
+ l_data ut3_tester_helper.test_dummy_number;
begin
--Arrange
l_actual := anydata.convertObject(l_data);
-- Act
ut3.ut.expect(l_actual).not_to_be_empty();
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_not_be_empty_number is
@@ -199,7 +198,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( 1 ).not_to( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure success_be_empty_clob is
@@ -207,7 +206,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( empty_clob() ).to_( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_be_empty_clob is
@@ -215,7 +214,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( to_clob(' ') ).to_( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure success_be_empty_blob is
@@ -223,7 +222,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( empty_blob() ).to_( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_be_empty_blob is
@@ -231,7 +230,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( to_blob('AA') ).to_( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
@@ -240,7 +239,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( empty_clob() ).not_to( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure success_not_be_empty_clob is
@@ -248,7 +247,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( to_clob(' ') ).not_to( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_not_be_empty_blob is
@@ -256,7 +255,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( empty_blob() ).not_to( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure success_not_be_empty_blob is
@@ -264,7 +263,7 @@ was expected to be empty%%]';
-- Act
ut3.ut.expect( to_blob('AA') ).not_to( ut3.be_empty() );
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
end;
diff --git a/test/core/expectations/unary/test_expect_to_be_empty.pks b/test/ut3_user/expectations/unary/test_expect_to_be_empty.pks
similarity index 97%
rename from test/core/expectations/unary/test_expect_to_be_empty.pks
rename to test/ut3_user/expectations/unary/test_expect_to_be_empty.pks
index 92a7e0bef..a76787ac5 100644
--- a/test/core/expectations/unary/test_expect_to_be_empty.pks
+++ b/test/ut3_user/expectations/unary/test_expect_to_be_empty.pks
@@ -1,7 +1,7 @@
create or replace package test_expect_to_be_empty is
--%suite
- --%suitepath(utplsql.core.expectations.unary)
+ --%suitepath(utplsql.test_user.expectations.unary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/ut3_user/expectations/unary/test_expect_to_be_not_null.pkb b/test/ut3_user/expectations/unary/test_expect_to_be_not_null.pkb
new file mode 100644
index 000000000..0e747eb85
--- /dev/null
+++ b/test/ut3_user/expectations/unary/test_expect_to_be_not_null.pkb
@@ -0,0 +1,264 @@
+create or replace package body test_expect_to_be_not_null
+is
+ gc_object_name constant varchar2(30) := 't_to_be_not_null_test';
+ gc_nested_table_name constant varchar2(30) := 'tt_to_be_not_null_test';
+ gc_varray_name constant varchar2(30) := 'tv_to_be_not_null_test';
+
+ procedure cleanup_expectations is
+ begin
+ ut3_tester_helper.main_helper.clear_expectations( );
+ end;
+
+ procedure create_types is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'create type '||gc_object_name||' is object (dummy number)';
+ execute immediate 'create type '||gc_nested_table_name||' is table of number';
+ execute immediate 'create type '||gc_varray_name||' is varray(1) of number';
+ end;
+
+ procedure drop_types is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop type '||gc_object_name;
+ execute immediate 'drop type '||gc_nested_table_name;
+ execute immediate 'drop type '||gc_varray_name;
+ end;
+
+ procedure blob_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'blob', 'to_blob(''abc'')');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure empty_blob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'blob', 'empty_blob()');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure boolean_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'boolean', 'true');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure clob_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'clob', 'to_clob(''abc'')');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure empty_clob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'clob', 'empty_clob()');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure date_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'date', 'sysdate');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure number_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'number', '1234');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure timestamp_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'timestamp', 'systimestamp');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure timestamp_with_ltz_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'timestamp with local time zone', 'systimestamp');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure timestamp_with_tz_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'timestamp with time zone', 'systimestamp');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure varchar2_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'varchar2(4000)', '''abc''');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure initialized_object is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_not_null', gc_object_name, gc_object_name||'(1)', 'object'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure initialized_nested_table is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_not_null', gc_nested_table_name, gc_nested_table_name||'()', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure initialized_varray is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_not_null', gc_varray_name, gc_varray_name||'()', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_blob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'blob', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_boolean is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'boolean', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+
+ procedure null_clob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'clob', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+
+ procedure null_date is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'date', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+
+ procedure null_number is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'number', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+
+ procedure null_timestamp is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'timestamp', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+
+ procedure null_timestamp_with_ltz is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'timestamp with local time zone', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+
+ procedure null_timestamp_with_tz is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'timestamp with time zone', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+
+ procedure null_varchar2 is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'varchar2(4000)', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure null_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block('to_be_not_null', 'anydata', 'null');
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure uninit_object_in_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_not_null', gc_object_name, 'null', 'object'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure uninit_nested_table_in_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_not_null', gc_nested_table_name, 'null', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure uninit_varray_in_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_not_null', gc_varray_name, 'null', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+end test_expect_to_be_not_null;
+/
diff --git a/test/core/expectations/unary/test_expect_to_be_not_null.pks b/test/ut3_user/expectations/unary/test_expect_to_be_not_null.pks
similarity index 97%
rename from test/core/expectations/unary/test_expect_to_be_not_null.pks
rename to test/ut3_user/expectations/unary/test_expect_to_be_not_null.pks
index 351482fee..7cb7cc265 100644
--- a/test/core/expectations/unary/test_expect_to_be_not_null.pks
+++ b/test/ut3_user/expectations/unary/test_expect_to_be_not_null.pks
@@ -1,7 +1,7 @@
create or replace package test_expect_to_be_not_null
is
--%suite(to_be_not_null)
- --%suitepath(utplsql.core.expectations.unary)
+ --%suitepath(utplsql.test_user.expectations.unary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/ut3_user/expectations/unary/test_expect_to_be_null.pkb b/test/ut3_user/expectations/unary/test_expect_to_be_null.pkb
new file mode 100644
index 000000000..c0899c08d
--- /dev/null
+++ b/test/ut3_user/expectations/unary/test_expect_to_be_null.pkb
@@ -0,0 +1,260 @@
+create or replace package body test_expect_to_be_null
+is
+ gc_object_name constant varchar2(30) := 't_to_be_null_test';
+ gc_nested_table_name constant varchar2(30) := 'tt_to_be_null_test';
+ gc_varray_name constant varchar2(30) := 'tv_to_be_null_test';
+
+ procedure cleanup_expectations is
+ begin
+ ut3_tester_helper.main_helper.clear_expectations( );
+ end;
+
+ procedure create_types is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'create type ' || gc_object_name || ' is object (dummy number)';
+ execute immediate 'create type ' || gc_nested_table_name || ' is table of number';
+ execute immediate 'create type ' || gc_varray_name || ' is varray(1) of number';
+ end;
+
+ procedure drop_types is
+ pragma autonomous_transaction;
+ begin
+ execute immediate 'drop type ' || gc_object_name;
+ execute immediate 'drop type ' || gc_nested_table_name;
+ execute immediate 'drop type ' || gc_varray_name;
+ end;
+
+ procedure null_blob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'blob', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_boolean is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'boolean', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_clob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'clob', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_date is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'date', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_number is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'number', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_timestamp is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'timestamp', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_timestamp_with_ltz is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'timestamp with local time zone', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_timestamp_with_tz is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'timestamp with time zone', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_varchar2 is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'varchar2(4000)', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure null_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'anydata', 'null' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure uninit_object_in_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_null', gc_object_name, 'null', 'object'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure uninit_nested_table_in_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_null', gc_nested_table_name, 'null', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure uninit_varray_in_anydata is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block( 'to_be_null', gc_varray_name,
+ 'null', 'collection' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+ end;
+
+ procedure blob_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'blob', 'to_blob(''abc'')' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure empty_blob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'blob', 'empty_blob()' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure boolean_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'boolean', 'true' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure clob_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'clob', 'to_clob(''abc'')' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure empty_clob is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'clob', 'empty_clob()' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure date_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'date', 'sysdate' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure number_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'number', '1234' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure timestamp_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'timestamp', 'systimestamp' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure timestamp_with_ltz_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block(
+ 'to_be_null', 'timestamp with local time zone', 'systimestamp'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure timestamp_with_tz_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block(
+ 'to_be_null', 'timestamp with time zone', 'systimestamp'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure varchar2_not_null is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_block( 'to_be_null', 'varchar2(4000)', '''abc''' );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure initialized_object is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_null', gc_object_name, gc_object_name || '(1)', 'object'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure initialized_nested_table is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_null', gc_nested_table_name, gc_nested_table_name || '()', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+ procedure initialized_varray is
+ begin
+ --Act
+ execute immediate ut3_tester_helper.expectations_helper.unary_expectation_object_block(
+ 'to_be_null', gc_varray_name, gc_varray_name || '()', 'collection'
+ );
+ --Assert
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+ end;
+
+end test_expect_to_be_null;
+/
diff --git a/test/core/expectations/unary/test_expect_to_be_null.pks b/test/ut3_user/expectations/unary/test_expect_to_be_null.pks
similarity index 97%
rename from test/core/expectations/unary/test_expect_to_be_null.pks
rename to test/ut3_user/expectations/unary/test_expect_to_be_null.pks
index 8b34e1279..f1758316e 100644
--- a/test/core/expectations/unary/test_expect_to_be_null.pks
+++ b/test/ut3_user/expectations/unary/test_expect_to_be_null.pks
@@ -1,7 +1,7 @@
create or replace package test_expect_to_be_null
is
--%suite(to_be_null)
- --%suitepath(utplsql.core.expectations.unary)
+ --%suitepath(utplsql.test_user.expectations.unary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/core/expectations/unary/test_expect_to_be_true_false.pkb b/test/ut3_user/expectations/unary/test_expect_to_be_true_false.pkb
similarity index 56%
rename from test/core/expectations/unary/test_expect_to_be_true_false.pkb
rename to test/ut3_user/expectations/unary/test_expect_to_be_true_false.pkb
index 32ef58a7d..6a621c6b3 100644
--- a/test/core/expectations/unary/test_expect_to_be_true_false.pkb
+++ b/test/ut3_user/expectations/unary/test_expect_to_be_true_false.pkb
@@ -3,7 +3,7 @@ is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
procedure to_be_true_null_boolean is
@@ -11,7 +11,7 @@ is
--Act
ut3.ut.expect( 1=null ).to_be_true();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure to_be_true_success is
@@ -19,7 +19,7 @@ is
--Act
ut3.ut.expect( 1=1 ).to_be_true();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure to_be_true_failure is
@@ -27,7 +27,7 @@ is
--Act
ut3.ut.expect( 1=2 ).to_be_true();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure to_be_true_bad_type is
@@ -35,7 +35,7 @@ is
--Act
ut3.ut.expect( 1 ).to_be_true();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_to_be_true_null_boolean is
@@ -43,7 +43,7 @@ is
--Act
ut3.ut.expect( 1=null ).not_to_be_true();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_to_be_true_success is
@@ -51,7 +51,7 @@ is
--Act
ut3.ut.expect( 1=2 ).not_to_be_true();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_to_be_true_failure is
@@ -59,7 +59,7 @@ is
--Act
ut3.ut.expect( 1=1 ).not_to_be_true();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
@@ -68,7 +68,7 @@ is
--Act
ut3.ut.expect( 1 ).not_to_be_true();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure to_be_false_null_boolean is
@@ -76,7 +76,7 @@ is
--Act
ut3.ut.expect( 1=null ).to_be_false();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure to_be_false_success is
@@ -84,7 +84,7 @@ is
--Act
ut3.ut.expect( 1=2 ).to_be_false();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure to_be_false_failure is
@@ -92,7 +92,7 @@ is
--Act
ut3.ut.expect( 1=1 ).to_be_false();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure to_be_false_bad_type is
@@ -100,7 +100,7 @@ is
--Act
ut3.ut.expect( 1 ).to_be_false();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_to_be_false_null_boolean is
@@ -108,7 +108,7 @@ is
--Act
ut3.ut.expect( 1=null ).not_to_be_false();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_to_be_false_success is
@@ -116,7 +116,7 @@ is
--Act
ut3.ut.expect( 1=1 ).not_to_be_false();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure not_to_be_false_failure is
@@ -124,7 +124,7 @@ is
--Act
ut3.ut.expect( 1=2 ).not_to_be_false();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure not_to_be_false_bad_type is
@@ -132,7 +132,7 @@ is
--Act
ut3.ut.expect( 1 ).not_to_be_false();
--Assert
- ut.expect( expectations.failed_expectations_data( ) ).not_to_be_empty( );
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
end;
diff --git a/test/core/expectations/unary/test_expect_to_be_true_false.pks b/test/ut3_user/expectations/unary/test_expect_to_be_true_false.pks
similarity index 97%
rename from test/core/expectations/unary/test_expect_to_be_true_false.pks
rename to test/ut3_user/expectations/unary/test_expect_to_be_true_false.pks
index abdbf44b6..28bbae6f7 100644
--- a/test/core/expectations/unary/test_expect_to_be_true_false.pks
+++ b/test/ut3_user/expectations/unary/test_expect_to_be_true_false.pks
@@ -1,7 +1,7 @@
create or replace package test_expect_to_be_true_false
is
--%suite(to_be_true/false)
- --%suitepath(utplsql.core.expectations.unary)
+ --%suitepath(utplsql.test_user.expectations.unary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/core/expectations/unary/test_expect_to_have_count.pkb b/test/ut3_user/expectations/unary/test_expect_to_have_count.pkb
similarity index 69%
rename from test/core/expectations/unary/test_expect_to_have_count.pkb
rename to test/ut3_user/expectations/unary/test_expect_to_have_count.pkb
index a95a6778a..327ced120 100644
--- a/test/core/expectations/unary/test_expect_to_have_count.pkb
+++ b/test/ut3_user/expectations/unary/test_expect_to_have_count.pkb
@@ -2,7 +2,7 @@ create or replace package body test_expect_to_have_count is
procedure cleanup_expectations is
begin
- expectations.cleanup_expectations( );
+ ut3_tester_helper.main_helper.clear_expectations( );
end;
procedure success_have_count_cursor is
@@ -13,7 +13,7 @@ create or replace package body test_expect_to_have_count is
--Act
ut3.ut.expect(l_cursor).to_have_count(11);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_have_count_cursor is
@@ -24,7 +24,7 @@ create or replace package body test_expect_to_have_count is
--Act
ut3.ut.expect(l_cursor).to_have_count(1);
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_have_count_cursor_report is
@@ -38,7 +38,7 @@ create or replace package body test_expect_to_have_count is
ut3.ut.expect(l_cursor).to_have_count(2);
l_expected_message := q'[Actual: (refcursor [ count = 1 ]) was expected to have [ count = 2 ]%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
@@ -52,7 +52,7 @@ create or replace package body test_expect_to_have_count is
--Act
ut3.ut.expect(l_cursor).not_to_have_count(2);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_not_have_count_cursor is
@@ -63,7 +63,7 @@ create or replace package body test_expect_to_have_count is
--Act
ut3.ut.expect(l_cursor).not_to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure success_have_count_collection is
@@ -74,7 +74,7 @@ create or replace package body test_expect_to_have_count is
-- Act
ut3.ut.expect(l_actual).to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_have_count_collection is
@@ -85,7 +85,7 @@ create or replace package body test_expect_to_have_count is
-- Act
ut3.ut.expect(l_actual).to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure success_not_have_count_coll is
@@ -96,7 +96,7 @@ create or replace package body test_expect_to_have_count is
-- Act
ut3.ut.expect(l_actual).not_to_have_count(2);
--Assert
- ut.expect(expectations.failed_expectations_data()).to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
end;
procedure fail_not_have_count_coll is
@@ -107,7 +107,7 @@ create or replace package body test_expect_to_have_count is
-- Act
ut3.ut.expect(l_actual).not_to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_have_count_null_coll is
@@ -119,7 +119,7 @@ create or replace package body test_expect_to_have_count is
-- Act
ut3.ut.expect(l_actual).to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_not_have_count_null_coll is
@@ -131,30 +131,30 @@ create or replace package body test_expect_to_have_count is
-- Act
ut3.ut.expect(l_actual).not_to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_have_count_object is
l_actual anydata;
begin
--Arrange
- l_actual := anydata.convertObject(ut3.ut_data_value_number(1));
+ l_actual := anydata.convertObject(ut3_tester_helper.test_dummy_number(1));
-- Act
ut3.ut.expect(l_actual).to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_have_count_null_object is
l_actual anydata;
- l_data ut3.ut_data_value_number;
+ l_data ut3_tester_helper.test_dummy_number;
begin
--Arrange
l_actual := anydata.convertObject(l_data);
-- Act
ut3.ut.expect(l_actual).to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_have_count_number is
@@ -165,7 +165,7 @@ create or replace package body test_expect_to_have_count is
ut3.ut.expect( 1 ).to_( ut3.have_count(0) );
--Assert
l_expected_message := q'[%The matcher 'have count' cannot be used with data type (number).%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
@@ -176,26 +176,26 @@ create or replace package body test_expect_to_have_count is
l_actual_message varchar2(32767);
begin
--Arrange
- l_actual := anydata.convertObject(ut3.ut_data_value_number(1));
+ l_actual := anydata.convertObject(ut3_tester_helper.test_dummy_number(1));
-- Act
ut3.ut.expect(l_actual).not_to_have_count(0);
--Assert
- l_expected_message := q'[%The matcher 'have count' cannot be used with data type (ut3.ut_data_value_number).%]';
- l_actual_message := ut3.ut_expectation_processor.get_failed_expectations()(1).message;
+ l_expected_message := q'[%The matcher 'have count' cannot be used with data type (ut3_tester_helper.test_dummy_number).%]';
+ l_actual_message := ut3_tester_helper.main_helper.get_failed_expectations(1);
--Assert
ut.expect(l_actual_message).to_be_like(l_expected_message);
end;
procedure fail_not_have_count_null_obj is
l_actual anydata;
- l_data ut3.ut_data_value_number;
+ l_data ut3_tester_helper.test_dummy_number;
begin
--Arrange
l_actual := anydata.convertObject(l_data);
-- Act
ut3.ut.expect(l_actual).not_to_have_count(0);
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
procedure fail_not_have_count_number is
@@ -203,7 +203,7 @@ create or replace package body test_expect_to_have_count is
-- Act
ut3.ut.expect( 1 ).not_to( ut3.have_count(0) );
--Assert
- ut.expect(expectations.failed_expectations_data()).not_to_be_empty();
+ ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
end;
end;
diff --git a/test/core/expectations/unary/test_expect_to_have_count.pks b/test/ut3_user/expectations/unary/test_expect_to_have_count.pks
similarity index 96%
rename from test/core/expectations/unary/test_expect_to_have_count.pks
rename to test/ut3_user/expectations/unary/test_expect_to_have_count.pks
index 636f98ba4..b944d8800 100644
--- a/test/core/expectations/unary/test_expect_to_have_count.pks
+++ b/test/ut3_user/expectations/unary/test_expect_to_have_count.pks
@@ -1,7 +1,7 @@
create or replace package test_expect_to_have_count is
--%suite((not)to_have_count)
- --%suitepath(utplsql.core.expectations.unary)
+ --%suitepath(utplsql.test_user.expectations.unary)
--%aftereach
procedure cleanup_expectations;
diff --git a/test/core/reporters.pkb b/test/ut3_user/reporters.pkb
similarity index 97%
rename from test/core/reporters.pkb
rename to test/ut3_user/reporters.pkb
index abd9e6007..364566569 100644
--- a/test/core/reporters.pkb
+++ b/test/ut3_user/reporters.pkb
@@ -141,7 +141,7 @@ end;]';
select *
bulk collect into l_results
from table(ut3.ut.run('test_reporters', a_reporter, a_client_character_set => a_client_character_set));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('%');
end;
diff --git a/test/core/reporters.pks b/test/ut3_user/reporters.pks
similarity index 89%
rename from test/core/reporters.pks
rename to test/ut3_user/reporters.pks
index 229e4e9b1..cb601cf3b 100644
--- a/test/core/reporters.pks
+++ b/test/ut3_user/reporters.pks
@@ -1,7 +1,7 @@
create or replace package reporters is
--%suite
- --%suitepath(utplsql.core)
+ --%suitepath(utplsql.test_user)
--%beforeall
procedure reporters_setup;
diff --git a/test/ut3_user/reporters/test_coverage.pkb b/test/ut3_user/reporters/test_coverage.pkb
new file mode 100644
index 000000000..6b094f2ae
--- /dev/null
+++ b/test/ut3_user/reporters/test_coverage.pkb
@@ -0,0 +1,36 @@
+create or replace package body test_coverage is
+
+ function get_mock_run_id return integer is
+ v_result integer;
+ begin
+ return ut3_tester_helper.coverage_helper.get_mock_run_id();
+ end;
+
+ procedure create_dummy_coverage_pkg is
+ begin
+ ut3_tester_helper.coverage_helper.create_dummy_coverage_package();
+ ut3_tester_helper.coverage_helper.create_dummy_coverage_test();
+ ut3_tester_helper.coverage_helper.grant_exec_on_cov();
+ end;
+
+ procedure setup_dummy_coverage is
+ pragma autonomous_transaction;
+ begin
+ g_run_id := get_mock_run_id();
+ ut3.ut_coverage.mock_coverage_id(g_run_id, ut3.ut_coverage.gc_proftab_coverage);
+ ut3_tester_helper.coverage_helper.mock_coverage_data(g_run_id,user);
+ commit;
+ end;
+
+ procedure drop_dummy_coverage_pkg is
+ begin
+ ut3_tester_helper.coverage_helper.drop_dummy_coverage_pkg();
+ end;
+
+ procedure cleanup_dummy_coverage is
+ begin
+ ut3_tester_helper.coverage_helper.cleanup_dummy_coverage(g_run_id);
+ end;
+
+end;
+/
diff --git a/test/ut3_user/reporters/test_coverage.pks b/test/ut3_user/reporters/test_coverage.pks
new file mode 100644
index 000000000..d56597d11
--- /dev/null
+++ b/test/ut3_user/reporters/test_coverage.pks
@@ -0,0 +1,20 @@
+create or replace package test_coverage is
+
+ --%suite
+ --%suitepath(utplsql.test_user.reporters)
+
+ g_run_id integer;
+
+ --%beforeall
+ procedure create_dummy_coverage_pkg;
+ --%beforeall
+ procedure setup_dummy_coverage;
+
+
+ --%afterall
+ procedure drop_dummy_coverage_pkg;
+ --%afterall
+ procedure cleanup_dummy_coverage;
+
+end;
+/
diff --git a/test/core/reporters/test_coverage/test_cov_cobertura_reporter.pkb b/test/ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pkb
similarity index 95%
rename from test/core/reporters/test_coverage/test_cov_cobertura_reporter.pkb
rename to test/ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pkb
index cabf64e90..ecfb66340 100644
--- a/test/core/reporters/test_coverage/test_cov_cobertura_reporter.pkb
+++ b/test/ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pkb
@@ -36,7 +36,7 @@ create or replace package body test_cov_cobertura_reporter is
a_test_files => ut3.ut_varchar2_list( )
)
);
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like(l_expected);
end;
diff --git a/test/core/reporters/test_coverage/test_cov_cobertura_reporter.pks b/test/ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pks
similarity index 79%
rename from test/core/reporters/test_coverage/test_cov_cobertura_reporter.pks
rename to test/ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pks
index ac347fb9d..365815964 100644
--- a/test/core/reporters/test_coverage/test_cov_cobertura_reporter.pks
+++ b/test/ut3_user/reporters/test_coverage/test_cov_cobertura_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_cov_cobertura_reporter is
--%suite(ut_cov_cobertura_reporter)
- --%suitepath(utplsql.core.reporters.test_coverage)
+ --%suitepath(utplsql.test_user.reporters.test_coverage)
--%test(reports on a project file mapped to database object)
procedure report_on_file;
diff --git a/test/core/reporters/test_coverage/test_coverage_sonar_reporter.pkb b/test/ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pkb
similarity index 93%
rename from test/core/reporters/test_coverage/test_coverage_sonar_reporter.pkb
rename to test/ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pkb
index 81b2c12f8..5cd53a093 100644
--- a/test/core/reporters/test_coverage/test_coverage_sonar_reporter.pkb
+++ b/test/ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pkb
@@ -25,7 +25,7 @@ create or replace package body test_coverage_sonar_reporter is
a_test_files => ut3.ut_varchar2_list( )
)
);
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_equal(l_expected);
end;
diff --git a/test/core/reporters/test_coverage/test_coverage_sonar_reporter.pks b/test/ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pks
similarity index 83%
rename from test/core/reporters/test_coverage/test_coverage_sonar_reporter.pks
rename to test/ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pks
index 31cb358dd..7a98355cf 100644
--- a/test/core/reporters/test_coverage/test_coverage_sonar_reporter.pks
+++ b/test/ut3_user/reporters/test_coverage/test_coverage_sonar_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_coverage_sonar_reporter is
--%suite(ut_coverge_sonar_reporter)
- --%suitepath(utplsql.core.reporters.test_coverage)
+ --%suitepath(utplsql.test_user.reporters.test_coverage)
--%test(reports on a project file mapped to database object)
procedure report_on_file;
diff --git a/test/core/reporters/test_coverage/test_coveralls_reporter.pkb b/test/ut3_user/reporters/test_coverage/test_coveralls_reporter.pkb
similarity index 90%
rename from test/core/reporters/test_coverage/test_coveralls_reporter.pkb
rename to test/ut3_user/reporters/test_coverage/test_coveralls_reporter.pkb
index 774e796a0..0be0e8ce3 100644
--- a/test/core/reporters/test_coverage/test_coveralls_reporter.pkb
+++ b/test/ut3_user/reporters/test_coverage/test_coveralls_reporter.pkb
@@ -31,7 +31,7 @@ null,
a_test_files => ut3.ut_varchar2_list( )
)
);
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_equal(l_expected);
end;
@@ -55,6 +55,11 @@ null,
0,
0,
0,
+0,
+0,
+0,
+0,
+0,
0
]
}
@@ -73,7 +78,7 @@ null,
a_include_objects => ut3.ut_varchar2_list('UT3.DUMMY_COVERAGE')
)
);
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_equal(l_expected);
diff --git a/test/core/reporters/test_coverage/test_coveralls_reporter.pks b/test/ut3_user/reporters/test_coverage/test_coveralls_reporter.pks
similarity index 83%
rename from test/core/reporters/test_coverage/test_coveralls_reporter.pks
rename to test/ut3_user/reporters/test_coverage/test_coveralls_reporter.pks
index bf2b861f7..d958b8f12 100644
--- a/test/core/reporters/test_coverage/test_coveralls_reporter.pks
+++ b/test/ut3_user/reporters/test_coverage/test_coveralls_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_coveralls_reporter is
--%suite(ut_coveralls_reporter)
- --%suitepath(utplsql.core.reporters.test_coverage)
+ --%suitepath(utplsql.test_user.reporters.test_coverage)
--%test(reports on a project file mapped to database object)
procedure report_on_file;
diff --git a/test/core/reporters/test_coverage/test_html_extended_reporter.pkb b/test/ut3_user/reporters/test_coverage/test_html_extended_reporter.pkb
similarity index 90%
rename from test/core/reporters/test_coverage/test_html_extended_reporter.pkb
rename to test/ut3_user/reporters/test_coverage/test_html_extended_reporter.pkb
index 19e1fe807..02b275020 100644
--- a/test/core/reporters/test_coverage/test_html_extended_reporter.pkb
+++ b/test/ut3_user/reporters/test_coverage/test_html_extended_reporter.pkb
@@ -13,14 +13,14 @@ create or replace package body test_html_extended_reporter is
bulk collect into l_results
from table(
ut3.ut.run(
- a_path => 'ut3.test_dummy_coverage',
+ a_path => 'ut3.test_block_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.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like(l_expected);
end;
diff --git a/test/core/reporters/test_coverage/test_html_extended_reporter.pks b/test/ut3_user/reporters/test_coverage/test_html_extended_reporter.pks
similarity index 79%
rename from test/core/reporters/test_coverage/test_html_extended_reporter.pks
rename to test/ut3_user/reporters/test_coverage/test_html_extended_reporter.pks
index cefa71d66..dbe31b83d 100644
--- a/test/core/reporters/test_coverage/test_html_extended_reporter.pks
+++ b/test/ut3_user/reporters/test_coverage/test_html_extended_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_html_extended_reporter is
--%suite(ut_html_extended_reporter)
- --%suitepath(utplsql.core.reporters.test_extended_coverage)
+ --%suitepath(utplsql.test_user.reporters.test_extended_coverage)
--%test(reports on a project file mapped to database object in extended profiler coverage)
procedure report_on_file;
diff --git a/test/core/reporters/test_coverage/test_html_proftab_reporter.pkb b/test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pkb
similarity index 93%
rename from test/core/reporters/test_coverage/test_html_proftab_reporter.pkb
rename to test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pkb
index c10af2869..8daf36513 100644
--- a/test/core/reporters/test_coverage/test_html_proftab_reporter.pkb
+++ b/test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pkb
@@ -20,7 +20,7 @@ create or replace package body test_html_proftab_reporter is
a_client_character_set => l_charset
)
);
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like(l_expected);
end;
diff --git a/test/core/reporters/test_coverage/test_html_proftab_reporter.pks b/test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pks
similarity index 75%
rename from test/core/reporters/test_coverage/test_html_proftab_reporter.pks
rename to test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pks
index d091510c6..02973fbe0 100644
--- a/test/core/reporters/test_coverage/test_html_proftab_reporter.pks
+++ b/test/ut3_user/reporters/test_coverage/test_html_proftab_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_html_proftab_reporter is
--%suite(ut_html_proftab_reporter)
- --%suitepath(utplsql.core.reporters.test_coverage)
+ --%suitepath(utplsql.test_user.reporters.test_coverage.test_proftab_coverage)
--%test(reports on a project file mapped to database object in profiler coverage)
procedure report_on_file;
diff --git a/test/core/reporters/test_debug_reporter.pkb b/test/ut3_user/reporters/test_debug_reporter.pkb
similarity index 94%
rename from test/core/reporters/test_debug_reporter.pkb
rename to test/ut3_user/reporters/test_debug_reporter.pkb
index d82685ac4..f108ec577 100644
--- a/test/core/reporters/test_debug_reporter.pkb
+++ b/test/ut3_user/reporters/test_debug_reporter.pkb
@@ -13,7 +13,7 @@ create or replace package body test_debug_reporter as
ut3.ut_debug_reporter()
)
);
- g_actual := ut3.ut_utils.table_to_clob(l_results);
+ g_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
end;
procedure includes_event_info is
diff --git a/test/core/reporters/test_debug_reporter.pks b/test/ut3_user/reporters/test_debug_reporter.pks
similarity index 86%
rename from test/core/reporters/test_debug_reporter.pks
rename to test/ut3_user/reporters/test_debug_reporter.pks
index d4ba20a62..4d7f7962f 100644
--- a/test/core/reporters/test_debug_reporter.pks
+++ b/test/ut3_user/reporters/test_debug_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_debug_reporter as
--%suite(ut_debug_reporter)
- --%suitepath(utplsql.core.reporters)
+ --%suitepath(utplsql.test_user.reporters)
--%beforeall
procedure run_reporter;
diff --git a/test/core/reporters/test_documentation_reporter.pkb b/test/ut3_user/reporters/test_documentation_reporter.pkb
similarity index 53%
rename from test/core/reporters/test_documentation_reporter.pkb
rename to test/ut3_user/reporters/test_documentation_reporter.pkb
index 7045aa7ca..394594fa4 100644
--- a/test/core/reporters/test_documentation_reporter.pkb
+++ b/test/ut3_user/reporters/test_documentation_reporter.pkb
@@ -1 +1 @@
-create or replace package body test_documentation_reporter as
procedure report_produces_expected_out is
l_results ut3.ut_varchar2_list;
l_actual clob;
l_expected varchar2(32767):=q'[%org
utplsql
tests
helpers
A suite for testing different outcomes from reporters
A description of some context
passing_test [% sec]
a test with failing assertion [% sec] (FAILED - 1)
a test raising unhandled exception [% sec] (FAILED - 2)
a disabled test [0 sec] (DISABLED)
%
Failures:
%
1) failing_test
"Fails as values are different"
Actual: 'number [1] ' (varchar2) was expected to equal: 'number [2] ' (varchar2)%
at "UT3_TESTER.TEST_REPORTERS%", line 36 ut3.ut.expect('number [1] ','Fails as values are different').to_equal('number [2] ');
%
%
2) erroring_test
ORA-06502: PL/SQL: numeric or value error: character to number conversion error
ORA-06512: at "UT3_TESTER.TEST_REPORTERS", line 44%
ORA-06512: at line 6
Finished in % seconds
4 tests, 1 failed, 1 errored, 1 disabled, 0 warning(s)%]';
begin
select *
bulk collect into l_results
from table(
ut3.ut.run(
'test_reporters',
ut3.ut_documentation_reporter()
)
);
l_actual := ut3.ut_utils.table_to_clob(l_results);
ut.expect(l_actual).to_be_like(l_expected);
end;
procedure check_encoding_included is
begin
reporters.check_xml_encoding_included(ut3.ut_sonar_test_reporter(), 'UTF-8');
end;
end;
/
\ No newline at end of file
+create or replace package body test_documentation_reporter as
procedure report_produces_expected_out is
l_results ut3.ut_varchar2_list;
l_actual clob;
l_expected varchar2(32767):=q'[%org
utplsql
tests
helpers
A suite for testing different outcomes from reporters
A description of some context
passing_test [% sec]
a test with failing assertion [% sec] (FAILED - 1)
a test raising unhandled exception [% sec] (FAILED - 2)
a disabled test [0 sec] (DISABLED)
%
Failures:
%
1) failing_test
"Fails as values are different"
Actual: 'number [1] ' (varchar2) was expected to equal: 'number [2] ' (varchar2)%
at "UT3$USER#.TEST_REPORTERS%", line 36 ut3.ut.expect('number [1] ','Fails as values are different').to_equal('number [2] ');
%
%
2) erroring_test
ORA-06502: PL/SQL: numeric or value error: character to number conversion error
ORA-06512: at "UT3$USER#.TEST_REPORTERS", line 44%
ORA-06512: at line 6
Finished in % seconds
4 tests, 1 failed, 1 errored, 1 disabled, 0 warning(s)%]';
begin
select *
bulk collect into l_results
from table(
ut3.ut.run(
'test_reporters',
ut3.ut_documentation_reporter()
)
);
l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
ut.expect(l_actual).to_be_like(l_expected);
end;
procedure check_encoding_included is
begin
reporters.check_xml_encoding_included(ut3.ut_sonar_test_reporter(), 'UTF-8');
end;
end;
/
\ No newline at end of file
diff --git a/test/core/reporters/test_documentation_reporter.pks b/test/ut3_user/reporters/test_documentation_reporter.pks
similarity index 81%
rename from test/core/reporters/test_documentation_reporter.pks
rename to test/ut3_user/reporters/test_documentation_reporter.pks
index 09835abdc..ec6894c61 100644
--- a/test/core/reporters/test_documentation_reporter.pks
+++ b/test/ut3_user/reporters/test_documentation_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_documentation_reporter as
--%suite(ut_documentation_reporter)
- --%suitepath(utplsql.core.reporters)
+ --%suitepath(utplsql.test_user.reporters)
--%test(Report produces expected output)
procedure report_produces_expected_out;
diff --git a/test/ut3_user/reporters/test_extended_coverage.pkb b/test/ut3_user/reporters/test_extended_coverage.pkb
new file mode 100644
index 000000000..bb8bd27a6
--- /dev/null
+++ b/test/ut3_user/reporters/test_extended_coverage.pkb
@@ -0,0 +1,106 @@
+create or replace package body test_extended_coverage is
+
+ g_run_id ut3.ut_coverage.tt_coverage_id_arr;
+
+ function get_mock_block_run_id return integer is
+ begin
+ return ut3_tester_helper.coverage_helper.get_mock_block_run_id();
+ end;
+
+ function get_mock_proftab_run_id return integer is
+ begin
+ return ut3_tester_helper.coverage_helper.get_mock_run_id();
+ end;
+
+ procedure setup_dummy_coverage is
+ pragma autonomous_transaction;
+ begin
+ ut3_tester_helper.coverage_helper.create_dummy_12_2_cov_pck();
+ ut3_tester_helper.coverage_helper.create_dummy_12_2_cov_test();
+ ut3_tester_helper.coverage_helper.grant_exec_on_12_2_cov();
+ g_run_id(ut3.ut_coverage.gc_block_coverage) := get_mock_block_run_id();
+ g_run_id(ut3.ut_coverage.gc_proftab_coverage) := get_mock_proftab_run_id();
+ ut3.ut_coverage.mock_coverage_id(g_run_id);
+ ut3_tester_helper.coverage_helper.mock_block_coverage_data(g_run_id(ut3.ut_coverage.gc_block_coverage),user);
+ ut3_tester_helper.coverage_helper.mock_profiler_coverage_data(g_run_id(ut3.ut_coverage.gc_proftab_coverage),user);
+ commit;
+ end;
+
+ procedure cleanup_dummy_coverage is
+ begin
+ ut3_tester_helper.coverage_helper.cleanup_dummy_coverage(g_run_id(ut3.ut_coverage.gc_block_coverage)
+ ,g_run_id(ut3.ut_coverage.gc_proftab_coverage));
+ end;
+
+ procedure coverage_for_object is
+ l_expected clob;
+ l_actual clob;
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Arrange
+ l_expected := '%%%';
+ --Act
+ select *
+ bulk collect into l_results
+ from table(
+ ut3.ut.run(
+ a_path => 'ut3.test_block_dummy_coverage',
+ a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+ a_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage_package_with_an_amazingly_long_name_that_you_would_not_think_of_in_real_life_project_because_its_simply_too_long' )
+ )
+ );
+ --Assert
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(l_actual).to_be_like(l_expected);
+ end;
+
+ procedure coverage_for_schema is
+ l_expected clob;
+ l_actual clob;
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Arrange
+ l_expected := '%%%';
+ --Act
+ select *
+ bulk collect into l_results
+ from table(
+ ut3.ut.run(
+ a_path => 'ut3.test_block_dummy_coverage',
+ a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+ a_coverage_schemes => ut3.ut_varchar2_list( 'ut3' )
+ )
+ );
+ --Assert
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(l_actual).to_be_like(l_expected);
+ ut.expect(l_actual).to_be_like('%%%');
+ end;
+
+ procedure coverage_for_file is
+ l_expected clob;
+ l_actual clob;
+ l_results ut3.ut_varchar2_list;
+ l_file_path varchar2(250);
+ begin
+ --Arrange
+ l_file_path := lower('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');
+ l_expected := '%%%';
+ --Act
+ select *
+ bulk collect into l_results
+ from table(
+ ut3.ut.run(
+ a_path => 'ut3.test_block_dummy_coverage',
+ a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+ a_source_files => ut3.ut_varchar2_list( l_file_path ),
+ a_test_files => ut3.ut_varchar2_list( )
+ )
+ );
+ --Assert
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(l_actual).to_be_like(l_expected);
+ end;
+
+end;
+/
diff --git a/test/core/reporters/test_extended_coverage.pks b/test/ut3_user/reporters/test_extended_coverage.pks
similarity index 92%
rename from test/core/reporters/test_extended_coverage.pks
rename to test/ut3_user/reporters/test_extended_coverage.pks
index 6d85a4a30..aaef20877 100644
--- a/test/core/reporters/test_extended_coverage.pks
+++ b/test/ut3_user/reporters/test_extended_coverage.pks
@@ -1,7 +1,7 @@
create or replace package test_extended_coverage is
--%suite
- --%suitepath(utplsql.core.reporters)
+ --%suitepath(utplsql.test_user.reporters)
--%beforeall
procedure setup_dummy_coverage;
diff --git a/test/core/reporters/test_junit_reporter.pkb b/test/ut3_user/reporters/test_junit_reporter.pkb
similarity index 93%
rename from test/core/reporters/test_junit_reporter.pkb
rename to test/ut3_user/reporters/test_junit_reporter.pkb
index e0a7ea00d..b86bb698c 100644
--- a/test/core/reporters/test_junit_reporter.pkb
+++ b/test/ut3_user/reporters/test_junit_reporter.pkb
@@ -100,7 +100,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).not_to_be_like('%%');
ut.expect(l_actual).to_be_like('%<tag>%');
@@ -114,7 +114,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).not_to_be_like('%Actual: 1 (number) was expected to equal: 1 (number)%');
ut.expect(l_actual).to_be_like('%Actual: 1 (number) was expected to equal: 2 (number)%');
@@ -128,7 +128,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting',ut3.ut_xunit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).not_to_be_like('%Actual: 1 (number) was expected to equal: 1 (number)%');
ut.expect(l_actual).to_be_like('%Actual: 1 (number) was expected to equal: 2 (number)%');
@@ -142,7 +142,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('%at "%.CHECK_JUNIT_REPORTING%", line %');
end;
@@ -155,7 +155,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('%testcase classname="check_junit_reporting" assertions="%" name="%"%');
end;
@@ -174,7 +174,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting', ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_match('time="[0-9]*\.[0-9]{3,6}"');
--Cleanup
@@ -189,7 +189,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_rep_suitepath',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('%testcase classname="core.check_junit_rep_suitepath" assertions="%" name="%"%');
end;
@@ -216,7 +216,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('tst_package_junit_nodesc',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
ut.expect(l_actual).to_be_like(l_expected);
end;
@@ -238,7 +238,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('tst_package_junit_nosuite',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
ut.expect(l_actual).to_be_like(l_expected);
end;
@@ -294,7 +294,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('test_reporters',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
ut.expect(l_actual).to_be_like(l_expected);
end;
@@ -306,7 +306,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_fail_escape',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('%Actual: 'test' (varchar2) was expected to equal: '<![CDATA[some stuff]]>' (varchar2)%');
end;
@@ -329,7 +329,7 @@ create or replace package body test_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('Tst_Fix_Case_Sensitive',ut3.ut_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
ut.expect(l_actual).to_be_like(l_expected);
end;
diff --git a/test/core/reporters/test_junit_reporter.pks b/test/ut3_user/reporters/test_junit_reporter.pks
similarity index 97%
rename from test/core/reporters/test_junit_reporter.pks
rename to test/ut3_user/reporters/test_junit_reporter.pks
index b39c5ff03..8af2ba430 100644
--- a/test/core/reporters/test_junit_reporter.pks
+++ b/test/ut3_user/reporters/test_junit_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_junit_reporter as
--%suite(ut_junit_reporter)
- --%suitepath(utplsql.core.reporters)
+ --%suitepath(utplsql.test_user.reporters)
--%beforeall
procedure create_a_test_package;
diff --git a/test/ut3_user/reporters/test_proftab_coverage.pkb b/test/ut3_user/reporters/test_proftab_coverage.pkb
new file mode 100644
index 000000000..c5ad8c112
--- /dev/null
+++ b/test/ut3_user/reporters/test_proftab_coverage.pkb
@@ -0,0 +1,143 @@
+create or replace package body test_proftab_coverage is
+
+ procedure create_dummy_coverage_test_1 is
+ begin
+ ut3_tester_helper.coverage_helper.create_dummy_coverage_test_1();
+ ut3_tester_helper.coverage_helper.grant_exec_on_cov_1();
+ end;
+
+ procedure drop_dummy_coverage_test_1 is
+ begin
+ ut3_tester_helper.coverage_helper.drop_dummy_coverage_test_1();
+ end;
+
+ procedure coverage_for_object is
+ l_expected clob;
+ l_actual clob;
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Arrange
+ l_expected := '%%';
+ --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_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage' )
+ )
+ );
+ --Assert
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(l_actual).to_be_like(l_expected);
+ end;
+
+ procedure coverage_for_object_no_owner is
+ l_expected clob;
+ l_actual clob;
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Arrange
+ l_expected := '%%';
+ --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_include_objects => ut3.ut_varchar2_list( 'dummy_coverage' )
+ )
+ );
+ --Assert
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(l_actual).to_be_like(l_expected);
+ end;
+
+ procedure coverage_for_schema is
+ l_expected clob;
+ l_actual clob;
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Arrange
+ l_expected := '';
+ l_expected := '%'||l_expected||'%'||l_expected||'%';
+ --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_coverage_schemes => ut3.ut_varchar2_list( 'ut3' )
+ )
+ );
+ --Assert
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(l_actual).to_be_like(l_expected);
+ end;
+
+ procedure coverage_for_file is
+ l_expected clob;
+ l_actual clob;
+ l_results ut3.ut_varchar2_list;
+ l_file_path varchar2(100);
+ begin
+ --Arrange
+ l_file_path := lower('test/ut3.dummy_coverage.pkb');
+ l_expected := '%%';
+ --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( l_file_path ),
+ a_test_files => ut3.ut_varchar2_list( )
+ )
+ );
+ --Assert
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(l_actual).to_be_like(l_expected);
+ end;
+
+ procedure coverage_tmp_data_refresh is
+ l_actual clob;
+ l_results ut3.ut_varchar2_list;
+ begin
+ --Arrange
+ select *
+ bulk collect into l_results
+ from table(
+ ut3.ut.run(
+ a_path => 'ut3:coverage_testing',
+ a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+ a_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage' )
+ )
+ );
+ ut3_tester_helper.coverage_helper.cleanup_dummy_coverage(test_coverage.g_run_id);
+ ut3_tester_helper.coverage_helper.drop_dummy_coverage_pkg();
+ create_dummy_coverage_test_1;
+
+ --Act
+ select *
+ bulk collect into l_results
+ from table(
+ ut3.ut.run(
+ a_path => 'ut3:coverage_testing',
+ a_reporter=> ut3.ut_coverage_sonar_reporter( ),
+ a_include_objects => ut3.ut_varchar2_list( 'ut3.dummy_coverage' )
+ )
+ );
+
+ --Assert
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
+ ut.expect(l_actual).to_equal(to_clob('
+
+'));
+ end;
+
+end;
+/
diff --git a/test/core/reporters/test_coverage.pks b/test/ut3_user/reporters/test_proftab_coverage.pks
similarity index 62%
rename from test/core/reporters/test_coverage.pks
rename to test/ut3_user/reporters/test_proftab_coverage.pks
index 51eb175ec..1bb5c10cd 100644
--- a/test/core/reporters/test_coverage.pks
+++ b/test/ut3_user/reporters/test_proftab_coverage.pks
@@ -1,21 +1,7 @@
-create or replace package test_coverage is
+create or replace package test_proftab_coverage is
--%suite
- --%suitepath(utplsql.core.reporters)
-
- g_run_id integer;
-
- --%beforeall
- procedure create_dummy_coverage_pkg;
- --%beforeall
- procedure setup_dummy_coverage;
-
-
- --%afterall
- procedure drop_dummy_coverage_pkg;
- --%afterall
- procedure cleanup_dummy_coverage;
-
+ --%suitepath(utplsql.test_user.reporters.test_coverage)
--%test(Coverage is gathered for specified object - default coverage type)
procedure coverage_for_object;
@@ -30,11 +16,12 @@ create or replace package test_coverage is
procedure coverage_for_file;
--%test(Coverage data is not cached between runs - issue #562 )
- --%aftertest(create_dummy_coverage_pkg)
- --%aftertest(setup_dummy_coverage)
+ --%aftertest(ut3$user#.test_coverage.create_dummy_coverage_pkg)
+ --%aftertest(ut3$user#.test_coverage.setup_dummy_coverage)
--%aftertest(drop_dummy_coverage_test_1)
procedure coverage_tmp_data_refresh;
procedure drop_dummy_coverage_test_1;
+
end;
/
diff --git a/test/core/reporters/test_realtime_reporter.pkb b/test/ut3_user/reporters/test_realtime_reporter.pkb
similarity index 90%
rename from test/core/reporters/test_realtime_reporter.pkb
rename to test/ut3_user/reporters/test_realtime_reporter.pkb
index 2267e9c41..8387fa4bd 100644
--- a/test/core/reporters/test_realtime_reporter.pkb
+++ b/test/ut3_user/reporters/test_realtime_reporter.pkb
@@ -1,6 +1,6 @@
create or replace package body test_realtime_reporter as
- g_events test_event_list := test_event_list();
+ g_events ut3_tester_helper.test_event_list := ut3_tester_helper.test_event_list();
procedure create_test_suites_and_run is
pragma autonomous_transaction;
@@ -110,7 +110,7 @@ create or replace package body test_realtime_reporter as
a_reporters => ut3.ut_reporters(l_reporter)
);
-- consume
- select test_event_object(item_type, xmltype(text))
+ select ut3_tester_helper.test_event_object(item_type, xmltype(text))
bulk collect into g_events
from table(l_reporter.get_lines())
where trim(text) is not null and item_type is not null;
@@ -320,10 +320,10 @@ create or replace package body test_realtime_reporter as
from table(g_events) t
where t.event_doc.extract('/event[@type="post-test"]/test/@id').getstringval()
= 'realtime_reporting.check_realtime_reporting3.test_7_with_serveroutput';
- ut3.ut_utils.append_to_list(l_expected_list, '');
- l_expected := ut3.ut_utils.table_to_clob(l_expected_list);
+ ut3_tester_helper.main_helper.append_to_list(l_expected_list, '');
+ l_expected := ut3_tester_helper.main_helper.table_to_clob(l_expected_list);
ut.expect(l_actual).to_equal(l_expected);
end serveroutput_of_test;
@@ -337,11 +337,11 @@ create or replace package body test_realtime_reporter as
from table(g_events) t
where t.event_doc.extract('/event[@type="post-suite"]/suite/@id').getstringval()
= 'realtime_reporting.check_realtime_reporting3';
- ut3.ut_utils.append_to_list(l_expected_list, '');
- l_expected := ut3.ut_utils.table_to_clob(l_expected_list);
+ ut3_tester_helper.main_helper.append_to_list(l_expected_list, '');
+ l_expected := ut3_tester_helper.main_helper.table_to_clob(l_expected_list);
ut.expect(l_actual).to_equal(l_expected);
end serveroutput_of_testsuite;
@@ -355,10 +355,10 @@ create or replace package body test_realtime_reporter as
from table(g_events) t
where t.event_doc.extract('/event[@type="post-test"]/test/@id').getstringval()
= 'realtime_reporting.check_realtime_reporting3.test_6_with_runtime_error';
- ut3.ut_utils.append_to_list(l_expected_list, '');
- l_expected := ut3.ut_utils.table_to_clob(l_expected_list);
+ ut3_tester_helper.main_helper.append_to_list(l_expected_list, '');
+ l_expected := ut3_tester_helper.main_helper.table_to_clob(l_expected_list);
ut.expect(l_actual).to_be_like(l_expected);
end error_stack_of_test;
@@ -372,10 +372,10 @@ create or replace package body test_realtime_reporter as
from table(g_events) t
where t.event_doc.extract('/event[@type="post-suite"]/suite/@id').getstringval()
= 'realtime_reporting.check_realtime_reporting3';
- ut3.ut_utils.append_to_list(l_expected_list, '');
- l_expected := ut3.ut_utils.table_to_clob(l_expected_list);
+ ut3_tester_helper.main_helper.append_to_list(l_expected_list, '');
+ l_expected := ut3_tester_helper.main_helper.table_to_clob(l_expected_list);
ut.expect(l_actual).to_be_like(l_expected);
end error_stack_of_testsuite;
diff --git a/test/core/reporters/test_realtime_reporter.pks b/test/ut3_user/reporters/test_realtime_reporter.pks
similarity index 97%
rename from test/core/reporters/test_realtime_reporter.pks
rename to test/ut3_user/reporters/test_realtime_reporter.pks
index b59313895..04cd288e1 100644
--- a/test/core/reporters/test_realtime_reporter.pks
+++ b/test/ut3_user/reporters/test_realtime_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_realtime_reporter as
--%suite(ut_realtime_reporter)
- --%suitepath(utplsql.core.reporters)
+ --%suitepath(utplsql.test_user.reporters)
--%beforeall
procedure create_test_suites_and_run;
diff --git a/test/core/reporters/test_sonar_test_reporter.pkb b/test/ut3_user/reporters/test_sonar_test_reporter.pkb
similarity index 86%
rename from test/core/reporters/test_sonar_test_reporter.pkb
rename to test/ut3_user/reporters/test_sonar_test_reporter.pkb
index 9cf38ea91..76cec84c8 100644
--- a/test/core/reporters/test_sonar_test_reporter.pkb
+++ b/test/ut3_user/reporters/test_sonar_test_reporter.pkb
@@ -20,10 +20,10 @@ create or replace package body test_sonar_test_reporter as
ut3.ut.run(
'test_reporters',
ut3.ut_sonar_test_reporter(),
- a_test_file_mappings => ut3.ut_file_mapper.build_file_mappings( user, ut3.ut_varchar2_list('tests/helpers/test_reporters.pkb'))
+ a_test_file_mappings => ut3.ut_file_mapper.build_file_mappings( sys_context('USERENV', 'CURRENT_USER'), ut3.ut_varchar2_list('tests/helpers/test_reporters.pkb'))
)
);
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual :=ut3_tester_helper.main_helper.table_to_clob(l_results);
ut.expect(l_actual).to_be_like(l_expected);
end;
diff --git a/test/core/reporters/test_sonar_test_reporter.pks b/test/ut3_user/reporters/test_sonar_test_reporter.pks
similarity index 86%
rename from test/core/reporters/test_sonar_test_reporter.pks
rename to test/ut3_user/reporters/test_sonar_test_reporter.pks
index ab4776c38..0c2fdf70a 100644
--- a/test/core/reporters/test_sonar_test_reporter.pks
+++ b/test/ut3_user/reporters/test_sonar_test_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_sonar_test_reporter as
--%suite(ut_sonar_test_reporter)
- --%suitepath(utplsql.core.reporters)
+ --%suitepath(utplsql.test_user.reporters)
--%test(Report produces expected output)
procedure report_produces_expected_out;
diff --git a/test/core/reporters/test_teamcity_reporter.pkb b/test/ut3_user/reporters/test_teamcity_reporter.pkb
similarity index 78%
rename from test/core/reporters/test_teamcity_reporter.pkb
rename to test/ut3_user/reporters/test_teamcity_reporter.pkb
index 77b850b15..fc2ab169e 100644
--- a/test/core/reporters/test_teamcity_reporter.pkb
+++ b/test/ut3_user/reporters/test_teamcity_reporter.pkb
@@ -45,29 +45,29 @@ create or replace package body test_teamcity_reporter as
%##teamcity[testSuiteStarted timestamp='%' name='org.utplsql.tests.helpers']
%##teamcity[testSuiteStarted timestamp='%' name='A suite for testing different outcomes from reporters']
%##teamcity[testSuiteStarted timestamp='%' name='A description of some context']
-%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3_tester.test_reporters.passing_test']
+%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3$user#.test_reporters.passing_test']
-%##teamcity[testFinished timestamp='%' duration='%' name='ut3_tester.test_reporters.passing_test']
+%##teamcity[testFinished timestamp='%' duration='%' name='ut3$user#.test_reporters.passing_test']
%##teamcity[testSuiteFinished timestamp='%' name='A description of some context']
-%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3_tester.test_reporters.failing_test']
+%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3$user#.test_reporters.failing_test']
-%##teamcity[testFailed timestamp='%' details='Actual: |'number |[1|] |' (varchar2) was expected to equal: |'number |[2|] |' (varchar2) ' message='Fails as values are different' name='ut3_tester.test_reporters.failing_test']
-%##teamcity[testFinished timestamp='%' duration='%' name='ut3_tester.test_reporters.failing_test']
-%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3_tester.test_reporters.erroring_test']
+%##teamcity[testFailed timestamp='%' details='Actual: |'number |[1|] |' (varchar2) was expected to equal: |'number |[2|] |' (varchar2) ' message='Fails as values are different' name='ut3$user#.test_reporters.failing_test']
+%##teamcity[testFinished timestamp='%' duration='%' name='ut3$user#.test_reporters.failing_test']
+%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3$user#.test_reporters.erroring_test']
-%##teamcity[testStdErr timestamp='%' name='ut3_tester.test_reporters.erroring_test' out='Test exception:|nORA-06512: at "UT3_TESTER.TEST_REPORTERS", line %|nORA-06512: at %|n|n']
-%##teamcity[testFailed timestamp='%' details='Test exception:|nORA-06512: at "UT3_TESTER.TEST_REPORTERS", line %|nORA-06512: at %|n|n' message='Error occured' name='ut3_tester.test_reporters.erroring_test']
-%##teamcity[testFinished timestamp='%' duration='%' name='ut3_tester.test_reporters.erroring_test']
-%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3_tester.test_reporters.disabled_test']
-%##teamcity[testIgnored timestamp='%' name='ut3_tester.test_reporters.disabled_test']
+%##teamcity[testStdErr timestamp='%' name='ut3$user#.test_reporters.erroring_test' out='Test exception:|nORA-06512: at "UT3$USER#.TEST_REPORTERS", line %|nORA-06512: at %|n|n']
+%##teamcity[testFailed timestamp='%' details='Test exception:|nORA-06512: at "UT3$USER#.TEST_REPORTERS", line %|nORA-06512: at %|n|n' message='Error occured' name='ut3$user#.test_reporters.erroring_test']
+%##teamcity[testFinished timestamp='%' duration='%' name='ut3$user#.test_reporters.erroring_test']
+%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3$user#.test_reporters.disabled_test']
+%##teamcity[testIgnored timestamp='%' name='ut3$user#.test_reporters.disabled_test']
%##teamcity[testSuiteFinished timestamp='%' name='A suite for testing different outcomes from reporters']
%##teamcity[testSuiteFinished timestamp='%' name='org.utplsql.tests.helpers']
%##teamcity[testSuiteFinished timestamp='%' name='org.utplsql.tests']
@@ -79,7 +79,7 @@ create or replace package body test_teamcity_reporter as
from table(ut3.ut.run('test_reporters',ut3.ut_teamcity_reporter()));
--assert
- ut.expect(ut3.ut_utils.table_to_clob(l_output_data)).to_be_like(l_expected);
+ ut.expect(ut3_tester_helper.main_helper.table_to_clob(l_output_data)).to_be_like(l_expected);
end;
procedure escape_special_chars is
@@ -88,9 +88,9 @@ create or replace package body test_teamcity_reporter as
l_expected varchar2(32767);
begin
l_expected := q'{%##teamcity[testSuiteStarted timestamp='%' name='A suite with |'quote|'']
-%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3_tester.check_escape_special_chars.test_do_stuff']
-%##teamcity[testFailed timestamp='%' details='Actual: (varchar2)|n |' |[ |r|n |] |'|nwas expected to be null' name='ut3_tester.check_escape_special_chars.test_do_stuff']
-%##teamcity[testFinished timestamp='%' duration='%' name='ut3_tester.check_escape_special_chars.test_do_stuff']
+%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3$user#.check_escape_special_chars.test_do_stuff']
+%##teamcity[testFailed timestamp='%' details='Actual: (varchar2)|n |' |[ |r|n |] |'|nwas expected to be null' name='ut3$user#.check_escape_special_chars.test_do_stuff']
+%##teamcity[testFinished timestamp='%' duration='%' name='ut3$user#.check_escape_special_chars.test_do_stuff']
%##teamcity[testSuiteFinished timestamp='%' name='A suite with |'quote|'']}';
--act
select *
@@ -98,7 +98,7 @@ create or replace package body test_teamcity_reporter as
from table(ut3.ut.run('check_escape_special_chars',ut3.ut_teamcity_reporter()));
--assert
- ut.expect(ut3.ut_utils.table_to_clob(l_output_data)).to_be_like(l_expected);
+ ut.expect(ut3_tester_helper.main_helper.table_to_clob(l_output_data)).to_be_like(l_expected);
end;
procedure trims_long_output is
@@ -107,9 +107,9 @@ create or replace package body test_teamcity_reporter as
l_expected varchar2(32767);
begin
l_expected := q'{%##teamcity[testSuiteStarted timestamp='%' name='check_trims_long_output']
-%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3_tester.check_trims_long_output.long_output']
-%##teamcity[testFailed timestamp='%' details='Actual: (varchar2)|n |'aVarcharaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa|[...|]' name='ut3_tester.check_trims_long_output.long_output']
-%##teamcity[testFinished timestamp='%' duration='%' name='ut3_tester.check_trims_long_output.long_output']
+%##teamcity[testStarted timestamp='%' captureStandardOutput='true' name='ut3$user#.check_trims_long_output.long_output']
+%##teamcity[testFailed timestamp='%' details='Actual: (varchar2)|n |'aVarcharaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa|[...|]' name='ut3$user#.check_trims_long_output.long_output']
+%##teamcity[testFinished timestamp='%' duration='%' name='ut3$user#.check_trims_long_output.long_output']
%##teamcity[testSuiteFinished timestamp='%' name='check_trims_long_output']}';
--act
select *
@@ -117,7 +117,7 @@ create or replace package body test_teamcity_reporter as
from table(ut3.ut.run('check_trims_long_output',ut3.ut_teamcity_reporter()));
--assert
- ut.expect(ut3.ut_utils.table_to_clob(l_output_data)).to_be_like(l_expected);
+ ut.expect(ut3_tester_helper.main_helper.table_to_clob(l_output_data)).to_be_like(l_expected);
end;
procedure remove_test_package is
diff --git a/test/core/reporters/test_teamcity_reporter.pks b/test/ut3_user/reporters/test_teamcity_reporter.pks
similarity index 90%
rename from test/core/reporters/test_teamcity_reporter.pks
rename to test/ut3_user/reporters/test_teamcity_reporter.pks
index ef474b225..f849751f1 100644
--- a/test/core/reporters/test_teamcity_reporter.pks
+++ b/test/ut3_user/reporters/test_teamcity_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_teamcity_reporter as
--%suite(ut_teamcity_reporter)
- --%suitepath(utplsql.core.reporters)
+ --%suitepath(utplsql.test_user.reporters)
--%beforeall
procedure create_a_test_package;
diff --git a/test/core/reporters/test_tfs_junit_reporter.pkb b/test/ut3_user/reporters/test_tfs_junit_reporter.pkb
similarity index 91%
rename from test/core/reporters/test_tfs_junit_reporter.pkb
rename to test/ut3_user/reporters/test_tfs_junit_reporter.pkb
index 122c665e3..623dda51e 100644
--- a/test/core/reporters/test_tfs_junit_reporter.pkb
+++ b/test/ut3_user/reporters/test_tfs_junit_reporter.pkb
@@ -78,7 +78,7 @@ create or replace package body test_tfs_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting',ut3.ut_tfs_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).not_to_be_like('%%');
ut.expect(l_actual).to_be_like('%<tag>%');
@@ -92,7 +92,7 @@ create or replace package body test_tfs_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting',ut3.ut_tfs_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).not_to_be_like('%Actual: 1 (number) was expected to equal: 1 (number)%');
ut.expect(l_actual).to_be_like('%Actual: 1 (number) was expected to equal: 2 (number)%');
@@ -106,7 +106,7 @@ create or replace package body test_tfs_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting',ut3.ut_tfs_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('%at "%.CHECK_JUNIT_REPORTING%", line %');
end;
@@ -119,7 +119,7 @@ create or replace package body test_tfs_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting',ut3.ut_tfs_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('%testcase classname="check_junit_reporting"%');
end;
@@ -132,7 +132,7 @@ create or replace package body test_tfs_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_flat_suitepath',ut3.ut_tfs_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('
@@ -157,7 +157,7 @@ create or replace package body test_tfs_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_reporting', ut3.ut_tfs_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_match('time="[0-9]*\.[0-9]{3,6}"');
--Cleanup
@@ -172,7 +172,7 @@ create or replace package body test_tfs_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_fail_escape',ut3.ut_tfs_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('%Actual: 'test' (varchar2) was expected to equal: '<![CDATA[some stuff]]>' (varchar2)%');
end;
@@ -185,7 +185,7 @@ create or replace package body test_tfs_junit_reporter as
select *
bulk collect into l_results
from table(ut3.ut.run('check_junit_rep_suitepath',ut3.ut_tfs_junit_reporter()));
- l_actual := ut3.ut_utils.table_to_clob(l_results);
+ l_actual := ut3_tester_helper.main_helper.table_to_clob(l_results);
--Assert
ut.expect(l_actual).to_be_like('%testcase classname="core.check_junit_rep_suitepath"%');
end;
diff --git a/test/core/reporters/test_tfs_junit_reporter.pks b/test/ut3_user/reporters/test_tfs_junit_reporter.pks
similarity index 96%
rename from test/core/reporters/test_tfs_junit_reporter.pks
rename to test/ut3_user/reporters/test_tfs_junit_reporter.pks
index cc589be1b..af6227283 100644
--- a/test/core/reporters/test_tfs_junit_reporter.pks
+++ b/test/ut3_user/reporters/test_tfs_junit_reporter.pks
@@ -1,7 +1,7 @@
create or replace package test_tfs_junit_reporter as
--%suite(ut_tfs_junit_reporter)
- --%suitepath(utplsql.core.reporters)
+ --%suitepath(utplsql.test_user.reporters)
--%beforeall
procedure crate_a_test_package;
diff --git a/test/ut3_user/test_user.pkb b/test/ut3_user/test_user.pkb
new file mode 100644
index 000000000..ca84a1c69
--- /dev/null
+++ b/test/ut3_user/test_user.pkb
@@ -0,0 +1,11 @@
+create or replace package body test_user is
+
+ procedure global_setup is
+ begin
+ ut3.ut_coverage.set_develop_mode(true);
+ --improve performance of test execution by disabling all compiler optimizations
+ ut3_tester_helper.main_helper.execute_autonomous('ALTER SESSION SET PLSQL_OPTIMIZE_LEVEL=0');
+ end;
+
+end;
+/
diff --git a/test/ut3_user/test_user.pks b/test/ut3_user/test_user.pks
new file mode 100644
index 000000000..ea0435efd
--- /dev/null
+++ b/test/ut3_user/test_user.pks
@@ -0,0 +1,10 @@
+create or replace package test_user is
+
+ --%suite
+ --%suitepath(utplsql)
+
+ --%beforeall
+ procedure global_setup;
+
+end;
+/