Fix tests in output_stream module.
[scilab.git] / scilab / modules / output_stream / tests / nonreg_tests / bug_12551.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- ENGLISH IMPOSED -->
9 //
10 // <-- CLI SHELL MODE -->
11 //
12 // <-- Non-regression test for bug 12551 -->
13 //
14 // <-- Bugzilla URL -->
15 // http://bugzilla.scilab.org/show_bug.cgi?id=12551
16 //
17 // <-- Short Description -->
18 // Stack problem with diary([],"pause") and diary([],"resume")
19 //
20
21 FILENAME_DIARY = TMPDIR +'/foo.log';
22 fd = diary(FILENAME_DIARY, 'new');
23 FILENAME_DIARY2 = TMPDIR +'/foo2.log';
24 fd2 = diary(FILENAME_DIARY2, 'new');
25 a=1;
26
27 diary([],"pause");
28 a=2;
29 txt = mgetl(FILENAME_DIARY); 
30 assert_checkequal(txt($),'--> diary([],""pause"");');
31 txt2 = mgetl(FILENAME_DIARY2);
32 assert_checkequal(txt2($),'--> diary([],""pause"");');
33
34 diary([],"resume");
35 a=3;
36 diary([],"close");
37 txt=mgetl(FILENAME_DIARY);
38 assert_checkequal(txt($-2),'--> a=3;');
39 txt2=mgetl(FILENAME_DIARY2);
40 assert_checkequal(txt($-2),'--> a=3;');