assert procedure for pl/sql

assert.sql

create or replace procedure assert (
  p_condition in boolean,
  p_message   in varchar2
)
is
begin
  if not p_condition
     or p_condition is null
  then
    raise_application_error(-20001, p_message);
  end if;
end assert;