f35afc3d559e138f872b8d0fa24896b8ca903998
[scilab.git] / scilab / modules / m2sci / tests / nonreg_tests / bug_1149.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2005 - INRIA - Farid BELAHCENE
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 // <-- ENGLISH IMPOSED -->
10 // <-- NO CHECK REF -->
11 // <-- NOT FIXED -->  6.0.0 -> 6.0.2
12 //
13 // <-- Non-regression test for bug 1149 -->
14 //
15 // <-- Bugzilla URL -->
16 // http://bugzilla.scilab.org/show_bug.cgi?id=1149
17 //
18 // <-- Short Description -->
19 //    m2sci doesn't cope with constructs like a=[1,2,3,] or
20 //    a=[,1,2,3,] (superfluous leading/trailing comma), which
21 //    matlab lives well with. Awful matlab quirk, I agree, but
22 //    some automatic m-file generator does it carelessly.
23
24 MFILECONTENTS="a=[,1,2,3,];"
25
26 MFILE=TMPDIR+"/bug1149.m"
27 SCIFILE=TMPDIR+"/bug1149.sci"
28
29 fd=mopen(MFILE,"w");
30 mputl(MFILECONTENTS,fd);
31 mclose(fd);
32
33 mfile2sci(MFILE,TMPDIR);
34
35 fd=mopen(SCIFILE,"r");
36 SCIFILECONTENTS=mgetl(fd,-1);
37 mclose(fd);
38
39 SCIFILECONTENTSREF=[
40     ""
41     "a = [1,2,3];"];
42
43 correct=%T
44 if or(SCIFILECONTENTSREF<>SCIFILECONTENTS)  then pause,end