[fileio] tests updated
[scilab.git] / scilab / modules / fileio / tests / unit_tests / mclose_all.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - DIGITEO - Allan CORNET
4 // Copyright (C) 2009 - DIGITEO - Vincent COUVERT
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8
9 // <-- CLI SHELL MODE -->
10
11 mclose("all");
12
13 // Check that mclose('all') closes all files (except stdin and stdout)
14 f1 = mopen(TMPDIR + filesep() + "mclose1.txt","w");
15 f2 = mopen(TMPDIR + filesep() + "mclose2.txt","w");
16 mclose("all");
17
18 if size(file())<>[1 3] then pause; end