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// <-- CLI SHELL MODE -->
9mclose("all");
10// Check that mclose('all') closes all files (except stdin and stdout)
11f1 = mopen(TMPDIR + filesep() + "mclose1.txt","w");
12f2 = mopen(TMPDIR + filesep() + "mclose2.txt","w");
13mclose("all");
14if size(file())<>[1 3] then bugmes();quit;end
15