[Pkg-octave-commit] [octave-ltfat] 03/03: Exercise the demos in inst/demos/

[Rafael Laboissière]

This is an automated email from the git hooks/post-receive script.

rlaboiss-guest pushed a commit to branch master
in repository octave-ltfat.

commit b9dfb73d0f4887ec7e80407586ca01a446761f2a
Author: Rafael Laboissiere <rafael at laboissiere.net>
Date:   Tue May 6 00:01:47 2014 +0200

    Exercise the demos in inst/demos/
    
    LTFAT contains no proper unit test suite.  the check.m introduced in
    this commit allows for a minimum of consistency check, even though the
    script demos in the inst/demos/ directory are run without their results
    being verified.  Also, many of them do plotting, whose graphical results
    is inhibited by redefining the figure function in check.m.
    
    Also, there is code for exercising the demo_blockproc_*.m functions, but
    this part of the code is commented for now, until the playrec issue is
    fixed.
    
    This patch will be eventually proposed upstream.
    
    Git-Dch: Ignore
---
 debian/check.m | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)

diff --git a/debian/check.m b/debian/check.m
new file mode 100644
index 0000000..9352388
--- /dev/null
+++ b/debian/check.m
@@ -0,0 +1,66 @@
+global figure_orig
+figure_orig= @figure;
+function figure (n)
+    global figure_orig
+    figure_orig (n, "visible", "off");
+endfunction
+
+addpath ([pwd(),"/inst"]);
+
+## Avoid call of frsynabs with BFGS method, which would require
+## the minFunc suite.
+
+demos = {
+    "audiocompression",
+    "audiodenoise",
+    "audioshrink",
+    "auditoryfilterbank",
+    "audscales",
+    "dgt",
+    "firwin",
+    "framemul",
+    "gabfir",
+    "gablasso",
+    "gabmixdual",
+    "gabmulappr",
+    "imagecompression",
+    "nextfastfft",
+    "nsdgt",
+    "ofdm",
+    "pbspline",
+    "pgauss",
+    "phaseplot"
+};
+
+cd inst/demos
+
+for i = 1 : length (demos)
+    file = sprintf ("demo_%s.m", demos {i});
+    printf ("[%s]\n", file);
+    fflush (stdout);
+    source (file);
+endfor
+
+## wavfile = "../signals/gspi.wav";
+
+## blockproc_demos = {
+##     "basicloop",
+##     "denoising",
+##     "dgtequalizer",
+##     "paramequalizer",
+##     "pitchshift",
+##     "slidingcqt",
+##     "slidingerblets",
+##     "slidingsgram"
+## };
+
+## ### Override blockplay
+## function blockplay (f)
+## endfunction
+
+## for i = 1 : length (demos)
+##     func = sprintf ("demo_blockproc_%s", blockproc_demos {i});
+##     printf ("[%s]\n", func);
+##     fflush (stdout);
+##     eval (sprintf ("%s (wavfile);", func))
+## endfor

-- 
Alioth's /home/groups/pkg-octave/bin/git-commit-notice on /srv/git.debian.org/git/pkg-octave/octave-ltfat.git