* Bug 16197 fixed: decomplexify result of extraction when applicable
[scilab.git] / scilab / modules / ast / tests / nonreg_tests / bug_16197.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2019 - St├ęphane MOTTELET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9 // <-- NO CHECK REF -->
10
11 // <-- Non-regression test for bug 16197 -->
12 //
13 // <-- Bugzilla URL -->
14 // http://bugzilla.scilab.org/show_bug.cgi?id=16197
15 //
16 // <-- Short Description -->
17 // Extraction of real components of complex matrices is counterintuitive
18
19 p=poly([1 1 1 1],"x","coeff"); 
20 r=roots(p);
21
22 assert_checktrue(isreal(r(1)) | isreal(r(2)) | isreal(r(3)))
23
24 x = [1+%i 1 2 3 1-%i];
25
26 assert_checktrue(isreal(x(2:4)));