scilab/modules/data_structures/tests/unit_tests/fieldnames.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2015 - Scilab Enterprises - Paul Bignier
   4 // Copyright (C) 2009 - INRIA - Serge.Steer@inria.fr
   5 //
   6 //  This file is distributed under the same license as the Scilab package.
   7 // =============================================================================
   8 //
   9 // <-- XCOS TEST -->
  10 //
  11 // <-- ENGLISH IMPOSED -->
  12 //
  13 // <-- CLI SHELL MODE -->
  14
  15 // unit tests for fieldnames function
  16 // =============================================================================
  17
  18 assert_checkequal(fieldnames(1), []);
  19
  20 my_struct = struct("field_1", 123, "field_2", 456);
  21 assert_checkequal(fieldnames(my_struct), ["field_1"; "field_2"]);
  22
  23 clear T;
  24 T.a = rand(2, 2);
  25 T.b = "s";
  26 assert_checkequal(fieldnames(T), ["a"; "b"]);
  27
  28
  29 assert_checkequal(fieldnames(1/%s), ["num"; "den"; "dt"]);
  30
  31 M = mlist(["foo" "A" "B" "C"], [], [], []);
  32 assert_checkequal(fieldnames(M), ["A"; "B"; "C"]);
  33
  34
  35 // Scicos objects
  36 d = scicos_diagram();
  37 assert_checkequal(fieldnames(d), ["props"; "objs"; "version"; "contrib"]);
  38 b = scicos_block();
  39 assert_checkequal(fieldnames(b), ["graphics"; "model"; "gui"; "doc"]);
  40 l = scicos_link();
  41 assert_checkequal(fieldnames(l), ["xx"; "yy"; "id"; "thick"; "ct"; "from"; "to"]);