Merge remote-tracking branch 'origin/6.1'
[scilab.git] / 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);