scilab/modules/gui/tests/nonreg_tests/bug_11657.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2012 - Scilab Enterprises - Vincent COUVERT
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7 //
   8 // <-- Non-regression test for bug 11657 -->
   9 // <-- TEST WITH GRAPHIC -->
  10 //
  11 // <-- Bugzilla URL -->
  12 // http://bugzilla.scilab.org/11657
  13 //
  14 // <-- Short Description -->
  15 // Setting the callback_type property of an uicontrol was not taken into account.
  16
  17 c = uicontrol(gcf(),"style","checkbox","string","Test","position", ..
  18         [10,400,100,15],"callback","disp(""Hello"")")
  19 assert_checkequal(c.callback_type, 0);
  20
  21 c.callback_type = -1;
  22 assert_checkequal(c.callback_type, -1);
  23
  24 refMsg = msprintf(_("Wrong value for ''%s'' property: %d, %d, %d or %d expected.\n"), "callback_type", -1, 0, 1, 2);
  25 assert_checkerror("c;c.callback_type = 10;", refMsg);
  26
  27 delete(gcf());