Mercurial > octave
changeset 7411:83a8781b529d
[project @ 2008-01-22 21:52:25 by jwe]
line wrap: on
line diff
--- a/scripts/ChangeLog Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/ChangeLog Tue Jan 22 21:52:26 2008 +0000 @@ -1,3 +1,47 @@ +2008-01-22 Thomas Weber <thomas.weber.mail@gmail.com> + + * linear-algebra/cond.m, linear-algebra/trace.m: + Move tests here from test/test_linalg.m. + + * general/diff.m, general/fliplr.m, general/flipud.m, + general/logspace.m, general/rot90.m, general/shift.m, general/tril.m, + general/triu.m, linear-algebra/vec.m, linear-algebra/vech.m, + special-matrix/hankel.m, special-matrix/hilb.m, + special-matrix/invhilb.m, special-matrix/sylvester_matrix.m, + special-matrix/toeplitz.m, special-matrix/vander.m: + Move tests here from test/test_matrix.m. + + * general/isscalar.m, general/issquare.m, general/isvector.m: + Move tests here from test/test_number.m. + + * deprecated/polyinteg.m, polynomial/compan.m, polynomial/conv.m, + polynomial/deconv.m, polynomial/poly.m, polynomial/polyderiv.m, + polynomial/polyfit.m, polynomial/polyreduce.m, polynomial/polyval.m, + polynomial/polyvalm.m, polynomial/roots.m: + Move tests here from test/test_poly.m. + + * signal/unwrap.m: + Move tests here from test/test_signal.m. + + * statistics/base/corrcoef.m, statistics/base/cov.m, + statistics/base/kurtosis.m, statistics/base/mahalanobis.m, + statistics/base/mean.m, statistics/base/median.m, + statistics/base/skewness.m, statistics/base/std.m: + Move tests here from test/test_stats.m. + + * general/int2str.m, general/num2str.m, strings/bin2dec.m, + strings/blanks.m, strings/deblank.m, strings/dec2bin.m, + strings/dec2hex.m, strings/findstr.m, strings/hex2dec.m, + strings/index.m, strings/rindex.m, strings/split.m, strings/str2mat.m, + strings/str2num.m, strings/strcat.m, strings/strrep.m, + strings/substr.m: + Move tests here from test/test_string.m. + + * miscellaneous/computer.m, miscellaneous/ls.m, + miscellaneous/version.m, time/asctime.m, time/clock.m, time/ctime.m, + time/date.m, time/etime.m, time/is_leap_year.m: + Move tests here from test/test_system.m. + 2008-01-22 Schloegl Alois <alois.schloegl@tugraz.at> * specfun/erfinv.m: Replace z_old and z_new by a single variable z.
--- a/scripts/deprecated/intersection.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/deprecated/intersection.m Tue Jan 22 21:52:26 2008 +0000 @@ -28,3 +28,14 @@ y = intersect (varargin{:}); endfunction + +%!assert(all (all (intersection ([1, 2, 3], [2, 3, 5]) == [2, 3]))); + +%!assert(all (all (intersection ([1; 2; 3], [2, 3, 5]) == [2, 3]))); + +%!assert(isempty (intersection ([1, 2, 3], [4; 5; 6]))); + +%!error intersection (1); + +%!error intersection (1, 2, 5); +
--- a/scripts/deprecated/polyinteg.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/deprecated/polyinteg.m Tue Jan 22 21:52:26 2008 +0000 @@ -35,3 +35,12 @@ y = polyint (p); endfunction + +%!assert(all (all (polyinteg ([2, 2]) == [1, 2, 0]))); + +%!assert(isempty (polyinteg ([]))); + +%!assert(all (all (polyinteg (3) == [3, 0]))); + +%!error polyinteg ([1, 2; 3, 4]); +
--- a/scripts/general/diff.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/diff.m Tue Jan 22 21:52:26 2008 +0000 @@ -131,3 +131,18 @@ endif endfunction + +%!assert((diff ([1, 2, 3, 4]) == [1, 1, 1] +%! && diff ([1, 3, 7, 19], 2) == [2, 8] +%! && diff ([1, 2; 5, 4; 8, 7; 9, 6; 3, 1]) == [4, 2; 3, 3; 1, -1; -6, -5] +%! && diff ([1, 2; 5, 4; 8, 7; 9, 6; 3, 1], 3) == [-1, -5; -5, 0] +%! && isempty (diff (1)))); + +%!error diff ([1, 2; 3, 4], -1); + +%!error diff ("foo"); + +%!error diff (); + +%!error diff (1, 2, 3, 4); +
--- a/scripts/general/fliplr.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/fliplr.m Tue Jan 22 21:52:26 2008 +0000 @@ -51,3 +51,12 @@ y = x (:, nc:-1:1); endfunction + +%!assert((fliplr ([1, 2; 3, 4]) == [2, 1; 4, 3] +%! && fliplr ([1, 2; 3, 4; 5, 6]) == [2, 1; 4, 3; 6, 5] +%! && fliplr ([1, 2, 3; 4, 5, 6]) == [3, 2, 1; 6, 5, 4])); + +%!error <usage.*fliplr> fliplr(); + +%!error fliplr (1, 2); +
--- a/scripts/general/flipud.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/flipud.m Tue Jan 22 21:52:26 2008 +0000 @@ -52,3 +52,12 @@ y = x (nr:-1:1, :); endfunction + +%!assert((flipud ([1, 2; 3, 4]) == [3, 4; 1, 2] +%! && flipud ([1, 2; 3, 4; 5, 6]) == [5, 6; 3, 4; 1, 2] +%! && flipud ([1, 2, 3; 4, 5, 6]) == [4, 5, 6; 1, 2, 3])); + +%!error flipud (); + +%!error flipud (1, 2); +
--- a/scripts/general/int2str.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/int2str.m Tue Jan 22 21:52:26 2008 +0000 @@ -91,3 +91,10 @@ endif endfunction + +%!assert(strcmp (int2str (-123), "-123") && strcmp (int2str (1.2), "1")); + +%!error int2str (); + +%!error int2str (1, 2); +
--- a/scripts/general/isscalar.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/isscalar.m Tue Jan 22 21:52:26 2008 +0000 @@ -33,3 +33,28 @@ endif endfunction + +%!assert(isscalar (1)); + +%!assert(!(isscalar ([1, 2]))); + +%!assert(!(isscalar ([]))); + +%!assert(!(isscalar ([1, 2; 3, 4]))); + +%!test +%! warn_str_to_num = 0; +%! assert((isscalar ("t"))); + +%!assert(!(isscalar ("test"))); + +%!assert(!(isscalar (["test"; "ing"]))); + +%!test +%! s.a = 1; +%! assert((isscalar (s))); + +%!error isscalar (); + +%!error isscalar (1, 2); +
--- a/scripts/general/issquare.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/issquare.m Tue Jan 22 21:52:26 2008 +0000 @@ -43,3 +43,32 @@ endif endfunction + +%!assert(issquare (1)); + +%!assert(!(issquare ([1, 2]))); + +%!assert(!(issquare ([]))); + +%!assert(issquare ([1, 2; 3, 4]) == 2); + +%!test +%! warn_str_to_num = 0; +%! assert(!(issquare ("t"))); + +%!assert(!(issquare ("test"))); + +%!test +%! warn_str_to_num = 0; +%! assert(!(issquare (["test"; "ing"; "1"; "2"]))); + +%!test +%! s.a = 1; +%! assert(!(issquare (s))); + +%!assert(!(issquare ([1, 2; 3, 4; 5, 6]))); + +%!error issquare (); + +%!error issquare ([1, 2; 3, 4], 2); +
--- a/scripts/general/isvector.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/isvector.m Tue Jan 22 21:52:26 2008 +0000 @@ -36,3 +36,30 @@ endif endfunction + +%!assert(isvector (1)); + +%!assert(isvector ([1; 2; 3])); + +%!assert(!(isvector ([]))); + +%!assert(!(isvector ([1, 2; 3, 4]))); + +%!test +%! warn_str_to_num = 0; +%! assert((isvector ("t"))); + +%!test +%! warn_str_to_num = 0; +%! assert((isvector ("test"))); + +%!assert(!(isvector (["test"; "ing"]))); + +%!test +%! s.a = 1; +%! assert((isvector (s))); + +%!error isvector (); + +%!error isvector ([1, 2], 2); +
--- a/scripts/general/logspace.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/logspace.m Tue Jan 22 21:52:26 2008 +0000 @@ -92,3 +92,20 @@ endif endfunction + +%!test +%! x1 = logspace (1, 2); +%! x2 = logspace (1, 2, 10); +%! x3 = logspace (1, -2, 10); +%! x4 = logspace (1, pi, 10); +%! assert((size (x1) == [1, 50] && x1(1) == 10 && x1(50) == 100 +%! && size (x2) == [1, 10] && x2(1) == 10 && x2(10) == 100 +%! && size (x3) == [1, 10] && x3(1) == 10 && x3(10) == 0.01 +%! && size (x4) == [1, 10] && x4(1) == 10 && abs (x4(10) - pi) < sqrt (eps))); + +%!error logspace ([1, 2; 3, 4], 5, 6); + +%!error logspace (); + +%!error logspace (1, 2, 3, 4); +
--- a/scripts/general/num2str.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/num2str.m Tue Jan 22 21:52:26 2008 +0000 @@ -148,3 +148,10 @@ endif endfunction + +%!assert((strcmp (num2str (123), "123") && strcmp (num2str (1.23), "1.23"))); + +%!error num2str (); + +%!error num2str (1, 2, 3); +
--- a/scripts/general/rot90.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/rot90.m Tue Jan 22 21:52:26 2008 +0000 @@ -90,3 +90,21 @@ endif endfunction + +%!test +%! x1 = [1, 2; +%! 3, 4]; +%! x2 = [2, 4; +%! 1, 3]; +%! x3 = [4, 3; +%! 2, 1]; +%! x4 = [3, 1; +%! 4, 2]; +%! +%! assert((rot90 (x1)== x2 && rot90 (x1, 2) == x3 && rot90 (x1, 3) == x4 +%! && rot90 (x1, 4) == x1 && rot90 (x1, 5) == x2 && rot90 (x1, -1) == x4)); + +%!error rot90 (); + +%!error rot90 (1, 2, 3); +
--- a/scripts/general/shift.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/shift.m Tue Jan 22 21:52:26 2008 +0000 @@ -80,5 +80,23 @@ endif y = x(idx{:}); +endfunction -endfunction +%!test +%! a = [1, 2, 3]; +%! b = [4, 5, 6]; +%! c = [7, 8, 9]; +%! +%! r = [a, b, c]; +%! m = [a; b; c]; +%! +%! assert((shift (r, 3) == [c, a, b] +%! && shift (r, -6) == [c, a, b] +%! && shift (r, -3) == [b, c, a] +%! && shift (m, 1) == [c; a; b] +%! && shift (m, -2) == [c; a; b])); + +%!error shift (); + +%!error shift (1, 2, 3, 4); +
--- a/scripts/general/tril.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/tril.m Tue Jan 22 21:52:26 2008 +0000 @@ -87,3 +87,23 @@ endfor endfunction + +%!test +%! a = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; +%! +%! l0 = [1, 0, 0; 4, 5, 0; 7, 8, 9; 10, 11, 12]; +%! l1 = [1, 2, 0; 4, 5, 6; 7, 8, 9; 10, 11, 12]; +%! l2 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; +%! lm1 = [0, 0, 0; 4, 0, 0; 7, 8, 0; 10, 11, 12]; +%! lm2 = [0, 0, 0; 0, 0, 0; 7, 0, 0; 10, 11, 0]; +%! lm3 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 10, 0, 0]; +%! lm4 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 0, 0, 0]; +%! +%! assert((tril (a, -4) == lm4 && tril (a, -3) == lm3 +%! && tril (a, -2) == lm2 && tril (a, -1) == lm1 +%! && tril (a) == l0 && tril (a, 1) == l1 && tril (a, 2) == l2)); + +%!error tril (); + +%!error tril (1, 2, 3); +
--- a/scripts/general/triu.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/general/triu.m Tue Jan 22 21:52:26 2008 +0000 @@ -47,3 +47,23 @@ endfor endfunction + +%!test +%! a = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; +%! +%! u0 = [1, 2, 3; 0, 5, 6; 0, 0, 9; 0, 0, 0]; +%! u1 = [0, 2, 3; 0, 0, 6; 0, 0, 0; 0, 0, 0]; +%! u2 = [0, 0, 3; 0, 0, 0; 0, 0, 0; 0, 0, 0]; +%! u3 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 0, 0, 0]; +%! um1 = [1, 2, 3; 4, 5, 6; 0, 8, 9; 0, 0, 12]; +%! um2 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 0, 11, 12]; +%! um3 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; +%! +%! assert((triu (a, -3) == um3 && triu (a, -2) == um2 +%! && triu (a, -1) == um1 && triu (a) == u0 && triu (a, 1) == u1 +%! && triu (a, 2) == u2 && triu (a, 3) == u3)); + +%!error triu (); + +%!error triu (1, 2, 3); +
--- a/scripts/linear-algebra/cond.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/linear-algebra/cond.m Tue Jan 22 21:52:26 2008 +0000 @@ -55,3 +55,12 @@ endif endfunction + +%!assert(abs (cond ([1, 2; 2, 1]) - 3) < sqrt (eps)); + +%!assert(cond ([1, 2, 3; 4, 5, 6; 7, 8, 9]) > 1.0e+16); + +%!error cond (); + +%!error cond (1, 2); +
--- a/scripts/linear-algebra/trace.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/linear-algebra/trace.m Tue Jan 22 21:52:26 2008 +0000 @@ -38,3 +38,14 @@ endif endfunction + +%!assert(trace ([1, 2; 3, 4]) == 5); + +%!assert(trace ([1, 2; 3, 4; 5, 6]) == 5); + +%!assert(trace ([1, 3, 5; 2, 4, 6]) == 5); + +%!error trace (); + +%!error trace (1, 2); +
--- a/scripts/linear-algebra/vec.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/linear-algebra/vec.m Tue Jan 22 21:52:26 2008 +0000 @@ -39,3 +39,10 @@ v = x(:); endfunction + +%!assert(vec ([1, 2; 3, 4]) == [1; 3; 2; 4] && vec ([1, 3, 2, 4]) == [1; 3; 2; 4]); + +%!error vec (); + +%!error vec (1, 2); +
--- a/scripts/linear-algebra/vech.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/linear-algebra/vech.m Tue Jan 22 21:52:26 2008 +0000 @@ -53,3 +53,10 @@ endfor endfunction + +%!assert(all (vech ([1, 2, 3; 4, 5, 6; 7, 8, 9]) == [1; 4; 7; 5; 8; 9])); + +%!error vech (); + +%!error vech (1, 2); +
--- a/scripts/miscellaneous/computer.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/miscellaneous/computer.m Tue Jan 22 21:52:26 2008 +0000 @@ -72,3 +72,9 @@ endif endfunction + +%!assert((isstr (computer ()) +%! && computer () == octave_config_info ("canonical_host_type"))); + +%!warning a =computer(2); +
--- a/scripts/miscellaneous/ls.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/miscellaneous/ls.m Tue Jan 22 21:52:26 2008 +0000 @@ -78,3 +78,6 @@ endif endfunction + +%!error ls (1); +
--- a/scripts/miscellaneous/version.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/miscellaneous/version.m Tue Jan 22 21:52:26 2008 +0000 @@ -33,3 +33,8 @@ vs = OCTAVE_VERSION; endfunction + +%!assert(isstr (version ()) && strcmp (version (), OCTAVE_VERSION)); + +%!warning version (1); +
--- a/scripts/polynomial/compan.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/compan.m Tue Jan 22 21:52:26 2008 +0000 @@ -79,3 +79,16 @@ endif endfunction + +%!assert(all (all (compan ([1, 2, 3]) == [-2, -3; 1, 0]))); + +%!assert(all (all (compan ([1; 2; 3]) == [-2, -3; 1, 0]))); + +%!assert(isempty (compan (4))); + +%!assert(all (all (compan ([3, 2, 1]) == [-2/3, -1/3; 1, 0]))); + +%!error compan ([1,2;3,4]); + +%!error compan ([]); +
--- a/scripts/polynomial/conv.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/conv.m Tue Jan 22 21:52:26 2008 +0000 @@ -73,3 +73,16 @@ endif endfunction + +%!assert(all (all (conv (ones (3, 1), ones (3, 1)) == [1, 2, 3, 2, 1]))); + +%!assert(all (all (conv (ones (1, 3), ones (3, 1)) == [1, 2, 3, 2, 1]))); + +%!assert(all (all (conv (3, [1, 2, 3]) == [3, 6, 9]))); + +%!error conv ([1, 2; 3, 4], 3); + +%!assert(conv (2, 3),6); + +%!error conv (2, []); +
--- a/scripts/polynomial/deconv.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/deconv.m Tue Jan 22 21:52:26 2008 +0000 @@ -65,3 +65,20 @@ endif endfunction + +%!test +%! [b, r] = deconv ([3, 6, 9, 9], [1, 2, 3]); +%! assert(all (all (b == [3, 0])) && all (all (r == [0, 0, 0, 9]))); + +%!test +%! [b, r] = deconv ([3, 6], [1, 2, 3]); +%! assert(b == 0 && all (all (r == [0, 3, 6]))); + +%!test +%! [b, r] = deconv ([3, 6], [1; 2; 3]); +%! assert(b == 0 && all (all (r == [0, 3, 6]))); + +%!error [b, r] = deconv ([3, 6], [1, 2; 3, 4]);; + +%!error <number of rows must match> [b, r] = deconv ([3; 6], [1, 2, 3]); +
--- a/scripts/polynomial/poly.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/poly.m Tue Jan 22 21:52:26 2008 +0000 @@ -75,3 +75,12 @@ endif endfunction + +%!assert(all (all (poly ([1, 2, 3]) == [1, -6, 11, -6]))); + +%!assert(all (all (abs (poly ([1, 2; 3, 4]) - [1, -5, -2]) < sqrt (eps)))); + +%!error poly ([1, 2, 3; 4, 5, 6]); + +%!assert(poly ([]),1); +
--- a/scripts/polynomial/polyderiv.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/polyderiv.m Tue Jan 22 21:52:26 2008 +0000 @@ -89,5 +89,13 @@ print_usage (); endif +endfunction -endfunction +%!assert(all (all (polyderiv ([1, 2, 3]) == [2, 2]))); + +%!assert(polyderiv (13) == 0); + +%!error polyderiv ([]); + +%!error polyderiv ([1, 2; 3, 4]); +
--- a/scripts/polynomial/polyfit.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/polyfit.m Tue Jan 22 21:52:26 2008 +0000 @@ -104,3 +104,22 @@ p = p.'; endfunction + +%!test +%! x = [-2, -1, 0, 1, 2]; +%! assert(all (all (abs (polyfit (x, x.^2+x+1, 2) - [1, 1, 1]) < sqrt (eps)))); + +%!test +%! x = [-2, -1, 0, 1, 2]; +%! assert(all (all (abs (polyfit (x, x.^2+x+1, 3) - [0, 1, 1, 1]) < sqrt (eps)))); + +%!error polyfit ([1, 2; 3, 4], [1, 2; 3, 4], 4); + +%!test +%! x = [-2, -1, 0, 1, 2]; +%! fail("polyfit (x, x.^2+x+1)"); + +%!test +%! x = [-2, -1, 0, 1, 2]; +%! fail("polyfit (x, x.^2+x+1, [])"); +
--- a/scripts/polynomial/polyreduce.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/polyreduce.m Tue Jan 22 21:52:26 2008 +0000 @@ -56,3 +56,14 @@ endif endfunction + +%!assert(all (all (polyreduce ([0, 0, 1, 2, 3]) == [1, 2, 3]))); + +%!assert(all (all (polyreduce ([1, 2, 3, 0, 0]) == [1, 2, 3, 0, 0]))); + +%!assert(all (all (polyreduce ([1, 0, 3]) == [1, 0, 3]))); + +%!assert(isempty (polyreduce ([]))); + +%!error polyreduce ([1, 2; 3, 4]); +
--- a/scripts/polynomial/polyval.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/polyval.m Tue Jan 22 21:52:26 2008 +0000 @@ -61,3 +61,16 @@ endfor endfunction + +%!assert(polyval ([1, 1, 1], 2) == 7); + +%!assert(all (all (polyval ([1, 1, 1], [0; 1; 2]) == [1; 3; 7]))); + +%!assert(isempty (polyval ([1, 1, 1], []))); + +%!assert(all (all (polyval ([1, 1, 1], [-1, 0; 1, 2]) == [1, 1; 3, 7]))); + +%!error polyval ([1, 2; 3, 4], [-1, 0; 1, 2]); + +%!assert(isempty (polyval ([], [-1, 0; 1, 2]))); +
--- a/scripts/polynomial/polyvalm.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/polyvalm.m Tue Jan 22 21:52:26 2008 +0000 @@ -62,3 +62,8 @@ endif endfunction + +%!assert(isempty (polyvalm ([], [1, 2; 3, 4]))); + +%!error polyvalm ([1, 1, 1], [1, 2; 3, 4; 5, 6]); +
--- a/scripts/polynomial/roots.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/polynomial/roots.m Tue Jan 22 21:52:26 2008 +0000 @@ -113,3 +113,10 @@ endif endfunction + +%!assert(all (all (abs (roots ([1, -6, 11, -6]) - [3; 2; 1]) < sqrt (eps)))); + +%!assert(isempty (roots ([]))); + +%!error roots ([1, 2; 3, 4]); +
--- a/scripts/set/complement.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/set/complement.m Tue Jan 22 21:52:26 2008 +0000 @@ -57,3 +57,14 @@ endif endfunction + +%!assert(all (all (complement ([1, 2, 3], [3; 4; 5; 6]) == [4, 5, 6]))); + +%!assert(all (all (complement ([1, 2, 3], [3, 4, 5, 6]) == [4, 5, 6]))); + +%!assert(isempty (complement ([1, 2, 3], [3, 2, 1]))); + +%!error complement (1); + +%!error complement (1, 2, 3); +
--- a/scripts/set/create_set.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/set/create_set.m Tue Jan 22 21:52:26 2008 +0000 @@ -60,3 +60,12 @@ endif endfunction + +%!assert(all (all (create_set ([1, 2; 3, 4; 2, 4]) == [1, 2, 3, 4]))); + +%!assert(all (all (create_set ([1; 2; 3; 4; 2; 4]) == [1, 2, 3, 4]))); + +%!assert(isempty (create_set ([]))); + +%!error create_set (1, 2); +
--- a/scripts/set/union.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/set/union.m Tue Jan 22 21:52:26 2008 +0000 @@ -74,3 +74,14 @@ endif endfunction + +%!assert(all (all (union ([1, 2, 4], [2, 3, 5]) == [1, 2, 3, 4, 5]))); + +%!assert(all (all (union ([1; 2; 4], [2, 3, 5]) == [1, 2, 3, 4, 5]))); + +%!assert(all (all (union ([1, 2, 3], [5; 7; 9]) == [1, 2, 3, 5, 7, 9]))); + +%!error union (1); + +%!error union (1, 2, 3); +
--- a/scripts/signal/unwrap.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/signal/unwrap.m Tue Jan 22 21:52:26 2008 +0000 @@ -93,3 +93,44 @@ retval = a + r; endfunction + +%!function t = xassert(a,b,tol) +%! if (nargin == 1) +%! t = all(a(:)); +%! else +%! if (nargin == 2) +%! tol = 0; +%! endif +%! if (any (size(a) != size(b))) +%! t = 0; +%! elseif (any (abs(a(:) - b(:)) > tol)) +%! t = 0; +%! else +%! t = 1; +%! endif +%! endif +%! +%!test +%! +%! i = 0; +%! t = []; +%! +%! r = [0:100]; # original vector +%! w = r - 2*pi*floor((r+pi)/(2*pi)); # wrapped into [-pi,pi] +%! tol = 1e3*eps; # maximum expected deviation +%! +%! t(++i) = xassert(r, unwrap(w), tol); #unwrap single row +%! t(++i) = xassert(r', unwrap(w'), tol); #unwrap single column +%! t(++i) = xassert([r',r'], unwrap([w',w']), tol); #unwrap 2 columns +%! t(++i) = xassert([r;r], unwrap([w;w],[],2), tol); #verify that dim works +%! t(++i) = xassert(r+10, unwrap(10+w), tol); #verify that r(1)>pi works +%! +%! t(++i) = xassert(w', unwrap(w',[],2)); #unwrap col by rows should not change it +%! t(++i) = xassert(w, unwrap(w,[],1)); #unwrap row by cols should not change it +%! t(++i) = xassert([w;w], unwrap([w;w])); #unwrap 2 rows by cols should not change them +%! +%! ## verify that setting tolerance too low will cause bad results. +%! t(++i) = xassert(any(abs(r - unwrap(w,0.8)) > 100)); +%! +%! assert(all(t)); +
--- a/scripts/special-matrix/hankel.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/special-matrix/hankel.m Tue Jan 22 21:52:26 2008 +0000 @@ -106,3 +106,13 @@ %!assert(hankel(1:3,3:6),[1,2,3,4;2,3,4,5;3,4,5,6]); %!assert(hankel(1:3,3:4),[1,2;2,3;3,4]); %!assert(hankel(1:3,4:6),[1,2,3;2,3,5;3,5,6]); + +%!assert((hankel (1) == 1 && hankel ([1, 2]) == [1, 2; 2, 0] +%! && hankel ([1, 2], [2; -1; -3]) == [1, 2, -1; 2, -1, -3])); + +%!error hankel ([1, 2; 3, 4], [1, 2; 3, 4]); + +%!error hankel (); + +%!error hankel (1, 2, 3); +
--- a/scripts/special-matrix/hilb.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/special-matrix/hilb.m Tue Jan 22 21:52:26 2008 +0000 @@ -66,3 +66,11 @@ endif endfunction + +%!assert((hilb (2) == [1, 1/2; 1/2, 1/3] +%! && hilb (3) == [1, 1/2, 1/3; 1/2, 1/3, 1/4; 1/3, 1/4, 1/5])); + +%!error hilb (); + +%!error hilb (1, 2); +
--- a/scripts/special-matrix/invhilb.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/special-matrix/invhilb.m Tue Jan 22 21:52:26 2008 +0000 @@ -107,3 +107,20 @@ endif endfunction + +%!test +%! result4 = [16, -120, 240, -140; +%! -120, 1200, -2700, 1680; +%! 240, -2700, 6480, -4200; +%! -140, 1680, -4200, 2800]; +%! +%! assert((invhilb (1) == 1 && invhilb (2) == [4, -6; -6, 12] +%! && invhilb (4) == result4 +%! && abs (invhilb (7) * hilb (7) - eye (7)) < sqrt (eps))); + +%!error invhilb ([1, 2]); + +%!error invhilb (); + +%!error invhilb (1, 2); +
--- a/scripts/special-matrix/sylvester_matrix.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/special-matrix/sylvester_matrix.m Tue Jan 22 21:52:26 2008 +0000 @@ -51,3 +51,14 @@ endif endfunction + +%!assert((sylvester_matrix (1) == [1, 1; 1, -1] +%! && (sylvester_matrix (2) +%! == [1, 1, 1, 1; 1, -1, 1, -1; 1, 1, -1, -1; 1, -1, -1, 1]))); + +%!error sylvester_matrix ([1, 2; 3, 4]); + +%!error sylvester_matrix (); + +%!error sylvester_matrix (1, 2); +
--- a/scripts/special-matrix/toeplitz.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/special-matrix/toeplitz.m Tue Jan 22 21:52:26 2008 +0000 @@ -108,3 +108,14 @@ endfor endfunction + +%!assert((toeplitz (1) == 1 +%! && toeplitz ([1, 2, 3], [1; -3; -5]) == [1, -3, -5; 2, 1, -3; 3, 2, 1] +%! && toeplitz ([1, 2, 3], [1; -3i; -5i]) == [1, -3i, -5i; 2, 1, -3i; 3, 2, 1])); + +%!error toeplitz ([1, 2; 3, 4], 1); + +%!error toeplitz (); + +%!error toeplitz (1, 2, 3); +
--- a/scripts/special-matrix/vander.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/special-matrix/vander.m Tue Jan 22 21:52:26 2008 +0000 @@ -70,3 +70,14 @@ %! expect = [0,0,0,1; 1,1,1,1; 8,4,2,1; 27,9,3,1]; %! result = vander(c); %! assert(expect, result); + +%!assert((vander (1) == 1 && vander ([1, 2, 3]) == vander ([1; 2; 3]) +%! && vander ([1, 2, 3]) == [1, 1, 1; 4, 2, 1; 9, 3, 1] +%! && vander ([1, 2, 3]*i) == [-1, i, 1; -4, 2i, 1; -9, 3i, 1])); + +%!error vander ([1, 2; 3, 4]); + +%!error vander (); + +%!error vander (1, 2); +
--- a/scripts/statistics/base/corrcoef.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/statistics/base/corrcoef.m Tue Jan 22 21:52:26 2008 +0000 @@ -63,3 +63,15 @@ endif endfunction + +%!test +%! x = rand (10); +%! cc1 = corrcoef (x); +%! cc2 = corrcoef (x, x); +%! assert((size (cc1) == [10, 10] && size (cc2) == [10, 10] +%! && abs (cc1 - cc2) < sqrt (eps))); + +%!error corrcoef (); + +%!error corrcoef (1, 2, 3); +
--- a/scripts/statistics/base/cov.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/statistics/base/cov.m Tue Jan 22 21:52:26 2008 +0000 @@ -66,3 +66,14 @@ endif endfunction + +%!test +%! x = rand (10); +%! cx1 = cov (x); +%! cx2 = cov (x, x); +%! assert(size (cx1) == [10, 10] && size (cx2) == [10, 10] && cx1 == cx2); + +%!error cov (); + +%!error cov (1, 2, 3); +
--- a/scripts/statistics/base/kurtosis.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/statistics/base/kurtosis.m Tue Jan 22 21:52:26 2008 +0000 @@ -87,3 +87,13 @@ retval(ind) = x(ind) ./ (c * s(ind) .^ 4) - 3; endfunction + +%!test +%! x = [-1; 0; 0; 0; 1]; +%! y = [x, 2*x]; +%! assert(all (abs (kurtosis (y) - [-1.4, -1.4]) < sqrt (eps))); + +%!error kurtosis (); + +%!error kurtosis (1, 2, 3); +
--- a/scripts/statistics/base/mahalanobis.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/statistics/base/mahalanobis.m Tue Jan 22 21:52:26 2008 +0000 @@ -55,3 +55,9 @@ retval = (Xm - Ym) * Winv * (Xm - Ym)'; endfunction + +%!error mahalanobis (); + +%!error mahalanobis (1, 2, 3); + +
--- a/scripts/statistics/base/mean.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/statistics/base/mean.m Tue Jan 22 21:52:26 2008 +0000 @@ -116,3 +116,14 @@ endif endfunction + +%!test +%! x = -10:10; +%! y = x'; +%! z = [y, y+10]; +%! assert(mean (x) == 0 && mean (y) == 0 && mean (z) == [0, 10]); + +%!error mean (); + +%!error mean (1, 2, 3); +
--- a/scripts/statistics/base/median.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/statistics/base/median.m Tue Jan 22 21:52:26 2008 +0000 @@ -94,3 +94,19 @@ endif endfunction + +%!test +%! x = [1, 2, 3, 4, 5, 6]; +%! x2 = x'; +%! y = [1, 2, 3, 4, 5, 6, 7]; +%! y2 = y'; +%! +%! assert((median (x) == median (x2) && median (x) == 3.5 +%! && median (y) == median (y2) && median (y) == 4 +%! && median ([x2, 2*x2]) == [3.5, 7] +%! && median ([y2, 3*y2]) == [4, 12])); + +%!error median (); + +%!error median (1, 2, 3); +
--- a/scripts/statistics/base/skewness.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/statistics/base/skewness.m Tue Jan 22 21:52:26 2008 +0000 @@ -86,3 +86,8 @@ retval(ind) = x(ind) ./ (c * s(ind) .^ 3); endfunction + +%!error skewness (); + +%!error skewness (1, 2, 3); +
--- a/scripts/statistics/base/std.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/statistics/base/std.m Tue Jan 22 21:52:26 2008 +0000 @@ -90,3 +90,13 @@ endif endfunction + +%!test +%! x = ones (10, 2); +%! y = [1, 3]; +%! assert(std (x) == [0, 0] && abs (std (y) - sqrt (2)) < sqrt (eps)); + +%!error std (); + +%!error std (1, 2, 3, 4); +
--- a/scripts/strings/bin2dec.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/bin2dec.m Tue Jan 22 21:52:26 2008 +0000 @@ -49,3 +49,10 @@ endif endfunction + +%!assert(bin2dec ("1110") == 14); + +%!error bin2dec (); + +%!error bin2dec ("str", 1); +
--- a/scripts/strings/blanks.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/blanks.m Tue Jan 22 21:52:26 2008 +0000 @@ -44,3 +44,10 @@ %!assert(blanks (0), "") %!assert(blanks (5), " ") %!assert(blanks (10), " ") + +%!assert(strcmp (blanks (3), " ")); + +%!error blanks (); + +%!error blanks (1, 2); +
--- a/scripts/strings/deblank.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/deblank.m Tue Jan 22 21:52:26 2008 +0000 @@ -52,3 +52,12 @@ endif endfunction + +%!assert(strcmp (deblank (" f o o "), " f o o")); + +%!error deblank (); + +%!error deblank ("foo", "bar"); + +%!error deblank (1); +
--- a/scripts/strings/dec2bin.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/dec2bin.m Tue Jan 22 21:52:26 2008 +0000 @@ -49,3 +49,12 @@ endif endfunction + +%!assert(strcmp (dec2bin (14), "1110")); + +%!error dec2bin (); + +%!assert(strcmp (dec2bin (14, 6), "001110")); + +%!error dec2bin (1, 2, 3); +
--- a/scripts/strings/dec2hex.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/dec2hex.m Tue Jan 22 21:52:26 2008 +0000 @@ -49,3 +49,12 @@ endif endfunction + +%!assert(strcmp (tolower (dec2hex (2748)), "abc")); + +%!error dec2hex (); + +%!assert(strcmp (tolower (dec2hex (2748, 5)), "00abc")); + +%!error dec2hex (1, 2, 3); +
--- a/scripts/strings/findstr.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/findstr.m Tue Jan 22 21:52:26 2008 +0000 @@ -128,3 +128,12 @@ endif endfunction + +%!assert((findstr ("abababa", "a") == [1, 3, 5, 7] +%! && findstr ("abababa", "aba") == [1, 3, 5] +%! && findstr ("abababa", "aba", 0) == [1, 5])); + +%!error findstr (); + +%!error findstr ("foo", "bar", 3, 4); +
--- a/scripts/strings/hex2dec.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/hex2dec.m Tue Jan 22 21:52:26 2008 +0000 @@ -45,3 +45,10 @@ endif endfunction + +%!assert(hex2dec ("12b") == 299 && hex2dec ("12B") == 299); + +%!error hex2dec (); + +%!error hex2dec ("str", 1); +
--- a/scripts/strings/index.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/index.m Tue Jan 22 21:52:26 2008 +0000 @@ -131,3 +131,11 @@ %!assert(index("astringbstringcstring", "str", "last"), 16) %!assert(index("astringbstringcstring", "string", "last"), 16) %!assert(index("abc---", "abc+++", "last"), 0) + + +%!assert(index ("foobarbaz", "b") == 4 && index ("foobarbaz", "z") == 9); + +%!error index (); + +%!error index ("foo", "bar", 3); +
--- a/scripts/strings/rindex.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/rindex.m Tue Jan 22 21:52:26 2008 +0000 @@ -47,3 +47,10 @@ n = index (s, t, "last"); endfunction + +%!assert(rindex ("foobarbaz", "b") == 7 && rindex ("foobarbaz", "o") == 3); + +%!error rindex (); + +%!error rindex ("foo", "bar", 3); +
--- a/scripts/strings/split.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/split.m Tue Jan 22 21:52:26 2008 +0000 @@ -98,3 +98,12 @@ endif endfunction + +%!assert(all (all (split ("Test string", "t") == ["Tes "; " s "; "ring"]))); + +%!error split (); + +%!assert(all (strcmp (split ("foo bar baz", " ", 2), ["foo"; "bar baz"]))); + +%!error split ("foo", "bar", 3, 4); +
--- a/scripts/strings/str2mat.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/str2mat.m Tue Jan 22 21:52:26 2008 +0000 @@ -74,3 +74,10 @@ endfor endfunction + +%!assert(strcmp (str2mat ("a", "bb", "ccc"), ["a "; "bb "; "ccc"])); + +%!error str2mat (); + +%!assert(all (str2mat (1, 2, 3) == setstr ([1; 2; 3]))); +
--- a/scripts/strings/str2num.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/str2num.m Tue Jan 22 21:52:26 2008 +0000 @@ -39,3 +39,10 @@ endif endfunction + +%!assert(str2num ("-1.3e2") == -130 && str2num ("[1, 2; 3, 4]") == [1, 2; 3, 4]); + +%!error str2num (); + +%!error str2num ("string", 1); +
--- a/scripts/strings/strcat.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/strcat.m Tue Jan 22 21:52:26 2008 +0000 @@ -56,3 +56,11 @@ %!assert(strcat("ab ", "ab "), "ab ab ") ## 2d %!assert(strcat(["ab ";"cde"], ["ab ";"cde"]), ["ab ab ";"cdecde"]) + +%!assert((strcmp (strcat ("foo", "bar"), "foobar") +%! && strcmp (strcat (["a"; "bb"], ["foo"; "bar"]), ["a foo"; "bbbar"]))); + +%!error strcat (); + +%!error strcat (1, 2); +
--- a/scripts/strings/strrep.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/strrep.m Tue Jan 22 21:52:26 2008 +0000 @@ -88,3 +88,11 @@ endif endfunction + +%!assert(strcmp (strrep ("This is a test string", "is", "&%$"), +%! "Th&%$ &%$ a test string")); + +%!error strrep (); + +%!error strrep ("foo", "bar", 3, 4); +
--- a/scripts/strings/substr.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/strings/substr.m Tue Jan 22 21:52:26 2008 +0000 @@ -69,3 +69,10 @@ endif endfunction + +%!assert(strcmp (substr ("This is a test string", 6, 9), "is a test")); + +%!error substr (); + +%!error substr ("foo", 2, 3, 4); +
--- a/scripts/time/asctime.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/time/asctime.m Tue Jan 22 21:52:26 2008 +0000 @@ -43,3 +43,12 @@ endif endfunction + +%!test +%! t = time (); +%! assert(strcmp (asctime (localtime (t)), ctime (t))); + +%!error asctime (); + +%!error asctime (1, 2); +
--- a/scripts/time/clock.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/time/clock.m Tue Jan 22 21:52:26 2008 +0000 @@ -48,3 +48,9 @@ retval(6) = tm.sec + tm.usec / 1e6; endfunction + +%!test +%! t1 = clock; +%! t2 = str2num (strftime ("[%Y, %m, %d, %H, %M, %S]", localtime (time ()))); +%! assert(etime (t1, t2) < 1); +
--- a/scripts/time/ctime.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/time/ctime.m Tue Jan 22 21:52:26 2008 +0000 @@ -43,3 +43,12 @@ endif endfunction + +%!test +%! t = time (); +%! assert(strcmp (asctime (localtime (t)), ctime (t))); + +%!error ctime (); + +%!error ctime (1, 2); +
--- a/scripts/time/date.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/time/date.m Tue Jan 22 21:52:26 2008 +0000 @@ -37,3 +37,6 @@ retval = strftime ("%d-%b-%Y", localtime (time ())); endfunction + +%!assert(strcmp (date (), strftime ("%d-%b-%Y", localtime (time ())))); +
--- a/scripts/time/etime.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/time/etime.m Tue Jan 22 21:52:26 2008 +0000 @@ -56,3 +56,18 @@ %! t1 = [1900,12,31,23,59,59; 1900,2,28,23,59,59]; %! t2 = [1901,1,1,0,0,0; 1900,3,1,0,0,0]; %! assert(etime(t2, t1), [1;1]); + +%!test +%! t1 = [1993, 8, 20, 4, 56, 1]; +%! t2 = [1993, 8, 21, 4, 56, 1]; +%! t3 = [1993, 8, 20, 5, 56, 1]; +%! t4 = [1993, 8, 20, 4, 57, 1]; +%! t5 = [1993, 8, 20, 4, 56, 14]; +%! +%! assert((etime (t2, t1) == 86400 && etime (t3, t1) == 3600 +%! && etime (t4, t1) == 60 && etime (t5, t1) == 13)); + +%!error etime (); + +%!error etime (1, 2, 3); +
--- a/scripts/time/is_leap_year.m Tue Jan 22 21:34:24 2008 +0000 +++ b/scripts/time/is_leap_year.m Tue Jan 22 21:52:26 2008 +0000 @@ -47,3 +47,10 @@ | rem (year, 400) == 0); endfunction + +%!assert((is_leap_year (2000) == 1 && is_leap_year (1976) == 1 +%! && is_leap_year (1000) == 0 && is_leap_year (1800) == 0 +%! && is_leap_year (1600) == 1)); + +%!error is_leap_year (1, 2); +
--- a/test/ChangeLog Tue Jan 22 21:34:24 2008 +0000 +++ b/test/ChangeLog Tue Jan 22 21:52:26 2008 +0000 @@ -1,3 +1,9 @@ +2008-01-22 Thomas Weber <thomas.weber.mail@gmail.com> + + * test_linalg.m, test_matrix.m, test_number.m, test_poly.m, + test_signal.m, test_stats.m, test_string.m, test_system.m: + Move tests to individual source files. + 2008-01-15 Thomas Weber <thomas.weber.mail@gmail.com> * test_arith.m: Move tests to source files.
--- a/test/test_linalg.m Tue Jan 22 21:34:24 2008 +0000 +++ b/test/test_linalg.m Tue Jan 22 21:52:26 2008 +0000 @@ -18,18 +18,6 @@ %% Automatically generated from DejaGNU files -%% test/octave.test/linalg/cond-1.m -%!assert(abs (cond ([1, 2; 2, 1]) - 3) < sqrt (eps)); - -%% test/octave.test/linalg/cond-2.m -%!assert(cond ([1, 2, 3; 4, 5, 6; 7, 8, 9]) > 1.0e+16); - -%% test/octave.test/linalg/cond-3.m -%!error cond (); - -%% test/octave.test/linalg/cond-4.m -%!error cond (1, 2); - %% test/octave.test/linalg/det-1.m %!assert(det ([1, 2; 3, 4]) == -2); @@ -103,21 +91,6 @@ %% test/octave.test/linalg/inv-4.m %!error inv ([1, 2; 3, 4; 5, 6]); -%% test/octave.test/linalg/trace-1.m -%!assert(trace ([1, 2; 3, 4]) == 5); - -%% test/octave.test/linalg/trace-2.m -%!assert(trace ([1, 2; 3, 4; 5, 6]) == 5); - -%% test/octave.test/linalg/trace-3.m -%!assert(trace ([1, 3, 5; 2, 4, 6]) == 5); - -%% test/octave.test/linalg/trace-4.m -%!error trace (); - -%% test/octave.test/linalg/trace-5.m -%!error trace (1, 2); - %% test/octave.test/linalg/chol-1.m %!test %! rt2 = sqrt (2);
--- a/test/test_matrix.m Tue Jan 22 21:34:24 2008 +0000 +++ b/test/test_matrix.m Tue Jan 22 21:52:26 2008 +0000 @@ -48,25 +48,6 @@ %% test/octave.test/matrix/any-3.m %!error <Invalid call to any.*> any (1, 2, 3); -%% test/octave.test/matrix/diff-1.m -%!assert((diff ([1, 2, 3, 4]) == [1, 1, 1] -%! && diff ([1, 3, 7, 19], 2) == [2, 8] -%! && diff ([1, 2; 5, 4; 8, 7; 9, 6; 3, 1]) == [4, 2; 3, 3; 1, -1; -6, -5] -%! && diff ([1, 2; 5, 4; 8, 7; 9, 6; 3, 1], 3) == [-1, -5; -5, 0] -%! && isempty (diff (1)))); - -%% test/octave.test/matrix/diff-2.m -%!error diff ([1, 2; 3, 4], -1); - -%% test/octave.test/matrix/diff-3.m -%!error diff ("foo"); - -%% test/octave.test/matrix/diff-4.m -%!error diff (); - -%% test/octave.test/matrix/diff-5.m -%!error diff (1, 2, 3, 4); - %% test/octave.test/matrix/find-1.m %!assert((find ([1, 0, 1, 0, 1]) == [1, 3, 5] %! && find ([1; 0; 3; 0; 1]) == [1; 3; 5] @@ -81,48 +62,6 @@ %% test/octave.test/matrix/find-3.m %!error <Invalid call to find.*> find (); -%% test/octave.test/matrix/fliplr-1.m -%!assert((fliplr ([1, 2; 3, 4]) == [2, 1; 4, 3] -%! && fliplr ([1, 2; 3, 4; 5, 6]) == [2, 1; 4, 3; 6, 5] -%! && fliplr ([1, 2, 3; 4, 5, 6]) == [3, 2, 1; 6, 5, 4])); - -%% test/octave.test/matrix/fliplr-2.m -%!error <usage.*fliplr> fliplr(); - -%% test/octave.test/matrix/fliplr-3.m -%!error fliplr (1, 2); - -%% test/octave.test/matrix/flipud-1.m -%!assert((flipud ([1, 2; 3, 4]) == [3, 4; 1, 2] -%! && flipud ([1, 2; 3, 4; 5, 6]) == [5, 6; 3, 4; 1, 2] -%! && flipud ([1, 2, 3; 4, 5, 6]) == [4, 5, 6; 1, 2, 3])); - -%% test/octave.test/matrix/flipud-2.m -%!error flipud (); - -%% test/octave.test/matrix/flipud-3.m -%!error flipud (1, 2); - -%% test/octave.test/matrix/rot90-1.m -%!test -%! x1 = [1, 2; -%! 3, 4]; -%! x2 = [2, 4; -%! 1, 3]; -%! x3 = [4, 3; -%! 2, 1]; -%! x4 = [3, 1; -%! 4, 2]; -%! -%! assert((rot90 (x1)== x2 && rot90 (x1, 2) == x3 && rot90 (x1, 3) == x4 -%! && rot90 (x1, 4) == x1 && rot90 (x1, 5) == x2 && rot90 (x1, -1) == x4)); - -%% test/octave.test/matrix/rot90-2.m -%!error rot90 (); - -%% test/octave.test/matrix/rot90-3.m -%!error rot90 (1, 2, 3); - %% test/octave.test/matrix/reshape-1.m %!assert((size (reshape (rand (4, 4), 2, 8)) == [2, 8] %! && size (reshape (rand (4, 4), 8, 2)) == [8, 2] @@ -140,27 +79,6 @@ %% test/octave.test/matrix/reshape-4.m %!error reshape (1, 2, 3, 4); -%% test/octave.test/matrix/shift-1.m -%!test -%! a = [1, 2, 3]; -%! b = [4, 5, 6]; -%! c = [7, 8, 9]; -%! -%! r = [a, b, c]; -%! m = [a; b; c]; -%! -%! assert((shift (r, 3) == [c, a, b] -%! && shift (r, -6) == [c, a, b] -%! && shift (r, -3) == [b, c, a] -%! && shift (m, 1) == [c; a; b] -%! && shift (m, -2) == [c; a; b])); - -%% test/octave.test/matrix/shift-2.m -%!error shift (); - -%% test/octave.test/matrix/shift-3.m -%!error shift (1, 2, 3, 4); - %% test/octave.test/matrix/sort-1.m %!test %! a = [1, 2; 2, 3; 3, 1]; @@ -175,67 +93,7 @@ %% test/octave.test/matrix/sort-3.m %!error <Invalid call to sort.*> sort (1, 2, 3, 4); -%% test/octave.test/matrix/tril-1.m -%!test -%! a = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; -%! -%! l0 = [1, 0, 0; 4, 5, 0; 7, 8, 9; 10, 11, 12]; -%! l1 = [1, 2, 0; 4, 5, 6; 7, 8, 9; 10, 11, 12]; -%! l2 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; -%! lm1 = [0, 0, 0; 4, 0, 0; 7, 8, 0; 10, 11, 12]; -%! lm2 = [0, 0, 0; 0, 0, 0; 7, 0, 0; 10, 11, 0]; -%! lm3 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 10, 0, 0]; -%! lm4 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 0, 0, 0]; -%! -%! assert((tril (a, -4) == lm4 && tril (a, -3) == lm3 -%! && tril (a, -2) == lm2 && tril (a, -1) == lm1 -%! && tril (a) == l0 && tril (a, 1) == l1 && tril (a, 2) == l2)); -%% test/octave.test/matrix/tril-2.m -%!error tril (); - -%% test/octave.test/matrix/tril-3.m -%!error tril (1, 2, 3); - -%% test/octave.test/matrix/triu-1.m -%!test -%! a = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; -%! -%! u0 = [1, 2, 3; 0, 5, 6; 0, 0, 9; 0, 0, 0]; -%! u1 = [0, 2, 3; 0, 0, 6; 0, 0, 0; 0, 0, 0]; -%! u2 = [0, 0, 3; 0, 0, 0; 0, 0, 0; 0, 0, 0]; -%! u3 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 0, 0, 0]; -%! um1 = [1, 2, 3; 4, 5, 6; 0, 8, 9; 0, 0, 12]; -%! um2 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 0, 11, 12]; -%! um3 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12]; -%! -%! assert((triu (a, -3) == um3 && triu (a, -2) == um2 -%! && triu (a, -1) == um1 && triu (a) == u0 && triu (a, 1) == u1 -%! && triu (a, 2) == u2 && triu (a, 3) == u3)); - -%% test/octave.test/matrix/triu-2.m -%!error triu (); - -%% test/octave.test/matrix/triu-3.m -%!error triu (1, 2, 3); - -%% test/octave.test/matrix/vec-1.m -%!assert(vec ([1, 2; 3, 4]) == [1; 3; 2; 4] && vec ([1, 3, 2, 4]) == [1; 3; 2; 4]); - -%% test/octave.test/matrix/vec-2.m -%!error vec (); - -%% test/octave.test/matrix/vec-3.m -%!error vec (1, 2); - -%% test/octave.test/matrix/vech-1.m -%!assert(all (vech ([1, 2, 3; 4, 5, 6; 7, 8, 9]) == [1; 4; 7; 5; 8; 9])); - -%% test/octave.test/matrix/vech-2.m -%!error vech (); - -%% test/octave.test/matrix/vech-3.m -%!error vech (1, 2); %% test/octave.test/matrix/eye-1.m %!test @@ -354,108 +212,3 @@ %! warn_fortran_indexing = 1; %! fail("linspace ([1, 2; 3, 4], 5, 6)","warning"); -%% test/octave.test/matrix/logspace-1.m -%!test -%! x1 = logspace (1, 2); -%! x2 = logspace (1, 2, 10); -%! x3 = logspace (1, -2, 10); -%! x4 = logspace (1, pi, 10); -%! assert((size (x1) == [1, 50] && x1(1) == 10 && x1(50) == 100 -%! && size (x2) == [1, 10] && x2(1) == 10 && x2(10) == 100 -%! && size (x3) == [1, 10] && x3(1) == 10 && x3(10) == 0.01 -%! && size (x4) == [1, 10] && x4(1) == 10 && abs (x4(10) - pi) < sqrt (eps))); - -%% test/octave.test/matrix/logspace-2.m -%!error logspace ([1, 2; 3, 4], 5, 6); - -%% test/octave.test/matrix/logspace-3.m -%!error logspace (); - -%% test/octave.test/matrix/logspace-4.m -%!error logspace (1, 2, 3, 4); - -%% test/octave.test/matrix/sylvester_matrix-1.m -%!assert((sylvester_matrix (1) == [1, 1; 1, -1] -%! && (sylvester_matrix (2) -%! == [1, 1, 1, 1; 1, -1, 1, -1; 1, 1, -1, -1; 1, -1, -1, 1]))); - -%% test/octave.test/matrix/sylvester_matrix-2.m -%!error sylvester_matrix ([1, 2; 3, 4]); - -%% test/octave.test/matrix/sylvester_matrix-3.m -%!error sylvester_matrix (); - -%% test/octave.test/matrix/sylvester_matrix-4.m -%!error sylvester_matrix (1, 2); - -%% test/octave.test/matrix/hankel-1.m -%!assert((hankel (1) == 1 && hankel ([1, 2]) == [1, 2; 2, 0] -%! && hankel ([1, 2], [2; -1; -3]) == [1, 2, -1; 2, -1, -3])); - -%% test/octave.test/matrix/hankel-2.m -%!error hankel ([1, 2; 3, 4], [1, 2; 3, 4]); - -%% test/octave.test/matrix/hankel-3.m -%!error hankel (); - -%% test/octave.test/matrix/hankel-4.m -%!error hankel (1, 2, 3); - -%% test/octave.test/matrix/hilb-1.m -%!assert((hilb (2) == [1, 1/2; 1/2, 1/3] -%! && hilb (3) == [1, 1/2, 1/3; 1/2, 1/3, 1/4; 1/3, 1/4, 1/5])); - -%% test/octave.test/matrix/hilb-2.m -%!error hilb (); - -%% test/octave.test/matrix/hilb-3.m -%!error hilb (1, 2); - -%% test/octave.test/matrix/invhilb-1.m -%!test -%! result4 = [16, -120, 240, -140; -%! -120, 1200, -2700, 1680; -%! 240, -2700, 6480, -4200; -%! -140, 1680, -4200, 2800]; -%! -%! assert((invhilb (1) == 1 && invhilb (2) == [4, -6; -6, 12] -%! && invhilb (4) == result4 -%! && abs (invhilb (7) * hilb (7) - eye (7)) < sqrt (eps))); - -%% test/octave.test/matrix/invhilb-2.m -%!error invhilb ([1, 2]); - -%% test/octave.test/matrix/invhilb-3.m -%!error invhilb (); - -%% test/octave.test/matrix/invhilb-4.m -%!error invhilb (1, 2); - -%% test/octave.test/matrix/toeplitz-1.m -%!assert((toeplitz (1) == 1 -%! && toeplitz ([1, 2, 3], [1; -3; -5]) == [1, -3, -5; 2, 1, -3; 3, 2, 1] -%! && toeplitz ([1, 2, 3], [1; -3i; -5i]) == [1, -3i, -5i; 2, 1, -3i; 3, 2, 1])); - -%% test/octave.test/matrix/toeplitz-2.m -%!error toeplitz ([1, 2; 3, 4], 1); - -%% test/octave.test/matrix/toeplitz-3.m -%!error toeplitz (); - -%% test/octave.test/matrix/toeplitz-4.m -%!error toeplitz (1, 2, 3); - -%% test/octave.test/matrix/vander-1.m -%!assert((vander (1) == 1 && vander ([1, 2, 3]) == vander ([1; 2; 3]) -%! && vander ([1, 2, 3]) == [1, 1, 1; 4, 2, 1; 9, 3, 1] -%! && vander ([1, 2, 3]*i) == [-1, i, 1; -4, 2i, 1; -9, 3i, 1])); - -%% test/octave.test/matrix/vander-2.m -%!error vander ([1, 2; 3, 4]); - -%% test/octave.test/matrix/vander-3.m -%!error vander (); - -%% test/octave.test/matrix/vander-4.m -%!error vander (1, 2); -
--- a/test/test_number.m Tue Jan 22 21:34:24 2008 +0000 +++ b/test/test_number.m Tue Jan 22 21:52:26 2008 +0000 @@ -58,151 +58,3 @@ %% test/octave.test/number/ismatrix-10.m %!error <Invalid call to ismatrix.*> ismatrix ([1, 2; 3, 4], 2); -%% test/octave.test/number/isvector-1.m -%!assert(isvector (1)); - -%% test/octave.test/number/isvector-2.m -%!assert(isvector ([1; 2; 3])); - -%% test/octave.test/number/isvector-3.m -%!assert(!(isvector ([]))); - -%% test/octave.test/number/isvector-4.m -%!assert(!(isvector ([1, 2; 3, 4]))); - -%% test/octave.test/number/isvector-5.m -%!test -%! warn_str_to_num = 0; -%! assert((isvector ("t"))); - -%% test/octave.test/number/isvector-6.m -%!test -%! warn_str_to_num = 0; -%! assert((isvector ("test"))); - -%% test/octave.test/number/isvector-7.m -%!assert(!(isvector (["test"; "ing"]))); - -%% test/octave.test/number/isvector-8.m -%!test -%! s.a = 1; -%! assert((isvector (s))); - -%% test/octave.test/number/isvector-9.m -%!error isvector (); - -%% test/octave.test/number/isvector-10.m -%!error isvector ([1, 2], 2); - -%% test/octave.test/number/isscalar-1.m -%!assert(isscalar (1)); - -%% test/octave.test/number/isscalar-2.m -%!assert(!(isscalar ([1, 2]))); - -%% test/octave.test/number/isscalar-3.m -%!assert(!(isscalar ([]))); - -%% test/octave.test/number/isscalar-4.m -%!assert(!(isscalar ([1, 2; 3, 4]))); - -%% test/octave.test/number/isscalar-5.m -%!test -%! warn_str_to_num = 0; -%! assert((isscalar ("t"))); - -%% test/octave.test/number/isscalar-6.m -%!assert(!(isscalar ("test"))); - -%% test/octave.test/number/isscalar-7.m -%!assert(!(isscalar (["test"; "ing"]))); - -%% test/octave.test/number/isscalar-8.m -%!test -%! s.a = 1; -%! assert((isscalar (s))); - -%% test/octave.test/number/isscalar-9.m -%!error isscalar (); - -%% test/octave.test/number/isscalar-10.m -%!error isscalar (1, 2); - -%% test/octave.test/number/issquare-1.m -%!assert(issquare (1)); - -%% test/octave.test/number/issquare-2.m -%!assert(!(issquare ([1, 2]))); - -%% test/octave.test/number/issquare-3.m -%!assert(!(issquare ([]))); - -%% test/octave.test/number/issquare-4.m -%!assert(issquare ([1, 2; 3, 4]) == 2); - -%% test/octave.test/number/issquare-5.m -%!test -%! warn_str_to_num = 0; -%! assert(!(issquare ("t"))); - -%% test/octave.test/number/issquare-6.m -%!assert(!(issquare ("test"))); - -%% test/octave.test/number/issquare-7.m -%!test -%! warn_str_to_num = 0; -%! assert(!(issquare (["test"; "ing"; "1"; "2"]))); - -%% test/octave.test/number/issquare-8.m -%!test -%! s.a = 1; -%! assert(!(issquare (s))); - -%% test/octave.test/number/issquare-9.m -%!assert(!(issquare ([1, 2; 3, 4; 5, 6]))); - -%% test/octave.test/number/issquare-10.m -%!error issquare (); - -%% test/octave.test/number/issquare-11.m -%!error issquare ([1, 2; 3, 4], 2); - -%% test/octave.test/number/issymmetric-1.m -%!assert(issymmetric (1)); - -%% test/octave.test/number/issymmetric-2.m -%!assert(!(issymmetric ([1, 2]))); - -%% test/octave.test/number/issymmetric-3.m -%!assert(!(issymmetric ([]))); - -%% test/octave.test/number/issymmetric-4.m -%!assert(issymmetric ([1, 2; 2, 1]) == 2); - -%% test/octave.test/number/issymmetric-5.m -%!test -%! warn_str_to_num = 0; -%! assert(!(issymmetric ("t"))); - -%% test/octave.test/number/issymmetric-6.m -%!assert(!(issymmetric ("test"))); - -%% test/octave.test/number/issymmetric-7.m -%!test -%! warn_str_to_num = 0; -%! assert(!(issymmetric (["te"; "et"]))); - -%% test/octave.test/number/issymmetric-8.m -%!test -%! s.a = 1; -%! assert(!(issymmetric (s))); - -%% test/octave.test/number/issymmetric-9.m -%!assert(issymmetric ([1, 2.1; 2, 1.1], 0.2) == 2); - -%% test/octave.test/number/issymmetric-10.m -%!error issymmetric ([1, 2; 2, 1], 0, 0); - -%% test/octave.test/number/issymmetric-11.m -%!error issymmetric (); -
--- a/test/test_poly.m Tue Jan 22 21:34:24 2008 +0000 +++ b/test/test_poly.m Tue Jan 22 21:52:26 2008 +0000 @@ -18,167 +18,3 @@ %% Automatically generated from DejaGNU files -%% test/octave.test/poly/compan-1.m -%!assert(all (all (compan ([1, 2, 3]) == [-2, -3; 1, 0]))); - -%% test/octave.test/poly/compan-2.m -%!assert(all (all (compan ([1; 2; 3]) == [-2, -3; 1, 0]))); - -%% test/octave.test/poly/compan-3.m -%!assert(isempty (compan (4))); - -%% test/octave.test/poly/compan-4.m -%!assert(all (all (compan ([3, 2, 1]) == [-2/3, -1/3; 1, 0]))); - -%% test/octave.test/poly/compan-5.m -%!error compan ([1,2;3,4]); - -%% test/octave.test/poly/compan-6.m -%!error compan ([]); - -%% test/octave.test/poly/conv-1.m -%!assert(all (all (conv (ones (3, 1), ones (3, 1)) == [1, 2, 3, 2, 1]))); - -%% test/octave.test/poly/conv-2.m -%!assert(all (all (conv (ones (1, 3), ones (3, 1)) == [1, 2, 3, 2, 1]))); - -%% test/octave.test/poly/conv-3.m -%!assert(all (all (conv (3, [1, 2, 3]) == [3, 6, 9]))); - -%% test/octave.test/poly/conv-4.m -%!error conv ([1, 2; 3, 4], 3); - -%% test/octave.test/poly/conv-5.m -%!assert(conv (2, 3),6); - -%% test/octave.test/poly/conv-6.m -%!error conv (2, []); - -%% test/octave.test/poly/deconv-1.m -%!test -%! [b, r] = deconv ([3, 6, 9, 9], [1, 2, 3]); -%! assert(all (all (b == [3, 0])) && all (all (r == [0, 0, 0, 9]))); - -%% test/octave.test/poly/deconv-2.m -%!test -%! [b, r] = deconv ([3, 6], [1, 2, 3]); -%! assert(b == 0 && all (all (r == [0, 3, 6]))); - -%% test/octave.test/poly/deconv-3.m -%!test -%! [b, r] = deconv ([3, 6], [1; 2; 3]); -%! assert(b == 0 && all (all (r == [0, 3, 6]))); - -%% test/octave.test/poly/deconv-4.m -%!error [b, r] = deconv ([3, 6], [1, 2; 3, 4]);; - -%% test/octave.test/poly/deconv-5.m -%!error <number of rows must match> [b, r] = deconv ([3; 6], [1, 2, 3]); - -%% test/octave.test/poly/poly-1.m -%!assert(all (all (poly ([1, 2, 3]) == [1, -6, 11, -6]))); - -%% test/octave.test/poly/poly-2.m -%!assert(all (all (abs (poly ([1, 2; 3, 4]) - [1, -5, -2]) < sqrt (eps)))); - -%% test/octave.test/poly/poly-3.m -%!error poly ([1, 2, 3; 4, 5, 6]); - -%% test/octave.test/poly/poly-4.m -%!assert(poly ([]),1); - -%% test/octave.test/poly/polyderiv-1.m -%!assert(all (all (polyderiv ([1, 2, 3]) == [2, 2]))); - -%% test/octave.test/poly/polyderiv-2.m -%!assert(polyderiv (13) == 0); - -%% test/octave.test/poly/polyderiv-3.m -%!error polyderiv ([]); - -%% test/octave.test/poly/polyderiv-4.m -%!error polyderiv ([1, 2; 3, 4]); - -%% test/octave.test/poly/polyfit-1.m -%!test -%! x = [-2, -1, 0, 1, 2]; -%! assert(all (all (abs (polyfit (x, x.^2+x+1, 2) - [1, 1, 1]) < sqrt (eps)))); - -%% test/octave.test/poly/polyfit-2.m -%!test -%! x = [-2, -1, 0, 1, 2]; -%! assert(all (all (abs (polyfit (x, x.^2+x+1, 3) - [0, 1, 1, 1]) < sqrt (eps)))); - -%% test/octave.test/poly/polyfit-3.m -%!error polyfit ([1, 2; 3, 4], [1, 2; 3, 4], 4); - -%% test/octave.test/poly/polyfit-4.m -%!test -%! x = [-2, -1, 0, 1, 2]; -%! fail("polyfit (x, x.^2+x+1)"); - -%% test/octave.test/poly/polyfit-5.m -%!test -%! x = [-2, -1, 0, 1, 2]; -%! fail("polyfit (x, x.^2+x+1, [])"); - -%% test/octave.test/poly/polyinteg-1.m -%!assert(all (all (polyinteg ([2, 2]) == [1, 2, 0]))); - -%% test/octave.test/poly/polyinteg-2.m -%!assert(isempty (polyinteg ([]))); - -%% test/octave.test/poly/polyinteg-3.m -%!assert(all (all (polyinteg (3) == [3, 0]))); - -%% test/octave.test/poly/polyinteg-4.m -%!error polyinteg ([1, 2; 3, 4]); - -%% test/octave.test/poly/polyreduce-1.m -%!assert(all (all (polyreduce ([0, 0, 1, 2, 3]) == [1, 2, 3]))); - -%% test/octave.test/poly/polyreduce-2.m -%!assert(all (all (polyreduce ([1, 2, 3, 0, 0]) == [1, 2, 3, 0, 0]))); - -%% test/octave.test/poly/polyreduce-3.m -%!assert(all (all (polyreduce ([1, 0, 3]) == [1, 0, 3]))); - -%% test/octave.test/poly/polyreduce-4.m -%!assert(isempty (polyreduce ([]))); - -%% test/octave.test/poly/polyreduce-5.m -%!error polyreduce ([1, 2; 3, 4]); - -%% test/octave.test/poly/polyval-1.m -%!assert(polyval ([1, 1, 1], 2) == 7); - -%% test/octave.test/poly/polyval-2.m -%!assert(all (all (polyval ([1, 1, 1], [0; 1; 2]) == [1; 3; 7]))); - -%% test/octave.test/poly/polyval-3.m -%!assert(isempty (polyval ([1, 1, 1], []))); - -%% test/octave.test/poly/polyval-4.m -%!assert(all (all (polyval ([1, 1, 1], [-1, 0; 1, 2]) == [1, 1; 3, 7]))); - -%% test/octave.test/poly/polyval-5.m -%!error polyval ([1, 2; 3, 4], [-1, 0; 1, 2]); - -%% test/octave.test/poly/polyval-6.m -%!assert(isempty (polyval ([], [-1, 0; 1, 2]))); - -%% test/octave.test/poly/polyvalm-1.m -%!assert(isempty (polyvalm ([], [1, 2; 3, 4]))); - -%% test/octave.test/poly/polyvalm-2.m -%!error polyvalm ([1, 1, 1], [1, 2; 3, 4; 5, 6]); - -%% test/octave.test/poly/roots-1.m -%!assert(all (all (abs (roots ([1, -6, 11, -6]) - [3; 2; 1]) < sqrt (eps)))); - -%% test/octave.test/poly/roots-2.m -%!assert(isempty (roots ([]))); - -%% test/octave.test/poly/roots-3.m -%!error roots ([1, 2; 3, 4]); -
--- a/test/test_set.m Tue Jan 22 21:34:24 2008 +0000 +++ b/test/test_set.m Tue Jan 22 21:52:26 2008 +0000 @@ -18,60 +18,3 @@ %% Automatically generated from DejaGNU files -%% test/octave.test/set/create_set-1.m -%!assert(all (all (create_set ([1, 2; 3, 4; 2, 4]) == [1, 2, 3, 4]))); - -%% test/octave.test/set/create_set-2.m -%!assert(all (all (create_set ([1; 2; 3; 4; 2; 4]) == [1, 2, 3, 4]))); - -%% test/octave.test/set/create_set-3.m -%!assert(isempty (create_set ([]))); - -%% test/octave.test/set/create_set-4.m -%!error create_set (1, 2); - -%% test/octave.test/set/union-1.m -%!assert(all (all (union ([1, 2, 4], [2, 3, 5]) == [1, 2, 3, 4, 5]))); - -%% test/octave.test/set/union-2.m -%!assert(all (all (union ([1; 2; 4], [2, 3, 5]) == [1, 2, 3, 4, 5]))); - -%% test/octave.test/set/union-3.m -%!assert(all (all (union ([1, 2, 3], [5; 7; 9]) == [1, 2, 3, 5, 7, 9]))); - -%% test/octave.test/set/union-4.m -%!error union (1); - -%% test/octave.test/set/union-5.m -%!error union (1, 2, 3); - -%% test/octave.test/set/intersection-1.m -%!assert(all (all (intersection ([1, 2, 3], [2, 3, 5]) == [2, 3]))); - -%% test/octave.test/set/intersection-2.m -%!assert(all (all (intersection ([1; 2; 3], [2, 3, 5]) == [2, 3]))); - -%% test/octave.test/set/intersection-3.m -%!assert(isempty (intersection ([1, 2, 3], [4; 5; 6]))); - -%% test/octave.test/set/intersection-4.m -%!error intersection (1); - -%% test/octave.test/set/intersection-5.m -%!error intersection (1, 2, 5); - -%% test/octave.test/set/complement-1.m -%!assert(all (all (complement ([1, 2, 3], [3; 4; 5; 6]) == [4, 5, 6]))); - -%% test/octave.test/set/complement-2.m -%!assert(all (all (complement ([1, 2, 3], [3, 4, 5, 6]) == [4, 5, 6]))); - -%% test/octave.test/set/complement-3.m -%!assert(isempty (complement ([1, 2, 3], [3, 2, 1]))); - -%% test/octave.test/set/complement-4.m -%!error complement (1); - -%% test/octave.test/set/complement-5.m -%!error complement (1, 2, 3); -
--- a/test/test_signal.m Tue Jan 22 21:34:24 2008 +0000 +++ b/test/test_signal.m Tue Jan 22 21:52:26 2008 +0000 @@ -102,44 +102,4 @@ %! %! assert(all( all( abs(s-answer) < 30*eps ) )); -%% test/octave.test/signal/unwrap-1.m -%!function t = xassert(a,b,tol) -%! if (nargin == 1) -%! t = all(a(:)); -%! else -%! if (nargin == 2) -%! tol = 0; -%! endif -%! if (any (size(a) != size(b))) -%! t = 0; -%! elseif (any (abs(a(:) - b(:)) > tol)) -%! t = 0; -%! else -%! t = 1; -%! endif -%! endif -%! -%!test -%! -%! i = 0; -%! t = []; -%! -%! r = [0:100]; # original vector -%! w = r - 2*pi*floor((r+pi)/(2*pi)); # wrapped into [-pi,pi] -%! tol = 1e3*eps; # maximum expected deviation -%! -%! t(++i) = xassert(r, unwrap(w), tol); #unwrap single row -%! t(++i) = xassert(r', unwrap(w'), tol); #unwrap single column -%! t(++i) = xassert([r',r'], unwrap([w',w']), tol); #unwrap 2 columns -%! t(++i) = xassert([r;r], unwrap([w;w],[],2), tol); #verify that dim works -%! t(++i) = xassert(r+10, unwrap(10+w), tol); #verify that r(1)>pi works -%! -%! t(++i) = xassert(w', unwrap(w',[],2)); #unwrap col by rows should not change it -%! t(++i) = xassert(w, unwrap(w,[],1)); #unwrap row by cols should not change it -%! t(++i) = xassert([w;w], unwrap([w;w])); #unwrap 2 rows by cols should not change them -%! -%! ## verify that setting tolerance too low will cause bad results. -%! t(++i) = xassert(any(abs(r - unwrap(w,0.8)) > 100)); -%! -%! assert(all(t));
--- a/test/test_stats.m Tue Jan 22 21:34:24 2008 +0000 +++ b/test/test_stats.m Tue Jan 22 21:52:26 2008 +0000 @@ -18,97 +18,3 @@ %% Automatically generated from DejaGNU files -%% test/octave.test/stats/mean-1.m -%!test -%! x = -10:10; -%! y = x'; -%! z = [y, y+10]; -%! assert(mean (x) == 0 && mean (y) == 0 && mean (z) == [0, 10]); - -%% test/octave.test/stats/mean-2.m -%!error mean (); - -%% test/octave.test/stats/mean-3.m -%!error mean (1, 2, 3); - -%% test/octave.test/stats/median-1.m -%!test -%! x = [1, 2, 3, 4, 5, 6]; -%! x2 = x'; -%! y = [1, 2, 3, 4, 5, 6, 7]; -%! y2 = y'; -%! -%! assert((median (x) == median (x2) && median (x) == 3.5 -%! && median (y) == median (y2) && median (y) == 4 -%! && median ([x2, 2*x2]) == [3.5, 7] -%! && median ([y2, 3*y2]) == [4, 12])); - -%% test/octave.test/stats/median-2.m -%!error median (); - -%% test/octave.test/stats/median-3.m -%!error median (1, 2, 3); - -%% test/octave.test/stats/std-1.m -%!test -%! x = ones (10, 2); -%! y = [1, 3]; -%! assert(std (x) == [0, 0] && abs (std (y) - sqrt (2)) < sqrt (eps)); - -%% test/octave.test/stats/std-2.m -%!error std (); - -%% test/octave.test/stats/std-3.m -%!error std (1, 2, 3, 4); - -%% test/octave.test/stats/cov-1.m -%!test -%! x = rand (10); -%! cx1 = cov (x); -%! cx2 = cov (x, x); -%! assert(size (cx1) == [10, 10] && size (cx2) == [10, 10] && cx1 == cx2); - -%% test/octave.test/stats/cov-2.m -%!error cov (); - -%% test/octave.test/stats/cov-3.m -%!error cov (1, 2, 3); - -%% test/octave.test/stats/corrcoef-1.m -%!test -%! x = rand (10); -%! cc1 = corrcoef (x); -%! cc2 = corrcoef (x, x); -%! assert((size (cc1) == [10, 10] && size (cc2) == [10, 10] -%! && abs (cc1 - cc2) < sqrt (eps))); - -%% test/octave.test/stats/corrcoef-2.m -%!error corrcoef (); - -%% test/octave.test/stats/corrcoef-3.m -%!error corrcoef (1, 2, 3); - -%% test/octave.test/stats/kurtosis-1.m -%!test -%! x = [-1; 0; 0; 0; 1]; -%! y = [x, 2*x]; -%! assert(all (abs (kurtosis (y) - [-1.4, -1.4]) < sqrt (eps))); - -%% test/octave.test/stats/kurtosis-2.m -%!error kurtosis (); - -%% test/octave.test/stats/kurtosis-3.m -%!error kurtosis (1, 2, 3); - -%% test/octave.test/stats/mahalanobis-2.m -%!error mahalanobis (); - -%% test/octave.test/stats/mahalanobis-3.m -%!error mahalanobis (1, 2, 3); - -%% test/octave.test/stats/skewness-2.m -%!error skewness (); - -%% test/octave.test/stats/skewness-3.m -%!error skewness (1, 2, 3); -
--- a/test/test_string.m Tue Jan 22 21:34:24 2008 +0000 +++ b/test/test_string.m Tue Jan 22 21:52:26 2008 +0000 @@ -164,14 +164,6 @@ %% test/octave.test/string/ischar-11.m %!error <Invalid call to ischar.*> ischar ("test", 1); -%% test/octave.test/string/blanks-1.m -%!assert(strcmp (blanks (3), " ")); - -%% test/octave.test/string/blanks-2.m -%!error blanks (); - -%% test/octave.test/string/blanks-3.m -%!error blanks (1, 2); %% test/octave.test/string/char-1.m %!assert(strcmp (char ([65, 83, 67, 73, 73]), "ASCII")); @@ -186,114 +178,6 @@ %! && strcmp (x(2,:), "bar ") %! && strcmp (x(3,:), "foobar"))); -%% test/octave.test/string/int2str-1.m -%!assert(strcmp (int2str (-123), "-123") && strcmp (int2str (1.2), "1")); - -%% test/octave.test/string/int2str-2.m -%!error int2str (); - -%% test/octave.test/string/int2str-3.m -%!error int2str (1, 2); - -%% test/octave.test/string/num2str-1.m -%!assert((strcmp (num2str (123), "123") && strcmp (num2str (1.23), "1.23"))); - -%% test/octave.test/string/num2str-2.m -%!error num2str (); - -%% test/octave.test/string/num2str-3.m -%!error num2str (1, 2, 3); - -%% test/octave.test/string/strcat-1.m -%!assert((strcmp (strcat ("foo", "bar"), "foobar") -%! && strcmp (strcat (["a"; "bb"], ["foo"; "bar"]), ["a foo"; "bbbar"]))); - -%% test/octave.test/string/strcat-2.m -%!error strcat (); - -%% test/octave.test/string/strcat-3.m -%!error strcat (1, 2); - -%% test/octave.test/string/str2mat-1.m -%!assert(strcmp (str2mat ("a", "bb", "ccc"), ["a "; "bb "; "ccc"])); - -%% test/octave.test/string/str2mat-2.m -%!error str2mat (); - -%% test/octave.test/string/str2mat-3.m -%!assert(all (str2mat (1, 2, 3) == setstr ([1; 2; 3]))); - -%% test/octave.test/string/deblank-1.m -%!assert(strcmp (deblank (" f o o "), " f o o")); - -%% test/octave.test/string/deblank-2.m -%!error deblank (); - -%% test/octave.test/string/deblank-3.m -%!error deblank ("foo", "bar"); - -%% test/octave.test/string/deblank-4.m -%!error deblank (1); - -%% test/octave.test/string/findstr-1.m -%!assert((findstr ("abababa", "a") == [1, 3, 5, 7] -%! && findstr ("abababa", "aba") == [1, 3, 5] -%! && findstr ("abababa", "aba", 0) == [1, 5])); - -%% test/octave.test/string/findstr-2.m -%!error findstr (); - -%% test/octave.test/string/findstr-3.m -%!error findstr ("foo", "bar", 3, 4); - -%% test/octave.test/string/index-1.m -%!assert(index ("foobarbaz", "b") == 4 && index ("foobarbaz", "z") == 9); - -%% test/octave.test/string/index-2.m -%!error index (); - -%% test/octave.test/string/index-3.m -%!error index ("foo", "bar", 3); - -%% test/octave.test/string/rindex-1.m -%!assert(rindex ("foobarbaz", "b") == 7 && rindex ("foobarbaz", "o") == 3); - -%% test/octave.test/string/rindex-2.m -%!error rindex (); - -%% test/octave.test/string/rindex-3.m -%!error rindex ("foo", "bar", 3); - -%% test/octave.test/string/split-1.m -%!assert(all (all (split ("Test string", "t") == ["Tes "; " s "; "ring"]))); - -%% test/octave.test/string/split-2.m -%!error split (); - -%% test/octave.test/string/split-3.m -%!assert(all (strcmp (split ("foo bar baz", " ", 2), ["foo"; "bar baz"]))); - -%% test/octave.test/string/split-4.m -%!error split ("foo", "bar", 3, 4); - -%% test/octave.test/string/strrep-1.m -%!assert(strcmp (strrep ("This is a test string", "is", "&%$"), -%! "Th&%$ &%$ a test string")); - -%% test/octave.test/string/strrep-2.m -%!error strrep (); - -%% test/octave.test/string/strrep-3.m -%!error strrep ("foo", "bar", 3, 4); - -%% test/octave.test/string/substr-1.m -%!assert(strcmp (substr ("This is a test string", 6, 9), "is a test")); - -%% test/octave.test/string/substr-2.m -%!error substr (); - -%% test/octave.test/string/substr-3.m -%!error substr ("foo", 2, 3, 4); %% test/octave.test/string/strcmp-1.m %!assert(strcmp ("foobar", "foobar") && strcmp ("fooba", "foobar") == 0); @@ -304,57 +188,7 @@ %% test/octave.test/string/strcmp-3.m %!error <Invalid call to strcmp.*> strcmp ("foo", "bar", 3); -%% test/octave.test/string/bin2dec-1.m -%!assert(bin2dec ("1110") == 14); -%% test/octave.test/string/bin2dec-2.m -%!error bin2dec (); - -%% test/octave.test/string/bin2dec-3.m -%!error bin2dec ("str", 1); - -%% test/octave.test/string/dec2bin-1.m -%!assert(strcmp (dec2bin (14), "1110")); - -%% test/octave.test/string/dec2bin-2.m -%!error dec2bin (); - -%% test/octave.test/string/dec2bin-3.m -%!assert(strcmp (dec2bin (14, 6), "001110") -%! ); - -%% test/octave.test/string/dec2bin-4.m -%!error dec2bin (1, 2, 3); - -%% test/octave.test/string/dec2hex-1.m -%!assert(strcmp (tolower (dec2hex (2748)), "abc")); - -%% test/octave.test/string/dec2hex-2.m -%!error dec2hex (); - -%% test/octave.test/string/dec2hex-3.m -%!assert(strcmp (tolower (dec2hex (2748, 5)), "00abc")); - -%% test/octave.test/string/dec2hex-4.m -%!error dec2hex (1, 2, 3); - -%% test/octave.test/string/hex2dec-1.m -%!assert(hex2dec ("12b") == 299 && hex2dec ("12B") == 299); - -%% test/octave.test/string/hex2dec-2.m -%!error hex2dec (); - -%% test/octave.test/string/hex2dec-3.m -%!error hex2dec ("str", 1); - -%% test/octave.test/string/str2num-1.m -%!assert(str2num ("-1.3e2") == -130 && str2num ("[1, 2; 3, 4]") == [1, 2; 3, 4]); - -%% test/octave.test/string/str2num-2.m -%!error str2num (); - -%% test/octave.test/string/str2num-3.m -%!error str2num ("string", 1); %% test/octave.test/string/undo_string_escapes-1.m %!assert(strcmp (undo_string_escapes ("abc\a\b\n\r\t\v\f123"),
--- a/test/test_system.m Tue Jan 22 21:34:24 2008 +0000 +++ b/test/test_system.m Tue Jan 22 21:52:26 2008 +0000 @@ -21,16 +21,6 @@ %% test/octave.test/system/time-1.m %!assert(time () > 0); -%% test/octave.test/system/ctime-1.m -%!test -%! t = time (); -%! assert(strcmp (asctime (localtime (t)), ctime (t))); - -%% test/octave.test/system/ctime-2.m -%!error ctime (); - -%% test/octave.test/system/ctime-3.m -%!error ctime (1, 2); %% test/octave.test/system/gmtime-1.m %!test @@ -85,16 +75,6 @@ %% test/octave.test/system/mktime-3.m %!error <Invalid call to mktime.*> mktime (1, 2, 3); -%% test/octave.test/system/asctime-1.m -%!test -%! t = time (); -%! assert(strcmp (asctime (localtime (t)), ctime (t))); - -%% test/octave.test/system/asctime-2.m -%!error asctime (); - -%% test/octave.test/system/asctime-3.m -%!error asctime (1, 2); %% test/octave.test/system/strftime-1.m %!assert((isstr (strftime ("%%%n%t%H%I%k%l", localtime (time ()))) @@ -109,32 +89,6 @@ %% test/octave.test/system/strftime-3.m %!error <Invalid call to strftime.*> strftime ("foo", localtime (time ()), 1); -%% test/octave.test/system/clock-1.m -%!test -%! t1 = clock; -%! t2 = str2num (strftime ("[%Y, %m, %d, %H, %M, %S]", localtime (time ()))); -%! assert(etime (t1, t2) < 1); - -%% test/octave.test/system/date-1.m -%!assert(strcmp (date (), strftime ("%d-%b-%Y", localtime (time ())))); - -%% test/octave.test/system/etime-1.m -%!test -%! t1 = [1993, 8, 20, 4, 56, 1]; -%! t2 = [1993, 8, 21, 4, 56, 1]; -%! t3 = [1993, 8, 20, 5, 56, 1]; -%! t4 = [1993, 8, 20, 4, 57, 1]; -%! t5 = [1993, 8, 20, 4, 56, 14]; -%! -%! assert((etime (t2, t1) == 86400 && etime (t3, t1) == 3600 -%! && etime (t4, t1) == 60 && etime (t5, t1) == 13)); - -%% test/octave.test/system/etime-2.m -%!error etime (); - -%% test/octave.test/system/etime-3.m -%!error etime (1, 2, 3); - %% test/octave.test/system/cputime-1.m %!test %! [t1, u1, s1] = cputime (); @@ -144,13 +98,6 @@ %! [t2, u2, s2] = cputime (); %! assert(t1 == u1 + s1 && t2 == u2 + s2 && t2 >= t1 && u2 >= u2 && s2 >= s2); -%% test/octave.test/system/is_leap_year-1.m -%!assert((is_leap_year (2000) == 1 && is_leap_year (1976) == 1 -%! && is_leap_year (1000) == 0 && is_leap_year (1800) == 0 -%! && is_leap_year (1600) == 1)); - -%% test/octave.test/system/is_leap_year-2.m -%!error is_leap_year (1, 2); %% test/octave.test/system/tic-toc-1.m %!test @@ -480,9 +427,6 @@ %% test/octave.test/system/pwd-1.m %!assert(isstr (pwd ())); -%% test/octave.test/system/ls-1.m -%!error ls (1); - %% test/octave.test/system/getpwent-1.m %!test %! s = getpwent (); @@ -592,22 +536,9 @@ %% test/octave.test/system/endgrent-1.m %!error <Invalid call to endgrent.*> endgrent (1); -%% test/octave.test/system/computer-1.m -%!assert((isstr (computer ()) -%! && computer () == octave_config_info ("canonical_host_type"))); - -%% test/octave.test/system/computer-2.m -%!warning a =computer(2); - %% test/octave.test/system/isieee-1.m %!assert(isieee () == 1 || isieee () == 0); -%% test/octave.test/system/version-1.m -%!assert(isstr (version ()) && strcmp (version (), OCTAVE_VERSION)); - -%% test/octave.test/system/version-2.m -%!warning version (1); - %% test/octave.test/system/octave_config_info-1.m %!assert(isstruct (octave_config_info ()));