bug 4852
[scilab.git] / scilab / modules / fileio / tests / nonreg_tests / bug_3896.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- JVM NOT MANDATORY -->
9
10 // <-- Non-regression test for bug 3896 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=3896
14 //
15 // <-- Short Description -->
16 // According to the "mputl" online help [1], If the file descriptor is omitted, lines are written in the last file opened by mopen.
17 // If only one file is opened in Scilab, this syntax fails.
18
19 warning('off');
20
21 fd1 = mopen(TMPDIR+'/text_1.txt','w');
22 if mputl('Hello world') <> %t then pause,end;
23
24 fd2 = mopen(TMPDIR+'/text_2.txt','w');
25 if mputl('Hello world') <> %t then pause,end;
26
27 mclose (fd1);
28 mclose (fd2);
29
30 fd1 = mopen(TMPDIR+'/text_1.txt','w');
31 fd2 = mopen(TMPDIR+'/text_2.txt','w');
32
33 if mputl('Text') <> %t then pause,end;
34 if mputl('Text') <> %t then pause,end;
35
36 fd3 = mopen(TMPDIR+'/text_3.txt','w');
37
38 if mputl('Text') <> %t then pause,end;
39
40 mclose (fd1);
41 mclose (fd2);
42 mclose (fd3);
43