diff test/test_number.m @ 5590:1ad66ea35fe5

[project @ 2006-01-06 00:24:05 by jwe]
author jwe
date Fri, 06 Jan 2006 00:24:06 +0000
parents
children 4ff0cb3e1dd1
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_number.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,190 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/number/ismatrix-1.m
+%!assert(ismatrix (1));
+
+%% test/octave.test/number/ismatrix-2.m
+%!assert(ismatrix ([1, 2, 3]));
+
+%% test/octave.test/number/ismatrix-3.m
+%% Yes, this is right, ismatrix() checks for non-empty matrices.
+%!assert(
+%! ismatrix ([]) == 0);
+
+%% test/octave.test/number/ismatrix-4.m
+%!assert(ismatrix ([1, 2; 3, 4]));
+
+%% test/octave.test/number/ismatrix-5.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(ismatrix ("t")));
+
+%% test/octave.test/number/ismatrix-6.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(ismatrix ("test")));
+
+%% test/octave.test/number/ismatrix-7.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(ismatrix (["test"; "ing"])));
+
+%% test/octave.test/number/ismatrix-8.m
+%!test
+%! s.a = 1;
+%! assert(!(ismatrix (s)));
+
+%% test/octave.test/number/ismatrix-9.m
+%!error <... ismatrix:.*> ismatrix ();
+
+%% test/octave.test/number/ismatrix-10.m
+%!error <... 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 ();
+