*Bug #5207 fixed - grand() can now return a hypermatrix
[scilab.git] / scilab / modules / randlib / tests / nonreg_tests / bug_5207.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Antoine ELIAS
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 5207 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=5207
14 //
15 // <-- Short Description -->
16 // grand did not managed 3-D inputs/outputs
17 //dimension as input parameters
18 //init mt generator with seed = 1337
19 grand("setsd", 1337);
20 a = grand(3, 4, 5, "def");
21 grand("setsd", 1337);
22 ref = grand(1, 3 * 4 * 5, "def");
23 ref = matrix(ref, [3, 4, 5]);
24 assert_checkequal(a, ref);
25 grand("setsd", 1337);
26 a = grand(3, 4, 5, 6, "def");
27 grand("setsd", 1337);
28 ref = grand(1, 3 * 4 * 5 * 6, "def");
29 ref = matrix(ref, [3, 4, 5, 6]);
30 assert_checkequal(a, ref);
31 //dimension from size of input parameter
32 grand("setsd", 1337);
33 Z = zeros(3,4,5);
34 a = grand(Z, "def");
35 grand("setsd", 1337);
36 ref = grand(1, 3 * 4 * 5, "def");
37 ref = matrix(ref, [3, 4, 5]);
38 assert_checkequal(a, ref);
39 grand("setsd", 1337);
40 Z = zeros(3,4,5,6);
41 a = grand(Z, "def");
42 grand("setsd", 1337);
43 ref = grand(1, 3 * 4 * 5 * 6, "def");
44 ref = matrix(ref, [3, 4, 5, 6]);
45 assert_checkequal(a, ref);