elementary_functions: regression test for bug #9844 (sum return wrong values) 15/10715/2
Simon Marchetto [Wed, 6 Mar 2013 15:23:09 +0000 (16:23 +0100)]
Change-Id: Iac9f345c96da046f524d34f2e0746336c98caa63

scilab/modules/elementary_functions/tests/nonreg_tests/bug_9844.dia.ref [new file with mode: 0644]
scilab/modules/elementary_functions/tests/nonreg_tests/bug_9844.tst [new file with mode: 0644]

diff --git a/scilab/modules/elementary_functions/tests/nonreg_tests/bug_9844.dia.ref b/scilab/modules/elementary_functions/tests/nonreg_tests/bug_9844.dia.ref
new file mode 100644 (file)
index 0000000..9da93f2
--- /dev/null
@@ -0,0 +1,30 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2012 - Scilab Enterprises - Simon MARCHETTO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 9844 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=9844
+//
+// <-- Short Description -->
+// sum returns wrong values
+M=100;N=100;
+R=ones(M,N);
+for m=1:M;
+  for n=1:N;
+    A=floor(256*rand(n,m));
+    B=uint8(A);
+    R(m,n)=max(abs(sum(B,2,"double")-sum(A,2)));
+  end
+end
+F = find(R<>0)
+ F  =
+     []
+assert_checktrue(isempty(F));
diff --git a/scilab/modules/elementary_functions/tests/nonreg_tests/bug_9844.tst b/scilab/modules/elementary_functions/tests/nonreg_tests/bug_9844.tst
new file mode 100644 (file)
index 0000000..e5eb661
--- /dev/null
@@ -0,0 +1,28 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2012 - Scilab Enterprises - Simon MARCHETTO
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+//
+// <-- CLI SHELL MODE -->
+//
+// <-- Non-regression test for bug 9844 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=9844
+//
+// <-- Short Description -->
+// sum returns wrong values
+
+M=100;N=100;
+R=ones(M,N);
+for m=1:M;
+  for n=1:N;
+    A=floor(256*rand(n,m));
+    B=uint8(A);
+    R(m,n)=max(abs(sum(B,2,"double")-sum(A,2)));
+  end
+end
+F = find(R<>0)
+assert_checktrue(isempty(F));