aa80ac1880d6f5f8d5a45df021e6e063a54dfbac
[scilab.git] / scilab / modules / elementary_functions / tests / unit_tests / IsAScalar.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- ENGLISH IMPOSED -->
9 // <-- CLI SHELL MODE -->
10 //
11 // unit tests for IsAScalar function
12 // =============================================================================
13
14 // Constants
15 assert_checkequal(IsAScalar([1 2 3]), %f);
16 assert_checkequal(IsAScalar([1 2 3]'), %f);
17 assert_checkequal(IsAScalar([1 2; 1 2]), %f);
18 assert_checkequal(IsAScalar(1), %t);
19
20 // Strings
21 assert_checkequal(IsAScalar("s"), %f);
22
23 // Polynomials
24 s=poly(0,"s");
25 assert_checkequal(IsAScalar(1+s), %f);
26
27 // Booleans
28 assert_checkequal(IsAScalar(%t), %f);
29
30 // Sparses
31 assert_checkequal(IsAScalar(sparse(0)), %f);
32
33 // Error messages
34 errmsg1 = msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"),"IsAScalar", 1);
35 assert_checkerror("IsAScalar()", errmsg1);
36 errmsg2 = msprintf(_("Wrong number of input arguments."));
37 assert_checkerror("IsAScalar(1,2)", errmsg2);
38 errmsg3 = msprintf(_("Wrong number of output arguments.\n"));
39 assert_checkerror("[r,b]=IsAScalar([1 2 3]);", errmsg3);