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:.*");
+