Fix bugs during installation of libsndfile-ocaml.
[Faustine.git] / interpreter / lib / src / libsndfile-1.0.25 / tests / write_read_test.tpl
1 [+ AutoGen5 template c +]
2 /*
3 ** Copyright (C) 1999-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
4 **
5 ** This program is free software; you can redistribute it and/or modify
6 ** it under the terms of the GNU General Public License as published by
7 ** the Free Software Foundation; either version 2 of the License, or
8 ** (at your option) any later version.
9 **
10 ** This program is distributed in the hope that it will be useful,
11 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 ** GNU General Public License for more details.
14 **
15 ** You should have received a copy of the GNU General Public License
16 ** along with this program; if not, write to the Free Software
17 ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18 */
19
20 #include "sfconfig.h"
21
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <string.h>
25
26 #if HAVE_UNISTD_H
27 #include <unistd.h>
28 #endif
29
30 #include <math.h>
31
32 #if (defined (WIN32) || defined (_WIN32))
33 #include <fcntl.h>
34 static int truncate (const char *filename, int ignored) ;
35 #endif
36
37 #include <sndfile.h>
38
39 #include "utils.h"
40 #include "generate.h"
41
42 #define SAMPLE_RATE 11025
43 #define DATA_LENGTH (1<<12)
44
45 #define SILLY_WRITE_COUNT (234)
46
47 [+ FOR data_type
48 +]static void pcm_test_[+ (get "type_name") +] (const char *str, int format, int long_file_okz) ;
49 [+ ENDFOR data_type
50 +]
51 static void empty_file_test (const char *filename, int format) ;
52
53 typedef union
54 { double d [DATA_LENGTH] ;
55 float f [DATA_LENGTH] ;
56 int i [DATA_LENGTH] ;
57 short s [DATA_LENGTH] ;
58 char c [DATA_LENGTH] ;
59 } BUFFER ;
60
61 static BUFFER orig_data ;
62 static BUFFER test_data ;
63
64 int
65 main (int argc, char **argv)
66 { int do_all = 0 ;
67 int test_count = 0 ;
68
69 count_open_files () ;
70
71 if (argc != 2)
72 { printf ("Usage : %s <test>\n", argv [0]) ;
73 printf (" Where <test> is one of the following:\n") ;
74 printf (" wav - test WAV file functions (little endian)\n") ;
75 printf (" aiff - test AIFF file functions (big endian)\n") ;
76 printf (" au - test AU file functions\n") ;
77 printf (" avr - test AVR file functions\n") ;
78 printf (" caf - test CAF file functions\n") ;
79 printf (" raw - test RAW header-less PCM file functions\n") ;
80 printf (" paf - test PAF file functions\n") ;
81 printf (" svx - test 8SVX/16SV file functions\n") ;
82 printf (" nist - test NIST Sphere file functions\n") ;
83 printf (" ircam - test IRCAM file functions\n") ;
84 printf (" voc - Create Voice file functions\n") ;
85 printf (" w64 - Sonic Foundry's W64 file functions\n") ;
86 printf (" flac - test FLAC file functions\n") ;
87 printf (" mpc2k - test MPC 2000 file functions\n") ;
88 printf (" rf64 - test RF64 file functions\n") ;
89 printf (" all - perform all tests\n") ;
90 exit (1) ;
91 } ;
92
93 do_all = !strcmp (argv [1], "all") ;
94
95 if (do_all || ! strcmp (argv [1], "wav"))
96 { pcm_test_char ("char.wav" , SF_FORMAT_WAV | SF_FORMAT_PCM_U8, SF_FALSE) ;
97 pcm_test_short ("short.wav" , SF_FORMAT_WAV | SF_FORMAT_PCM_16, SF_FALSE) ;
98 pcm_test_24bit ("24bit.wav" , SF_FORMAT_WAV | SF_FORMAT_PCM_24, SF_FALSE) ;
99 pcm_test_int ("int.wav" , SF_FORMAT_WAV | SF_FORMAT_PCM_32, SF_FALSE) ;
100
101 pcm_test_char ("char.rifx" , SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_PCM_U8, SF_FALSE) ;
102 pcm_test_short ("short.rifx" , SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_PCM_16, SF_FALSE) ;
103 pcm_test_24bit ("24bit.rifx" , SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_PCM_24, SF_FALSE) ;
104 pcm_test_int ("int.rifx" , SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_PCM_32, SF_FALSE) ;
105
106 pcm_test_24bit ("24bit.wavex" , SF_FORMAT_WAVEX | SF_FORMAT_PCM_24, SF_FALSE) ;
107 pcm_test_int ("int.wavex" , SF_FORMAT_WAVEX | SF_FORMAT_PCM_32, SF_FALSE) ;
108
109 /* Lite remove start */
110 pcm_test_float ("float.wav" , SF_FORMAT_WAV | SF_FORMAT_FLOAT , SF_FALSE) ;
111 pcm_test_double ("double.wav" , SF_FORMAT_WAV | SF_FORMAT_DOUBLE, SF_FALSE) ;
112
113 pcm_test_float ("float.rifx" , SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_FLOAT , SF_FALSE) ;
114 pcm_test_double ("double.rifx" , SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_DOUBLE, SF_FALSE) ;
115
116 pcm_test_float ("float.wavex" , SF_FORMAT_WAVEX | SF_FORMAT_FLOAT , SF_FALSE) ;
117 pcm_test_double ("double.wavex" , SF_FORMAT_WAVEX | SF_FORMAT_DOUBLE, SF_FALSE) ;
118 /* Lite remove end */
119
120 empty_file_test ("empty_char.wav", SF_FORMAT_WAV | SF_FORMAT_PCM_U8) ;
121 empty_file_test ("empty_short.wav", SF_FORMAT_WAV | SF_FORMAT_PCM_16) ;
122 empty_file_test ("empty_float.wav", SF_FORMAT_WAV | SF_FORMAT_FLOAT) ;
123
124 test_count++ ;
125 } ;
126
127 if (do_all || ! strcmp (argv [1], "aiff"))
128 { pcm_test_char ("char_u8.aiff" , SF_FORMAT_AIFF | SF_FORMAT_PCM_U8, SF_FALSE) ;
129 pcm_test_char ("char_s8.aiff" , SF_FORMAT_AIFF | SF_FORMAT_PCM_S8, SF_FALSE) ;
130 pcm_test_short ("short.aiff" , SF_FORMAT_AIFF | SF_FORMAT_PCM_16, SF_FALSE) ;
131 pcm_test_24bit ("24bit.aiff" , SF_FORMAT_AIFF | SF_FORMAT_PCM_24, SF_FALSE) ;
132 pcm_test_int ("int.aiff" , SF_FORMAT_AIFF | SF_FORMAT_PCM_32, SF_FALSE) ;
133
134 pcm_test_short ("short_sowt.aifc" , SF_ENDIAN_LITTLE | SF_FORMAT_AIFF | SF_FORMAT_PCM_16, SF_FALSE) ;
135 pcm_test_24bit ("24bit_sowt.aifc" , SF_ENDIAN_LITTLE | SF_FORMAT_AIFF | SF_FORMAT_PCM_24, SF_FALSE) ;
136 pcm_test_int ("int_sowt.aifc" , SF_ENDIAN_LITTLE | SF_FORMAT_AIFF | SF_FORMAT_PCM_32, SF_FALSE) ;
137
138 pcm_test_short ("short_twos.aifc" , SF_ENDIAN_BIG | SF_FORMAT_AIFF | SF_FORMAT_PCM_16, SF_FALSE) ;
139 pcm_test_24bit ("24bit_twos.aifc" , SF_ENDIAN_BIG | SF_FORMAT_AIFF | SF_FORMAT_PCM_24, SF_FALSE) ;
140 pcm_test_int ("int_twos.aifc" , SF_ENDIAN_BIG | SF_FORMAT_AIFF | SF_FORMAT_PCM_32, SF_FALSE) ;
141
142 /* Lite remove start */
143 pcm_test_short ("dwvw16.aifc", SF_FORMAT_AIFF | SF_FORMAT_DWVW_16, SF_TRUE) ;
144 pcm_test_24bit ("dwvw24.aifc", SF_FORMAT_AIFF | SF_FORMAT_DWVW_24, SF_TRUE) ;
145
146 pcm_test_float ("float.aifc" , SF_FORMAT_AIFF | SF_FORMAT_FLOAT , SF_FALSE) ;
147 pcm_test_double ("double.aifc" , SF_FORMAT_AIFF | SF_FORMAT_DOUBLE, SF_FALSE) ;
148 /* Lite remove end */
149
150 empty_file_test ("empty_char.aiff", SF_FORMAT_AIFF | SF_FORMAT_PCM_U8) ;
151 empty_file_test ("empty_short.aiff", SF_FORMAT_AIFF | SF_FORMAT_PCM_16) ;
152 empty_file_test ("empty_float.aiff", SF_FORMAT_AIFF | SF_FORMAT_FLOAT) ;
153
154 test_count++ ;
155 } ;
156
157 if (do_all || ! strcmp (argv [1], "au"))
158 { pcm_test_char ("char.au" , SF_FORMAT_AU | SF_FORMAT_PCM_S8, SF_FALSE) ;
159 pcm_test_short ("short.au" , SF_FORMAT_AU | SF_FORMAT_PCM_16, SF_FALSE) ;
160 pcm_test_24bit ("24bit.au" , SF_FORMAT_AU | SF_FORMAT_PCM_24, SF_FALSE) ;
161 pcm_test_int ("int.au" , SF_FORMAT_AU | SF_FORMAT_PCM_32, SF_FALSE) ;
162 /* Lite remove start */
163 pcm_test_float ("float.au" , SF_FORMAT_AU | SF_FORMAT_FLOAT , SF_FALSE) ;
164 pcm_test_double ("double.au", SF_FORMAT_AU | SF_FORMAT_DOUBLE, SF_FALSE) ;
165 /* Lite remove end */
166
167 pcm_test_char ("char_le.au" , SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_PCM_S8, SF_FALSE) ;
168 pcm_test_short ("short_le.au" , SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_PCM_16, SF_FALSE) ;
169 pcm_test_24bit ("24bit_le.au" , SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_PCM_24, SF_FALSE) ;
170 pcm_test_int ("int_le.au" , SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_PCM_32, SF_FALSE) ;
171 /* Lite remove start */
172 pcm_test_float ("float_le.au" , SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_FLOAT , SF_FALSE) ;
173 pcm_test_double ("double_le.au" , SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_DOUBLE, SF_FALSE) ;
174 /* Lite remove end */
175 test_count++ ;
176 } ;
177
178 if (do_all || ! strcmp (argv [1], "caf"))
179 { pcm_test_char ("char.caf" , SF_FORMAT_CAF | SF_FORMAT_PCM_S8, SF_FALSE) ;
180 pcm_test_short ("short.caf" , SF_FORMAT_CAF | SF_FORMAT_PCM_16, SF_FALSE) ;
181 pcm_test_24bit ("24bit.caf" , SF_FORMAT_CAF | SF_FORMAT_PCM_24, SF_FALSE) ;
182 pcm_test_int ("int.caf" , SF_FORMAT_CAF | SF_FORMAT_PCM_32, SF_FALSE) ;
183 /* Lite remove start */
184 pcm_test_float ("float.caf" , SF_FORMAT_CAF | SF_FORMAT_FLOAT , SF_FALSE) ;
185 pcm_test_double ("double.caf" , SF_FORMAT_CAF | SF_FORMAT_DOUBLE, SF_FALSE) ;
186 /* Lite remove end */
187
188 pcm_test_short ("short_le.caf" , SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_PCM_16, SF_FALSE) ;
189 pcm_test_24bit ("24bit_le.caf" , SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_PCM_24, SF_FALSE) ;
190 pcm_test_int ("int_le.caf" , SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_PCM_32, SF_FALSE) ;
191 /* Lite remove start */
192 pcm_test_float ("float_le.caf" , SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_FLOAT , SF_FALSE) ;
193 pcm_test_double ("double_le.caf", SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_DOUBLE, SF_FALSE) ;
194 /* Lite remove end */
195 test_count++ ;
196 } ;
197
198 if (do_all || ! strcmp (argv [1], "raw"))
199 { pcm_test_char ("char_s8.raw" , SF_FORMAT_RAW | SF_FORMAT_PCM_S8, SF_FALSE) ;
200 pcm_test_char ("char_u8.raw" , SF_FORMAT_RAW | SF_FORMAT_PCM_U8, SF_FALSE) ;
201
202 pcm_test_short ("short_le.raw" , SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_16, SF_FALSE) ;
203 pcm_test_short ("short_be.raw" , SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_16, SF_FALSE) ;
204 pcm_test_24bit ("24bit_le.raw" , SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_24, SF_FALSE) ;
205 pcm_test_24bit ("24bit_be.raw" , SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_24, SF_FALSE) ;
206 pcm_test_int ("int_le.raw" , SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_32, SF_FALSE) ;
207 pcm_test_int ("int_be.raw" , SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_32, SF_FALSE) ;
208
209 /* Lite remove start */
210 pcm_test_float ("float_le.raw" , SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT , SF_FALSE) ;
211 pcm_test_float ("float_be.raw" , SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_FLOAT , SF_FALSE) ;
212
213 pcm_test_double ("double_le.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, SF_FALSE) ;
214 pcm_test_double ("double_be.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, SF_FALSE) ;
215 /* Lite remove end */
216 test_count++ ;
217 } ;
218
219 /* Lite remove start */
220 if (do_all || ! strcmp (argv [1], "paf"))
221 { pcm_test_char ("char_le.paf", SF_ENDIAN_LITTLE | SF_FORMAT_PAF | SF_FORMAT_PCM_S8, SF_FALSE) ;
222 pcm_test_char ("char_be.paf", SF_ENDIAN_BIG | SF_FORMAT_PAF | SF_FORMAT_PCM_S8, SF_FALSE) ;
223 pcm_test_short ("short_le.paf", SF_ENDIAN_LITTLE | SF_FORMAT_PAF | SF_FORMAT_PCM_16, SF_FALSE) ;
224 pcm_test_short ("short_be.paf", SF_ENDIAN_BIG | SF_FORMAT_PAF | SF_FORMAT_PCM_16, SF_FALSE) ;
225 pcm_test_24bit ("24bit_le.paf", SF_ENDIAN_LITTLE | SF_FORMAT_PAF | SF_FORMAT_PCM_24, SF_TRUE) ;
226 pcm_test_24bit ("24bit_be.paf", SF_ENDIAN_BIG | SF_FORMAT_PAF | SF_FORMAT_PCM_24, SF_TRUE) ;
227 test_count++ ;
228 } ;
229
230 if (do_all || ! strcmp (argv [1], "svx"))
231 { pcm_test_char ("char.svx" , SF_FORMAT_SVX | SF_FORMAT_PCM_S8, SF_FALSE) ;
232 pcm_test_short ("short.svx", SF_FORMAT_SVX | SF_FORMAT_PCM_16, SF_FALSE) ;
233
234 empty_file_test ("empty_char.svx", SF_FORMAT_SVX | SF_FORMAT_PCM_S8) ;
235 empty_file_test ("empty_short.svx", SF_FORMAT_SVX | SF_FORMAT_PCM_16) ;
236
237 test_count++ ;
238 } ;
239
240 if (do_all || ! strcmp (argv [1], "nist"))
241 { pcm_test_short ("short_le.nist", SF_ENDIAN_LITTLE | SF_FORMAT_NIST | SF_FORMAT_PCM_16, SF_FALSE) ;
242 pcm_test_short ("short_be.nist", SF_ENDIAN_BIG | SF_FORMAT_NIST | SF_FORMAT_PCM_16, SF_FALSE) ;
243 pcm_test_24bit ("24bit_le.nist", SF_ENDIAN_LITTLE | SF_FORMAT_NIST | SF_FORMAT_PCM_24, SF_FALSE) ;
244 pcm_test_24bit ("24bit_be.nist", SF_ENDIAN_BIG | SF_FORMAT_NIST | SF_FORMAT_PCM_24, SF_FALSE) ;
245 pcm_test_int ("int_le.nist" , SF_ENDIAN_LITTLE | SF_FORMAT_NIST | SF_FORMAT_PCM_32, SF_FALSE) ;
246 pcm_test_int ("int_be.nist" , SF_ENDIAN_BIG | SF_FORMAT_NIST | SF_FORMAT_PCM_32, SF_FALSE) ;
247
248 test_count++ ;
249 } ;
250
251 if (do_all || ! strcmp (argv [1], "ircam"))
252 { pcm_test_short ("short_be.ircam" , SF_ENDIAN_BIG | SF_FORMAT_IRCAM | SF_FORMAT_PCM_16, SF_FALSE) ;
253 pcm_test_short ("short_le.ircam" , SF_ENDIAN_LITTLE | SF_FORMAT_IRCAM | SF_FORMAT_PCM_16, SF_FALSE) ;
254 pcm_test_int ("int_be.ircam" , SF_ENDIAN_BIG | SF_FORMAT_IRCAM | SF_FORMAT_PCM_32, SF_FALSE) ;
255 pcm_test_int ("int_le.ircam" , SF_ENDIAN_LITTLE | SF_FORMAT_IRCAM | SF_FORMAT_PCM_32, SF_FALSE) ;
256 pcm_test_float ("float_be.ircam" , SF_ENDIAN_BIG | SF_FORMAT_IRCAM | SF_FORMAT_FLOAT , SF_FALSE) ;
257 pcm_test_float ("float_le.ircam" , SF_ENDIAN_LITTLE | SF_FORMAT_IRCAM | SF_FORMAT_FLOAT , SF_FALSE) ;
258
259 test_count++ ;
260 } ;
261
262 if (do_all || ! strcmp (argv [1], "voc"))
263 { pcm_test_char ("char.voc" , SF_FORMAT_VOC | SF_FORMAT_PCM_U8, SF_FALSE) ;
264 pcm_test_short ("short.voc", SF_FORMAT_VOC | SF_FORMAT_PCM_16, SF_FALSE) ;
265
266 test_count++ ;
267 } ;
268
269 if (do_all || ! strcmp (argv [1], "mat4"))
270 { pcm_test_short ("short_be.mat4" , SF_ENDIAN_BIG | SF_FORMAT_MAT4 | SF_FORMAT_PCM_16, SF_FALSE) ;
271 pcm_test_short ("short_le.mat4" , SF_ENDIAN_LITTLE | SF_FORMAT_MAT4 | SF_FORMAT_PCM_16, SF_FALSE) ;
272 pcm_test_int ("int_be.mat4" , SF_ENDIAN_BIG | SF_FORMAT_MAT4 | SF_FORMAT_PCM_32, SF_FALSE) ;
273 pcm_test_int ("int_le.mat4" , SF_ENDIAN_LITTLE | SF_FORMAT_MAT4 | SF_FORMAT_PCM_32, SF_FALSE) ;
274 pcm_test_float ("float_be.mat4" , SF_ENDIAN_BIG | SF_FORMAT_MAT4 | SF_FORMAT_FLOAT , SF_FALSE) ;
275 pcm_test_float ("float_le.mat4" , SF_ENDIAN_LITTLE | SF_FORMAT_MAT4 | SF_FORMAT_FLOAT , SF_FALSE) ;
276 pcm_test_double ("double_be.mat4" , SF_ENDIAN_BIG | SF_FORMAT_MAT4 | SF_FORMAT_DOUBLE, SF_FALSE) ;
277 pcm_test_double ("double_le.mat4" , SF_ENDIAN_LITTLE | SF_FORMAT_MAT4 | SF_FORMAT_DOUBLE, SF_FALSE) ;
278
279 empty_file_test ("empty_short.mat4", SF_FORMAT_MAT4 | SF_FORMAT_PCM_16) ;
280 empty_file_test ("empty_float.mat4", SF_FORMAT_MAT4 | SF_FORMAT_FLOAT) ;
281 test_count++ ;
282 } ;
283
284 if (do_all || ! strcmp (argv [1], "mat5"))
285 { pcm_test_char ("char_be.mat5" , SF_ENDIAN_BIG | SF_FORMAT_MAT5 | SF_FORMAT_PCM_U8, SF_FALSE) ;
286 pcm_test_char ("char_le.mat5" , SF_ENDIAN_LITTLE | SF_FORMAT_MAT5 | SF_FORMAT_PCM_U8, SF_FALSE) ;
287 pcm_test_short ("short_be.mat5" , SF_ENDIAN_BIG | SF_FORMAT_MAT5 | SF_FORMAT_PCM_16, SF_FALSE) ;
288 pcm_test_short ("short_le.mat5" , SF_ENDIAN_LITTLE | SF_FORMAT_MAT5 | SF_FORMAT_PCM_16, SF_FALSE) ;
289 pcm_test_int ("int_be.mat5" , SF_ENDIAN_BIG | SF_FORMAT_MAT5 | SF_FORMAT_PCM_32, SF_FALSE) ;
290 pcm_test_int ("int_le.mat5" , SF_ENDIAN_LITTLE | SF_FORMAT_MAT5 | SF_FORMAT_PCM_32, SF_FALSE) ;
291 pcm_test_float ("float_be.mat5" , SF_ENDIAN_BIG | SF_FORMAT_MAT5 | SF_FORMAT_FLOAT , SF_FALSE) ;
292 pcm_test_float ("float_le.mat5" , SF_ENDIAN_LITTLE | SF_FORMAT_MAT5 | SF_FORMAT_FLOAT , SF_FALSE) ;
293 pcm_test_double ("double_be.mat5" , SF_ENDIAN_BIG | SF_FORMAT_MAT5 | SF_FORMAT_DOUBLE, SF_FALSE) ;
294 pcm_test_double ("double_le.mat5" , SF_ENDIAN_LITTLE | SF_FORMAT_MAT5 | SF_FORMAT_DOUBLE, SF_FALSE) ;
295
296 increment_open_file_count () ;
297
298 empty_file_test ("empty_char.mat5", SF_FORMAT_MAT5 | SF_FORMAT_PCM_U8) ;
299 empty_file_test ("empty_short.mat5", SF_FORMAT_MAT5 | SF_FORMAT_PCM_16) ;
300 empty_file_test ("empty_float.mat5", SF_FORMAT_MAT5 | SF_FORMAT_FLOAT) ;
301
302 test_count++ ;
303 } ;
304
305 if (do_all || ! strcmp (argv [1], "pvf"))
306 { pcm_test_char ("char.pvf" , SF_FORMAT_PVF | SF_FORMAT_PCM_S8, SF_FALSE) ;
307 pcm_test_short ("short.pvf", SF_FORMAT_PVF | SF_FORMAT_PCM_16, SF_FALSE) ;
308 pcm_test_int ("int.pvf" , SF_FORMAT_PVF | SF_FORMAT_PCM_32, SF_FALSE) ;
309 test_count++ ;
310 } ;
311
312 if (do_all || ! strcmp (argv [1], "htk"))
313 { pcm_test_short ("short.htk", SF_FORMAT_HTK | SF_FORMAT_PCM_16, SF_FALSE) ;
314 test_count++ ;
315 } ;
316
317 if (do_all || ! strcmp (argv [1], "mpc2k"))
318 { pcm_test_short ("short.mpc", SF_FORMAT_MPC2K | SF_FORMAT_PCM_16, SF_FALSE) ;
319 test_count++ ;
320 } ;
321
322 if (do_all || ! strcmp (argv [1], "avr"))
323 { pcm_test_char ("char_u8.avr" , SF_FORMAT_AVR | SF_FORMAT_PCM_U8, SF_FALSE) ;
324 pcm_test_char ("char_s8.avr" , SF_FORMAT_AVR | SF_FORMAT_PCM_S8, SF_FALSE) ;
325 pcm_test_short ("short.avr" , SF_FORMAT_AVR | SF_FORMAT_PCM_16, SF_FALSE) ;
326 test_count++ ;
327 } ;
328 /* Lite remove end */
329
330 if (do_all || ! strcmp (argv [1], "w64"))
331 { pcm_test_char ("char.w64" , SF_FORMAT_W64 | SF_FORMAT_PCM_U8, SF_FALSE) ;
332 pcm_test_short ("short.w64" , SF_FORMAT_W64 | SF_FORMAT_PCM_16, SF_FALSE) ;
333 pcm_test_24bit ("24bit.w64" , SF_FORMAT_W64 | SF_FORMAT_PCM_24, SF_FALSE) ;
334 pcm_test_int ("int.w64" , SF_FORMAT_W64 | SF_FORMAT_PCM_32, SF_FALSE) ;
335 /* Lite remove start */
336 pcm_test_float ("float.w64" , SF_FORMAT_W64 | SF_FORMAT_FLOAT , SF_FALSE) ;
337 pcm_test_double ("double.w64" , SF_FORMAT_W64 | SF_FORMAT_DOUBLE, SF_FALSE) ;
338 /* Lite remove end */
339
340 empty_file_test ("empty_char.w64", SF_FORMAT_W64 | SF_FORMAT_PCM_U8) ;
341 empty_file_test ("empty_short.w64", SF_FORMAT_W64 | SF_FORMAT_PCM_16) ;
342 empty_file_test ("empty_float.w64", SF_FORMAT_W64 | SF_FORMAT_FLOAT) ;
343
344 test_count++ ;
345 } ;
346
347 if (do_all || ! strcmp (argv [1], "sds"))
348 { pcm_test_char ("char.sds" , SF_FORMAT_SDS | SF_FORMAT_PCM_S8, SF_FALSE) ;
349 pcm_test_short ("short.sds" , SF_FORMAT_SDS | SF_FORMAT_PCM_16, SF_FALSE) ;
350 pcm_test_24bit ("24bit.sds" , SF_FORMAT_SDS | SF_FORMAT_PCM_24, SF_FALSE) ;
351
352 empty_file_test ("empty_char.sds", SF_FORMAT_SDS | SF_FORMAT_PCM_S8) ;
353 empty_file_test ("empty_short.sds", SF_FORMAT_SDS | SF_FORMAT_PCM_16) ;
354
355 test_count++ ;
356 } ;
357
358 if (do_all || ! strcmp (argv [1], "sd2"))
359 { pcm_test_char ("char.sd2" , SF_FORMAT_SD2 | SF_FORMAT_PCM_S8, SF_TRUE) ;
360 pcm_test_short ("short.sd2" , SF_FORMAT_SD2 | SF_FORMAT_PCM_16, SF_TRUE) ;
361 pcm_test_24bit ("24bit.sd2" , SF_FORMAT_SD2 | SF_FORMAT_PCM_24, SF_TRUE) ;
362 test_count++ ;
363 } ;
364
365 if (do_all || ! strcmp (argv [1], "flac"))
366 { if (HAVE_EXTERNAL_LIBS)
367 { pcm_test_char ("char.flac" , SF_FORMAT_FLAC | SF_FORMAT_PCM_S8, SF_TRUE) ;
368 pcm_test_short ("short.flac" , SF_FORMAT_FLAC | SF_FORMAT_PCM_16, SF_TRUE) ;
369 pcm_test_24bit ("24bit.flac" , SF_FORMAT_FLAC | SF_FORMAT_PCM_24, SF_TRUE) ;
370 }
371 else
372 puts (" No FLAC tests because FLAC support was not compiled in.") ;
373 test_count++ ;
374 } ;
375
376 if (do_all || ! strcmp (argv [1], "rf64"))
377 { pcm_test_char ("char.rf64" , SF_FORMAT_RF64 | SF_FORMAT_PCM_U8, SF_FALSE) ;
378 pcm_test_short ("short.rf64" , SF_FORMAT_RF64 | SF_FORMAT_PCM_16, SF_FALSE) ;
379 pcm_test_24bit ("24bit.rf64" , SF_FORMAT_RF64 | SF_FORMAT_PCM_24, SF_FALSE) ;
380 pcm_test_int ("int.rf64" , SF_FORMAT_RF64 | SF_FORMAT_PCM_32, SF_FALSE) ;
381
382 /* Lite remove start */
383 pcm_test_float ("float.rf64" , SF_FORMAT_RF64 | SF_FORMAT_FLOAT , SF_FALSE) ;
384 pcm_test_double ("double.rf64" , SF_FORMAT_RF64 | SF_FORMAT_DOUBLE, SF_FALSE) ;
385 empty_file_test ("empty_char.rf64", SF_FORMAT_RF64 | SF_FORMAT_PCM_U8) ;
386 empty_file_test ("empty_short.rf64", SF_FORMAT_RF64 | SF_FORMAT_PCM_16) ;
387 empty_file_test ("empty_float.rf64", SF_FORMAT_RF64 | SF_FORMAT_FLOAT) ;
388 /* Lite remove end */
389
390 test_count++ ;
391 } ;
392
393 if (test_count == 0)
394 { printf ("Mono : ************************************\n") ;
395 printf ("Mono : * No '%s' test defined.\n", argv [1]) ;
396 printf ("Mono : ************************************\n") ;
397 return 1 ;
398 } ;
399
400 /* Only open file descriptors should be stdin, stdout and stderr. */
401 check_open_file_count_or_die (__LINE__) ;
402
403 return 0 ;
404 } /* main */
405
406 /*============================================================================================
407 ** Helper functions and macros.
408 */
409
410 static void create_short_file (const char *filename) ;
411
412 #define CHAR_ERROR(x,y) (abs ((x) - (y)) > 255)
413 #define INT_ERROR(x,y) (((x) - (y)) != 0)
414 #define TRIBYTE_ERROR(x,y) (abs ((x) - (y)) > 255)
415 #define FLOAT_ERROR(x,y) (fabs ((x) - (y)) > 1e-5)
416
417 #define CONVERT_DATA(k,len,new,orig) \
418 { for ((k) = 0 ; (k) < (len) ; (k) ++) \
419 (new) [k] = (orig) [k] ; \
420 }
421
422 [+ FOR data_type
423 +]
424 /*======================================================================================
425 */
426
427 static void mono_[+ (get "type_name") +]_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
428 static void stereo_[+ (get "type_name") +]_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
429 static void mono_rdwr_[+ (get "type_name") +]_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
430 static void new_rdwr_[+ (get "type_name") +]_test (const char *filename, int format, int allow_fd) ;
431 static void multi_seek_test (const char * filename, int format) ;
432 static void write_seek_extend_test (const char * filename, int format) ;
433
434 static void
435 pcm_test_[+ (get "type_name") +] (const char *filename, int format, int long_file_ok)
436 { SF_INFO sfinfo ;
437 [+ (get "data_type") +] *orig ;
438 int k, allow_fd ;
439
440 /* Sd2 files cannot be opened from an existing file descriptor. */
441 allow_fd = ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2) ? SF_FALSE : SF_TRUE ;
442
443 print_test_name ("pcm_test_[+ (get "type_name") +]", filename) ;
444
445 sfinfo.samplerate = 44100 ;
446 sfinfo.frames = SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
447 sfinfo.channels = 1 ;
448 sfinfo.format = format ;
449
450 gen_windowed_sine_double (orig_data.d, DATA_LENGTH, [+ (get "max_val") +]) ;
451
452 orig = orig_data.[+ (get "data_field") +] ;
453
454 /* Make this a macro so gdb steps over it in one go. */
455 CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
456
457 /* Some test broken out here. */
458
459 mono_[+ (get "type_name") +]_test (filename, format, long_file_ok, allow_fd) ;
460
461 /* Sub format DWVW does not allow seeking. */
462 if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
463 (format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
464 { unlink (filename) ;
465 printf ("no seek : ok\n") ;
466 return ;
467 } ;
468
469 if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
470 mono_rdwr_[+ (get "type_name") +]_test (filename, format, long_file_ok, allow_fd) ;
471
472 /* If the format doesn't support stereo we're done. */
473 sfinfo.channels = 2 ;
474 if (sf_format_check (&sfinfo) == 0)
475 { unlink (filename) ;
476 puts ("no stereo : ok") ;
477 return ;
478 } ;
479
480 stereo_[+ (get "type_name") +]_test (filename, format, long_file_ok, allow_fd) ;
481
482 /* New read/write test. Not sure if this is needed yet. */
483
484 if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_PAF &&
485 (format & SF_FORMAT_TYPEMASK) != SF_FORMAT_VOC &&
486 (format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
487 new_rdwr_[+ (get "type_name") +]_test (filename, format, allow_fd) ;
488
489 delete_file (format, filename) ;
490
491 puts ("ok") ;
492 return ;
493 } /* pcm_test_[+ (get "type_name") +] */
494
495 static void
496 mono_[+ (get "type_name") +]_test (const char *filename, int format, int long_file_ok, int allow_fd)
497 { SNDFILE *file ;
498 SF_INFO sfinfo ;
499 [+ (get "data_type") +] *orig, *test ;
500 sf_count_t count ;
501 int k, items ;
502
503 sfinfo.samplerate = 44100 ;
504 sfinfo.frames = SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
505 sfinfo.channels = 1 ;
506 sfinfo.format = format ;
507
508 orig = orig_data.[+ (get "data_field") +] ;
509 test = test_data.[+ (get "data_field") +] ;
510
511 items = DATA_LENGTH ;
512
513 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
514
515 sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
516
517 test_write_[+ (get "data_type") +]_or_die (file, 0, orig, items, __LINE__) ;
518 sf_write_sync (file) ;
519 test_write_[+ (get "data_type") +]_or_die (file, 0, orig, items, __LINE__) ;
520 sf_write_sync (file) ;
521
522 /* Add non-audio data after the audio. */
523 sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
524
525 sf_close (file) ;
526
527 memset (test, 0, items * sizeof ([+ (get "data_type") +])) ;
528
529 if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
530 memset (&sfinfo, 0, sizeof (sfinfo)) ;
531
532 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
533
534 if (sfinfo.format != format)
535 { printf ("\n\nLine %d : Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
536 exit (1) ;
537 } ;
538
539 if (sfinfo.frames < 2 * items)
540 { printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
541 exit (1) ;
542 } ;
543
544 if (! long_file_ok && sfinfo.frames > 2 * items)
545 { printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too long). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
546 exit (1) ;
547 } ;
548
549 if (sfinfo.channels != 1)
550 { printf ("\n\nLine %d : Mono : Incorrect number of channels in file.\n", __LINE__) ;
551 exit (1) ;
552 } ;
553
554 check_log_buffer_or_die (file, __LINE__) ;
555
556 test_read_[+ (get "data_type") +]_or_die (file, 0, test, items, __LINE__) ;
557 for (k = 0 ; k < items ; k++)
558 if ([+ (get "error_func") +] (orig [k], test [k]))
559 { printf ("\n\nLine %d: Mono : Incorrect sample A (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, orig [k], test [k]) ;
560 oct_save_[+ (get "data_type") +] (orig, test, items) ;
561 exit (1) ;
562 } ;
563
564 /* Seek to start of file. */
565 test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
566
567 test_read_[+ (get "data_type") +]_or_die (file, 0, test, 4, __LINE__) ;
568 for (k = 0 ; k < 4 ; k++)
569 if ([+ (get "error_func") +] (orig [k], test [k]))
570 { printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, orig [k], test [k]) ;
571 exit (1) ;
572 } ;
573
574 if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
575 (format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
576 { sf_close (file) ;
577 unlink (filename) ;
578 printf ("no seek : ") ;
579 return ;
580 } ;
581
582 /* Seek to offset from start of file. */
583 test_seek_or_die (file, items + 10, SEEK_SET, items + 10, sfinfo.channels, __LINE__) ;
584
585 test_read_[+ (get "data_type") +]_or_die (file, 0, test + 10, 4, __LINE__) ;
586 for (k = 10 ; k < 14 ; k++)
587 if ([+ (get "error_func") +] (orig [k], test [k]))
588 { printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, test [k], orig [k]) ;
589 exit (1) ;
590 } ;
591
592 /* Seek to offset from current position. */
593 test_seek_or_die (file, 6, SEEK_CUR, items + 20, sfinfo.channels, __LINE__) ;
594
595 test_read_[+ (get "data_type") +]_or_die (file, 0, test + 20, 4, __LINE__) ;
596 for (k = 20 ; k < 24 ; k++)
597 if ([+ (get "error_func") +] (orig [k], test [k]))
598 { printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, test [k], orig [k]) ;
599 exit (1) ;
600 } ;
601
602 /* Seek to offset from end of file. */
603 test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
604
605 test_read_[+ (get "data_type") +]_or_die (file, 0, test + 10, 4, __LINE__) ;
606 for (k = 10 ; k < 14 ; k++)
607 if ([+ (get "error_func") +] (orig [k], test [k]))
608 { printf ("\n\nLine %d : Mono : Incorrect sample D (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, test [k], orig [k]) ;
609 exit (1) ;
610 } ;
611
612 /* Check read past end of file followed by sf_seek (sndfile, 0, SEEK_CUR). */
613 test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
614
615 count = 0 ;
616 while (count < sfinfo.frames)
617 count += sf_read_[+ (get "data_type") +] (file, test, 311) ;
618
619 /* Check that no error has occurred. */
620 if (sf_error (file))
621 { printf ("\n\nLine %d : Mono : error where there shouldn't have been one.\n", __LINE__) ;
622 puts (sf_strerror (file)) ;
623 exit (1) ;
624 } ;
625
626 /* Check that we haven't read beyond EOF. */
627 if (count > sfinfo.frames)
628 { printf ("\n\nLines %d : read past end of file (%ld should be %ld)\n", __LINE__, (long) count, (long) sfinfo.frames) ;
629 exit (1) ;
630 } ;
631
632 test_seek_or_die (file, 0, SEEK_CUR, sfinfo.frames, sfinfo.channels, __LINE__) ;
633
634 sf_close (file) ;
635
636 multi_seek_test (filename, format) ;
637 write_seek_extend_test (filename, format) ;
638
639 } /* mono_[+ (get "type_name") +]_test */
640
641 static void
642 stereo_[+ (get "type_name") +]_test (const char *filename, int format, int long_file_ok, int allow_fd)
643 { SNDFILE *file ;
644 SF_INFO sfinfo ;
645 [+ (get "data_type") +] *orig, *test ;
646 int k, items, frames ;
647
648 sfinfo.samplerate = 44100 ;
649 sfinfo.frames = SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
650 sfinfo.channels = 2 ;
651 sfinfo.format = format ;
652
653 gen_windowed_sine_double (orig_data.d, DATA_LENGTH, [+ (get "max_val") +]) ;
654
655 orig = orig_data.[+ (get "data_field") +] ;
656 test = test_data.[+ (get "data_field") +] ;
657
658 /* Make this a macro so gdb steps over it in one go. */
659 CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
660
661 items = DATA_LENGTH ;
662 frames = items / sfinfo.channels ;
663
664 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
665
666 sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
667
668 test_writef_[+ (get "data_type") +]_or_die (file, 0, orig, frames, __LINE__) ;
669
670 sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
671
672 sf_close (file) ;
673
674 memset (test, 0, items * sizeof ([+ (get "data_type") +])) ;
675
676 if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
677 memset (&sfinfo, 0, sizeof (sfinfo)) ;
678
679 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
680
681 if (sfinfo.format != format)
682 { printf ("\n\nLine %d : Stereo : Returned format incorrect (0x%08X => 0x%08X).\n",
683 __LINE__, format, sfinfo.format) ;
684 exit (1) ;
685 } ;
686
687 if (sfinfo.frames < frames)
688 { printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too short). (%ld should be %d)\n",
689 __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
690 exit (1) ;
691 } ;
692
693 if (! long_file_ok && sfinfo.frames > frames)
694 { printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too long). (%ld should be %d)\n",
695 __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
696 exit (1) ;
697 } ;
698
699 if (sfinfo.channels != 2)
700 { printf ("\n\nLine %d : Stereo : Incorrect number of channels in file.\n", __LINE__) ;
701 exit (1) ;
702 } ;
703
704 check_log_buffer_or_die (file, __LINE__) ;
705
706 test_readf_[+ (get "data_type") +]_or_die (file, 0, test, frames, __LINE__) ;
707 for (k = 0 ; k < items ; k++)
708 if ([+ (get "error_func") +] (test [k], orig [k]))
709 { printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, orig [k], test [k]) ;
710 exit (1) ;
711 } ;
712
713 /* Seek to start of file. */
714 test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
715
716 test_readf_[+ (get "data_type") +]_or_die (file, 0, test, 2, __LINE__) ;
717 for (k = 0 ; k < 4 ; k++)
718 if ([+ (get "error_func") +] (test [k], orig [k]))
719 { printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, orig [k], test [k]) ;
720 exit (1) ;
721 } ;
722
723 /* Seek to offset from start of file. */
724 test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
725
726 /* Check for errors here. */
727 if (sf_error (file))
728 { printf ("Line %d: Should NOT return an error.\n", __LINE__) ;
729 puts (sf_strerror (file)) ;
730 exit (1) ;
731 } ;
732
733 if (sf_read_[+ (get "data_type") +] (file, test, 1) > 0)
734 { printf ("Line %d: Should return 0.\n", __LINE__) ;
735 exit (1) ;
736 } ;
737
738 if (! sf_error (file))
739 { printf ("Line %d: Should return an error.\n", __LINE__) ;
740 exit (1) ;
741 } ;
742 /*-----------------------*/
743
744 test_readf_[+ (get "data_type") +]_or_die (file, 0, test + 10, 2, __LINE__) ;
745 for (k = 20 ; k < 24 ; k++)
746 if ([+ (get "error_func") +] (test [k], orig [k]))
747 { printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, orig [k], test [k]) ;
748 exit (1) ;
749 } ;
750
751 /* Seek to offset from current position. */
752 test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
753
754 test_readf_[+ (get "data_type") +]_or_die (file, 0, test + 20, 2, __LINE__) ;
755 for (k = 40 ; k < 44 ; k++)
756 if ([+ (get "error_func") +] (test [k], orig [k]))
757 { printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, orig [k], test [k]) ;
758 exit (1) ;
759 } ;
760
761 /* Seek to offset from end of file. */
762 test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
763
764 test_readf_[+ (get "data_type") +]_or_die (file, 0, test + 20, 2, __LINE__) ;
765 for (k = 20 ; k < 24 ; k++)
766 if ([+ (get "error_func") +] (test [k], orig [k]))
767 { printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : [+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, k, orig [k], test [k]) ;
768 exit (1) ;
769 } ;
770
771 sf_close (file) ;
772 } /* stereo_[+ (get "type_name") +]_test */
773
774 static void
775 mono_rdwr_[+ (get "type_name") +]_test (const char *filename, int format, int long_file_ok, int allow_fd)
776 { SNDFILE *file ;
777 SF_INFO sfinfo ;
778 [+ (get "data_type") +] *orig, *test ;
779 int k, pass ;
780
781 orig = orig_data.[+ (get "data_field") +] ;
782 test = test_data.[+ (get "data_field") +] ;
783
784 sfinfo.samplerate = SAMPLE_RATE ;
785 sfinfo.frames = DATA_LENGTH ;
786 sfinfo.channels = 1 ;
787 sfinfo.format = format ;
788
789 if ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_RAW
790 || (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_AU
791 || (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2)
792 unlink (filename) ;
793 else
794 { /* Create a short file. */
795 create_short_file (filename) ;
796
797 /* Opening a already existing short file (ie invalid header) RDWR is disallowed.
798 ** If this returns a valif pointer sf_open() screwed up.
799 */
800 if ((file = sf_open (filename, SFM_RDWR, &sfinfo)))
801 { printf ("\n\nLine %d: sf_open should (SFM_RDWR) have failed but didn't.\n", __LINE__) ;
802 exit (1) ;
803 } ;
804
805 /* Truncate the file to zero bytes. */
806 if (truncate (filename, 0) < 0)
807 { printf ("\n\nLine %d: truncate (%s) failed", __LINE__, filename) ;
808 perror (NULL) ;
809 exit (1) ;
810 } ;
811 } ;
812
813 /* Opening a zero length file RDWR is allowed, but the SF_INFO struct must contain
814 ** all the usual data required when opening the file in WRITE mode.
815 */
816 sfinfo.samplerate = SAMPLE_RATE ;
817 sfinfo.frames = DATA_LENGTH ;
818 sfinfo.channels = 1 ;
819 sfinfo.format = format ;
820
821 file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
822
823 /* Do 3 writes followed by reads. After each, check the data and the current
824 ** read and write offsets.
825 */
826 for (pass = 1 ; pass <= 3 ; pass ++)
827 { orig [20] = pass * 2 ;
828
829 /* Write some data. */
830 test_write_[+ (get "data_type") +]_or_die (file, pass, orig, DATA_LENGTH, __LINE__) ;
831
832 test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, pass * DATA_LENGTH) ;
833
834 /* Read what we just wrote. */
835 test_read_[+ (get "data_type") +]_or_die (file, 0, test, DATA_LENGTH, __LINE__) ;
836
837 /* Check the data. */
838 for (k = 0 ; k < DATA_LENGTH ; k++)
839 if ([+ (get "error_func") +] (orig [k], test [k]))
840 { printf ("\n\nLine %d (pass %d) A : Error at sample %d ([+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, pass, k, orig [k], test [k]) ;
841 oct_save_[+ (get "data_type") +] (orig, test, DATA_LENGTH) ;
842 exit (1) ;
843 } ;
844
845 test_read_write_position_or_die (file, __LINE__, pass, pass * DATA_LENGTH, pass * DATA_LENGTH) ;
846 } ; /* for (pass ...) */
847
848 sf_close (file) ;
849
850 /* Open the file again to check the data. */
851 file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
852
853 if (sfinfo.format != format)
854 { printf ("\n\nLine %d : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
855 exit (1) ;
856 } ;
857
858 if (sfinfo.frames < 3 * DATA_LENGTH)
859 { printf ("\n\nLine %d : Not enough frames in file. (%ld < %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
860 exit (1) ;
861 }
862
863 if (! long_file_ok && sfinfo.frames != 3 * DATA_LENGTH)
864 { printf ("\n\nLine %d : Incorrect number of frames in file. (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
865 exit (1) ;
866 } ;
867
868 if (sfinfo.channels != 1)
869 { printf ("\n\nLine %d : Incorrect number of channels in file.\n", __LINE__) ;
870 exit (1) ;
871 } ;
872
873 if (! long_file_ok)
874 test_read_write_position_or_die (file, __LINE__, 0, 0, 3 * DATA_LENGTH) ;
875 else
876 test_seek_or_die (file, 3 * DATA_LENGTH, SFM_WRITE | SEEK_SET, 3 * DATA_LENGTH, sfinfo.channels, __LINE__) ;
877
878 for (pass = 1 ; pass <= 3 ; pass ++)
879 { orig [20] = pass * 2 ;
880
881 test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, 3 * DATA_LENGTH) ;
882
883 /* Read what we just wrote. */
884 test_read_[+ (get "data_type") +]_or_die (file, pass, test, DATA_LENGTH, __LINE__) ;
885
886 /* Check the data. */
887 for (k = 0 ; k < DATA_LENGTH ; k++)
888 if ([+ (get "error_func") +] (orig [k], test [k]))
889 { printf ("\n\nLine %d (pass %d) B : Error at sample %d ([+ (get "format_char") +] => [+ (get "format_char") +]).\n", __LINE__, pass, k, orig [k], test [k]) ;
890 oct_save_[+ (get "data_type") +] (orig, test, DATA_LENGTH) ;
891 exit (1) ;
892 } ;
893
894 } ; /* for (pass ...) */
895
896 sf_close (file) ;
897 } /* mono_rdwr_[+ (get "data_type") +]_test */
898
899 static void
900 new_rdwr_[+ (get "type_name") +]_test (const char *filename, int format, int allow_fd)
901 { SNDFILE *wfile, *rwfile ;
902 SF_INFO sfinfo ;
903 [+ (get "data_type") +] *orig, *test ;
904 int items, frames ;
905
906 orig = orig_data.[+ (get "data_field") +] ;
907 test = test_data.[+ (get "data_field") +] ;
908
909 sfinfo.samplerate = 44100 ;
910 sfinfo.frames = SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
911 sfinfo.channels = 2 ;
912 sfinfo.format = format ;
913
914 items = DATA_LENGTH ;
915 frames = items / sfinfo.channels ;
916
917 wfile = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
918 sf_command (wfile, SFC_SET_UPDATE_HEADER_AUTO, NULL, SF_TRUE) ;
919 test_writef_[+ (get "data_type") +]_or_die (wfile, 1, orig, frames, __LINE__) ;
920 sf_write_sync (wfile) ;
921 test_writef_[+ (get "data_type") +]_or_die (wfile, 2, orig, frames, __LINE__) ;
922 sf_write_sync (wfile) ;
923
924 rwfile = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
925 if (sfinfo.frames != 2 * frames)
926 { printf ("\n\nLine %d : incorrect number of frames in file (%ld should be %d)\n\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 2 * frames) ;
927 exit (1) ;
928 } ;
929
930 test_writef_[+ (get "data_type") +]_or_die (wfile, 3, orig, frames, __LINE__) ;
931
932 test_readf_[+ (get "data_type") +]_or_die (rwfile, 1, test, frames, __LINE__) ;
933 test_readf_[+ (get "data_type") +]_or_die (rwfile, 2, test, frames, __LINE__) ;
934
935 sf_close (wfile) ;
936 sf_close (rwfile) ;
937 } /* new_rdwr_[+ (get "type_name") +]_test */
938
939 [+ ENDFOR data_type +]
940
941 /*----------------------------------------------------------------------------------------
942 */
943
944 static void
945 empty_file_test (const char *filename, int format)
946 { SNDFILE *file ;
947 SF_INFO info ;
948 int allow_fd ;
949
950 /* Sd2 files cannot be opened from an existing file descriptor. */
951 allow_fd = ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2) ? SF_FALSE : SF_TRUE ;
952
953 print_test_name ("empty_file_test", filename) ;
954
955 unlink (filename) ;
956
957 info.samplerate = 48000 ;
958 info.channels = 2 ;
959 info.format = format ;
960
961 if (sf_format_check (&info) == SF_FALSE)
962 { info.channels = 1 ;
963 if (sf_format_check (&info) == SF_FALSE)
964 { puts ("invalid file format") ;
965 return ;
966 } ;
967 } ;
968
969 /* Create an empty file. */
970 file = test_open_file_or_die (filename, SFM_WRITE, &info, allow_fd, __LINE__) ;
971 sf_close (file) ;
972
973 /* Open for read and check the length. */
974 file = test_open_file_or_die (filename, SFM_READ, &info, allow_fd, __LINE__) ;
975
976 if (SF_COUNT_TO_LONG (info.frames) != 0)
977 { printf ("\n\nError : frame count (%ld) should be zero.\n", SF_COUNT_TO_LONG (info.frames)) ;
978 exit (1) ;
979 } ;
980
981 sf_close (file) ;
982
983 /* Open for read/write and check the length. */
984 file = test_open_file_or_die (filename, SFM_RDWR, &info, allow_fd, __LINE__) ;
985
986 if (SF_COUNT_TO_LONG (info.frames) != 0)
987 { printf ("\n\nError : frame count (%ld) should be zero.\n", SF_COUNT_TO_LONG (info.frames)) ;
988 exit (1) ;
989 } ;
990
991 sf_close (file) ;
992
993 /* Open for read and check the length. */
994 file = test_open_file_or_die (filename, SFM_READ, &info, allow_fd, __LINE__) ;
995
996 if (SF_COUNT_TO_LONG (info.frames) != 0)
997 { printf ("\n\nError : frame count (%ld) should be zero.\n", SF_COUNT_TO_LONG (info.frames)) ;
998 exit (1) ;
999 } ;
1000
1001 sf_close (file) ;
1002
1003 check_open_file_count_or_die (__LINE__) ;
1004
1005 unlink (filename) ;
1006 puts ("ok") ;
1007
1008 return ;
1009 } /* empty_file_test */
1010
1011
1012 /*----------------------------------------------------------------------------------------
1013 */
1014
1015 static void
1016 create_short_file (const char *filename)
1017 { FILE *file ;
1018
1019 if (! (file = fopen (filename, "w")))
1020 { printf ("create_short_file : fopen (%s, \"w\") failed.", filename) ;
1021 fflush (stdout) ;
1022 perror (NULL) ;
1023 exit (1) ;
1024 } ;
1025
1026 fprintf (file, "This is the file data.\n") ;
1027
1028 fclose (file) ;
1029 } /* create_short_file */
1030
1031 #if (defined (WIN32) || defined (__WIN32))
1032
1033 /* Win32 does not have truncate (nor does it have the POSIX function ftruncate).
1034 ** Hack somethng up here to over come this. This function can only truncate to a
1035 ** length of zero.
1036 */
1037
1038 static int
1039 truncate (const char *filename, int ignored)
1040 { int fd ;
1041
1042 ignored = 0 ;
1043
1044 if ((fd = open (filename, O_RDWR | O_TRUNC | O_BINARY)) < 0)
1045 return 0 ;
1046
1047 close (fd) ;
1048
1049 return 0 ;
1050 } /* truncate */
1051
1052 #endif
1053
1054 static void
1055 multi_seek_test (const char * filename, int format)
1056 { SNDFILE * file ;
1057 SF_INFO info ;
1058 sf_count_t pos ;
1059 int k ;
1060
1061 /* This test doesn't work on the following. */
1062 switch (format & SF_FORMAT_TYPEMASK)
1063 { case SF_FORMAT_RAW :
1064 return ;
1065
1066 default :
1067 break ;
1068 } ;
1069
1070 memset (&info, 0, sizeof (info)) ;
1071
1072 generate_file (filename, format, 88200) ;
1073
1074 file = test_open_file_or_die (filename, SFM_READ, &info, SF_FALSE, __LINE__) ;
1075
1076 for (k = 0 ; k < 10 ; k++)
1077 { pos = info.frames / (k + 2) ;
1078 test_seek_or_die (file, pos, SEEK_SET, pos, info.channels, __LINE__) ;
1079 } ;
1080
1081 sf_close (file) ;
1082 } /* multi_seek_test */
1083
1084 static void
1085 write_seek_extend_test (const char * filename, int format)
1086 { SNDFILE * file ;
1087 SF_INFO info ;
1088 short *orig, *test ;
1089 unsigned items, k ;
1090
1091 /* This test doesn't work on the following. */
1092 switch (format & SF_FORMAT_TYPEMASK)
1093 { case SF_FORMAT_FLAC :
1094 case SF_FORMAT_HTK :
1095 case SF_FORMAT_PAF :
1096 case SF_FORMAT_SDS :
1097 case SF_FORMAT_SVX :
1098 return ;
1099
1100 default :
1101 break ;
1102 } ;
1103
1104 memset (&info, 0, sizeof (info)) ;
1105
1106 info.samplerate = 48000 ;
1107 info.channels = 1 ;
1108 info.format = format ;
1109
1110 items = 512 ;
1111 exit_if_true (items > ARRAY_LEN (orig_data.s), "Line %d : Bad assumption.\n", __LINE__) ;
1112
1113 orig = orig_data.s ;
1114 test = test_data.s ;
1115
1116 for (k = 0 ; k < ARRAY_LEN (orig_data.s) ; k++)
1117 orig [k] = 0x3fff ;
1118
1119 file = test_open_file_or_die (filename, SFM_WRITE, &info, SF_FALSE, __LINE__) ;
1120 test_write_short_or_die (file, 0, orig, items, __LINE__) ;
1121
1122 /* Extend the file using a seek. */
1123 test_seek_or_die (file, 2 * items, SEEK_SET, 2 * items, info.channels, __LINE__) ;
1124
1125 test_writef_short_or_die (file, 0, orig, items, __LINE__) ;
1126 sf_close (file) ;
1127
1128 file = test_open_file_or_die (filename, SFM_READ, &info, SF_FALSE, __LINE__) ;
1129 test_read_short_or_die (file, 0, test, 3 * items, __LINE__) ;
1130 sf_close (file) ;
1131
1132 /* Can't do these formats due to scaling. */
1133 switch (format & SF_FORMAT_SUBMASK)
1134 { case SF_FORMAT_PCM_S8 :
1135 case SF_FORMAT_PCM_U8 :
1136 return ;
1137 default :
1138 break ;
1139 } ;
1140
1141 for (k = 0 ; k < items ; k++)
1142 { exit_if_true (test [k] != 0x3fff, "Line %d : test [%d] == %d, should be 0x3fff.\n", __LINE__, k, test [k]) ;
1143 exit_if_true (test [items + k] != 0, "Line %d : test [%d] == %d, should be 0.\n", __LINE__, items + k, test [items + k]) ;
1144 exit_if_true (test [2 * items + k] != 0x3fff, "Line %d : test [%d] == %d, should be 0x3fff.\n", __LINE__, 2 * items + k, test [2 * items + k]) ;
1145 } ;
1146
1147 return ;
1148 } /* write_seek_extend_test */
1149
1150