[m2sci] update nonreg tests
[scilab.git] / scilab / modules / m2sci / tests / nonreg_tests / bug_946.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) ????-2008 - INRIA - Vincent COUVERT <vincent.couvert@inria.fr>
4 // Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 //
9 // <-- CLI SHELL MODE -->
10 // <-- ENGLISH IMPOSED -->
11 // <-- NO CHECK REF -->
12 // <-- NOT FIXED -->  6.0.0 -> 6.1.0
13 //
14 // <-- Non-regression test for bug 946 -->
15 //
16 // <-- Bugzilla URL -->
17 // http://bugzilla.scilab.org/show_bug.cgi?id=946
18 //
19 // <-- Short Description -->
20 //    Code badly converted by mfile2sci when using particular
21 //    column vector initialization / assignment (see attachments).
22
23 MFILECONTENTS=["x=zeros(3,2);";"y=zeros(3,1);";"x=[1 0;0 0;0 0];";"y(1:3)=x(:,1);"];
24
25 MFILE=TMPDIR+"/bug946.m";
26 SCIFILE=TMPDIR+"/bug946.sci";
27
28 mputl(MFILECONTENTS,MFILE);
29 mfile2sci(MFILE,TMPDIR);
30 SCIFILECONTENTS=mgetl(SCIFILE);
31
32 SCIFILECONTENTSREF=["";
33                 "x = zeros(3,2);";
34                 "y = zeros(3,1);";
35                 "x = [1,0;0,0;0,0];";
36                 "y(1:3) = x(:,1);"];
37
38 if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then pause,end