Better EQUALITY

release/4.3a0
Frank Dellaert 2012-06-16 03:59:12 +00:00
parent f15d242a78
commit 8cf867bdbd
1 changed files with 6 additions and 4 deletions

View File

@ -1,12 +1,14 @@
function EQUALITY(name,A,B,tol) function EQUALITY(name,expected,actual,tol)
% test equality of two vectors/matrices up to tolerance % test equality of two vectors/matrices up to tolerance
if nargin<4,tol=1e-9;end if nargin<4,tol=1e-9;end
assertion = size(A)==size(B); assertion = size(expected)==size(actual);
if assertion if assertion
assertion = all(abs(A-B)<tol); assertion = all(abs(expected-actual)<tol);
end end
if (assertion~=1) if (assertion~=1)
error(['EQUALITY ' name ' fails']); warning(['EQUALITY ' name ' fails']);
expected
actual
end end