[core, differential_equations, elementary_functions] fix failing tests
[scilab.git] / scilab / modules / elementary_functions / tests / nonreg_tests / bug_4810.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- No CHECK REF -->
9 // <-- Non-regression test for bug 4810 -->
10 //
11 // <-- Bugzilla URL -->
12 // http://bugzilla.scilab.org/show_bug.cgi?id=4810
13 //
14 // <-- Short Description -->
15 // gsort does not manage sparse vector as sort
16
17 sp = sparse([1,2,4,5,3,10]);
18 ref = sparse([10,5,4,3,2,1]);
19 A = gsort(sp);
20 if and(ref == A) <> %t then pause,end
21
22 sp = sparse([1,2;4,5;3,10]);
23 ierr = execstr("A = gsort(sp);","errcatch");
24 if ierr <> 10000 then pause,end
25