Adding new tests for mxIsNumeric
[scilab.git] / scilab / modules / mexlib / tests / unit_tests / mxIsNumeric.dia.ref
1 // ============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 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 mxIsNumeric mex function
11 // ============================================================================
12 cd(TMPDIR);
13 ilib_verbose(0);
14 mputl(["#include ""mex.h""";
15 "void mexFunction(int nlhs, mxArray *plhs[], int nrhs, mxArray *prhs[])";
16 "{";
17 "    bool isNumeric = mxIsNumeric(prhs[0]);";
18 "    mxArray* pOut = mxCreateLogicalScalar(isNumeric);";
19 "    plhs[0] = pOut;";
20 "}"],"mexisNumeric.c");
21 ilib_mex_build("libmextest",["isNumeric","mexisNumeric","cmex"], "mexisNumeric.c",[]);
22 exec("loader.sce");
23 res = isNumeric(1);
24 assert_checktrue(res);
25 res_int8 = isNumeric(int8(1));
26 assert_checktrue(res_int8);
27 res_int16 = isNumeric(int16(1));
28 assert_checktrue(res_int16);
29 res_int32 = isNumeric(int32(1));
30 assert_checktrue(res_int32);
31 res_int64 = isNumeric(int64(1));
32 assert_checktrue(res_int64);
33 res_uint8 = isNumeric(uint8(1));
34 assert_checktrue(res_uint8);
35 res_uint16 = isNumeric(uint16(1));
36 assert_checktrue(res_uint16);
37 res_uint32 = isNumeric(uint32(1));
38 assert_checktrue(res_uint32);
39 res_uint64 = isNumeric(uint64(1));
40 assert_checktrue(res_uint64);
41 res_double = isNumeric(2.0);
42 assert_checktrue(res_double);
43 res_char = isNumeric("a");
44 assert_checkfalse(res_char);