% testApproxEquals P.Conrad for CISC106 sect 99 11/13/2006
% acceptance/regression test for approxEquals

fprintf('test1: ');
if(approxEquals(1.001,0.999,0.01)==1)
  fprintf('passed\n');
else
  fprintf('failed\n');
end;

fprintf('test2: ');
if(approxEquals(1.001,0.999,0.0001)==0)
  fprintf('passed\n');
else
  fprintf('failed\n');
end;