# HG changeset patch
# User John W. Eaton  <jwe@octave.org>
# Date 1301446298 25200
# Node ID e4a1ede4e832a03dd8acba92f7c9a72ee655320f
# Parent  ea3a4bf39048fa51dba7e7766814e52930b13cec
Update test for 'wilkinson(1)' to reflect changes to diag().

diff -r ea3a4bf39048 -r e4a1ede4e832 scripts/ChangeLog
--- a/scripts/ChangeLog	Tue Mar 29 17:47:26 2011 -0700
+++ b/scripts/ChangeLog	Tue Mar 29 17:51:38 2011 -0700
@@ -1,3 +1,8 @@
+2011-03-29  John W. Eaton  <jwe@octave.org>
+
+	* special-matrix/wilkinson.m: Update test for 'wilkinson(1)' to reflect
+	changes to diag().
+
 2011-03-29  Michael Creel  <michael.creel@uab.es>
 
 	* statistics/base/ols.m: Fix erroneous degrees of freedom when
diff -r ea3a4bf39048 -r e4a1ede4e832 scripts/special-matrix/wilkinson.m
--- a/scripts/special-matrix/wilkinson.m	Tue Mar 29 17:47:26 2011 -0700
+++ b/scripts/special-matrix/wilkinson.m	Tue Mar 29 17:51:38 2011 -0700
@@ -35,8 +35,8 @@
     print_usage ();
   endif
 
-  if (! (isscalar (n) && (n == fix (n)) && n > 0))
-    error ("wilkinson: N must be an integer greater than 0");
+  if (! (isscalar (n) && (n == fix (n)) && n >= 0))
+    error ("wilkinson: N must be a non-negative integer");
   endif
 
   side = ones (n-1, 1);
@@ -45,7 +45,8 @@
 
 endfunction
 
-%!assert (wilkinson(1), [])
+%!assert (wilkinson(0), [])
+%!assert (wilkinson(1), 0)
 %!assert (wilkinson(2), [0.5,1;1,0.5])
 %!assert (wilkinson(3), [1,1,0;1,0,1;0,1,1])
 %!assert (wilkinson(4), [1.5,1,0,0;1,0.5,1,0;0,1,0.5,1;0,0,1,1.5])