Mercurial > hg > octave-lyh

diff scripts/audio/wavwrite.m @ 16974:221e71d2aef0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Unlink tmp files in %!tests before doing asserts so that file is always removed. * scripts/audio/wavwrite.m, scripts/io/csvwrite.m, scripts/io/fileread.m: Unlink tmp files in %!tests before doing asserts so that file is always removed even if test fails on assert.
author Rik <rik@octave.org>
date Sat, 13 Jul 2013 10:46:43 -0700
parents 9a7f73fc304f
children af2051e363ea
line wrap: on
line diff
--- a/scripts/audio/wavwrite.m
+++ b/scripts/audio/wavwrite.m
@@ -157,43 +157,43 @@
 %! A = [-1:0.1:1; -1:0.1:1];
 %! wavwrite (A, fname);
 %! [B, samples_per_sec, bits_per_sample] = wavread (fname);
+%! unlink (fname);
 %! assert (A,B, 1/2^15);
 %! assert (samples_per_sec, 8000);
 %! assert (bits_per_sample, 16);
-%! unlink (fname);
-%
+
 %!test
 %! A = [-1:0.1:1; -1:0.1:1];
 %! wavwrite (A, 4000, fname);
 %! [B, samples_per_sec, bits_per_sample] = wavread (fname);
+%! unlink (fname);
 %! assert (A,B, 1/2^15);
 %! assert (samples_per_sec, 4000);
 %! assert (bits_per_sample, 16);
-%! unlink (fname);
-%
+
 %!test
 %! A = [-1:0.1:1; -1:0.1:1];
 %! wavwrite (A, 4000, 8, fname);
 %! [B, samples_per_sec, bits_per_sample] = wavread (fname);
+%! unlink (fname);
 %! assert (A,B, 1/128);
 %! assert (samples_per_sec, 4000);
 %! assert (bits_per_sample, 8);
-%! unlink (fname);
-%
+
 %!test
 %! A = [-2:2]';
 %! wavwrite (A, fname);
 %! B = wavread (fname);
+%! unlink (fname);
 %! B *= 32768;
 %! assert (B, [-32768 -32768 0 32767 32767]');
-%! unlink (fname);
-%
+
 %!test
 %! A = [-1:0.1:1];
 %! wavwrite (A, fname);
 %! [B, samples_per_sec, bits_per_sample] = wavread (fname);
+%! unlink (fname);
 %! assert (A', B, 1/2^15);
 %! assert (samples_per_sec, 8000);
 %! assert (bits_per_sample, 16);
-%! unlink (fname);