[Pkg-octave-commit] [SCM] octave-forge-pkgs branch, master, updated. 7faac088d30cc9dee4223893ae493dd28d04350a

[Rafael Laboissiere]

The following commit has been merged in the master branch:
commit 428c0210a9e21ef391abe3c0cd3ff38b8a419158
Author: Rafael Laboissiere <rafael at debian.org>
Date:   Thu May 21 11:34:18 2009 +0200

    Add warning and error messages for signal package checking

diff --git a/TODO b/TODO
index bad3dfc..e7286ef 100644
--- a/TODO
+++ b/TODO
@@ -223,6 +223,62 @@
     This should be checked
   - [ ] Set Autoload to yes (via quilt patch)
 
+* signal (main) [0/1]
+  - [ ] Checking the package yields warnings and errors:
+        [grpdelay]
+        warning: grpdelay: setting group delay to 0 at singularity
+        warning: grpdelay: setting group delay to 0 at singularity
+        warning: grpdelay: setting group delay to 0 at singularity
+        warning: grpdelay: setting group delay to 0 at singularity
+        PASSES 12 out of 12 tests
+        [resample]
+        ***** test
+        N=512;
+        p=3; q=5;
+        r=p/q;
+        NN=ceil(r*N);
+        t=0:N-1;
+        tt=0:NN-1;
+        err=zeros(N/2,1);
+        for n = 0:N/2-1,
+        phi0=2*pi*rand;
+        f0=n/N;
+        x=sin(2*pi*f0*t' + phi0);
+        [y,h]=resample(x,p,q);
+        xx=sin(2*pi*f0/r*tt' + phi0);
+        t0=ceil((length(h)-1)/2/q);
+        idx=t0+1:NN-t0;
+        err(n+1)=max(abs(y(idx)-xx(idx)));
+        endfor;
+        rolloff=.1;
+        rejection=10^-3;
+        idx_inband=1:ceil((1-rolloff/2)*r*N/2)-1;
+        assert(max(err(idx_inband))<rejection);
+        !!!!! test failed
+        error: invalid row index = 345
+        [fracshift]
+        ***** test
+        N=1024;
+        d=1.5;
+        t=(0:N-1)-N/2;
+        tt=t-d;
+        err=zeros(N/2,1);
+        for n = 0:N/2-1,
+        phi0=2*pi*rand;
+        f0=n/N;
+        sigma=N/4;
+        x=exp(-t'.^2/(2*sigma)).*sin(2*pi*f0*t' + phi0);
+        [y,h]=fracshift(x,d);
+        xx=exp(-tt'.^2/(2*sigma)).*sin(2*pi*f0*tt' + phi0);
+        err(n+1)=max(abs(y-xx));
+        endfor;
+        rolloff=.1;
+        rejection=10^-3;
+        idx_inband=1:ceil((1-rolloff)*N/2)-1;
+        assert(max(err(idx_inband))<rejection);
+        !!!!! test failed
+        error: invalid row index = 1061
+
 * simp (main) [0/1]
   - [ ] Start packaging
 

-- 
octave-forge-pkgs