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