Adding mxIsScalar function and tests
[scilab.git] / scilab / modules / mexlib / tests / unit_tests / mxIsScalar.tst
1 // ============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2017-2017 - Gsoc 2017 - Siddhartha Gairola
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // ============================================================================
7
8 // <-- CLI SHELL MODE -->
9 // ============================================================================
10 // Unitary tests for mxIsScalar mex function
11 // ============================================================================
12
13 cd(TMPDIR);
14 ilib_verbose(0);
15 ieee(2);
16 mputl(["#include ""mex.h""";
17 "void mexFunction(int nlhs, mxArray *plhs[], int nrhs, mxArray *prhs[])";
18 "{";
19 "    bool isScalar = mxIsScalar(prhs[0]);";
20 "    mxArray* pOut = mxCreateLogicalScalar(isScalar);";
21 "    plhs[0] = pOut;";
22 "}"],"mexisScalar.c");
23 ilib_mex_build("libmextest",["isScalar","mexisScalar","cmex"], "mexisScalar.c",[]);
24 exec("loader.sce");
25
26 assert_checktrue(isScalar([1]));
27 assert_checktrue(isScalar(1/0));
28 assert_checktrue(isScalar(9));