function assert_my(pred, str)
% ASSERT Raise an error if any of the predicates is not true.
% assert(pred, string)

if nargin<2, str = ''; end

if ~all(pred)
  s = sprintf('assertion violated: %s', str);
  error(s);
end