Fix test because now we check multi-line error messages. 36/12136/2
Vincent COUVERT [Thu, 25 Jul 2013 15:17:45 +0000 (17:17 +0200)]
To test: test_run special_functions bug_10450

Change-Id: I8823fd2af2b99221947b05ed97d7cef65a2d46d3

scilab/modules/special_functions/tests/nonreg_tests/bug_10450.dia.ref
scilab/modules/special_functions/tests/nonreg_tests/bug_10450.tst

index d17db59..685d6fa 100644 (file)
 // mlist and hypermatrices types. 
 msgerr = msprintf(gettext("Function not defined for given argument type(s),\n"));
 l = list(1, 2);
-assert_checkerror("dlgamma(l)", msgerr);
-assert_checkerror("gammaln(l)", msgerr);
-assert_checkerror("gamma(l)", msgerr);
+assert_checkerror("dlgamma(l)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%l_dlgamma")]);
+assert_checkerror("gammaln(l)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%l_gammaln")]);
+assert_checkerror("gamma(l)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%l_gamma")]);
 tl =  tlist(["mytlist", "field1", "field2"], [], []);
-assert_checkerror("dlgamma(tl)", msgerr);
-assert_checkerror("gammaln(tl)", msgerr);
-assert_checkerror("gamma(tl)", msgerr);
+assert_checkerror("dlgamma(tl)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mytlist_dlgamma")]);
+assert_checkerror("gammaln(tl)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mytlist_gammaln")]);
+assert_checkerror("gamma(tl)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mytlist_gamma")]);
 ml = mlist(['mymlist','name','value'],['a','b';'c' 'd'],[1 2; 3 4]);
-assert_checkerror("dlgamma(ml)", msgerr);
-assert_checkerror("gammaln(ml)", msgerr);
-assert_checkerror("gamma(ml)", msgerr);
+assert_checkerror("dlgamma(ml)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mymlist_dlgamma")]);
+assert_checkerror("gammaln(ml)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mymlist_gammaln")]);
+assert_checkerror("gamma(ml)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mymlist_gamma")]);
 n(1, 1, 1, 1:2) = [1 2];
-assert_checkerror("dlgamma(n)", msgerr);
-assert_checkerror("gammaln(n)", msgerr);
-assert_checkerror("gamma(n)", msgerr);
+assert_checkerror("dlgamma(n)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%hm_dlgamma")]);
+assert_checkerror("gammaln(n)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%hm_gammaln")]);
+assert_checkerror("gamma(n)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%hm_gamma")]);
 function Y = %l_dlgamma(X),  Y = %T; endfunction
 function Y = %l_gammaln(X),  Y = %T; endfunction
 function Y = %l_gamma(X),  Y = %T; endfunction
index 2253278..0729439 100644 (file)
 msgerr = msprintf(gettext("Function not defined for given argument type(s),\n"));
 
 l = list(1, 2);
-assert_checkerror("dlgamma(l)", msgerr);
-assert_checkerror("gammaln(l)", msgerr);
-assert_checkerror("gamma(l)", msgerr);
+assert_checkerror("dlgamma(l)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%l_dlgamma")]);
+assert_checkerror("gammaln(l)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%l_gammaln")]);
+assert_checkerror("gamma(l)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%l_gamma")]);
 
 tl =  tlist(["mytlist", "field1", "field2"], [], []);
-assert_checkerror("dlgamma(tl)", msgerr);
-assert_checkerror("gammaln(tl)", msgerr);
-assert_checkerror("gamma(tl)", msgerr);
+assert_checkerror("dlgamma(tl)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mytlist_dlgamma")]);
+assert_checkerror("gammaln(tl)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mytlist_gammaln")]);
+assert_checkerror("gamma(tl)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mytlist_gamma")]);
 
 ml = mlist(['mymlist','name','value'],['a','b';'c' 'd'],[1 2; 3 4]);
-assert_checkerror("dlgamma(ml)", msgerr);
-assert_checkerror("gammaln(ml)", msgerr);
-assert_checkerror("gamma(ml)", msgerr);
+assert_checkerror("dlgamma(ml)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mymlist_dlgamma")]);
+assert_checkerror("gammaln(ml)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mymlist_gammaln")]);
+assert_checkerror("gamma(ml)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%mymlist_gamma")]);
 
 n(1, 1, 1, 1:2) = [1 2];
-assert_checkerror("dlgamma(n)", msgerr);
-assert_checkerror("gammaln(n)", msgerr);
-assert_checkerror("gamma(n)", msgerr);
+assert_checkerror("dlgamma(n)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%hm_dlgamma")]);
+assert_checkerror("gammaln(n)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%hm_gammaln")]);
+assert_checkerror("gamma(n)", [msgerr; msprintf(gettext("  check arguments or define function %s for overloading.\n"), "%hm_gamma")]);
 
 function Y = %l_dlgamma(X),  Y = %T; endfunction
 function Y = %l_gammaln(X),  Y = %T; endfunction