X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=tests%2Fenvelope_tests.m;fp=tests%2Fenvelope_tests.m;h=88f5b4f98ef398ea5ddb83c229af4ac0fe401f63;hp=0000000000000000000000000000000000000000;hb=8ca30867e869231f85848dc14e15f11e6d9c732b;hpb=4c1c0fdc1eab7fbe1e322ff651e9c98357a8ce15

diff --git a/tests/envelope_tests.m b/tests/envelope_tests.m
new file mode 100644
index 0000000..88f5b4f
--- /dev/null
+++ b/tests/envelope_tests.m
@@ -0,0 +1,11 @@
+A = [2, 1, 1, 0; ...
+     1, 2, 0, 1; ...
+     1, 0, 2, 0; ...
+     0, 1, 0, 1];
+
+expected = { [1,2], [1,3], [2,3], [2,4], [3,4] };
+actual = envelope(A);
+
+unit_test_equals("envelope works on an example", ...
+		 true, ...
+		 isequal(actual, expected));