8403fb744bc1b9fed092e2344d7fdc0e5ba32986
[scilab.git] / scilab / modules / elementary_functions / tests / unit_tests / IsAScalar.dia.ref
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 // Constants
14 assert_checkequal(IsAScalar([1 2 3]), %f);
15 WARNING: Feature IsAScalar is obsolete.
16          Please use isscalar instead.
17          This feature will be permanently removed in Scilab 5.5.1
18
19 assert_checkequal(IsAScalar([1 2 3]'), %f);
20 WARNING: Feature IsAScalar is obsolete.
21          Please use isscalar instead.
22          This feature will be permanently removed in Scilab 5.5.1
23
24 assert_checkequal(IsAScalar([1 2; 1 2]), %f);
25 WARNING: Feature IsAScalar is obsolete.
26          Please use isscalar instead.
27          This feature will be permanently removed in Scilab 5.5.1
28
29 assert_checkequal(IsAScalar(1), %t);
30 WARNING: Feature IsAScalar is obsolete.
31          Please use isscalar instead.
32          This feature will be permanently removed in Scilab 5.5.1
33
34 // Strings
35 assert_checkequal(IsAScalar("s"), %f);
36 WARNING: Feature IsAScalar is obsolete.
37          Please use isscalar instead.
38          This feature will be permanently removed in Scilab 5.5.1
39
40 // Polynomials
41 s=poly(0,"s");
42 assert_checkequal(IsAScalar(1+s), %f);
43 WARNING: Feature IsAScalar is obsolete.
44          Please use isscalar instead.
45          This feature will be permanently removed in Scilab 5.5.1
46
47 // Booleans
48 assert_checkequal(IsAScalar(%t), %f);
49 WARNING: Feature IsAScalar is obsolete.
50          Please use isscalar instead.
51          This feature will be permanently removed in Scilab 5.5.1
52
53 // Sparses
54 assert_checkequal(IsAScalar(sparse(0)), %f);
55 WARNING: Feature IsAScalar is obsolete.
56          Please use isscalar instead.
57          This feature will be permanently removed in Scilab 5.5.1
58
59 // Error messages
60 errmsg1 = msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"),"IsAScalar", 1);
61 assert_checkerror("IsAScalar()", errmsg1);
62 WARNING: Feature IsAScalar is obsolete.
63          Please use isscalar instead.
64          This feature will be permanently removed in Scilab 5.5.1
65
66 errmsg2 = msprintf(_("Wrong number of input arguments."));
67 assert_checkerror("IsAScalar(1,2)", errmsg2);
68 errmsg3 = msprintf(_("Wrong number of output arguments.\n"));
69 assert_checkerror("[r,b]=IsAScalar([1 2 3]);", errmsg3);