create or replace package test_empty_blob_clob is
  --%suite(Empty BLOB/CLOB behavior)

  --%test(Empty BLOB fails on is_null)
  procedure empty_blob_is_null;

  --%test(Empty CLOB fails on is_null)
  procedure empty_clob_is_null;

  --%test(Empty BLOB succeeds on is_not_null)
  procedure empty_blob_is_not_null;

  --%test(Empty CLOB succeeds on is_not_null)
  procedure empty_clob_is_not_null;

  --%test(Empty BLOB fails on is_empty)
  procedure empty_blob_is_empty;

  --%test(Empty CLOB fails is_empty)
  procedure empty_clob_is_empty;

  --%test(Empty BLOB succeeds on empty BLOB comparison)
  procedure empty_blob_equals_empty;

  --%test(Empty CLOB succeeds on empty CLOB comparison)
  procedure empty_clob_equals_empty;
  
end;
/
create or replace package body test_empty_blob_clob is

  procedure empty_blob_is_null is
    l_lob blob := empty_blob();
  begin
    ut.expect(l_lob).to_be_null;
  end;

  procedure empty_clob_is_null is
    l_lob clob := empty_clob();
  begin
    ut.expect(l_lob).to_be_null;
  end;

  procedure empty_blob_is_not_null is
    l_lob blob := empty_blob();
  begin
    ut.expect(l_lob).to_be_not_null;
  end;

  procedure empty_clob_is_not_null is
    l_lob clob := empty_clob();
  begin
    ut.expect(l_lob).to_be_not_null;
  end;

  procedure empty_blob_is_empty is
    l_lob blob := empty_blob();
  begin
    ut.expect(l_lob).to_(be_empty);
  end;

  procedure empty_clob_is_empty is
    l_lob clob := empty_clob();
  begin
    ut.expect(l_lob).to_(be_empty);
  end;

  procedure empty_blob_equals_empty is
    l_lob blob := empty_blob();
  begin
    ut.expect(l_lob).to_equal(empty_blob());
  end;


  procedure empty_clob_equals_empty is
    l_lob clob := empty_clob();
  begin
    ut.expect(l_lob).to_equal(empty_clob());
  end;
  
end;
/