# HG changeset patch
# User Andriy Shinkarchuck <adriano32.gnu@gmail.com>
# Date 1315071621 18000
# Node ID 107651f79e06f15c936e11794d31656af397d69d
# Parent  14422cc782b294e67c4521a37b759d3151b3a2e1
codesprint: 9 tests for hamming.m

diff -r 14422cc782b2 -r 107651f79e06 scripts/signal/hamming.m
--- a/scripts/signal/hamming.m	Sat Sep 03 10:25:25 2011 -0700
+++ b/scripts/signal/hamming.m	Sat Sep 03 12:40:21 2011 -0500
@@ -45,3 +45,17 @@
   endif
 
 endfunction
+
+%!assert (hamming (1), 1);
+%!assert (hamming (2), (0.54 - 0.46)*ones(2,1));
+%!assert (hamming (16), fliplr (hamming (16)));
+%!assert (hamming (15), fliplr (hamming (15)));
+%!test
+%! N = 15;
+%! A = hamming (N);
+%! assert (A (ceil (N/2)), 1);
+
+%!error hamming ();
+%!error hamming (0.5);
+%!error hamming (-1);
+%!error hamming (ones(1,4));