% Regression test function (black blox) for FreeMat v3.5
% This function is autogenerated by helpgen.
function bbtest_success = bbtest_psi
  bbtest_success = 1;
NumErrors = 0;
try
  x = linspace(-5,5);

catch
  NumErrors = NumErrors + 1;
end
try
  y = psi(x);

catch
  NumErrors = NumErrors + 1;
end
try
  plot(x,y); xlabel('x'); ylabel('psi(x)');

catch
  NumErrors = NumErrors + 1;
end
try
  mprint psi1

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