5109a1dec59ce2f0942dbe62162f9ddf25af5354
[scilab.git] / scilab / modules / data_structures / tests / unit_tests / setfield.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2015 - Scilab Enterprises - Cedric Delamarre
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9
10 l = list(1, "string", %s);
11 setfield(2, "newString", l);
12 assert_checkequal(l, list(1, "newString", %s));
13 setfield(0, "front", l);
14 assert_checkequal(l, list("front", 1, "newString", %s));
15
16 // b must not be modified
17 a = list(2);
18 b = a;
19 setfield(1, 15, a);
20 assert_checkequal(a, list(15));
21 assert_checkequal(b, list(2));