Added set of tests:

expectations/binary/test_be_greater_or_equal expectations/binary/test_be_greater_than expectations/unary/test_expect_not_to_be_null Passing username implicit into ut_test_runner.
utPLSQL · jgebal · Apr 3, 2019 · Mar 22, 2019 · Mar 23, 2019 · Mar 24, 2019
commit 28dbd1e0bcffc560109195394feb22f4f29650f0
diff --git a/test/install_ut3_user_tests.sql b/test/install_ut3_user_tests.sql
@@ -5,17 +5,23 @@ whenever oserror exit failure rollback
 alter session set plsql_optimize_level=0;

 prompt Install user tests
+@@ut3_user/expectations/unary/test_expect_not_to_be_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/expectations/unary/test_expect_not_to_be_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

diff --git a/test/ut3_user/api/test_ut_runner.pkb b/test/ut3_user/api/test_ut_runner.pkb
@@ -254,7 +254,7 @@ end;';
             '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;

diff --git a/test/ut3_user/expectations/binary/test_be_greater_or_equal.pkb b/test/ut3_user/expectations/binary/test_be_greater_or_equal.pkb
@@ -0,0 +1,263 @@
+create or replace package body test_be_greater_or_equal is
+
+  procedure cleanup_expectations is
+  begin
+    ut3_tester_helper.main_helper.clear_expectations( );
+  end;
+
+  function to_greater_equal_block(
+    a_data_type varchar2,
+    a_actual    varchar2,
+    a_expected  varchar2
+  ) return varchar2 is
+  begin
+    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;
+
+  function not_to_greater_equal_block(
+    a_data_type varchar2,
+    a_actual    varchar2,
+    a_expected  varchar2
+  ) return varchar2 is
+  begin
+    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;
+
+  procedure actual_date_greater is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('date', 'sysdate', 'sysdate-1');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_number_greater is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('number', '2.0', '1.99');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_interval_ym_greater is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('interval year to month', '''2-1''', '''2-0''');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_interval_ds_greater is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_timestamp_greater is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_timestamp_tz_greater is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_timestamp_ltz_greater is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_date_equal is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('date', 'sysdate', 'sysdate');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_number_equal is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('number', '2.0', '2.00');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_interval_ym_equal is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('interval year to month', '''2-1''', '''2-1''');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_interval_ds_equal is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('interval day to second', '''2 01:00:00''', '''2 01:00:00''');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_timestamp_equal is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_timestamp_tz_equal is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_timestamp_ltz_equal is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_date_less is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('date', 'sysdate-1', 'sysdate');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure actual_number_less is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('number', '1.0', '1.01');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure actual_interval_ym_less is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('interval year to month', '''2-1''', '''2-2''');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure actual_interval_ds_less is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('interval day to second', '''2 00:59:58''', '''2 00:59:59''');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure actual_timestamp_less is
+  begin
+    --Act
+    execute immediate to_greater_equal_block('timestamp', 'to_timestamp(''1997 12'',''YYYY FF'')', 'to_timestamp(''1997 13'',''YYYY FF'')');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure actual_timestamp_tz_less is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure actual_timestamp_ltz_less is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure not_actual_date_greater is
+  begin
+    --Act
+    execute immediate not_to_greater_equal_block('date', 'sysdate', 'sysdate-1');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure not_actual_number_greater is
+  begin
+    --Act
+    execute immediate not_to_greater_equal_block('number', '2.0', '1.99');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure not_actual_interval_ym_greater is
+  begin
+    --Act
+    execute immediate not_to_greater_equal_block('interval year to month', '''2-1''', '''2-0''');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure not_actual_interval_ds_greater is
+  begin
+    --Act
+    execute immediate not_to_greater_equal_block('interval day to second', '''2 01:00:00''', '''2 00:59:59''');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure not_actual_timestamp_greater is
+  begin
+    --Act
+    execute immediate not_to_greater_equal_block('timestamp', 'to_timestamp(''1997 13'',''YYYY FF'')', 'to_timestamp(''1997 12'',''YYYY FF'')');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure not_actual_timestamp_tz_gretr is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure not_actual_timestamp_ltz_gretr is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure actual_clob is
+  begin
+    --Act
+    ut3.ut.expect(to_clob('3')).to_( ut3.be_greater_or_equal(3) );
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+end;
+/
diff --git a/test/ut3_user/expectations/binary/test_be_greater_or_equal.pks b/test/ut3_user/expectations/binary/test_be_greater_or_equal.pks
@@ -0,0 +1,97 @@
+create or replace package test_be_greater_or_equal is
+
+  --%suite((not)to_be_greater_or_equal)
+  --%suitepath(utplsql.test_user.expectations.binary)
+
+  --%aftereach
+  procedure cleanup_expectations;
+
+  --%test(Gives success when actual date is greater than expected)
+  procedure actual_date_greater;
+
+  --%test(Gives success when actual number is greater than expected)
+  procedure actual_number_greater;
+
+  --%test(Gives success when actual interval year to month is greater than expected)
+  procedure actual_interval_ym_greater;
+
+  --%test(Gives success when actual interval day to second is greater than expected)
+  procedure actual_interval_ds_greater;
+
+  --%test(Gives success when actual timestamp is greater than expected)
+  procedure actual_timestamp_greater;
+
+  --%test(Gives success when actual timestamp with time zone is greater than expected)
+  procedure actual_timestamp_tz_greater;
+
+  --%test(Gives success when actual timestamp with local time zone is greater than expected)
+  procedure actual_timestamp_ltz_greater;
+
+  --%test(Gives success when actual date is equal expected)
+  procedure actual_date_equal;
+
+  --%test(Gives success when actual number is equal expected)
+  procedure actual_number_equal;
+
+  --%test(Gives success when actual interval year to month is equal expected)
+  procedure actual_interval_ym_equal;
+
+  --%test(Gives success when actual interval day to second is equal expected)
+  procedure actual_interval_ds_equal;
+
+  --%test(Gives success when actual timestamp is equal expected)
+  procedure actual_timestamp_equal;
+
+  --%test(Gives success when actual timestamp with time zone is equal expected)
+  procedure actual_timestamp_tz_equal;
+
+  --%test(Gives success when actual timestamp with local time zone is equal expected)
+  procedure actual_timestamp_ltz_equal;
+
+  --%test(Gives failure when actual date is less than expected)
+  procedure actual_date_less;
+
+  --%test(Gives failure when actual number is less than expected)
+  procedure actual_number_less;
+
+  --%test(Gives failure when actual interval year to month is less than expected)
+  procedure actual_interval_ym_less;
+
+  --%test(Gives failure when actual interval day to second is less than expected)
+  procedure actual_interval_ds_less;
+
+  --%test(Gives failure when actual timestamp is less than expected)
+  procedure actual_timestamp_less;
+
+  --%test(Gives failure when actual timestamp with time zone is less than expected)
+  procedure actual_timestamp_tz_less;
+
+  --%test(Gives failure when actual timestamp with local time zone is less than expected)
+  procedure actual_timestamp_ltz_less;
+
+  --%test(Negated - Gives failure when actual date is greater than expected)
+  procedure not_actual_date_greater;
+
+  --%test(Negated - Gives failure when actual number is greater than expected)
+  procedure not_actual_number_greater;
+
+  --%test(Negated - Gives failure when actual interval year to month is greater than expected)
+  procedure not_actual_interval_ym_greater;
+
+  --%test(Negated - Gives failure when actual interval day to second is greater than expected)
+  procedure not_actual_interval_ds_greater;
+
+  --%test(Negated - Gives failure when actual timestamp is greater than expected)
+  procedure not_actual_timestamp_greater;
+
+  --%test(Negated - Gives failure when actual timestamp with time zone is greater than expected)
+  procedure not_actual_timestamp_tz_gretr;
+
+  --%test(Negated - Gives failure when actual timestamp with local time zone is greater than expected)
+  procedure not_actual_timestamp_ltz_gretr;
+
+  --%test(Gives failure when running against CLOB)
+  procedure actual_clob;
+
+end;
+/