summaryrefslogtreecommitdiffstats
path: root/scilab/modules
diff options
context:
space:
mode:
authorAllan CORNET <allan.cornet@scilab.org>2010-05-17 11:23:33 +0200
committerClément DAVID <clement.david@scilab.org>2010-05-18 09:40:53 +0200
commitfe907e8f11a73f36677b0a06fa0fd8cd62d4a3c1 (patch)
treea3365be41536e065c1450235179402408ce5fa74 /scilab/modules
parent97f918da3809d78ad777bb4feae58c50cf3fd137 (diff)
downloadscilab-fe907e8f11a73f36677b0a06fa0fd8cd62d4a3c1.zip
scilab-fe907e8f11a73f36677b0a06fa0fd8cd62d4a3c1.tar.gz
bug 7109 add non regression test
Change-Id: I6f069e35c5e0a8b3af2d3c9e55b6138feb7ce7b0
Diffstat (limited to 'scilab/modules')
-rw-r--r--scilab/modules/linear_algebra/tests/nonreg_tests/bug_7109.dia.ref21
-rw-r--r--scilab/modules/linear_algebra/tests/nonreg_tests/bug_7109.tst27
2 files changed, 48 insertions, 0 deletions
diff --git a/scilab/modules/linear_algebra/tests/nonreg_tests/bug_7109.dia.ref b/scilab/modules/linear_algebra/tests/nonreg_tests/bug_7109.dia.ref
new file mode 100644
index 0000000..dbe8666
--- /dev/null
+++ b/scilab/modules/linear_algebra/tests/nonreg_tests/bug_7109.dia.ref
@@ -0,0 +1,21 @@
1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2010 - DIGITEO - Allan CORNET
4//
5// This file is distributed under the same license as the Scilab package.
6// =============================================================================
7// <-- JVM NOT MANDATORY -->
8// <-- Non-regression test for bug 7109 -->
9//
10// <-- Bugzilla URL -->
11// http://bugzilla.scilab.org/show_bug.cgi?id=7109
12//
13// <-- Short Description -->
14// 'lu' function with some complex matrices crashed on Windows.
15x = [0.1523 + 0.7685 * %i, -0.8957 + 0.0342 * %i, 2.4353 + 2.7736 * %i; ..
16 -1.1953 + 1.2187 * %i, 1.2118 + 0.2571 * %i, -0.0446 - 1.7768 * %i; ..
17 0.8038 + 1.3668 * %i, 1.2950 - 1.6929 * %i, 1.6267 + 0.2844 * %i];
18ierr = execstr('[l, u] = lu(x);','errcatch');
19if ierr <> 0 then bugmes();quit;end
20if or(size(l) <> [3 3]) then bugmes();quit;end
21if or(size(u) <> [3 3]) then bugmes();quit;end
diff --git a/scilab/modules/linear_algebra/tests/nonreg_tests/bug_7109.tst b/scilab/modules/linear_algebra/tests/nonreg_tests/bug_7109.tst
new file mode 100644
index 0000000..43a8527
--- /dev/null
+++ b/scilab/modules/linear_algebra/tests/nonreg_tests/bug_7109.tst
@@ -0,0 +1,27 @@
1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2010 - DIGITEO - Allan CORNET
4//
5// This file is distributed under the same license as the Scilab package.
6// =============================================================================
7
8// <-- JVM NOT MANDATORY -->
9
10// <-- Non-regression test for bug 7109 -->
11//
12// <-- Bugzilla URL -->
13// http://bugzilla.scilab.org/show_bug.cgi?id=7109
14//
15// <-- Short Description -->
16// 'lu' function with some complex matrices crashed on Windows.
17
18x = [0.1523 + 0.7685 * %i, -0.8957 + 0.0342 * %i, 2.4353 + 2.7736 * %i; ..
19 -1.1953 + 1.2187 * %i, 1.2118 + 0.2571 * %i, -0.0446 - 1.7768 * %i; ..
20 0.8038 + 1.3668 * %i, 1.2950 - 1.6929 * %i, 1.6267 + 0.2844 * %i];
21
22ierr = execstr('[l, u] = lu(x);','errcatch');
23if ierr <> 0 then pause, end
24
25if or(size(l) <> [3 3]) then pause, end
26if or(size(u) <> [3 3]) then pause, end
27