scilab/modules/scinotes/tests/nonreg_tests/bug_16565.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2020 - 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 16565 -->
  12 //
  13 // <-- Bugzilla URL -->
  14 // http://bugzilla.scilab.org/16565
  15 //
  16 // <-- Short Description -->
  17 // edit(user_defined_function) does not yield reliable code
  18
  19 function a = test(c,d)
  20     // http://bugzilla.scilab.org/16565 :
  21     y = c{1}
  22     // y = c{2}    // yields = c{1}
  23     // y = c{1,2}  // yields = c{1,1}
  24     y = c{2,1}
  25     y{3} = 4
  26     y{2,1} = 3
  27     y{1,2} = 3
  28     plot
  29     // http://bugzilla.scilab.org/16576 :
  30     b = gcf().children.axes_reverse(:,2)
  31     //
  32     while a > 0
  33         a = a - 0.1
  34     end
  35 endfunction
  36
  37 try // We just need edit to create the file(). Scinotes can't be opened
  38     edit test
  39 end
  40
  41 File = pathconvert(TMPDIR) + "test.sci";
  42 t = mgetl(File);
  43 Ref = [
  44     "function a = test(c, d)"
  45     "    // http://bugzilla.scilab.org/16565 :"
  46     "    y = c{1}"
  47     "    // y = c{2}    // yields = c{1}"
  48     "    // y = c{1,2}  // yields = c{1,1}"
  49     "    y = c{2, 1}"
  50     "    y{3} = 4"
  51     "    y{2, 1} = 3"
  52     "    y{1, 2} = 3"
  53     "    plot"
  54     "    // http://bugzilla.scilab.org/16576 :"
  55     "    b = gcf().children.axes_reverse(:, 2)"
  56     "    //"
  57     "    while (a > 0) do"
  58     "        a = a - 0.1"
  59     "    end"
  60     "endfunction"
  61     ];
  62 assert_checkequal(t, Ref);