scilab/modules/scicos/tests/unit_tests/model/Clone_SuperBlock_in_Diagram.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2016 - Scilab Enterprises - Paul Bignier
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7 //
   8 // <-- CLI SHELL MODE -->
   9
  10 loadXcosLibs();
  11 scicos_log("TRACE");
  12
  13 o = CLOCK_c("define");
  14 d = scicos_diagram();
  15 d.objs(1) = o;
  16 dClone = d;
  17 dClone.props.tol(6) = 2; // COW: effectively cloning d into d2
  18 assert_checkequal(dClone.objs(1).model.rpar.objs(3).from, [2 1 0]);
  19 assert_checkequal(dClone.objs(1).model.rpar.objs(3).to,   [4 1 1]);
  20
  21 // Check that all the model items are freed
  22 clear