Adding next set of tests migrated.

expectations/binary/test_be_less_or_equal changing name of function to more meaningful.
utPLSQL · jgebal · Apr 3, 2019 · Mar 22, 2019 · Mar 23, 2019 · Mar 24, 2019
commit e2561bc70599bc0fffa20480ba1aab5248b9eb7a
diff --git a/test/install_ut3_user_tests.sql b/test/install_ut3_user_tests.sql
@@ -7,13 +7,15 @@ alter session set plsql_optimize_level=0;
 prompt Install user tests
 @@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/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/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/test_matchers.pkb
 @@ut3_user/expectations/test_expectation_anydata.pkb
 @@ut3_user/expectations/test_expectations_cursor.pkb

diff --git a/test/ut3_tester_helper/main_helper.pkb b/test/ut3_tester_helper/main_helper.pkb
@@ -63,7 +63,7 @@ create or replace package body main_helper is
     return anydata.convertCollection(ut3.ut_expectation_processor.get_failed_expectations());
   end;
 
-  function get_failed_expectations_n return number is
+  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

diff --git a/test/ut3_tester_helper/main_helper.pks b/test/ut3_tester_helper/main_helper.pks
@@ -15,7 +15,7 @@ create or replace package main_helper is
 
   function get_failed_expectations(a_pos in number) return varchar2;
 
-  function get_failed_expectations_n return number;
+  function get_failed_expectations_num return number;
 
   procedure clear_expectations;
 

diff --git a/test/ut3_user/expectations/binary/test_be_less_or_equal.pkb b/test/ut3_user/expectations/binary/test_be_less_or_equal.pkb
@@ -0,0 +1,263 @@
+create or replace package body test_be_less_or_equal is
+
+  procedure cleanup_expectations is
+  begin
+    ut3_tester_helper.main_helper.clear_expectations( );
+  end;
+
+  function to_less_or_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_less_or_equal', a_data_type, a_actual, a_data_type, a_expected
+    );
+  end;
+
+  function not_to_less_or_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_less_or_equal', a_data_type, a_actual, a_data_type, a_expected
+    );
+  end;
+
+  procedure actual_date_greater is
+  begin
+    --Act
+    execute immediate to_less_or_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 actual_number_greater is
+  begin
+    --Act
+    execute immediate to_less_or_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 actual_interval_ym_greater is
+  begin
+    --Act
+    execute immediate to_less_or_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 actual_interval_ds_greater is
+  begin
+    --Act
+    execute immediate to_less_or_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 actual_timestamp_greater is
+  begin
+    --Act
+    execute immediate to_less_or_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 actual_timestamp_tz_greater is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure actual_timestamp_ltz_greater is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure actual_date_equal is
+  begin
+    --Act
+    execute immediate to_less_or_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_less_or_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_less_or_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_less_or_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_less_or_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_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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_timestamp_ltz_equal is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_date_less is
+  begin
+    --Act
+    execute immediate to_less_or_equal_block('date', 'sysdate-1', 'sysdate');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_number_less is
+  begin
+    --Act
+    execute immediate to_less_or_equal_block('number', '1.0', '1.01');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_interval_ym_less is
+  begin
+    --Act
+    execute immediate to_less_or_equal_block('interval year to month', '''2-1''', '''2-2''');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_interval_ds_less is
+  begin
+    --Act
+    execute immediate to_less_or_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_equal(0);
+  end;
+
+  procedure actual_timestamp_less is
+  begin
+    --Act
+    execute immediate to_less_or_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_equal(0);
+  end;
+
+  procedure actual_timestamp_tz_less is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_timestamp_ltz_less is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure not_actual_date_greater is
+  begin
+    --Act
+    execute immediate not_to_less_or_equal_block('date', 'sysdate', 'sysdate-1');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure not_actual_number_greater is
+  begin
+    --Act
+    execute immediate not_to_less_or_equal_block('number', '2.0', '1.99');
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure not_actual_interval_ym_greater is
+  begin
+    --Act
+    execute immediate not_to_less_or_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 not_actual_interval_ds_greater is
+  begin
+    --Act
+    execute immediate not_to_less_or_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 not_actual_timestamp_greater is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure not_actual_timestamp_tz_gretr is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure not_actual_timestamp_ltz_gretr is
+  begin
+    --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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure actual_clob is
+  begin
+    --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( );
+  end;
+
+end;
+/
diff --git a/test/ut3_user/expectations/binary/test_be_less_or_equal.pks b/test/ut3_user/expectations/binary/test_be_less_or_equal.pks
@@ -0,0 +1,97 @@
+create or replace package test_be_less_or_equal is
+
+  --%suite((not)to_be_less_or_equal)
+  --%suitepath(utplsql.core.expectations.binary)
+
+  --%aftereach
+  procedure cleanup_expectations;
+
+  --%test(Gives failure when actual date is greater than expected)
+  procedure actual_date_greater;
+
+  --%test(Gives failure when actual number is greater than expected)
+  procedure actual_number_greater;
+
+  --%test(Gives failure when actual interval year to month is greater than expected)
+  procedure actual_interval_ym_greater;
+
+  --%test(Gives failure when actual interval day to second is greater than expected)
+  procedure actual_interval_ds_greater;
+
+  --%test(Gives failure when actual timestamp is greater than expected)
+  procedure actual_timestamp_greater;
+
+  --%test(Gives failure when actual timestamp with time zone is greater than expected)
+  procedure actual_timestamp_tz_greater;
+
+  --%test(Gives failure 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 success when actual date is less than expected)
+  procedure actual_date_less;
+
+  --%test(Gives success when actual number is less than expected)
+  procedure actual_number_less;
+
+  --%test(Gives success when actual interval year to month is less than expected)
+  procedure actual_interval_ym_less;
+
+  --%test(Gives success when actual interval day to second is less than expected)
+  procedure actual_interval_ds_less;
+
+  --%test(Gives success when actual timestamp is less than expected)
+  procedure actual_timestamp_less;
+
+  --%test(Gives success when actual timestamp with time zone is less than expected)
+  procedure actual_timestamp_tz_less;
+
+  --%test(Gives success when actual timestamp with local time zone is less than expected)
+  procedure actual_timestamp_ltz_less;
+
+  --%test(Negated - Gives success when actual date is greater than expected)
+  procedure not_actual_date_greater;
+
+  --%test(Negated - Gives success when actual number is greater than expected)
+  procedure not_actual_number_greater;
+
+  --%test(Negated - Gives success when actual interval year to month is greater than expected)
+  procedure not_actual_interval_ym_greater;
+
+  --%test(Negated - Gives success when actual interval day to second is greater than expected)
+  procedure not_actual_interval_ds_greater;
+
+  --%test(Negated - Gives success when actual timestamp is greater than expected)
+  procedure not_actual_timestamp_greater;
+
+  --%test(Negated - Gives success when actual timestamp with time zone is greater than expected)
+  procedure not_actual_timestamp_tz_gretr;
+
+  --%test(Negated - Gives success 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;
+/