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