bug 13890 : fix macro getd, avoid use of stack order
[scilab.git] / scilab / modules / functions / tests / nonreg_tests / bug_13890.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2015 - Scilab Enterprises - Antoine ELIAS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 //
10 // <-- Non-regression test for bug 13890 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=13890
14 //
15 // <-- Short Description -->
16 // Bug when use getd with a ".sci" file with more than one function
17 str1 = ["function macro1_1()";
18         "    disp(""macro1_1"");";
19         "endfunction";
20         "";
21         "function macro1_2()";
22         "    disp(""macro1_2"");";
23         "endfunction";
24         "";
25         "function macro1_3()";
26         "    disp(""macro1_3"");";
27         "endfunction";
28         "";
29         "function macro1_4()";
30         "    disp(""macro1_4"");";
31         "endfunction"];
32 str2 = ["function macro2_1()";
33         "    disp(""macro2_1"");";
34         "endfunction";
35         "";
36         "function macro2_2()";
37         "    disp(""macro2_2"");";
38         "endfunction";
39         "";
40         "function macro2_3()";
41         "    disp(""macro2_3"");";
42         "endfunction";
43         "";
44         "function macro2_4()";
45         "    disp(""macro2_4"");";
46         "endfunction"];
47 mkdir(TMPDIR + "/bug_13890");
48 mputl(str1, TMPDIR + "/bug_13890/macro1.sci");
49 mputl(str2, TMPDIR + "/bug_13890/macro2.sci");
50 assert_checktrue(exists("macro1_1") == 0);
51 assert_checktrue(exists("macro1_2") == 0);
52 assert_checktrue(exists("macro1_3") == 0);
53 assert_checktrue(exists("macro1_4") == 0);
54 assert_checktrue(exists("macro2_1") == 0);
55 assert_checktrue(exists("macro2_2") == 0);
56 assert_checktrue(exists("macro2_3") == 0);
57 assert_checktrue(exists("macro2_4") == 0);
58 getd(TMPDIR + "/bug_13890");
59 assert_checkfalse(exists("macro1_1") == 0);
60 assert_checkfalse(exists("macro1_2") == 0);
61 assert_checkfalse(exists("macro1_3") == 0);
62 assert_checkfalse(exists("macro1_4") == 0);
63 assert_checkfalse(exists("macro2_1") == 0);
64 assert_checkfalse(exists("macro2_2") == 0);
65 assert_checkfalse(exists("macro2_3") == 0);
66 assert_checkfalse(exists("macro2_4") == 0);