* Bug #13119 fixed - fileio: mget and mgetl accepted decimal values as number of...
[scilab.git] / scilab / modules / fileio / tests / nonreg_tests / bug_13119.dia.ref
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 curdir = pwd();
18 cd(TMPDIR);
19 fd = mopen("test", "wr"); // Open a file
20 refMsg = msprintf(_("%s: Wrong value for input argument #%d: A positive integer value expected.\n"), "mget", 1);
21 assert_checkerror("mget(-1, ""d"", fd)", refMsg);
22 refMsg = msprintf(_("%s: Wrong value for input argument #%d: A positive integer value expected.\n"), "mget", 1);
23 assert_checkerror("mget(1.5, ""d"", fd)", refMsg);
24 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A positive integer value expected.\n"), "mget", 1);
25 assert_checkerror("mget(int8(1), ""d"", fd)", refMsg2);
26 refMsg3 = msprintf(_("%s: Wrong value for input argument #%d: An integer value expected.\n"), "mgetl", 2);
27 assert_checkerror("mgetl(""test"", 1.5)", refMsg3);
28 refMsg4 = msprintf(_("%s: Wrong type for input argument #%d: An integer value expected.\n"), "mgetl", 2);
29 assert_checkerror("mgetl(""test"", int8(1))", refMsg4);
30 mclose(fd);
31 deletefile("test");
32 cd(curdir);