* Bug #9627 fixed - Checking arguments in optimsimplex_*() functions
[scilab.git] / scilab / modules / optimization / tests / nonreg_tests / bug_9627.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- ENGLISH IMPOSED -->
9 //
10 // <-- CLI SHELL MODE -->
11 //
12 // <-- Non-regression test for bug 9627 -->
13 //
14 // <-- Bugzilla URL -->
15 // http://bugzilla.scilab.org/show_bug.cgi?id=9627
16 //
17 // <-- Short Description -->
18 // The optimsimplex_set*() functions did not check any arguments:
19 //
20
21 // optimsimplex_check
22 s1 = optimsimplex_new ();
23 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_check", 1);
24 assert_checkerror("s1 = optimsimplex_check(""1"");",refMsg);
25 assert_checkerror("s1 = optimsimplex_check(%t);",refMsg);
26
27 // optimsimplex_getall
28 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getall", 1);
29 assert_checkerror("s1 = optimsimplex_getall(""1"");",refMsg);
30 assert_checkerror("s1 = optimsimplex_getall(%t);",refMsg);
31
32 // optimsimplex_getallfv
33 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getallfv", 1);
34 assert_checkerror("s1 = optimsimplex_getallfv(""1"");",refMsg);
35 assert_checkerror("s1 = optimsimplex_getallfv(%t);",refMsg);
36
37 // optimsimplex_getallx
38 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getallx", 1);
39 assert_checkerror("s1 = optimsimplex_getallx(""1"");",refMsg);
40 assert_checkerror("s1 = optimsimplex_getallx(%t);",refMsg);
41
42 // optimsimplex_getfv
43 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getfv", 1);
44 assert_checkerror("s1 = optimsimplex_getfv(""1"");",refMsg);
45 assert_checkerror("s1 = optimsimplex_getfv(%t);",refMsg);
46
47 // optimsimplex_getn
48 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getn", 1);
49 assert_checkerror("s1 = optimsimplex_getn(""1"");",refMsg);
50 assert_checkerror("s1 = optimsimplex_getn(%t);",refMsg);
51
52 // optimsimplex_getnbve
53 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getnbve", 1);
54 assert_checkerror("s1 = optimsimplex_getnbve(""1"");",refMsg);
55 assert_checkerror("s1 = optimsimplex_getnbve(%t);",refMsg);
56
57 // optimsimplex_getve
58 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getve", 1);
59 assert_checkerror("s1 = optimsimplex_getve(""1"");",refMsg);
60 assert_checkerror("s1 = optimsimplex_getve(%t);",refMsg);
61
62 // optimsimplex_getx
63 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getx", 1);
64 assert_checkerror("s1 = optimsimplex_getx(""1"");",refMsg);
65 assert_checkerror("s1 = optimsimplex_getx(%t);",refMsg);
66
67 // optimsimplex_setall
68 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setall", 1);
69 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setall", 2);
70 assert_checkerror("s1 = optimsimplex_setall(1, s1);",refMsg);
71 assert_checkerror("s1 = optimsimplex_setall(""s1"", s1);",refMsg);
72 assert_checkerror("s1 = optimsimplex_setall(s1, 1);",refMsg2);
73 assert_checkerror("s1 = optimsimplex_setall(s1, ""s1"");",refMsg2);
74
75 // optimsimplex_setallfv
76 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setallfv", 1);
77 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real vector expected.\n"), "optimsimplex_setallfv", 2);
78 assert_checkerror("s1 = optimsimplex_setallfv(1, [1 2]);",refMsg);
79 assert_checkerror("s1 = optimsimplex_setallfv(""s1"", [1 2]);",refMsg);
80 assert_checkerror("s1 = optimsimplex_setallfv(s1, ""1"");",refMsg2);
81 assert_checkerror("s1 = optimsimplex_setallfv(s1, %t);",refMsg2);
82
83 // optimsimplex_setallx
84 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setallx", 1);
85 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "optimsimplex_setallx", 2);
86 assert_checkerror("s1 = optimsimplex_setallx(1, [1 2]);",refMsg);
87 assert_checkerror("s1 = optimsimplex_setallx(""s1"", [1 2]);",refMsg);
88 assert_checkerror("s1 = optimsimplex_setallx(s1, ""1"");",refMsg2);
89 assert_checkerror("s1 = optimsimplex_setallx(s1, %t);",refMsg2);
90
91 // optimsimplex_setfv
92 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setfv", 1);
93 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setfv", 2);
94 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setfv", 2);
95 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setfv", 2);
96 refMsg5 = msprintf(_("%s: Wrong type for input argument #%d: A real vector expected.\n"), "optimsimplex_setfv", 3);
97 assert_checkerror("s1 = optimsimplex_setfv(1, 1, 1);",refMsg);
98 assert_checkerror("s1 = optimsimplex_setfv(""s1"", 1, 1);",refMsg);
99 assert_checkerror("s1 = optimsimplex_setfv(s1, ""1"", 1);",refMsg2);
100 assert_checkerror("s1 = optimsimplex_setfv(s1, [1 1], 1);",refMsg3);
101 assert_checkerror("s1 = optimsimplex_setfv(s1, 1.5, 1);",refMsg4);
102 assert_checkerror("s1 = optimsimplex_setfv(s1, 1, ""1"");",refMsg5);
103 assert_checkerror("s1 = optimsimplex_setfv(s1, 1, %t);",refMsg5);
104
105 // optimsimplex_setn
106 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setn", 1);
107 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setn", 2);
108 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setn", 2);
109 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setn", 2);
110 assert_checkerror("s1 = optimsimplex_setn(1, 1);",refMsg);
111 assert_checkerror("s1 = optimsimplex_setn(""s1"", 1);",refMsg);
112 assert_checkerror("s1 = optimsimplex_setn(s1, ""1"");",refMsg2);
113 assert_checkerror("s1 = optimsimplex_setn(s1, [1 1]);",refMsg3);
114 assert_checkerror("s1 = optimsimplex_setn(s1, 1.5);",refMsg4);
115
116 // optimsimplex_setnbve
117 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setnbve", 1);
118 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setnbve", 2);
119 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setnbve", 2);
120 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setnbve", 2);
121 assert_checkerror("s1 = optimsimplex_setnbve(1, 1);",refMsg);
122 assert_checkerror("s1 = optimsimplex_setnbve(""s1"", 1);",refMsg);
123 assert_checkerror("s1 = optimsimplex_setnbve(s1, ""1"");",refMsg2);
124 assert_checkerror("s1 = optimsimplex_setnbve(s1, [1 1]);",refMsg3);
125 assert_checkerror("s1 = optimsimplex_setnbve(s1, 1.5);",refMsg4);
126
127 // optimsimplex_setve
128 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setve", 1);
129 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setve", 2);
130 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setve", 2);
131 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setve", 2);
132 refMsg5 = msprintf(_("%s: Wrong type for input argument #%d: A real vector expected.\n"), "optimsimplex_setve", 3);
133 refMsg6 = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "optimsimplex_setve", 4);
134 assert_checkerror("s1 = optimsimplex_setve(1, 1, 1, 1);",refMsg);
135 assert_checkerror("s1 = optimsimplex_setve(""s1"", 1, 1, 1);",refMsg);
136 assert_checkerror("s1 = optimsimplex_setve(s1, ""1"", 1, 1);",refMsg2);
137 assert_checkerror("s1 = optimsimplex_setve(s1, [1 1], 1, 1);",refMsg3);
138 assert_checkerror("s1 = optimsimplex_setve(s1, 1.5, 1, 1);",refMsg4);
139 assert_checkerror("s1 = optimsimplex_setve(s1, 1, ""1"", 1);",refMsg5);
140 assert_checkerror("s1 = optimsimplex_setve(s1, 1, %t, 1);",refMsg5);
141 assert_checkerror("s1 = optimsimplex_setve(s1, 1, 1, ""1"");",refMsg6);
142 assert_checkerror("s1 = optimsimplex_setve(s1, 1, 1, %t);",refMsg6);
143
144 // optimsimplex_setx
145 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setx", 1);
146 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setx", 2);
147 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setx", 2);
148 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setx", 2);
149 refMsg5 = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "optimsimplex_setx", 3);
150 assert_checkerror("s1 = optimsimplex_setx(1, 1, 1);",refMsg);
151 assert_checkerror("s1 = optimsimplex_setx(""s1"", 1, 1);",refMsg);
152 assert_checkerror("s1 = optimsimplex_setx(s1, ""1"", 1);",refMsg2);
153 assert_checkerror("s1 = optimsimplex_setx(s1, [1 1], 1);",refMsg3);
154 assert_checkerror("s1 = optimsimplex_setx(s1, 1.5, 1);",refMsg4);
155 assert_checkerror("s1 = optimsimplex_setx(s1, 1, ""1"");",refMsg5);
156 assert_checkerror("s1 = optimsimplex_setx(s1, 1, %t);",refMsg5);