Mercurial > octave-nkf

changeset 12551:e4a1ede4e832

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update test for 'wilkinson(1)' to reflect changes to diag().
author John W. Eaton <jwe@octave.org>
date Tue, 29 Mar 2011 17:51:38 -0700
parents ea3a4bf39048
children 1cfa3d9adf0a
files scripts/ChangeLog scripts/special-matrix/wilkinson.m
diffstat 2 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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])