1// ============================================================================= 2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 3// Copyright (C) 2009 - DIGITEO - Allan CORNET 4// 5// This file is distributed under the same license as the Scilab package. 6// ============================================================================= 7 8// <-- CLI SHELL MODE --> 9 10//ouvrir le fichier 11FLN = 'SCI/modules/fileio/tests/unit_tests/text.txt'; 12 13fd = mopen(FLN,'rt'); 14i = 0; 15while ~meof(fd) do 16 mfscanf(1, fd, "%c"); 17 i = i + 1; 18end 19 20mclose(fd); 21 22if i <> 1479 then pause,end 23 24ierr = execstr('meof(0)','errcatch'); 25if ierr <> 999 then pause,end 26ierr = execstr('meof(5)','errcatch'); 27if ierr <> 999 then pause,end 28ierr = execstr('meof(6)','errcatch'); 29if ierr <> 999 then pause,end 30