Toolboxes menu: case-insensitive sorting
[scilab.git] / 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"]);