Xcos tests: Minor fix
[scilab.git] / scilab / modules / xcos / tests / nonreg_tests / bug_11975.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Alexandre HERISSE
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- XCOS TEST -->
9 //
10 // <-- ENGLISH IMPOSED -->
11 //
12 // <-- Non-regression test for bug 11975 -->
13 //
14 // <-- Bugzilla URL -->
15 // http://bugzilla.scilab.org/show_bug.cgi?id=12975
16 //
17 // <-- Short Description -->
18 // Some demos did not compile.
19
20 // 3 demonstration diagrams were not compiling :
21 // - Inverted_pendulum.zcos demonstration
22 // - IF_block.zcos demonstration
23 // - Hydraulics.zcos demonstration
24
25 ilib_verbose(0);
26
27 // Inverted_pendulum
28 if (~isdef("setw")) then
29     exec("SCI/modules/xcos/demos/setw.sci",-1)
30 end
31 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/demos/Inverted_pendulum.zcos"));
32 [cpr, ok] = xcos_compile(scs_m);
33 assert_checktrue(ok);
34
35 // IF_block
36 assert_checktrue(importXcosDiagram("SCI/modules/xcos/demos/IF_block.zcos"));
37 [cpr, ok] = xcos_compile(scs_m);
38 assert_checktrue(ok);
39
40 // Redefining messagebox() to avoid popup
41 prot = funcprot();
42 funcprot(0);
43 function messagebox(msg, msg_title)
44 endfunction
45 funcprot(prot);
46
47 // Hydraulics
48 assert_checktrue(importXcosDiagram("SCI/modules/xcos/demos/ModelicaBlocks/Hydraulics.zcos"));
49 [cpr, ok] = xcos_compile(scs_m);
50 assert_checktrue(ok);
51