[output_stream] fix basout test
[scilab.git] / scilab / modules / output_stream / tests / nonreg_tests / bug_4084.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9
10 // <-- Non-regression test for bug 4084 -->
11 //
12
13 // <-- Short Description -->
14 //
15 //
16 // <-- Bugzilla URL -->
17 // http://bugzilla.scilab.org/show_bug.cgi?id=4084
18 //
19
20 // print() function produces bad file. This doesn't occur with scilab-5.0.3.
21
22 s1 = -9.999999999;
23 s2 = 0.999999999999;
24
25 print(TMPDIR+"/bug.txt",s1,s2);
26 ref = [
27 " s2  =";
28 " ";
29 "    1.  ";
30 " s1  =";
31 " ";
32 "  -10.  "]
33 r = mgetl(TMPDIR+"/bug.txt");
34 if and(r<>ref) then pause,end