% Regression test function (black blox) for FreeMat v4.0
% This function is autogenerated by helpgen.
function bbtest_success = bbtest_pinv
  bbtest_success = 1;
NumErrors = 0;
try
  A = float(rand(1,2))

catch
  NumErrors = NumErrors + 1;
end
try
  B = pinv(A)

catch
  NumErrors = NumErrors + 1;
end
try
  A*B*A

catch
  NumErrors = NumErrors + 1;
end
try
  B*A*B

catch
  NumErrors = NumErrors + 1;
end
try
  A*B

catch
  NumErrors = NumErrors + 1;
end
try
  B*A

catch
  NumErrors = NumErrors + 1;
end
if (NumErrors ~= 0) bbtest_success = 0; return; end
NumErrors = 0;
try
  A = float([1;1;1;1])

catch
  NumErrors = NumErrors + 1;
end
if (NumErrors ~= 0) bbtest_success = 0; return; end
NumErrors = 0;
try
  pinv(A)

catch
  NumErrors = NumErrors + 1;
end
if (NumErrors ~= 0) bbtest_success = 0; return; end
NumErrors = 0;
try
  A = float([1,1])

catch
  NumErrors = NumErrors + 1;
end
if (NumErrors ~= 0) bbtest_success = 0; return; end
NumErrors = 0;
try
  pinv(A) * 5.0

catch
  NumErrors = NumErrors + 1;
end
if (NumErrors ~= 0) bbtest_success = 0; return; end
