Xcos tests: regenerate .dia.ref files and fix minor .tst 06/16706/3
Paul Bignier [Fri, 19 Jun 2015 07:38:11 +0000 (09:38 +0200)]
 * Adapt to YaSp new display and redefine messagebox to avoid popups when necessary

Change-Id: I7e8fefe0200485c481f439574ea92003ef09c4bd

35 files changed:
scilab/modules/xcos/tests/nonreg_tests/bug_10697.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_11975.unix.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_12384.tst
scilab/modules/xcos/tests/nonreg_tests/bug_12384.unix.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_12651.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_12651.tst
scilab/modules/xcos/tests/nonreg_tests/bug_13011.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_13436.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_4715.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_4715.tst
scilab/modules/xcos/tests/nonreg_tests/bug_6797.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_7770.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/dflipflop.dia.ref
scilab/modules/xcos/tests/unit_tests/Integer/dlatch.dia.ref
scilab/modules/xcos/tests/unit_tests/SEP_066_Xcos_bad_hooks.dia.ref
scilab/modules/xcos/tests/unit_tests/SEP_066_Xcos_bad_hooks.tst
scilab/modules/xcos/tests/unit_tests/SEP_066_Xcos_multi_hooks.dia.ref
scilab/modules/xcos/tests/unit_tests/SEP_066_Xcos_multi_hooks.tst
scilab/modules/xcos/tests/unit_tests/buildouttb.dia.ref
scilab/modules/xcos/tests/unit_tests/cmscope.dia.ref
scilab/modules/xcos/tests/unit_tests/computational_functions.dia.ref
scilab/modules/xcos/tests/unit_tests/end_scicosim.dia.ref
scilab/modules/xcos/tests/unit_tests/getscicosvars.dia.ref
scilab/modules/xcos/tests/unit_tests/phase_simulation.dia.ref
scilab/modules/xcos/tests/unit_tests/pointer_xproperty.dia.ref
scilab/modules/xcos/tests/unit_tests/pre_xcos_simulate.dia.ref
scilab/modules/xcos/tests/unit_tests/scicos_filesassociation.unix.dia.ref
scilab/modules/xcos/tests/unit_tests/scicosim.dia.ref
scilab/modules/xcos/tests/unit_tests/set_blockerror.dia.ref
scilab/modules/xcos/tests/unit_tests/set_xproperty.dia.ref
scilab/modules/xcos/tests/unit_tests/var2vec.dia.ref
scilab/modules/xcos/tests/unit_tests/vec2var.dia.ref
scilab/modules/xcos/tests/unit_tests/xcosBlockEval.dia.ref
scilab/modules/xcos/tests/unit_tests/xcosPalExport.dia.ref
scilab/modules/xcos/tests/unit_tests/xcosPalExport.tst

index 846437d..8faa1ad 100644 (file)
@@ -21,5 +21,4 @@ function post_xcos_simulate(%cpr, scs_m, needcompile)
 endfunction
 // simulate
 xcos_simulate(scs_m, 4);
