2bf7d2d2d38eb504328c0f60c846a5b6267497d6
[scilab.git] / scilab / modules / randlib / tests / nonreg_tests / bug_9584.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
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 9584 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=9584
14 //
15 // <-- Short Description -->
16 // grand returns non-empty matrix for negative size argument
17
18 errMsg1 = msprintf(_("%s: Wrong value for input argument #1: Positive scalar expected.\n"),"Rand");
19 errMsg2 = msprintf(_("%s: Wrong value for input argument #2: Positive scalar expected.\n"),"Rand");
20 assert_checkequal(grand(1,0,'def'),[]);
21 assert_checkerror("grand(-1,1,""def"");", errMsg1);
22 assert_checkerror("grand(1,-1,""def"");", errMsg2);
23 assert_checkequal(size(grand(-1,-1,'def')),[-1,-1]); //size(eye())==[-1 -1]