* Bug #15207 fixed : `xcos(scs_m)` did not work for sub-systems.

[scilab.git] / scilab / modules / xcos / tests / unit_tests / xcos.tst

diff --git a/scilab/modules/xcos/tests/unit_tests/xcos.tst b/scilab/modules/xcos/tests/unit_tests/xcos.tst
index d8c5531..cdc8c54 100644 (file)
--- a/scilab/modules/xcos/tests/unit_tests/xcos.tst
+++ b/scilab/modules/xcos/tests/unit_tests/xcos.tst
@@ -2,36 +2,36 @@
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2009 - DIGITEO
 // Copyright (C) 2012 - Scilab Enterprises - Clement DAVID
+// Copyright (C) 2017 - ESI Group - Clement DAVID
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
 
-// <-- TEST WITH GRAPHIC -->
-// <-- NOT FIXED -->
-
-// libs are not loaded at startup
-if isdef("BIGSOM_f") then pause, end
+// <-- TEST WITH XCOS -->
+// <-- INTERACTIVE TEST -->
 
 // we launch xcos then libs should be loaded
 xcos();
-sleep(500);
-if ~isdef("BIGSOM_f") then pause, end
 
 // we launch xcos with an xcos demo file
 xcos(SCI + "/modules/xcos/demos/Simple_Demo.zcos");
-sleep(500);
 
 // we launch xcos with an xcos demo file with full path resolution
 xcos("SCI/modules/xcos/demos/Simple_Demo.zcos");
-sleep(500);
 
 // we launch xcos with cosf file
 xcos(SCI + "/modules/scicos/palettes/Branching.cosf");
-sleep(500);
 
 // we launch xcos with a scs_m instance
 scs_m = scicos_diagram();
 scs_m.objs($+1) = BIGSOM_f("define");
 xcos(scs_m);
-sleep(500);
+
+// we launch xcos with a full scs_m
+importXcosDiagram(SCI+"/modules/xcos/demos/Discrete-KalmanFilter.zcos");
+xcos(scs_m);
+
+// we launch xcos with a scs_m subsystem
+assert_checkequal(typeof(scs_m.objs(1).model.rpar), "diagram");
+xcos(scs_m.objs(1).model.rpar);