Mercurial > octave
diff test/test_struct.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 | 02c7e288f581 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test/test_struct.m Fri Jan 06 00:24:06 2006 +0000 @@ -0,0 +1,93 @@ +%% Automatically generated from DejaGNU files + +%% test/octave.test/struct/fieldnames-1.m +%!test +%! s.a = 1; +%! c = fieldnames (s); +%! assert(iscell (c) && strcmp (c{1}, "a")); + +%% test/octave.test/struct/fieldnames-2.m +%!test +%! s.a.b = 1; +%! c = fieldnames (s.a); +%! assert(iscell (c) && strcmp (c{1}, "b")); + +%% test/octave.test/struct/fieldnames-3.m +%!error <... fieldnames:.*> fieldnames (); + +%% test/octave.test/struct/fieldnames-4.m +%!test +%! s.a = 1; +%! fail("fieldnames (s, 1)","eldnames:.*"); + +%% test/octave.test/struct/fieldnames-5.m +%!error fieldnames (1); + +%% test/octave.test/struct/isfield-1.m +%!test +%! s.aaa = 1; +%! s.a = 2; +%! assert(isfield (s, "a")); + +%% test/octave.test/struct/isfield-2.m +%!test +%! s.aaa = 1; +%! s.a = 2; +%! assert(!(isfield (s, "b"))); + +%% test/octave.test/struct/isfield-3.m +%!error <... isfield:.*> isfield (); + +%% test/octave.test/struct/isfield-4.m +%!test +%! s.aaa = 1; +%! s.a = 2; +%! fail("isfield (s, 'a', 3);","field:.*"); + +%% test/octave.test/struct/isfield-5.m +%!assert(isfield (1, "m") == 0); + +%% test/octave.test/struct/isfield-6.m +%!test +%! s.a = 2; +%! assert(isfield (s, 2) == 0); + +%% test/octave.test/struct/isstruct-1.m +%!assert(!(isstruct (1))); + +%% test/octave.test/struct/isstruct-2.m +%!assert(!(isstruct ([1, 2]))); + +%% test/octave.test/struct/isstruct-3.m +%!assert(!(isstruct ([]))); + +%% test/octave.test/struct/isstruct-4.m +%!assert(!(isstruct ([1, 2; 3, 4]))); + +%% test/octave.test/struct/isstruct-5.m +%!assert(!(isstruct ("t"))); + +%% test/octave.test/struct/isstruct-6.m +%!assert(!(isstruct ("test"))); + +%% test/octave.test/struct/isstruct-7.m +%!assert(!(isstruct (["test"; "ing"]))); + +%% test/octave.test/struct/isstruct-8.m +%!test +%! s.a = 1; +%! assert(isstruct (s)); + +%% test/octave.test/struct/isstruct-9.m +%!test +%! s.a.b = 1; +%! assert(isstruct (s.a)); + +%% test/octave.test/struct/isstruct-10.m +%!error <... isstruct:.*> isstruct (); + +%% test/octave.test/struct/isstruct-11.m +%!test +%! s.a = 1; +%! fail("isstruct (s, 1)","struct:.*"); +