bug 4852
[scilab.git] / scilab / modules / fileio / tests / nonreg_tests / bug_3896.dia.ref
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 // <-- JVM NOT MANDATORY -->
8 // <-- Non-regression test for bug 3896 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=3896
12 //
13 // <-- Short Description -->
14 // According to the "mputl" online help [1], If the file descriptor is omitted, lines are written in the last file opened by mopen.
15 // If only one file is opened in Scilab, this syntax fails.
16 warning('off');
17 fd1 = mopen(TMPDIR+'/text_1.txt','w');
18 if mputl('Hello world') <> %t then bugmes();quit;end;
19 fd2 = mopen(TMPDIR+'/text_2.txt','w');
20 if mputl('Hello world') <> %t then bugmes();quit;end;
21 mclose (fd1);
22 mclose (fd2);
23 fd1 = mopen(TMPDIR+'/text_1.txt','w');
24 fd2 = mopen(TMPDIR+'/text_2.txt','w');
25 if mputl('Text') <> %t then bugmes();quit;end;
26 if mputl('Text') <> %t then bugmes();quit;end;
27 fd3 = mopen(TMPDIR+'/text_3.txt','w');
28 if mputl('Text') <> %t then bugmes();quit;end;
29 mclose (fd1);
30 mclose (fd2);
31 mclose (fd3);