fix non regression tests in differential_equations module.
[scilab.git] / scilab / modules / differential_equations / tests / nonreg_tests / bug_12118.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- ENGLISH IMPOSED -->
9 //
10 // <-- CLI SHELL MODE -->
11 //
12 // <-- Non-regression test for bug 12118 -->
13 //
14 // <-- Bugzilla URL -->
15 //http://bugzilla.scilab.org/show_bug.cgi?id=12118
16 //
17 // <-- Short Description -->
18 // ode() accepted complex internals
19
20 function xdot = f(t, x)
21     xdot = %i;
22 endfunction
23
24 x0 = [1; 0];
25 t0 = 0;
26 t  = linspace(0, 10, 100);
27
28 refMsg = [msprintf(_("%s: Wrong type for output argument #%d: Real matrix expected.\n"), "f", 1);
29 msprintf(_("%ls: An error occured in ''%s'' subroutine."), "ode", "lsoda")];
30 assert_checkerror("y = ode(zeros(1, 1), t0, t, f);", refMsg);
31 assert_checkerror("y = ode(zeros(1, 2), t0, t, f);", refMsg);
32 assert_checkerror("y = ode(zeros(1, 3), t0, t, f);", refMsg);
33 assert_checkerror("y = ode(zeros(1, 4), t0, t, f);", refMsg);