Adding set of tests :

expectations/unary/test_expect_to_be_empty expectations/unary/test_expect_to_be_null expectations/unary/test_expect_to_be_true_false expectations/unary/test_expect_to_have_count Adding dummy type for testing.
utPLSQL · jgebal · Apr 3, 2019 · Mar 22, 2019 · Mar 23, 2019 · Mar 24, 2019
commit d7eb1250798317f1d4fe06315eca7d5cddb183b4
diff --git a/test/install_ut3_tester_helper.sql b/test/install_ut3_tester_helper.sql
@@ -9,6 +9,7 @@ alter session set plsql_optimize_level=0;
 @@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/main_helper.pks
 @@ut3_tester_helper/run_helper.pks

diff --git a/test/install_ut3_user_tests.sql b/test/install_ut3_user_tests.sql
@@ -6,6 +6,10 @@ 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/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/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
@@ -17,6 +21,10 @@ prompt Install user tests
 @@ut3_user/api/test_ut_runner.pks
 
 @@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/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

diff --git a/test/ut3_tester_helper/test_dummy_number.tps 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/ut3_user/expectations/unary/test_expect_to_be_empty.pkb b/test/ut3_user/expectations/unary/test_expect_to_be_empty.pkb
@@ -0,0 +1,270 @@
+create or replace package body test_expect_to_be_empty is
+
+  procedure cleanup_expectations is
+  begin
+    ut3_tester_helper.main_helper.clear_expectations( );
+  end;
+ procedure success_be_empty_cursor is
+    l_cursor sys_refcursor;
+  begin
+    --Arrange
+    open l_cursor for select * from dual where 1 = 2;
+    --Act
+    ut3.ut.expect(l_cursor).to_be_empty;
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure fail_be_empty_cursor is
+    l_cursor sys_refcursor;
+  begin
+    --Arrange
+    open l_cursor for select * from dual;
+    --Act
+    ut3.ut.expect(l_cursor).to_be_empty;
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure fail_be_empty_cursor_report is
+    l_cursor sys_refcursor;
+    l_actual_message   varchar2(32767);
+    l_expected_message varchar2(32767);
+  begin
+    --Arrange
+    open l_cursor for select * from dual;
+    --Act
+    ut3.ut.expect(l_cursor).to_be_empty;
+
+    l_expected_message := q'[Actual: (refcursor [ count = 1 ])%
+    <ROW><DUMMY>X</DUMMY></ROW>%
+was expected to be empty%%]';
+    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 success_not_be_empty_cursor is
+    l_cursor sys_refcursor;
+  begin
+    --Arrange
+    open l_cursor for select * from dual;
+    --Act
+    ut3.ut.expect(l_cursor).not_to_be_empty;
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure fail_not_be_empty_cursor is
+    l_cursor sys_refcursor;
+  begin
+    --Arrange
+    open l_cursor for select * from dual where 1 = 2;
+    --Act
+    ut3.ut.expect(l_cursor).not_to_be_empty;
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure success_be_empty_collection is
+    l_actual anydata;
+  begin
+    --Arrange
+    l_actual := anydata.convertcollection(ora_mining_varchar2_nt());
+    -- Act
+    ut3.ut.expect(l_actual).to_be_empty();
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure fail_be_empty_collection is
+    l_actual anydata;
+  begin
+    --Arrange
+    l_actual := anydata.convertcollection(ora_mining_varchar2_nt('a'));
+    -- Act
+    ut3.ut.expect(l_actual).to_be_empty();
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure success_not_be_empty_coll is
+    l_actual anydata;
+  begin
+    --Arrange
+    l_actual := anydata.convertcollection(ora_mining_varchar2_nt('a'));
+    -- Act
+    ut3.ut.expect(l_actual).not_to_be_empty();
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure fail_not_be_empty_collection is
+    l_actual anydata;
+  begin
+    --Arrange
+    l_actual := anydata.convertcollection(ora_mining_varchar2_nt());
+    -- Act
+    ut3.ut.expect(l_actual).not_to_be_empty();
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure fail_be_empty_null_collection is
+    l_actual anydata;
+    l_data   ora_mining_varchar2_nt;
+  begin
+    --Arrange
+    l_actual := anydata.convertcollection(l_data);
+    -- Act
+    ut3.ut.expect(l_actual).to_be_empty();
+    --Assert
+    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
+    l_actual anydata;
+    l_data   ora_mining_varchar2_nt;
+  begin
+    --Arrange
+    l_actual := anydata.convertcollection(l_data);
+    -- Act
+    ut3.ut.expect(l_actual).not_to_be_empty();
+    --Assert
+    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_tester_helper.test_dummy_number(1));
+    -- Act
+    ut3.ut.expect(l_actual).to_be_empty();
+    --Assert
+    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_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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure fail_be_empty_number is
+  begin
+    -- Act
+    ut3.ut.expect( 1 ).to_( ut3.be_empty() );
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  /**
+  * https://docs.oracle.com/en/database/oracle/oracle-database/18/adobj/declaring-initializing-objects-in-plsql.html#GUID-23135172-82E2-4C3E-800D-E584B43B578E
+  * User-defined types, just like collections, are atomically null, until you initialize the object by calling the constructor for its object type. That is, the object itself is null, not just its attributes. 
+  */
+  procedure fail_not_be_empty_object is
+    l_actual anydata;
+  begin
+    --Arrange
+    l_actual := anydata.convertObject(ut3_tester_helper.test_dummy_number(1));
+    -- Act
+    ut3.ut.expect(l_actual).not_to_be_empty();
+    --Assert
+    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_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(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure fail_not_be_empty_number is
+  begin
+    -- Act
+    ut3.ut.expect( 1 ).not_to( ut3.be_empty() );
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure success_be_empty_clob is
+    begin
+      -- Act
+      ut3.ut.expect( empty_clob() ).to_( ut3.be_empty() );
+      --Assert
+      ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+    end;
+
+  procedure fail_be_empty_clob is
+    begin
+      -- Act
+      ut3.ut.expect( to_clob(' ') ).to_( ut3.be_empty() );
+      --Assert
+      ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+    end;
+
+  procedure success_be_empty_blob is
+    begin
+      -- Act
+      ut3.ut.expect( empty_blob() ).to_( ut3.be_empty() );
+      --Assert
+      ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+    end;
+
+  procedure fail_be_empty_blob is
+    begin
+      -- Act
+      ut3.ut.expect( to_blob('AA') ).to_( ut3.be_empty() );
+      --Assert
+      ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+    end;
+
+
+  procedure fail_not_be_empty_clob is
+  begin
+    -- Act
+    ut3.ut.expect( empty_clob() ).not_to( ut3.be_empty() );
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure success_not_be_empty_clob is
+  begin
+    -- Act
+    ut3.ut.expect( to_clob(' ') ).not_to( ut3.be_empty() );
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+  procedure fail_not_be_empty_blob is
+  begin
+    -- Act
+    ut3.ut.expect( empty_blob() ).not_to( ut3.be_empty() );
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_be_greater_than(0);
+  end;
+
+  procedure success_not_be_empty_blob is
+  begin
+    -- Act
+    ut3.ut.expect( to_blob('AA') ).not_to( ut3.be_empty() );
+    --Assert
+    ut.expect(ut3_tester_helper.main_helper.get_failed_expectations_num).to_equal(0);
+  end;
+
+end;
+/