* Bug #13217 fixed - CACSD: fixed augment return when flag2="i" 30/13830/8
Paul Bignier [Tue, 25 Feb 2014 15:14:01 +0000 (16:14 +0100)]
augment help example did not match the console result.

Change-Id: Id8aef7a4031aae6bf88b6a3ad992f3e31bb10a50

scilab/CHANGES.md
scilab/modules/cacsd/macros/augment.sci
scilab/modules/cacsd/tests/nonreg_tests/bug_13217.dia.ref [new file with mode: 0644]
scilab/modules/cacsd/tests/nonreg_tests/bug_13217.tst [new file with mode: 0644]

index ca634bb..f47196f 100644 (file)
@@ -372,7 +372,7 @@ Bug Fixes
 * [#12431](http://bugzilla.scilab.org/show_bug.cgi?id=12431): The page describing the `%helps` variable needed clarification.
 * [#12453](http://bugzilla.scilab.org/show_bug.cgi?id=12453): The left panel of the palette browser keeps its size when some category is enabled or disabled.
 * [#12897](http://bugzilla.scilab.org/show_bug.cgi?id=12897): Renamed optim's "imp" argument to "iprint".
-* [#13794](http://bugzilla.scilab.org/show_bug.cgi?id=13794): Added polyline property "datatip_display_mode", allowing datatips to be displayed "always", "mouseclick" or "mouseover".
+* [#13217](http://bugzilla.scilab.org/show_bug.cgi?id=13217): Fixed augment return when flag2="i"
 * [#13166](http://bugzilla.scilab.org/show_bug.cgi?id=13166): `l` and `b` endian flags used with `mget` and `mgeti` were sticky
 * [#13375](http://bugzilla.scilab.org/show_bug.cgi?id=13375): If (Max - Min) == 1, then the multiple selection is not allowed.
 * [#13401](http://bugzilla.scilab.org/show_bug.cgi?id=13401): Scilab became a ghost process when it was closed while an input() or halt() instruction was being performed in a callback of an undockable figure.
@@ -383,6 +383,7 @@ Bug Fixes
 * [#13651](http://bugzilla.scilab.org/show_bug.cgi?id=13651): It was not possible to `copy` an axes into an uicontrol frame.
 * [#13757](http://bugzilla.scilab.org/show_bug.cgi?id=13757): The toolbox menu dit not load properly ATOMS modules not autoloaded.
 * [#13759](http://bugzilla.scilab.org/show_bug.cgi?id=13759): Atoms modules do not start, randomly.
+* [#13794](http://bugzilla.scilab.org/show_bug.cgi?id=13794): Added polyline property "datatip_display_mode", allowing datatips to be displayed "always", "mouseclick" or "mouseover".
 * [#13856](http://bugzilla.scilab.org/show_bug.cgi?id=13856): `messagebox` crashed under Windows in 5.5 Scilab version and updated in version 6.
 * [#13877](http://bugzilla.scilab.org/show_bug.cgi?id=13877): `<` characters included in `<screen>` areas were not rendered in the help browser.
 * [#13878](http://bugzilla.scilab.org/show_bug.cgi?id=13878): tokens([]) returns [].
index fdd1459..4868e18 100644 (file)
@@ -197,7 +197,7 @@ function [P,r]=augment(G,SRT,flag)
                 P=[Iu,-Iu;
                 G,-G;
                 Ouu,Iu;
-                -G,G]
+                G,-G]
             end
             return
         case 2 then
@@ -213,7 +213,7 @@ function [P,r]=augment(G,SRT,flag)
                 if ssSRT==1 then
                     P=[Iu,-Iu;
                     G,-G;
-                    -G,G]
+                    G,-G]
                 end
                 return
             end
@@ -229,7 +229,7 @@ function [P,r]=augment(G,SRT,flag)
                 if ssSRT ==1 then
                     P=[Iu,-Iu;
                     Ouu,Iu;
-                    -G,G]
+                    G,-G]
                 end
                 return
             end
@@ -245,7 +245,7 @@ function [P,r]=augment(G,SRT,flag)
                 if ssSRT ==1 then
                     P=[G,-G;
                     Ouu,Iu;
-                    -G,G]
+                    G,-G]
                 end
                 return
             end
@@ -265,7 +265,7 @@ function [P,r]=augment(G,SRT,flag)
                 end;
                 if ssSRT ==1 then
                     P=[Iu,-Iu;
-                    -G,G]
+                    G,-G]
                 end
                 return
             end
@@ -279,7 +279,7 @@ function [P,r]=augment(G,SRT,flag)
                 end
                 if ssSRT ==1 then
                     P=[G,-G;
-                    -G,G]
+                    G,-G]
                 end
                 return
             end
@@ -293,7 +293,7 @@ function [P,r]=augment(G,SRT,flag)
                 end
                 if ssSRT ==1 then
                     P=[Ouu,Iu;
-                    -G,G]
+                    G,-G]
                 end
                 return
             end
diff --git a/scilab/modules/cacsd/tests/nonreg_tests/bug_13217.dia.ref b/scilab/modules/cacsd/tests/nonreg_tests/bug_13217.dia.ref
new file mode 100644 (file)
index 0000000..1fec25a
--- /dev/null
@@ -0,0 +1,39 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2016 - Scilab Enterprises - Paul Bignier
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 13217 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=13217
+//
+// <-- Short Description -->
+// augment() yielded a wrong result when flag2="i".
+// We check that the last element of P is [G -G], as shown in the help page.
+G = 1/%s;
+flag = "S";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+flag = "SR";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+flag = "ST";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+flag = "SRT";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+flag = "R";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+flag = "RT";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+flag = "T";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
diff --git a/scilab/modules/cacsd/tests/nonreg_tests/bug_13217.tst b/scilab/modules/cacsd/tests/nonreg_tests/bug_13217.tst
new file mode 100644 (file)
index 0000000..e5a6ecf
--- /dev/null
@@ -0,0 +1,47 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2016 - Scilab Enterprises - Paul Bignier
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 13217 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=13217
+//
+// <-- Short Description -->
+// augment() yielded a wrong result when flag2="i".
+
+// We check that the last element of P is [G -G], as shown in the help page.
+G = 1/%s;
+
+flag = "S";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+
+flag = "SR";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+
+flag = "ST";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+
+flag = "SRT";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+
+flag = "R";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+
+flag = "RT";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);
+
+flag = "T";
+[P, r] = augment(G, flag, "i");
+assert_checkequal(P($, :), [G -G]);