scilab/modules/xcos/tests/unit_tests/cscope.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2013 - Scilab Enterprises - Clément DAVID
   4 // Copyright (C) 2011 - DIGITEO - Clément DAVID
   5 //
   6 //  This file is distributed under the same license as the Scilab package.
   7 // =============================================================================
   8
   9 // <-- XCOS TEST -->
  10 // <-- TEST WITH GRAPHIC -->
  11
  12 // test scope values
  13
  14
  15 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/tests/unit_tests/cscope.zcos"));
  16 xcos_simulate(scs_m, 4);
  17
  18 function assert_checkcscope()
  19     f=gcf();
  20     assert_checkequal(size(f.children), [1 1])
  21
  22     a=gca();
  23     assert_checkequal(size(a.children), [4 1])
  24
  25     p1=a.children(1);
  26     p2=a.children(2);
  27     p3=a.children(3);
  28     p4=a.children(4);
  29
  30     assert_checkequal(f.figure_id, 20006);
  31     assert_checkequal(a.data_bounds, [30 -2 ; 60 3]);
  32     assert_checkequal(a.x_label.text, "t");
  33     assert_checkequal(a.y_label.text, "y");
  34
  35     assert_checkequal(size(p1.data), [301 2]);
  36     assert_checkequal(size(p2.data), [301 2]);
  37     assert_checkequal(size(p3.data), [301 2]);
  38     assert_checkequal(size(p4.data), [301 2]);
  39
  40     assert_checkequal(p1.polyline_style, 1);
  41     assert_checkequal(p2.polyline_style, 1);
  42     assert_checkequal(p3.polyline_style, 1);
  43     assert_checkequal(p4.polyline_style, 1);
  44
  45     assert_checkequal(p1.line_mode, "on");
  46     assert_checkequal(p2.line_mode, "on");
  47     assert_checkequal(p3.line_mode, "off");
  48     assert_checkequal(p4.line_mode, "on");
  49
  50     assert_checkequal(p1.mark_mode, "off");
  51     assert_checkequal(p2.mark_mode, "off");
  52     assert_checkequal(p3.mark_mode, "on");
  53     assert_checkequal(p4.mark_mode, "off");
  54 endfunction
  55 assert_checkcscope();
  56
  57 // Simulate again to check multi-simulations cases
  58 xcos_simulate(scs_m, 4);
  59 assert_checkcscope();
  60