regenerated bug 8101 test ref
[scilab.git] / scilab / modules / statistics / tests / nonreg_tests / bug_8101.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS
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 8101 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=8101
14 //
15 // <-- Short Description -->
16 //    The median function with a sparse as a first argument did not return the
17 //    good result. Moreover, median(sparse,'r'|'c") were not supported.
18 // =============================================================================
19
20 s=sparse([1 0 2 0 0 ; 0 -4 0 0 7 ]);
21 y = median(s);
22 res = sparse(median(full(s)));
23 assert_checkequal(y, res);
24
25 y = median(s, "r");
26 res = sparse(median(full(s), "r"));
27 assert_checkequal(y, res);
28
29 y = median(s, "c");
30 res = sparse(median(full(s), "c"));
31 assert_checkequal(y, res);
32
33 y = median(s, "m");
34 res = sparse(median(full(s), "m"));
35 assert_checkequal(y, res);
36
37 y = median(s, 1);
38 res = sparse(median(full(s), 1));
39 assert_checkequal(y, res);
40
41
42
43
44