scilab/modules/api_scilab/tests/nonreg_tests/bug_11046.dia.ref

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2012 - Scilab Enterprises - Antoine ELIAS
   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 11046 -->
  13 //
  14 // <-- Bugzilla URL -->
  15 // http://bugzilla.scilab.org/11046
  16 //
  17 // <-- Short Description -->
  18 // Sometimes, OverLoad(0) did not call %_xxx but %x_xxx overload
  19 ilib_verbose(0);
  20 mkdir(pathconvert(TMPDIR+"/bug_11046"));
  21 cd(pathconvert(TMPDIR+"/bug_11046"));
  22 copyfile(SCI+"/modules/api_scilab/tests/nonreg_tests/bug_11046.c",pathconvert(TMPDIR+"/bug_11046/bug_11046.c",%F));
  23 ilib_build("gw_bug_11046", ["bug_11046", "sci_bug_11046"], "bug_11046.c", []);
  24 exec("loader.sce");
  25 function %_bug_11046()
  26     disp('OK default overload called.')
  27 endfunction
  28 //call %_myscifun
  29 bug_11046();
  30 Overload call macro
  31   "OK default overload called."
  32 function [x] = call_overload(a, b)
  33     bug_11046();
  34     x = 2;
  35 endfunction
  36 function call_overload2(a, b)
  37 endfunction
  38 //try to call %s_bug_11046
  39 call_overload2(1, call_overload(1,2));
  40 Overload call macro
  41   "OK default overload called."