FFTW tests must be available in nwni mode
[scilab.git] / scilab / modules / fftw / tests / nonreg_tests / bug_5081.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2009 - DIGITEO - Allan CORNET
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 5081 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=5081
14 //
15 // <-- Short Description -->
16 //
17 // demo "Signal Processing" --> "Spectral Estimation" fails (Windows)
18
19  rand('normal');
20  rand('seed',0);
21  x = rand(1:1024-33+1);
22  nf = 33;
23  bedge = [0 .1;.125 .5];
24  des = [1 0];
25  wate = [1 1];
26  h = eqfir(nf,bedge,des,wate);
27  h1 = [h 0*ones(1:max(size(x))-1)];
28  x1 = [x 0*ones(1:max(size(h))-1)];
29  hf = fft(h1,-1);
30  xf = fft(x1,-1);
31  yf = hf.*xf;
32  y = real(fft(yf,1));
33  ierr = execstr("[sm2] = cspect(100,200,''tr'',y);","errcatch");
34  if ierr <> 0 then pause,end