Revert "Add "long time execution" option for test 8824 of umfpack module."
[scilab.git] / scilab / modules / umfpack / tests / nonreg_tests / bug_8824.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
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 8824 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=8824
14 //
15 // <-- Short Description -->
16 // taucs_chfact returns a segfault (not the case in mode nwni)
17
18 stacksize("max");
19 N=512;
20 h = 1/(N+1);
21 x = h:h:1-h;
22 y = x;
23 [X,Y] = ndgrid(x,y);
24 F = (-2*(%pi^2))*(cos((2*%pi)*X) .*(sin(%pi*Y) .^2) + (sin(%pi*X).^2).*cos((2*%pi)*Y));
25 b = (h^2)*F(:);
26 s = [-1*ones(1,N-1) 2*ones(1,N) -1*ones(1,N-1)]';
27 i = [2:N 1:N 1:N-1]';
28 j = [1:N-1 1:N 2:N ]';
29 ij = [i j];
30 T = sparse(ij,s);
31 I = speye(N,N);
32 A = I .*. T + T .*. I;
33
34 assert_checktrue(execstr("hchol=taucs_chfact(A)","errcatch")==0);
35 assert_checktrue(execstr("taucs_chsolve(hchol,b)","errcatch")==0);
36 assert_checktrue(execstr("taucs_chdel(hchol)","errcatch")==0);