1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2012 - DIGITEO - Allan CORNET
4//
5//  This file is distributed under the same license as the Scilab package.
6// =============================================================================
7//
8//
9// <-- Non-regression test for bug 10797 -->
10//
11// <-- Bugzilla URL -->
12// http://bugzilla.scilab.org/show_bug.cgi?id=10797
13//
14// <-- Short Description -->
15// contour, contour2d, contourf did not check input arguments
16
17X = 1:10;
18Y = 1:10;
19Z = rand(10, 10);
20NZ = 5;
21rect = [0, 0, 11, 11];
22
23msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour2d", 1);
24assert_checkerror ("contour2d(''X'', Y, Z, NZ , rect);", msgerr);
25msgerr = msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour2d", 1);
26assert_checkerror ("contour2d(1, Y, Z, NZ , rect);", msgerr);
27msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour2d", 2);
28assert_checkerror ("contour2d(X, ''Y'', Z, NZ , rect);", msgerr);
29msgerr = msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour2d", 2);
30assert_checkerror ("contour2d(X, 1, Z, NZ , rect);", msgerr);
31msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix or Scilab function expected.\n"), "contour2d", 3);
32assert_checkerror ("contour2d(X, Y, ''Z'', NZ , rect);", msgerr);
33
34msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour", 1);
35assert_checkerror ("contour(''X'', Y, Z, NZ , rect);", msgerr);
36msgerr = msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour", 1);
37assert_checkerror ("contour(1, Y, Z, NZ , rect);", msgerr);
38msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contour", 2);
39assert_checkerror ("contour(X, ''Y'', Z, NZ , rect);", msgerr);
40msgerr = msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contour", 2);
41assert_checkerror ("contour(X, 1, Z, NZ , rect);", msgerr);
42msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix or Scilab function expected.\n"), "contour", 3);
43assert_checkerror ("contour(X, Y, ''Z'', NZ , rect);", msgerr);
44
45msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contourf", 1);
46assert_checkerror ("contourf(''X'', Y, Z, NZ , rect);", msgerr);
47msgerr = msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contourf", 1);
48assert_checkerror ("contourf(1, Y, Z, NZ , rect);", msgerr);
49msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Real vector expected.\n"), "contourf", 2);
50assert_checkerror ("contourf(X, ''Y'', Z, NZ , rect);", msgerr);
51msgerr = msprintf(gettext("%s: Wrong size for input argument #%d: Real vector expected.\n"), "contourf", 2);
52assert_checkerror ("contourf(X, 1, Z, NZ , rect);", msgerr);
53msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "contourf", 3);
54assert_checkerror ("contourf(X, Y, ''Z'', NZ , rect);", msgerr);
55