Bug 16325: mgetl could not read single line data which is greater than ~260,000 chara...
[scilab.git] / scilab / modules / fileio / tests / nonreg_tests / bug_16325.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2020 - Antoine ELIAS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 // <-- NO CHECK REF -->
10 //
11 // <-- Non-regression test for bug 16325 -->
12 //
13 // <-- Bugzilla URL -->
14 // https://bugzilla.scilab.org/show_bug.cgi?id=16325
15 //
16 // <-- Short Description -->
17 // mgetl could not read text file with single line data which is greater than ~260,000 characters
18
19 //create file with 1 line
20 n = [1d0 1d1 1d2 1d3 1d4 1d5 1d6];
21
22 for i=n
23     a = rand(1, i) * 10;
24     a = a + ascii("0");
25     filename = fullfile(TMPDIR, "16325.dat");
26     f = mopen(filename, "wt");
27     mput(a, "c", f);
28     mclose(f);
29
30     //read file
31     x = mgetl(filename);
32     assert_checkequal(length(x), i);
33 end