scilab/modules/data_structures/tests/unit_tests/struct_display.dia.ref

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2019, 2020 - Samuel GOUGEON
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7 // Unitary tests of default display of scalar (nested) structures
   8 // =============================================================================
   9 // <-- CLI SHELL MODE -->
  10 // <-- ENGLISH IMPOSED -->
  11 oldDepth = xmlGetValues("//general/body/environment","container_disp_max_depth");
  12 xmlSetValues("//general/body/environment", ["container_disp_max_depth"; "3"]);
  13 // ----------------------------------------------------------------
  14 clear s
  15 s.f = [%i/%s, %s/(1-%s), 1/(1-%s)^2];
  16 s.c = {1 3 ; "abc" %z};
  17 s.ec = {};
  18 s.b = rand(1,5)<0.5;
  19 s.iL = $-4:2:$;
  20 s.fun = linspace;
  21 s.L = list(rand(2,3),{},(1-%z)^3,,%pi, %t, "abcd");
  22 //s.lib = corelib;
  23 s.tlist = tlist(["myTlist" "bool" "int" "num" "txt" "list"],..
  24           rand(3,4,2)<0.5, int8((rand(3,5)-0.5)*200), ..
  25           grand(3,4,"uin",-100,100), ["This" "is" "a" "test"], list(%pi,"number"));
  26 s.mlist = mlist(["myMlist" "spb" "fun" "pol" "txt"],..
  27            sparse(rand(3,4)<0.5), cosd, (1-%z).^(0:4),["Scilab" "6.1"]);
  28 s.estruct = struct();
  29 s.withVoid = struct("num",%pi,"v",,"t","text");
  30 s.struct = struct("a",rand(1,3),"L",list(%e,,"ABC"),"c",{{"GHI",1234}});
  31 s
  32  s  =
  33   f: [1x3 complex rational] of s
  34   c: [2x2 cell]
  35   ec = {}
  36   b = [%t,%f,%t,%t,%f]
  37   iL = -4+$:2:$
  38   fun: fptr
  39   L: list:
  40       (1) : [2x3 constant]
  41       (2) = {}
  42       (3) = 1-3*%z+3*%z^2-%z^3
  43       (4) = (void)
  44       (5) = 3.1415927
  45       (6) = %t
  46       (7) = "abcd"
  47   tlist: [myTlist] tlist with fields:
  48       bool: [3x4x2 boolean]
  49       int: [3x5 int8]
  50       num: [3x4 constant]
  51       txt = ["This","is","a","test"]
  52       list: list:
  53           (1) = 3.1415927
  54           (2) = "number"
  55   mlist: [myMlist] mlist with fields:
  56       spb: [3x4 boolean sparse]
  57       fun: cosd(x) => [x] (19 lines)
  58       pol = [1,1-%z,1-2*%z+%z^2,1-3*%z+3*%z^2-%z^3,1-4*%z+6*%z^2-4*%z^3+%z^4]
  59       txt = ["Scilab","6.1"]
  60   estruct: [0x0 struct] with no field
  61   withVoid: struct with fields:
  62       num = 3.1415927
  63       v = (void)
  64       t = "text"
  65   struct: struct with fields:
  66       a = [0.9488184,0.3435337,0.3760119]
  67       L: list:
  68           (1) = 2.7182818
  69           (2) = (void)
  70           (3) = "ABC"
  71       c: [1x2 cell]
  72 // ----------------------------------------------------------------
  73 clear s
  74 s.root = "Hello 0";
  75 s.L = list(2,"bonjour", list(%i, list(%z,3)));
  76 s.t.a = "Level 1";
  77 s.t.r = %pi;
  78 s.t.tl = tlist(["myTlist" "a" "b" "c"], rand(2,3), %t, list("abc", 123));
  79 s.t.b.a = "Level 2";
  80 s.t.b.r = %e;
  81 s.t.L2 = list("Hello", list(1-%z+%z^2, list(-4,%t)));
  82 s.t.b.s.a = "Level 3";
  83 s.t.b.s.p = (1-%z)^3;
  84 xmlSetValues("//general/body/environment", ["container_disp_max_depth";"0"]);
  85 s
  86  s  =
  87   root = "Hello 0"
  88   L: list with 3 elements.
  89   t: struct with fields:
  90       ["a", "r", "tl", "b", "L2"]
  91 xmlSetValues("//general/body/environment", ["container_disp_max_depth";"1"]);
  92 s
  93  s  =
  94   root = "Hello 0"
  95   L: list:
  96       (1) = 2
  97       (2) = "bonjour"
  98       (3) : list with 2 elements.
  99   t: struct with fields:
 100       a = "Level 1"
 101       r = 3.1415927
 102       tl: [myTlist] tlist with fields:
 103           [a, b, c]
 104       b: struct with fields:
 105           ["a", "r", "s"]
 106       L2: list with 2 elements.
 107 xmlSetValues("//general/body/environment", ["container_disp_max_depth";"2"]);
 108 s
 109  s  =
 110   root = "Hello 0"
 111   L: list:
 112       (1) = 2
 113       (2) = "bonjour"
 114       (3) : list:
 115           (1) = %i
 116           (2) : list with 2 elements.
 117   t: struct with fields:
 118       a = "Level 1"
 119       r = 3.1415927
 120       tl: [myTlist] tlist with fields:
 121           a: [2x3 constant]
 122           b = %t
 123           c: list with 2 elements.
 124       b: struct with fields:
 125           a = "Level 2"
 126           r = 2.7182818
 127           s: struct with fields:
 128               ["a", "p"]
 129       L2: list:
 130           (1) = "Hello"
 131           (2) : list with 2 elements.
 132 xmlSetValues("//general/body/environment", ["container_disp_max_depth";"3"]);
 133 s
 134  s  =
 135   root = "Hello 0"
 136   L: list:
 137       (1) = 2
 138       (2) = "bonjour"
 139       (3) : list:
 140           (1) = %i
 141           (2) : list:
 142               (1) = %z
 143               (2) = 3
 144   t: struct with fields:
 145       a = "Level 1"
 146       r = 3.1415927
 147       tl: [myTlist] tlist with fields:
 148           a: [2x3 constant]
 149           b = %t
 150           c: list:
 151               (1) = "abc"
 152               (2) = 123
 153       b: struct with fields:
 154           a = "Level 2"
 155           r = 2.7182818
 156           s: struct with fields:
 157               a = "Level 3"
 158               p = 1-3*%z+3*%z^2-%z^3
 159       L2: list:
 160           (1) = "Hello"
 161           (2) : list:
 162               (1) = 1-%z+%z^2
 163               (2) : list with 2 elements.
 164 // ----------------------------------------------------------------
 165 xmlSetValues("//general/body/environment", ["container_disp_max_depth"; oldDepth]);