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