// 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
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