- post_xcos_simulate   
+ post_xcos_simulate
index a800060..3502e4c 100644 (file)
@@ -42,7 +42,6 @@ assert_checktrue(importXcosDiagram("SCI/modules/xcos/demos/ModelicaBlocks/Hydrau
 [cpr, ok] = xcos_compile(scs_m);
 --------------------------------------------\
  Main Modelica : TMPDIR/Hydraulics_im.mo
-
  Flat Modelica : TMPDIR/Hydraulics_imf.mo
  Simulation C code :TMPDIR/Hydraulics_im.c
 WARNING: Diagram contains implicit blocks, compiling for implicit Solver.
index 44269e5..57dc5ca 100644 (file)
 // http://bugzilla.scilab.org/show_bug.cgi?id=12384
 //
 // <-- Short Description -->
-// Algebraic loop error while compiling a diagram with a modelica part linked 
+// Algebraic loop error while compiling a diagram with a modelica part linked
 // to another modelica part with an explicit link (using a sensor).
 
 ilib_verbose(0);
 
+// Redefining messagebox() to avoid popup from c_pass2.sci
+prot = funcprot();
+funcprot(0);
+function messagebox(msg, modal, msg_title)
+endfunction
+funcprot(prot);
+
 importXcosDiagram(SCI+"/modules/xcos/tests/nonreg_tests/bug_12384.zcos");
 Info = scicos_simulate(scs_m,list());
 
index 1a4659f..6ce5d6f 100644 (file)
 // http://bugzilla.scilab.org/show_bug.cgi?id=12384
 //
 // <-- Short Description -->
-// Algebraic loop error while compiling a diagram with a modelica part linked 
+// Algebraic loop error while compiling a diagram with a modelica part linked
 // to another modelica part with an explicit link (using a sensor).
 ilib_verbose(0);
+// Redefining messagebox() to avoid popup from c_pass2.sci
+prot = funcprot();
+funcprot(0);
+function messagebox(msg, modal, msg_title)
+endfunction
+funcprot(prot);
 importXcosDiagram(SCI+"/modules/xcos/tests/nonreg_tests/bug_12384.zcos");
 Info = scicos_simulate(scs_m,list());
 --------------------------------------------\
  Main Modelica : TMPDIR/Loop_im.mo
-
  Flat Modelica : TMPDIR/Loop_imf.mo
  Simulation C code :TMPDIR/Loop_im.c
index 6f76e9d..51b6a4f 100644 (file)
 // The scicos_simulate's 'nw' flag did not works while re-using an Info
 // simulation state.
 // this demo contains 2 scopes
-importXcosDiagram SCI/modules/xcos/demos/Simple_Demo.zcos
- ans  =
-  T  
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/demos/Simple_Demo.zcos"));
 // clear any simulation state
 Info = list();
 // first call perform a full-compilation, then ignore some blocks
-Info = scicos_simulate(scs_m, Info, 'nw');
+Info = scicos_simulate(scs_m, Info, "nw");
 blocks=list2vec(Info(2).sim.funs);
 assert_checkfalse(or(blocks == "cscope"));
 assert_checktrue(or(blocks == "trash"));
 // second call perform a partial-compilation, and should continue to ignore
 // some blocks
-Info = scicos_simulate(scs_m, Info, 'nw');
+Info = scicos_simulate(scs_m, Info, "nw");
 blocks=list2vec(Info(2).sim.funs);
 assert_checkfalse(or(blocks == "cscope"));
 assert_checktrue(or(blocks == "trash"));
index 4ae0ef9..1fda0a6 100644 (file)
 // simulation state.
 
 // this demo contains 2 scopes
-importXcosDiagram SCI/modules/xcos/demos/Simple_Demo.zcos
+assert_checktrue(importXcosDiagram("SCI/modules/xcos/demos/Simple_Demo.zcos"));
 
 // clear any simulation state
 Info = list();
 
 // first call perform a full-compilation, then ignore some blocks
-Info = scicos_simulate(scs_m, Info, 'nw');
+Info = scicos_simulate(scs_m, Info, "nw");
 blocks=list2vec(Info(2).sim.funs);
 assert_checkfalse(or(blocks == "cscope"));
 assert_checktrue(or(blocks == "trash"));
 
 // second call perform a partial-compilation, and should continue to ignore
 // some blocks
-Info = scicos_simulate(scs_m, Info, 'nw');
+Info = scicos_simulate(scs_m, Info, "nw");
 blocks=list2vec(Info(2).sim.funs);
 assert_checkfalse(or(blocks == "cscope"));
 assert_checktrue(or(blocks == "trash"));
index 91118fe..ef48c06 100644 (file)
@@ -24,7 +24,6 @@ importXcosDiagram(SCI+"/modules/xcos/tests/nonreg_tests/bug_12384.zcos");
 xcos_simulate(scs_m, 4);
 --------------------------------------------\
  Main Modelica : TMPDIR/Loop_im.mo
-
  Flat Modelica : TMPDIR/Loop_imf.mo
  Simulation C code :TMPDIR/Loop_im.c
 WARNING: Diagram contains implicit blocks, compiling for implicit Solver.
index b68d7b9..77a3b89 100644 (file)
@@ -18,7 +18,7 @@
 //
 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/tests/nonreg_tests/bug_13436.zcos"));
 xcos_simulate(scs_m, 4);
-// step = 0 without the delay 
+// step = 0 without the delay
 assert_checkequal(res.values(:,1), ones(300, 1));
 // step = 0 with the delay = 1
 assert_checkequal(res.values(:,2), [zeros(10, 1); ones(290, 1)]);
index 3f16b58..26af5ed 100644 (file)
@@ -4,21 +4,20 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- XCOS TEST -->
+//
 // <-- Non-regression test for bug 4715 -->
 //
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=4715
 //
 // <-- Short Description -->
-// 
-// 
-importXcosDiagram(SCI+'/modules/xcos/tests/nonreg_tests/bug_4715.zcos');
+// CLR and DLR blocks ignore context set by scicos_simulate
+//
+importXcosDiagram(SCI+"/modules/xcos/tests/nonreg_tests/bug_4715.zcos");
 %scicos_context.a = 0.1;
 %scicos_context.b = 0.1;
 global AA
-Info = scicos_simulate(scs_m,list(),%scicos_context,'nw');
+Info = scicos_simulate(scs_m,list(),%scicos_context,"nw");
 res = AA;
-assert_checkalmostequal(res, 1.56016557141035550060, 1E-4)
- ans  =
-  T  
+assert_checkalmostequal(res, 1.56016557141035550060, 1E-4);
index 5d203fd..6e18079 100644 (file)
 //
 // <-- Short Description -->
 // CLR and DLR blocks ignore context set by scicos_simulate
-// 
+//
 
-importXcosDiagram(SCI+'/modules/xcos/tests/nonreg_tests/bug_4715.zcos');
+importXcosDiagram(SCI+"/modules/xcos/tests/nonreg_tests/bug_4715.zcos");
 %scicos_context.a = 0.1;
 %scicos_context.b = 0.1;
 global AA
-Info = scicos_simulate(scs_m,list(),%scicos_context,'nw');
+Info = scicos_simulate(scs_m,list(),%scicos_context,"nw");
 res = AA;
 
-assert_checkalmostequal(res, 1.56016557141035550060, 1E-4)
+assert_checkalmostequal(res, 1.56016557141035550060, 1E-4);
index 22d66f9..bfdcba5 100644 (file)
@@ -4,8 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-// <-- XCOS TEST -->
-//
 // <-- Non-regression test for bug 6541 -->
 //
 // <-- Bugzilla URL -->
index 7aa3ac9..8bd507b 100644 (file)
@@ -30,7 +30,7 @@ if ~result then bugmes();quit;end
 [%cpr,ok] = xcos_compile(scs_m);
 --------------------------------------------\
  Main Modelica : TMPDIR/RLC_Modelica_im.mo
-
  Flat Modelica : TMPDIR/RLC_Modelica_imf.mo
  Simulation C code :TMPDIR/RLC_Modelica_im.c
+WARNING: Diagram contains implicit blocks, compiling for implicit Solver.
 if ~ok then bugmes();quit;end
index b206ed3..0e25992 100644 (file)
@@ -17,7 +17,6 @@ endfunction
 funcprot(prot);
 A_ref = int8(zeros(128,1));
 try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
 !No continuous-time state. Thresholds are ignored; this             !
 !                                                                   !
 !may be OK if you don't generate external events with them.         !
index be7fea6..9a9d172 100644 (file)
@@ -20,7 +20,6 @@ function messagebox(msg, modal, msg_title)
 endfunction
 funcprot(prot);
 try scicos_simulate(scs_m, 'nw'); catch disp(lasterror()); end
 !No continuous-time state. Thresholds are ignored; this             !
 !                                                                   !
 !may be OK if you don't generate external events with them.         !
index 899e0d2..d6706f7 100644 (file)
 global status;
 status = [];
 function continueSimulation = pre_xcos_simulate(scs_m, needcompile)
-  global status;
-  1 + "string"
-  status = [status 'pre_called'];
+    global status;
+    1 + "string"
+    status = [status "pre_called"];
 endfunction
 function post_xcos_simulate(%cpr, scs_m, needcompile)
-  global status;
-  1 + "string"
-  status = [status 'post_called'];
+    global status;
+    1 + "string"
+    status = [status "post_called"];
 endfunction
 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/demos/Simple_Demo.zcos"));
 xcos_simulate(scs_m, 4);
- Error occurred in pre_xcos_simulate: Cancelling simulation.   
- at line 4 of function pre_xcos_simulate
-assert_checkequal(status, [])
- ans  =
-  T  
+ Error occurred in pre_xcos_simulate: Cancelling simulation.
+ at line 1 of function pre_xcos_simulate
+assert_checkequal(status, []);
index a2a4c7b..15aa748 100644 (file)
@@ -13,20 +13,20 @@ global status;
 status = [];
 
 function continueSimulation = pre_xcos_simulate(scs_m, needcompile)
-  global status;
+    global status;
 
-  1 + "string"
-  status = [status 'pre_called'];
+    1 + "string"
+    status = [status "pre_called"];
 endfunction
 
 function post_xcos_simulate(%cpr, scs_m, needcompile)
-  global status;
+    global status;
 
-  1 + "string"
-  status = [status 'post_called'];
+    1 + "string"
+    status = [status "post_called"];
 endfunction
 
 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/demos/Simple_Demo.zcos"));
 xcos_simulate(scs_m, 4);
 
-assert_checkequal(status, [])
+assert_checkequal(status, []);
index 37f61ee..d919d70 100644 (file)
 global status;
 status = [];
 function continueSimulation = pre1(scs_m, needcompile)
-  global status;
-  [linenum,mac]=where();
-  status = [status mac(1)];
-  continueSimulation=%t;
+    global status;
+    [linenum,mac]=where();
+    status = [status mac(1)];
+    continueSimulation=%t;
 endfunction
 function continueSimulation = pre2(scs_m, needcompile)
-  global status;
-  [linenum,mac]=where();
-  status = [status mac(1)];
-  continueSimulation=%t;
+    global status;
+    [linenum,mac]=where();
+    status = [status mac(1)];
+    continueSimulation=%t;
 endfunction
 function continueSimulation = pre3(scs_m, needcompile)
-  global status;
-  [linenum,mac]=where();
-  status = [status mac(1)];
-  continueSimulation=%t;
+    global status;
+    [linenum,mac]=where();
+    status = [status mac(1)];
+    continueSimulation=%t;
 endfunction
 function post1(%cpr, scs_m, needcompile)
-  global status;
-  [linenum,mac]=where();
-  status = [status mac(1)];
+    global status;
+    [linenum,mac]=where();
+    status = [status mac(1)];
 endfunction
 function post2(%cpr, scs_m, needcompile)
-  global status;
-  [linenum,mac]=where();
-  status = [status mac(1)];
+    global status;
+    [linenum,mac]=where();
+    status = [status mac(1)];
 endfunction
 // register the hooks
-pre_xcos_simulate=list('pre1', 'pre2', 'pre3');
-post_xcos_simulate=list('post1', 'post2');
+pre_xcos_simulate=list("pre1", "pre2", "pre3");
+post_xcos_simulate=list("post1", "post2");
 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/demos/Simple_Demo.zcos"));
 xcos_simulate(scs_m, 4);
-assert_checkequal(status, ['pre1', 'pre2', 'pre3', 'post1', 'post2'])
- ans  =
-  T  
+assert_checkequal(status, ["pre1", "pre2", "pre3", "post1", "post2"]);
index 72897bd..98e27ab 100644 (file)
@@ -13,50 +13,50 @@ global status;
 status = [];
 
 function continueSimulation = pre1(scs_m, needcompile)
-  global status;
+    global status;
 
-  [linenum,mac]=where();
-  status = [status mac(1)];
-  continueSimulation=%t;
+    [linenum,mac]=where();
+    status = [status mac(1)];
+    continueSimulation=%t;
 endfunction
 
 function continueSimulation = pre2(scs_m, needcompile)
-  global status;
+    global status;
 
-  [linenum,mac]=where();
-  status = [status mac(1)];
-  continueSimulation=%t;
+    [linenum,mac]=where();
+    status = [status mac(1)];
+    continueSimulation=%t;
 endfunction
 
 function continueSimulation = pre3(scs_m, needcompile)
-  global status;
+    global status;
 
-  [linenum,mac]=where();
-  status = [status mac(1)];
-  continueSimulation=%t;
+    [linenum,mac]=where();
+    status = [status mac(1)];
+    continueSimulation=%t;
 endfunction
 
 function post1(%cpr, scs_m, needcompile)
-  global status;
+    global status;
 
-  [linenum,mac]=where();
-  status = [status mac(1)];
+    [linenum,mac]=where();
+    status = [status mac(1)];
 endfunction
 
 function post2(%cpr, scs_m, needcompile)
-  global status;
+    global status;
 
-  [linenum,mac]=where();
-  status = [status mac(1)];
+    [linenum,mac]=where();
+    status = [status mac(1)];
 endfunction
 
 // register the hooks
-pre_xcos_simulate=list('pre1', 'pre2', 'pre3');
-post_xcos_simulate=list('post1', 'post2');
+pre_xcos_simulate=list("pre1", "pre2", "pre3");
+post_xcos_simulate=list("post1", "post2");
 
 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/demos/Simple_Demo.zcos"));
 xcos_simulate(scs_m, 4);
 
-assert_checkequal(status, ['pre1', 'pre2', 'pre3', 'post1', 'post2'])
+assert_checkequal(status, ["pre1", "pre2", "pre3", "post1", "post2"]);
 
 
index 6ed6d0b..b66f862 100644 (file)
@@ -1,2 +1,8 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 ierr=execstr("buildouttb()","errcatch");
 if ierr <> 77 then bugmes();quit;end
index 218e85e..62ecc05 100644 (file)
@@ -13,26 +13,32 @@ xcos_simulate(scs_m, 4);
 function assert_checkcmscope()
     f=gcf();
     assert_checkequal(size(f.children), [3 1])
+    
     a1=f.children(1);
     a2=f.children(2);
     a3=f.children(3);
     assert_checkequal(size(a1.children), [2 1])
     assert_checkequal(size(a2.children), [1 1])
     assert_checkequal(size(a3.children), [1 1])
+    
     p11=a1.children(1);
     p12=a1.children(2);
     p21=a2.children(1);
     p31=a3.children(1);
+    
     assert_checkequal(f.figure_id, 20003);
+    
     assert_checkequal(a1.data_bounds, [0 -30 ; 90 30]);
     assert_checkequal(a2.data_bounds, [0 -5 ; 60 5]);
     assert_checkequal(a3.data_bounds, [0 -1 ; 30 1]);
+    
     assert_checkequal(a1.x_label.text, "t");
     assert_checkequal(a2.x_label.text, "t");
     assert_checkequal(a3.x_label.text, "t");
     assert_checkequal(a1.y_label.text, "y");
     assert_checkequal(a2.y_label.text, "y");
     assert_checkequal(a3.y_label.text, "y");
+    
     assert_checkequal(size(p11.data), [299 2]);
     assert_checkequal(size(p12.data), [299 2]);
     assert_checkequal(size(p21.data), [299 2]);
index 9447fda..644993c 100644 (file)
@@ -394,21 +394,21 @@ BLOCKS_CPP = [
 //
 // binary case or source case
 if getos() <> "Windows" then
-  LIB = SCI + "/../../lib/scilab/libsciscicos_blocks" + getdynlibext();
-  if ~isfile(LIB) then
-    LIB = SCI + "/modules/scicos_blocks/.libs/libsciscicos_blocks" + getdynlibext();
-    if ~isfile(LIB) then bugmes();quit;end
-  end
-  if execstr("link(LIB, BLOCKS_C, ""c"");", "errcatch") <> 0 then bugmes();quit;end
-  if execstr("link(LIB, BLOCKS_FORTRAN, ""f"");", "errcatch") <> 0 then bugmes();quit;end
-  if execstr("link(LIB, BLOCKS_CPP, ""c"");", "errcatch") <> 0 then bugmes();quit;end
+    LIB = SCI + "/../../lib/scilab/libsciscicos_blocks" + getdynlibext();
+    if ~isfile(LIB) then
+        LIB = SCI + "/modules/scicos_blocks/.libs/libsciscicos_blocks" + getdynlibext();
+        if ~isfile(LIB) then bugmes();quit;end
+    end
+    if execstr("link(LIB, BLOCKS_C, ""c"");", "errcatch") <> 0 then bugmes();quit;end
+    if execstr("link(LIB, BLOCKS_FORTRAN, ""f"");", "errcatch") <> 0 then bugmes();quit;end
+    if execstr("link(LIB, BLOCKS_CPP, ""c"");", "errcatch") <> 0 then bugmes();quit;end
 else
-  LIBCCPP = SCI + "/bin/scicos_blocks" + getdynlibext();
-  LIBFOR = SCI + "/bin/scicos_blocks_f" + getdynlibext();
-  if ~isfile(LIBCCPP) then bugmes();quit;end
-  if ~isfile(LIBFOR) then bugmes();quit;end
-  if execstr("link(LIBCCPP, BLOCKS_C, ""c"");", "errcatch") <> 0 then bugmes();quit;end
-  if execstr("link(LIBCCPP, BLOCKS_CPP, ""c"");", "errcatch") <> 0 then bugmes();quit;end
-  if execstr("link(LIBFOR, BLOCKS_FORTRAN, ""f"");", "errcatch") <> 0 then bugmes();quit;end
+    LIBCCPP = SCI + "/bin/scicos_blocks" + getdynlibext();
+    LIBFOR = SCI + "/bin/scicos_blocks_f" + getdynlibext();
+    if ~isfile(LIBCCPP) then bugmes();quit;end
+    if ~isfile(LIBFOR) then bugmes();quit;end
+    if execstr("link(LIBCCPP, BLOCKS_C, ""c"");", "errcatch") <> 0 then bugmes();quit;end
+    if execstr("link(LIBCCPP, BLOCKS_CPP, ""c"");", "errcatch") <> 0 then bugmes();quit;end
+    if execstr("link(LIBFOR, BLOCKS_FORTRAN, ""f"");", "errcatch") <> 0 then bugmes();quit;end
 end
 ulink();
index 28c9080..45a2e61 100644 (file)
@@ -1,2 +1,8 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 ierr=execstr("end_scicosim ()","errcatch");
 if ierr <> 999 then bugmes();quit;end
index 701fadd..44fed62 100644 (file)
@@ -1,2 +1,8 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 ierr=execstr("[myvar]=getscicosvars(''blocks'')","errcatch");
 if ierr <> 999 then bugmes();quit;end
index be3634b..3a27b08 100644 (file)
@@ -1,2 +1,8 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 ierr=execstr("[psim]=phase_simulation()","errcatch");
 if ierr <> 999 then bugmes();quit;end
index f248519..b929457 100644 (file)
@@ -1,2 +1,8 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 ierr=execstr("[xprop]=pointer_xproperty()","errcatch") ;
 if ierr <> 999 then bugmes();quit;end
index eacfd64..1779e21 100644 (file)
@@ -15,15 +15,13 @@ endfunction
 // Register function
 pre_xcos_simulate = list("fail_pre_simulate");
 xcos_simulate(scs_m, 4);
- Calling fail_pre_simulate   
+ Calling fail_pre_simulate
 assert_checkfalse(isdef('cumsum_r'));
 // Register function
 clear pre_xcos_simulate
 pre_xcos_simulate = fail_pre_simulate;
 xcos_simulate(scs_m, 4);
- Calling fail_pre_simulate   
+ Calling fail_pre_simulate
 assert_checkfalse(isdef('cumsum_r'));
 function continueSimulation = analyze_pre_simulate(scs_m, needcompile)
 // Retrieve all objects
@@ -55,26 +53,18 @@ endfunction
 clear pre_xcos_simulate
 pre_xcos_simulate = list("analyze_pre_simulate");
 xcos_simulate(scs_m, 4);
- Diagram Analysis:   
- Found 24 Blocks.   
- Found 22 Links.   
- Found 0 Other component.   
+ Diagram Analysis:
+ Found 24 Blocks.
+ Found 22 Links.
+ Found 0 Other component.
 assert_checktrue(isdef('cumsum_r'));
 clear('cumsum_r');
 // Register function
 clear pre_xcos_simulate
 pre_xcos_simulate = analyze_pre_simulate;
 xcos_simulate(scs_m, 4);
- Diagram Analysis:   
- Found 24 Blocks.   
- Found 22 Links.   
- Found 0 Other component.   
+ Diagram Analysis:
+ Found 24 Blocks.
+ Found 22 Links.
+ Found 0 Other component.
 assert_checktrue(isdef('cumsum_r'));
index 04bff1a..2b5439d 100644 (file)
@@ -6,8 +6,11 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 if getos() == 'Windows' then
+  
   ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cos'')','errcatch');
   if ierr <> 0 then bugmes();quit;end
+  
   ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cosf'')','errcatch');
   if ierr <> 0 then bugmes();quit;end
+  
 end
index 2d93d68..d00750d 100644 (file)
@@ -5,5 +5,5 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- JVM NOT MANDATORY -->
-ierr=execstr("scicosim()","errcatch"); 
+ierr=execstr("scicosim()","errcatch");
 if ierr <> 77 then bugmes();quit;end
index d08fb74..5274d0e 100644 (file)
@@ -1,3 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 ierr=execstr("set_blockerror(-1)","errcatch");
 if ierr <> 999 then bugmes();quit;end
 ierr=execstr("set_blockerror(-2)","errcatch");
index 7a97ac6..d4b5be1 100644 (file)
@@ -1,3 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 ierr=execstr("set_xproperty(1)","errcatch");
 if ierr <> 999 then bugmes();quit;end
 ierr=execstr("set_xproperty(-1)","errcatch");
index a5de265..137f476 100644 (file)
@@ -1,3 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 a=list("cos",[1.1,2]);
 b=var2vec(a);
 if type(b) <> 1 then bugmes();quit;end
index 5c26e36..5abd466 100644 (file)
@@ -1,3 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 a=list("cos",[1.1,2]);
 b=var2vec(a);
 c=vec2var(b);
index ec26b9e..3ea4f76 100644 (file)
@@ -20,10 +20,13 @@ ioBlocks = ["IN_f", "OUT_f", "INIMPL_f", "OUTIMPL_f", "CLKIN_f", "CLKOUT_f", ..
 for index = 1:size(ioBlocks, '*')
     cmd = "blk = " + ioBlocks(index) + "(""define"");";
     if (execstr(cmd, "errcatch") <> 0) then bugmes();quit;end;
+    
     // context and block settings
     context = ["myVariable = 42;"];
     blk.graphics.exprs = "myVariable";
+    
     new_blk = xcosBlockEval(evstr(ioBlocks(index)), blk, context);
+    
     // check settings
     if (new_blk.graphics.exprs <> "myVariable") then bugmes();quit;end;
     if (new_blk.model.ipar <> 42) then bugmes();quit;end;
index 9865436..548c374 100644 (file)
@@ -9,26 +9,16 @@
 // White-box test for the xcosPalExport macro.
 path = TMPDIR + "/palette.sod";
 pal = xcosPal();
-xcosPalExport(pal, path)
- ans  =
-  T  
+assert_checktrue(xcosPalExport(pal, path));
 if ~isfile(path) then bugmes();quit;end
 deletefile(path);
-[status, msg] = xcosPalExport(pal, path)
- msg  =
-    
- status  =
-  T  
+[status, msg] = xcosPalExport(pal, path);
+assert_checkequal(msg, "Success");
+assert_checktrue(status);
 if ~isfile(path) then bugmes();quit;end
 deletefile(path);
 savedPal = pal;
-xcosPalExport(pal, path)
- ans  =
-  T  
+assert_checktrue(xcosPalExport(pal, path));
 clear pal;
 import_from_hdf5(path);
-if ~and(savedPal == pal) then bugmes();quit;end
+assert_checktrue(and(savedPal == pal));
index e01cb86..bc2c698 100644 (file)
@@ -13,18 +13,20 @@ path = TMPDIR + "/palette.sod";
 
 pal = xcosPal();
 
-xcosPalExport(pal, path)
+assert_checktrue(xcosPalExport(pal, path));
 if ~isfile(path) then pause, end
 deletefile(path);
 
-[status, msg] = xcosPalExport(pal, path)
+[status, msg] = xcosPalExport(pal, path);
+assert_checkequal(msg, "Success");
+assert_checktrue(status);
 if ~isfile(path) then pause, end
 deletefile(path);
 
 savedPal = pal;
-xcosPalExport(pal, path)
+assert_checktrue(xcosPalExport(pal, path));
 
 clear pal;
 import_from_hdf5(path);
-if ~and(savedPal == pal) then pause, end
+assert_checktrue(and(savedPal == pal));