* Bug #13119 fixed - fileio: mget and mgetl accepted decimal values as number of...
[scilab.git] / scilab / modules / fileio / tests / nonreg_tests / bug_13119.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2014 - Scilab Enterprises - Paul Bignier
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 //
10 // <-- Non-regression test for bug 13119 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=13119
14 //
15 // <-- Short Description -->
16 // mget and mgetl accepted decimal values as number of lines.
17
18 curdir = pwd();
19 cd(TMPDIR);
20
21 fd = mopen("test", "wr"); // Open a file
22
23 refMsg = msprintf(_("%s: Wrong value for input argument #%d: A positive integer value expected.\n"), "mget", 1);
24 assert_checkerror("mget(-1, ""d"", fd)", refMsg);
25
26 refMsg = msprintf(_("%s: Wrong value for input argument #%d: A positive integer value expected.\n"), "mget", 1);
27 assert_checkerror("mget(1.5, ""d"", fd)", refMsg);
28
29 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A positive integer value expected.\n"), "mget", 1);
30 assert_checkerror("mget(int8(1), ""d"", fd)", refMsg2);
31
32 refMsg3 = msprintf(_("%s: Wrong value for input argument #%d: An integer value expected.\n"), "mgetl", 2);
33 assert_checkerror("mgetl(""test"", 1.5)", refMsg3);
34
35 refMsg4 = msprintf(_("%s: Wrong type for input argument #%d: An integer value expected.\n"), "mgetl", 2);
36 assert_checkerror("mgetl(""test"", int8(1))", refMsg4);
37
38 mclose(fd);
39 deletefile("test");
40
41 cd(curdir);