* Bug #9627 fixed - Checking arguments in optimsimplex_*() functions
[scilab.git] / scilab / modules / optimization / tests / nonreg_tests / bug_9627.dia.ref
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 // optimsimplex_check
21 s1 = optimsimplex_new ();
22 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_check", 1);
23 assert_checkerror("s1 = optimsimplex_check(""1"");",refMsg);
24 assert_checkerror("s1 = optimsimplex_check(%t);",refMsg);
25 // optimsimplex_getall
26 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getall", 1);
27 assert_checkerror("s1 = optimsimplex_getall(""1"");",refMsg);
28 assert_checkerror("s1 = optimsimplex_getall(%t);",refMsg);
29 // optimsimplex_getallfv
30 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getallfv", 1);
31 assert_checkerror("s1 = optimsimplex_getallfv(""1"");",refMsg);
32 assert_checkerror("s1 = optimsimplex_getallfv(%t);",refMsg);
33 // optimsimplex_getallx
34 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getallx", 1);
35 assert_checkerror("s1 = optimsimplex_getallx(""1"");",refMsg);
36 assert_checkerror("s1 = optimsimplex_getallx(%t);",refMsg);
37 // optimsimplex_getfv
38 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getfv", 1);
39 assert_checkerror("s1 = optimsimplex_getfv(""1"");",refMsg);
40 assert_checkerror("s1 = optimsimplex_getfv(%t);",refMsg);
41 // optimsimplex_getn
42 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getn", 1);
43 assert_checkerror("s1 = optimsimplex_getn(""1"");",refMsg);
44 assert_checkerror("s1 = optimsimplex_getn(%t);",refMsg);
45 // optimsimplex_getnbve
46 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getnbve", 1);
47 assert_checkerror("s1 = optimsimplex_getnbve(""1"");",refMsg);
48 assert_checkerror("s1 = optimsimplex_getnbve(%t);",refMsg);
49 // optimsimplex_getve
50 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getve", 1);
51 assert_checkerror("s1 = optimsimplex_getve(""1"");",refMsg);
52 assert_checkerror("s1 = optimsimplex_getve(%t);",refMsg);
53 // optimsimplex_getx
54 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_getx", 1);
55 assert_checkerror("s1 = optimsimplex_getx(""1"");",refMsg);
56 assert_checkerror("s1 = optimsimplex_getx(%t);",refMsg);
57 // optimsimplex_setall
58 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setall", 1);
59 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setall", 2);
60 assert_checkerror("s1 = optimsimplex_setall(1, s1);",refMsg);
61 assert_checkerror("s1 = optimsimplex_setall(""s1"", s1);",refMsg);
62 assert_checkerror("s1 = optimsimplex_setall(s1, 1);",refMsg2);
63 assert_checkerror("s1 = optimsimplex_setall(s1, ""s1"");",refMsg2);
64 // optimsimplex_setallfv
65 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setallfv", 1);
66 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real vector expected.\n"), "optimsimplex_setallfv", 2);
67 assert_checkerror("s1 = optimsimplex_setallfv(1, [1 2]);",refMsg);
68 assert_checkerror("s1 = optimsimplex_setallfv(""s1"", [1 2]);",refMsg);
69 assert_checkerror("s1 = optimsimplex_setallfv(s1, ""1"");",refMsg2);
70 assert_checkerror("s1 = optimsimplex_setallfv(s1, %t);",refMsg2);
71 // optimsimplex_setallx
72 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setallx", 1);
73 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "optimsimplex_setallx", 2);
74 assert_checkerror("s1 = optimsimplex_setallx(1, [1 2]);",refMsg);
75 assert_checkerror("s1 = optimsimplex_setallx(""s1"", [1 2]);",refMsg);
76 assert_checkerror("s1 = optimsimplex_setallx(s1, ""1"");",refMsg2);
77 assert_checkerror("s1 = optimsimplex_setallx(s1, %t);",refMsg2);
78 // optimsimplex_setfv
79 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setfv", 1);
80 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setfv", 2);
81 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setfv", 2);
82 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setfv", 2);
83 refMsg5 = msprintf(_("%s: Wrong type for input argument #%d: A real vector expected.\n"), "optimsimplex_setfv", 3);
84 assert_checkerror("s1 = optimsimplex_setfv(1, 1, 1);",refMsg);
85 assert_checkerror("s1 = optimsimplex_setfv(""s1"", 1, 1);",refMsg);
86 assert_checkerror("s1 = optimsimplex_setfv(s1, ""1"", 1);",refMsg2);
87 assert_checkerror("s1 = optimsimplex_setfv(s1, [1 1], 1);",refMsg3);
88 assert_checkerror("s1 = optimsimplex_setfv(s1, 1.5, 1);",refMsg4);
89 assert_checkerror("s1 = optimsimplex_setfv(s1, 1, ""1"");",refMsg5);
90 assert_checkerror("s1 = optimsimplex_setfv(s1, 1, %t);",refMsg5);
91 // optimsimplex_setn
92 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setn", 1);
93 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setn", 2);
94 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setn", 2);
95 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setn", 2);
96 assert_checkerror("s1 = optimsimplex_setn(1, 1);",refMsg);
97 assert_checkerror("s1 = optimsimplex_setn(""s1"", 1);",refMsg);
98 assert_checkerror("s1 = optimsimplex_setn(s1, ""1"");",refMsg2);
99 assert_checkerror("s1 = optimsimplex_setn(s1, [1 1]);",refMsg3);
100 assert_checkerror("s1 = optimsimplex_setn(s1, 1.5);",refMsg4);
101 // optimsimplex_setnbve
102 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setnbve", 1);
103 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setnbve", 2);
104 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setnbve", 2);
105 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setnbve", 2);
106 assert_checkerror("s1 = optimsimplex_setnbve(1, 1);",refMsg);
107 assert_checkerror("s1 = optimsimplex_setnbve(""s1"", 1);",refMsg);
108 assert_checkerror("s1 = optimsimplex_setnbve(s1, ""1"");",refMsg2);
109 assert_checkerror("s1 = optimsimplex_setnbve(s1, [1 1]);",refMsg3);
110 assert_checkerror("s1 = optimsimplex_setnbve(s1, 1.5);",refMsg4);
111 // optimsimplex_setve
112 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setve", 1);
113 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setve", 2);
114 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setve", 2);
115 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setve", 2);
116 refMsg5 = msprintf(_("%s: Wrong type for input argument #%d: A real vector expected.\n"), "optimsimplex_setve", 3);
117 refMsg6 = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "optimsimplex_setve", 4);
118 assert_checkerror("s1 = optimsimplex_setve(1, 1, 1, 1);",refMsg);
119 assert_checkerror("s1 = optimsimplex_setve(""s1"", 1, 1, 1);",refMsg);
120 assert_checkerror("s1 = optimsimplex_setve(s1, ""1"", 1, 1);",refMsg2);
121 assert_checkerror("s1 = optimsimplex_setve(s1, [1 1], 1, 1);",refMsg3);
122 assert_checkerror("s1 = optimsimplex_setve(s1, 1.5, 1, 1);",refMsg4);
123 assert_checkerror("s1 = optimsimplex_setve(s1, 1, ""1"", 1);",refMsg5);
124 assert_checkerror("s1 = optimsimplex_setve(s1, 1, %t, 1);",refMsg5);
125 assert_checkerror("s1 = optimsimplex_setve(s1, 1, 1, ""1"");",refMsg6);
126 assert_checkerror("s1 = optimsimplex_setve(s1, 1, 1, %t);",refMsg6);
127 // optimsimplex_setx
128 refMsg = msprintf(_("%s: Wrong type for input argument #%d: TSIMPLEX expected.\n"), "optimsimplex_setx", 1);
129 refMsg2 = msprintf(_("%s: Wrong type for input argument #%d: A real scalar expected.\n"), "optimsimplex_setx", 2);
130 refMsg3 = msprintf(_("%s: Wrong size for input argument #%d: A real scalar expected.\n"), "optimsimplex_setx", 2);
131 refMsg4 = msprintf(_("%s: Wrong value for input argument #%d: An integer expected.\n"), "optimsimplex_setx", 2);
132 refMsg5 = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "optimsimplex_setx", 3);
133 assert_checkerror("s1 = optimsimplex_setx(1, 1, 1);",refMsg);
134 assert_checkerror("s1 = optimsimplex_setx(""s1"", 1, 1);",refMsg);
135 assert_checkerror("s1 = optimsimplex_setx(s1, ""1"", 1);",refMsg2);
136 assert_checkerror("s1 = optimsimplex_setx(s1, [1 1], 1);",refMsg3);
137 assert_checkerror("s1 = optimsimplex_setx(s1, 1.5, 1);",refMsg4);
138 assert_checkerror("s1 = optimsimplex_setx(s1, 1, ""1"");",refMsg5);
139 assert_checkerror("s1 = optimsimplex_setx(s1, 1, %t);",refMsg5);