X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=unit_test_equals.m;fp=unit_test_equals.m;h=e8b00d6fe3d2923108f485c871d0828ad4befd76;hb=8aa8cc9c12fe18887eb13a08962bde982dad996d;hp=0000000000000000000000000000000000000000;hpb=437324f2edf6b26c772080f8cbe3b321dda8d70f;p=octave.git

diff --git a/unit_test_equals.m b/unit_test_equals.m
new file mode 100644
index 0000000..e8b00d6
--- /dev/null
+++ b/unit_test_equals.m
@@ -0,0 +1,5 @@
+function unit_test_equals(test_title, result_A, result_B)
+  tol = 0.0001;
+  err = abs(result_A - result_B);
+  unit_test(test_title, 1, all(err < tol));
+endfunction