Add envelope() and its tests.

[octave.git] / tests / envelope_tests.m

diff --git a/tests/envelope_tests.m b/tests/envelope_tests.m
new file mode 100644 (file)
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));