summaryrefslogtreecommitdiffstats
path: root/tests/nonRegression/bug853.sci
blob: 4d567de5ac2b8b023c5f4f873b3b4dd19fe23d81 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
// <-- Non-regression test for bug 853 -->
//
// <-- Bugzilla URL -->
// http://www.scilab.org/cgi-bin/bugzilla_bug_II/show_bug.cgi?id=853
//
// <-- Short Description -->
//    Error with the m2sci on personnal function :
//
//    function CORPABOT_vJuin04
//
//    % COntinuous Reltaive Phase Analyser Based On the Tangeant
//    (CO.R.P.A.B.O.T.)
//    % Salesse Robin UMR6152 June 17th 2004
//
//
//
//
//    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//    % Nettoyage du workspace
//    clear all;
//
//    % Nettoyage du Command Window
//    clc;
//
//    % Lancement du chronomètre
//    tic;
// ...

// Copyright INRIA
// Scilab Project - V. Couvert

// Modified by Pierre MARECHAL
// Copyright INRIA
// Date : 18 Mar 2005

MFILECONTENTS=["dir_name=''path'';";
"dir_target=dir(dir_name);";
"for i=1:10";
"  RC(i)=[dir_name,''\'',dir_target(i).name];";
"end"]

MFILE=TMPDIR+"/bug853.m"
SCIFILE=TMPDIR+"/bug853.sci"

mputl(MFILECONTENTS,MFILE);
mfile2sci(MFILE,TMPDIR);
SCIFILECONTENTS=mgetl(SCIFILE);

SCIFILECONTENTSREF=["";
		"// Display mode";
		"mode(0);";
		"";
		"// Display warning for floating point exception";
		"ieee(1);";
		"";
		"dir_name = ""path"";";
		"dir_target = mtlb_dir(dir_name);";
		"for i = 1:10";
		"  RC(1,i) = dir_name+""\""+dir_target(i).name;";
		"end;"]


if or(SCIFILECONTENTSREF<>SCIFILECONTENTS) then
	affich_result(%F,853);
else
	affich_result(%T,853);
end