scilab/modules/data_structures/tests/nonreg_tests/bug_5602.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2017 - Samuel GOUGEON
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7
   8 // <-- CLI SHELL MODE -->
   9 // <-- NO CHECK REF -->
  10
  11 // <-- Non-regression test for bug 5602 -->
  12 //
  13 // <-- Bugzilla URL -->
  14 // http://bugzilla.scilab.org/5602
  15 //
  16 // <-- Short Description -->
  17 // Changing a component of a list in a cells array replaced the whole list with
  18 // the insertion
  19
  20 c = {%i, list("ok", %z)};
  21 c{1,2}(2) = %z^2;
  22 assert_checkequal(c{1,2}, list("ok", %z^2));
  23
  24 assert_checkfalse(execstr("c(1,2)(2)", "errcatch")==0);