X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=unit_test%2Funit_test_equals.m;fp=unit_test%2Funit_test_equals.m;h=3b1e182bd75dd8b791084f0882b4e87900e8390c;hp=0000000000000000000000000000000000000000;hb=ef3085ef3c40eab925219bad1c6dbb2c6e106727;hpb=33e4dd7a64f35fb22774d59af11f5670ab566fbc

diff --git a/unit_test/unit_test_equals.m b/unit_test/unit_test_equals.m
new file mode 100644
index 0000000..3b1e182
--- /dev/null
+++ b/unit_test/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(all(err < tol)));
+endfunction