% Regression test function (black blox) for FreeMat v4.0
% This function is autogenerated by helpgen.
function bbtest_success = bbtest_fread
  bbtest_success = 1;
NumErrors = 0;
try
  A = float(randn(512));

catch
  NumErrors = NumErrors + 1;
end
try
  fp = fopen('test.dat','w');

catch
  NumErrors = NumErrors + 1;
end
try
  fwrite(fp,A);

catch
  NumErrors = NumErrors + 1;
end
try
  fclose(fp);

catch
  NumErrors = NumErrors + 1;
end
if (NumErrors ~= 0) bbtest_success = 0; return; end
NumErrors = 0;
try
  fp = fopen('test.dat','r');

catch
  NumErrors = NumErrors + 1;
end
try
  x = fread(fp,[1,inf],'float');

catch
  NumErrors = NumErrors + 1;
end
try
  fclose(fp);

catch
  NumErrors = NumErrors + 1;
end
try
  who x

catch
  NumErrors = NumErrors + 1;
end
if (NumErrors ~= 0) bbtest_success = 0; return; end
NumErrors = 0;
try
  fp = fopen('test.dat','r');

catch
  NumErrors = NumErrors + 1;
end
try
  x = fread(fp,[512,inf],'float');

catch
  NumErrors = NumErrors + 1;
end
try
  fclose(fp);

catch
  NumErrors = NumErrors + 1;
end
try
  who x

catch
  NumErrors = NumErrors + 1;
end
if (NumErrors ~= 0) bbtest_success = 0; return; end
NumErrors = 0;
try
  fp = fopen('test.dat','r');

catch
  NumErrors = NumErrors + 1;
end
try
  x = fread(fp,[512,inf],'*float');

catch
  NumErrors = NumErrors + 1;
end
try
  fclose(fp);

catch
  NumErrors = NumErrors + 1;
end
try
  who x

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