911208641db70cbcccb6c04a19037556f9f11e31
[scilab.git] / scilab / modules / elementary_functions / tests / nonreg_tests / bug_6862.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2010 - DIGITEO - Vincent COUVERT
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 6862 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=6862
14 //
15 // <-- Short Description -->
16 // vectorfind(M,V,dir)
17 // * The number of mandatory entries is not checked.
18 // * typeof(M)==typeof(V) is not checked.
19
20 // Check that at least 2 inputs are needed
21 ierr = execstr("vectorfind([2 2])", "errcatch");
22 errmsg = msprintf(gettext("%s: Wrong number of input arguments: %d or %d expected.\n"), "vectorfind", 2, 3);
23 if ierr==0 | (lasterror() <> errmsg) then pause; end
24
25 // Check that "r" option is added by default
26 if vectorfind([2 2], [2 2]) <> vectorfind([2 2], [2 2], "r") then pause; end
27
28 // Check that an error message is returned if first and second input arguments have not the same type
29 ierr = execstr("vectorfind([1 2], string([1 2]))", "errcatch");
30 errmsg = msprintf(gettext("%s: Incompatible input arguments #%d and #%d: Same type expected.\n"), "vectorfind", 1, 2);
31 if ierr==0 | lasterror() <> errmsg then pause; end