// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2007-2008 - INRIA - Bruno JOFRET <bruno.jofret@inria.fr>
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- CLI SHELL MODE -->
// =============================================================================
// Unitary tests for mputl function
// =============================================================================
ierr = execstr('mputl()','errcatch');
if ierr<>999 then bugmes();quit;end
ierr = execstr('mputl(1)','errcatch');
if ierr<>999 then bugmes();quit;end
// TEST 1 : dummy file
cd TMPDIR;
// Deleting an existing file... Just in case...
mdelete("dummyFile.dummy")
TXT = [ 'I am a dummy String'; ..
        'Multi lines '; ..
        'to check that'; ..
        ' mputl is okay'; ..
        ' on linux and windows ... '];
r = mputl(TXT, 'dummyFile.dummy');
if r <> %T then bugmes();quit;end
TXT2 = mgetl('dummyFile.dummy');
if TXT2 <> TXT then bugmes();quit;end
// =============================================================================
// Testing if the file created exists
lsResult = ls("dummyFile.dummy");
if lsResult == []      then bugmes();quit;end
// Now delete it
mdelete("dummyFile.dummy")
// =============================================================================