[m2sci] update nonreg tests
[scilab.git] / scilab / modules / m2sci / tests / nonreg_tests / bug_1662.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.1.0
12 //
13 // <-- Non-regression test for bug 1662 -->
14 //
15 // <-- Bugzilla URL -->
16 // http://bugzilla.scilab.org/1662
17 //
18 // <-- Short Description -->
19 //    when converting Matlab switch case statements to Scilab select case
20 //    statements using m2sci_syntax , if there is a comment line between the
21 //    switch and case statement in the m file, the sytnax is rejected with an
22 //    incorrect syntax error. Take the comment out and it works fine. Not a
23 //    major problem but a slight nuisance
24
25 MFILECONTENTS=[
26         "function  y=bug1662(x)";
27         "switch x % comment1";
28         "% comment2";
29         "case x>0 then y=''positive''";
30         "case x<0 then y=''negative''";
31         "else y=''null''";
32         "end"
33         ];
34
35 MFILE=TMPDIR+"/bug1662.m"
36 SCIFILE=TMPDIR+"/bug1662.sci"
37
38 mputl(MFILECONTENTS,MFILE);
39 mfile2sci(MFILE,TMPDIR,%f,%t);
40 SCIFILECONTENTS=mgetl(SCIFILE);
41
42 SCIFILECONTENTSREF=[
43         "function [y] = bug1662(x)"
44         ""
45         "// Output variables initialisation (not found in input variables)"
46         "y=[];"
47         ""
48         "select x // comment1"
49         " // comment2";
50         "  case mtlb_logic(x,"">"",0) then"
51         "    y = ""positive"""
52         "  case mtlb_logic(x,""<"",0) then"
53         "    y = ""negative"""
54         "  else y = ""null"""
55         "end;"
56         "endfunction"
57         ];
58
59 assert_checkequal(SCIFILECONTENTSREF, SCIFILECONTENTS);