* Bug #13750 fixed - Calling ss2ss function with flag = 2 returned an error.
[scilab.git] / scilab / modules / cacsd / tests / nonreg_tests / bug_13750.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2015 - Scilab Enterprises - Adeline CARNIS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9
10 // <-- Non-regression test for bug 13750 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=13750
14 //
15 // <-- Short Description -->
16 //    Calling ss2ss with flag = 2 returned an error. The variable p was missing.
17 // =============================================================================
18
19
20 in=1;m=2;n=2;
21 sys=ssrand(in,m,n);
22 F1=rand(m,n);
23 G=rand(n,in);
24 [sys1,right,left]=ss2ss(sys,rand(n,n),F1,G,2);
25 res=clean(ss2tf(sys1) - ss2tf(left*sysdiag(sys*right,eye(1,1))));
26 assert_checkalmostequal(coeff(res.num), zeros(size(res,"r"), size(res, "c")), [], %eps);