* Bug #13217 fixed - CACSD: fixed augment return when flag2="i"
[scilab.git] / scilab / modules / cacsd / tests / nonreg_tests / bug_13217.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2016 - Scilab Enterprises - Paul Bignier
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 13217 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=13217
14 //
15 // <-- Short Description -->
16 // augment() yielded a wrong result when flag2="i".
17
18 // We check that the last element of P is [G -G], as shown in the help page.
19 G = 1/%s;
20
21 flag = "S";
22 [P, r] = augment(G, flag, "i");
23 assert_checkequal(P($, :), [G -G]);
24
25 flag = "SR";
26 [P, r] = augment(G, flag, "i");
27 assert_checkequal(P($, :), [G -G]);
28
29 flag = "ST";
30 [P, r] = augment(G, flag, "i");
31 assert_checkequal(P($, :), [G -G]);
32
33 flag = "SRT";
34 [P, r] = augment(G, flag, "i");
35 assert_checkequal(P($, :), [G -G]);
36
37 flag = "R";
38 [P, r] = augment(G, flag, "i");
39 assert_checkequal(P($, :), [G -G]);
40
41 flag = "RT";
42 [P, r] = augment(G, flag, "i");
43 assert_checkequal(P($, :), [G -G]);
44
45 flag = "T";
46 [P, r] = augment(G, flag, "i");
47 assert_checkequal(P($, :), [G -G]);