libsndfile-ocaml source files.
[Faustine.git] / interpretor / lib / src / libsndfile-1.0.25 / tests / pcm_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 #include <math.h>
26
27 #if HAVE_UNISTD_H
28 #include <unistd.h>
29 #endif
30
31 #include <sndfile.h>
32
33 #include "utils.h"
34
35 #define BUFFER_SIZE (1<<12)
36
37 static void lrintf_test (void) ;
38
39 [+ FOR data_type
40 +]static void pcm_test_[+ (get "name") +] (const char *filename, int filetype, uint64_t hash) ;
41 [+ ENDFOR data_type
42 +]
43 static void pcm_test_float (const char *filename, int filetype, uint64_t hash, int replace_float) ;
44 static void pcm_test_double (const char *filename, int filetype, uint64_t hash, int replace_float) ;
45
46 typedef union
47 { double d [BUFFER_SIZE + 1] ;
48 float f [BUFFER_SIZE + 1] ;
49 int i [BUFFER_SIZE + 1] ;
50 short s [BUFFER_SIZE + 1] ;
51 } BUFFER ;
52
53 /* Data written to the file. */
54 static BUFFER data_out ;
55
56 /* Data read back from the file. */
57 static BUFFER data_in ;
58
59 int
60 main (void)
61 {
62 lrintf_test () ;
63
64 pcm_test_bits_8 ("pcm-s8.raw", SF_FORMAT_RAW | SF_FORMAT_PCM_S8, 0x1cda335091249dbfLL) ;
65 pcm_test_bits_8 ("pcm-u8.raw", SF_FORMAT_RAW | SF_FORMAT_PCM_U8, 0x7f748c433d695f3fLL) ;
66
67 pcm_test_bits_16 ("le-pcm16.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_16, 0x3a2b956c881ebf08LL) ;
68 pcm_test_bits_16 ("be-pcm16.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_16, 0xd9e2f840c55750f8LL) ;
69
70 pcm_test_bits_24 ("le-pcm24.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_24, 0x933b6a759ab496f8LL) ;
71 pcm_test_bits_24 ("be-pcm24.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_24, 0xbb1f3eaf9c30b6f8LL) ;
72
73 pcm_test_bits_32 ("le-pcm32.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_PCM_32, 0xa77aece1c1c17f08LL) ;
74 pcm_test_bits_32 ("be-pcm32.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_PCM_32, 0x3099ddf142d0b0f8LL) ;
75
76 /* Lite remove start */
77 pcm_test_float ("le-float.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x3c2ad04f7554267aLL, SF_FALSE) ;
78 pcm_test_float ("be-float.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x074de3e248fa9186LL, SF_FALSE) ;
79
80 pcm_test_double ("le-double.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xc682726f958f669cLL, SF_FALSE) ;
81 pcm_test_double ("be-double.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xd9a3583f8ee51164LL, SF_FALSE) ;
82
83 pcm_test_float ("le-float.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x3c2ad04f7554267aLL, SF_TRUE) ;
84 pcm_test_float ("be-float.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x074de3e248fa9186LL, SF_TRUE) ;
85
86 pcm_test_double ("le-double.raw", SF_ENDIAN_LITTLE | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xc682726f958f669cLL, SF_TRUE) ;
87 pcm_test_double ("be-double.raw", SF_ENDIAN_BIG | SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xd9a3583f8ee51164LL, SF_TRUE) ;
88 /* Lite remove end */
89
90 return 0 ;
91 } /* main */
92
93 /*============================================================================================
94 ** Here are the test functions.
95 */
96
97 static void
98 lrintf_test (void)
99 { int k, items ;
100 float *float_data ;
101 int *int_data ;
102
103 print_test_name ("lrintf_test", "") ;
104
105 items = 1024 ;
106
107 float_data = data_out.f ;
108 int_data = data_in.i ;
109
110 for (k = 0 ; k < items ; k++)
111 float_data [k] = (k * ((k % 2) ? 333333.0 : -333333.0)) ;
112
113 for (k = 0 ; k < items ; k++)
114 int_data [k] = lrintf (float_data [k]) ;
115
116 for (k = 0 ; k < items ; k++)
117 if (fabs (int_data [k] - float_data [k]) > 1.0)
118 { printf ("\n\nLine %d: float : Incorrect sample (#%d : %f => %d).\n", __LINE__, k, float_data [k], int_data [k]) ;
119 exit (1) ;
120 } ;
121
122 printf ("ok\n") ;
123 } /* lrintf_test */
124
125 [+ FOR data_type
126 +]static void
127 pcm_test_[+ (get "name") +] (const char *filename, int filetype, uint64_t hash)
128 { SNDFILE *file ;
129 SF_INFO sfinfo ;
130 int k, items, zero_count ;
131 short *short_out, *short_in ;
132 int *int_out, *int_in ;
133 /* Lite remove start */
134 float *float_out, *float_in ;
135 double *double_out, *double_in ;
136 /* Lite remove end */
137
138 print_test_name ("pcm_test_[+ (get "name") +]", filename) ;
139
140 items = [+ (get "item_count") +] ;
141
142 short_out = data_out.s ;
143 short_in = data_in.s ;
144
145 zero_count = 0 ;
146 for (k = 0 ; k < items ; k++)
147 { short_out [k] = [+ (get "short_func") +] ;
148 zero_count = short_out [k] ? zero_count : zero_count + 1 ;
149 } ;
150
151 if (zero_count > items / 4)
152 { printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
153 exit (1) ;
154 } ;
155
156 sfinfo.samplerate = 44100 ;
157 sfinfo.frames = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
158 sfinfo.channels = 1 ;
159 sfinfo.format = filetype ;
160
161 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
162
163 test_write_short_or_die (file, 0, short_out, items, __LINE__) ;
164
165 sf_close (file) ;
166
167 memset (short_in, 0, items * sizeof (short)) ;
168
169 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
170
171 if (sfinfo.format != filetype)
172 { printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
173 exit (1) ;
174 } ;
175
176 if (sfinfo.frames != items)
177 { printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
178 exit (1) ;
179 } ;
180
181 if (sfinfo.channels != 1)
182 { printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
183 exit (1) ;
184 } ;
185
186 check_log_buffer_or_die (file, __LINE__) ;
187
188 test_read_short_or_die (file, 0, short_in, items, __LINE__) ;
189
190 for (k = 0 ; k < items ; k++)
191 if (short_out [k] != short_in [k])
192 { printf ("\n\nLine %d: Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, short_out [k], short_in [k]) ;
193 exit (1) ;
194 } ;
195
196 sf_close (file) ;
197
198 /* Finally, check the file hash. */
199 check_file_hash_or_die (filename, hash, __LINE__) ;
200
201 /*--------------------------------------------------------------------------
202 ** Test sf_read/write_int ()
203 */
204 zero_count = 0 ;
205
206 int_out = data_out.i ;
207 int_in = data_in.i ;
208 for (k = 0 ; k < items ; k++)
209 { int_out [k] = [+ (get "int_func") +] ;
210 zero_count = int_out [k] ? zero_count : zero_count + 1 ;
211 } ;
212
213 if (zero_count > items / 4)
214 { printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
215 exit (1) ;
216 } ;
217
218 sfinfo.samplerate = 44100 ;
219 sfinfo.frames = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
220 sfinfo.channels = 1 ;
221 sfinfo.format = filetype ;
222
223 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
224
225 test_write_int_or_die (file, 0, int_out, items, __LINE__) ;
226
227 sf_close (file) ;
228
229 memset (int_in, 0, items * sizeof (int)) ;
230
231 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
232
233 if (sfinfo.format != filetype)
234 { printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
235 exit (1) ;
236 } ;
237
238 if (sfinfo.frames != items)
239 { printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
240 exit (1) ;
241 } ;
242
243 if (sfinfo.channels != 1)
244 { printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
245 exit (1) ;
246 } ;
247
248 check_log_buffer_or_die (file, __LINE__) ;
249
250 test_read_int_or_die (file, 0, int_in, items, __LINE__) ;
251
252 for (k = 0 ; k < items ; k++)
253 if (int_out [k] != int_in [k])
254 { printf ("\n\nLine %d: int : Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, int_out [k], int_in [k]) ;
255 exit (1) ;
256 } ;
257
258 sf_close (file) ;
259
260 /* Lite remove start */
261 /*--------------------------------------------------------------------------
262 ** Test sf_read/write_float ()
263 */
264 zero_count = 0 ;
265
266 float_out = data_out.f ;
267 float_in = data_in.f ;
268 for (k = 0 ; k < items ; k++)
269 { float_out [k] = [+ (get "float_func") +] ;
270 zero_count = (fabs (float_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
271 } ;
272
273 if (zero_count > items / 4)
274 { printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
275 exit (1) ;
276 } ;
277
278 sfinfo.samplerate = 44100 ;
279 sfinfo.frames = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
280 sfinfo.channels = 1 ;
281 sfinfo.format = filetype ;
282
283 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
284
285 sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
286
287 test_write_float_or_die (file, 0, float_out, items, __LINE__) ;
288
289 sf_close (file) ;
290
291 memset (float_in, 0, items * sizeof (float)) ;
292
293 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
294
295 if (sfinfo.format != filetype)
296 { printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
297 exit (1) ;
298 } ;
299
300 if (sfinfo.frames != items)
301 { printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
302 exit (1) ;
303 } ;
304
305 if (sfinfo.channels != 1)
306 { printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
307 exit (1) ;
308 } ;
309
310 check_log_buffer_or_die (file, __LINE__) ;
311
312 sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
313
314 test_read_float_or_die (file, 0, float_in, items, __LINE__) ;
315
316 for (k = 0 ; k < items ; k++)
317 if (fabs (float_out [k] - float_in [k]) > 1e-10)
318 { printf ("\n\nLine %d: float : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, (double) float_out [k], (double) float_in [k]) ;
319 exit (1) ;
320 } ;
321
322 sf_close (file) ;
323
324 /*--------------------------------------------------------------------------
325 ** Test sf_read/write_double ()
326 */
327 zero_count = 0 ;
328
329 double_out = data_out.d ;
330 double_in = data_in.d ;
331 for (k = 0 ; k < items ; k++)
332 { double_out [k] = [+ (get "float_func") +] ;
333 zero_count = (fabs (double_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
334 } ;
335
336 if (zero_count > items / 4)
337 { printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
338 exit (1) ;
339 } ;
340
341 sfinfo.samplerate = 44100 ;
342 sfinfo.frames = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
343 sfinfo.channels = 1 ;
344 sfinfo.format = filetype ;
345
346 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
347
348 sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
349
350 test_write_double_or_die (file, 0, double_out, items, __LINE__) ;
351
352 sf_close (file) ;
353
354 memset (double_in, 0, items * sizeof (double)) ;
355
356 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
357
358 if (sfinfo.format != filetype)
359 { printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
360 exit (1) ;
361 } ;
362
363 if (sfinfo.frames != items)
364 { printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
365 exit (1) ;
366 } ;
367
368 if (sfinfo.channels != 1)
369 { printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
370 exit (1) ;
371 } ;
372
373 check_log_buffer_or_die (file, __LINE__) ;
374
375 sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
376
377 test_read_double_or_die (file, 0, double_in, items, __LINE__) ;
378
379 for (k = 0 ; k < items ; k++)
380 if (fabs (double_out [k] - double_in [k]) > 1e-10)
381 { printf ("\n\nLine %d: double : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, double_out [k], double_in [k]) ;
382 exit (1) ;
383 } ;
384
385 sf_close (file) ;
386 /* Lite remove end */
387 unlink (filename) ;
388
389 puts ("ok") ;
390 } /* pcm_test_[+ (get "name") +] */
391
392 [+ ENDFOR data_type
393 +]
394
395 /*==============================================================================
396 */
397
398 static void
399 pcm_test_float (const char *filename, int filetype, uint64_t hash, int replace_float)
400 { SNDFILE *file ;
401 SF_INFO sfinfo ;
402 int k, items, frames ;
403 int sign ;
404 double *data, error ;
405
406 print_test_name (replace_float ? "pcm_test_float (replace)" : "pcm_test_float", filename) ;
407
408 items = BUFFER_SIZE ;
409
410 data = data_out.d ;
411 for (sign = 1, k = 0 ; k < items ; k++)
412 { data [k] = ((double) (k * sign)) / 100.0 ;
413 sign = (sign > 0) ? -1 : 1 ;
414 } ;
415
416 sfinfo.samplerate = 44100 ;
417 sfinfo.frames = items ;
418 sfinfo.channels = 1 ;
419 sfinfo.format = filetype ;
420
421 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
422 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
423 if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
424 { printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
425 dump_log_buffer (file) ;
426 exit (1) ;
427 } ;
428
429 test_write_double_or_die (file, 0, data, items, __LINE__) ;
430
431 sf_close (file) ;
432
433 check_file_hash_or_die (filename, hash, __LINE__) ;
434
435 memset (data, 0, items * sizeof (double)) ;
436
437 if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
438 memset (&sfinfo, 0, sizeof (sfinfo)) ;
439
440 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
441 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
442 if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
443 { printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
444 dump_log_buffer (file) ;
445 exit (1) ;
446 } ;
447
448 if (sfinfo.format != filetype)
449 { printf ("\n\nError (%s:%d) Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, filetype, sfinfo.format) ;
450 exit (1) ;
451 } ;
452
453 if (sfinfo.frames != items)
454 { printf ("\n\nError (%s:%d) Mono : Incorrect number of frames in file. (%d => %ld)\n", __FILE__, __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
455 exit (1) ;
456 } ;
457
458 if (sfinfo.channels != 1)
459 { printf ("\n\nError (%s:%d) Mono : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
460 exit (1) ;
461 } ;
462
463 check_log_buffer_or_die (file, __LINE__) ;
464
465 test_read_double_or_die (file, 0, data, items, __LINE__) ;
466
467 for (sign = -1, k = 0 ; k < items ; k++)
468 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
469 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
470 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
471 exit (1) ;
472 } ;
473 } ;
474
475 /* Seek to start of file. */
476 test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
477
478 test_read_double_or_die (file, 0, data, 4, __LINE__) ;
479 for (k = 0 ; k < 4 ; k++)
480 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
481 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
482 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
483 exit (1) ;
484 } ;
485 } ;
486
487 /* Seek to offset from start of file. */
488 test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
489
490 test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
491 for (k = 10 ; k < 14 ; k++)
492 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
493 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
494 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
495 exit (1) ;
496 } ;
497 } ;
498
499 /* Seek to offset from current position. */
500 test_seek_or_die (file, 6, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
501
502 test_read_double_or_die (file, 0, data + 20, 4, __LINE__) ;
503 for (k = 20 ; k < 24 ; k++)
504 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
505 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
506 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
507 exit (1) ;
508 } ;
509 } ;
510
511 /* Seek to offset from end of file. */
512 test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
513
514 test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
515 for (k = 10 ; k < 14 ; k++)
516 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
517 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
518 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
519 exit (1) ;
520 } ;
521 } ;
522
523 sf_close (file) ;
524
525 /* Now test Stereo. */
526
527 if ((filetype & SF_FORMAT_TYPEMASK) == SF_FORMAT_SVX) /* SVX is mono only */
528 { printf ("ok\n") ;
529 return ;
530 } ;
531
532 items = BUFFER_SIZE ;
533
534 data = data_out.d ;
535 for (sign = -1, k = 0 ; k < items ; k++)
536 data [k] = ((double) k) / 100.0 * (sign *= -1) ;
537
538 sfinfo.samplerate = 44100 ;
539 sfinfo.frames = items ;
540 sfinfo.channels = 2 ;
541 sfinfo.format = filetype ;
542
543 frames = items / sfinfo.channels ;
544
545 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
546 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
547 if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
548 { printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
549 dump_log_buffer (file) ;
550 exit (1) ;
551 } ;
552
553 test_writef_double_or_die (file, 0, data, frames, __LINE__) ;
554
555 sf_close (file) ;
556
557 check_file_hash_or_die (filename, hash, __LINE__) ;
558
559 memset (data, 0, items * sizeof (double)) ;
560
561 if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
562 memset (&sfinfo, 0, sizeof (sfinfo)) ;
563
564 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
565 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
566 if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
567 { printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
568 dump_log_buffer (file) ;
569 exit (1) ;
570 } ;
571
572 if (sfinfo.format != filetype)
573 { printf ("\n\nError (%s:%d) Stereo : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, filetype, sfinfo.format) ;
574 exit (1) ;
575 } ;
576
577 if (sfinfo.frames != frames)
578 { printf ("\n\nError (%s:%d) Stereo : Incorrect number of frames in file. (%d => %ld)\n", __FILE__, __LINE__, frames, SF_COUNT_TO_LONG (sfinfo.frames)) ;
579 exit (1) ;
580 } ;
581
582 if (sfinfo.channels != 2)
583 { printf ("\n\nError (%s:%d) Stereo : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
584 exit (1) ;
585 } ;
586
587 check_log_buffer_or_die (file, __LINE__) ;
588
589 test_readf_double_or_die (file, 0, data, frames, __LINE__) ;
590 for (sign = -1, k = 0 ; k < items ; k++)
591 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
592 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
593 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
594 exit (1) ;
595 } ;
596 } ;
597
598 /* Seek to start of file. */
599 test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
600
601 test_readf_double_or_die (file, 0, data, 4, __LINE__) ;
602 for (k = 0 ; k < 4 ; k++)
603 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
604 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
605 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
606 exit (1) ;
607 } ;
608 } ;
609
610 /* Seek to offset from start of file. */
611 test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
612
613 test_readf_double_or_die (file, 0, data + 20, 2, __LINE__) ;
614 for (k = 20 ; k < 24 ; k++)
615 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
616 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
617 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
618 exit (1) ;
619 } ;
620 } ;
621
622 /* Seek to offset from current position. */
623 test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
624
625 test_readf_double_or_die (file, 0, data + 40, 2, __LINE__) ;
626 for (k = 40 ; k < 44 ; k++)
627 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
628 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
629 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
630 exit (1) ;
631 } ;
632 } ;
633
634 /* Seek to offset from end of file. */
635 test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
636
637 test_readf_double_or_die (file, 0, data + 20, 2, __LINE__) ;
638 for (k = 20 ; k < 24 ; k++)
639 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
640 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
641 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
642 exit (1) ;
643 } ;
644 } ;
645
646 sf_close (file) ;
647
648 printf ("ok\n") ;
649 unlink (filename) ;
650 } /* pcm_test_float */
651
652 static void
653 pcm_test_double (const char *filename, int filetype, uint64_t hash, int replace_float)
654 { SNDFILE *file ;
655 SF_INFO sfinfo ;
656 int k, items, frames ;
657 int sign ;
658 double *data, error ;
659
660 /* This is the best test routine. Other should be brought up to this standard. */
661
662 print_test_name (replace_float ? "pcm_test_double (replace)" : "pcm_test_double", filename) ;
663
664 items = BUFFER_SIZE ;
665
666 data = data_out.d ;
667 for (sign = 1, k = 0 ; k < items ; k++)
668 { data [k] = ((double) (k * sign)) / 100.0 ;
669 sign = (sign > 0) ? -1 : 1 ;
670 } ;
671
672 sfinfo.samplerate = 44100 ;
673 sfinfo.frames = items ;
674 sfinfo.channels = 1 ;
675 sfinfo.format = filetype ;
676
677 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
678 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
679 if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
680 { printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
681 dump_log_buffer (file) ;
682 exit (1) ;
683 } ;
684
685 test_write_double_or_die (file, 0, data, items, __LINE__) ;
686
687 sf_close (file) ;
688
689 #if (defined (WIN32) || defined (_WIN32))
690 /* File hashing on Win32 fails due to slighty different
691 ** calculated values of the sin() function.
692 */
693 hash = hash ; /* Avoid compiler warning. */
694 #else
695 check_file_hash_or_die (filename, hash, __LINE__) ;
696 #endif
697
698 memset (data, 0, items * sizeof (double)) ;
699
700 if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
701 memset (&sfinfo, 0, sizeof (sfinfo)) ;
702
703 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
704 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
705 if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
706 { printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
707 dump_log_buffer (file) ;
708 exit (1) ;
709 } ;
710
711 if (sfinfo.format != filetype)
712 { printf ("\n\nError (%s:%d) Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, filetype, sfinfo.format) ;
713 exit (1) ;
714 } ;
715
716 if (sfinfo.frames != items)
717 { printf ("\n\nError (%s:%d) Mono : Incorrect number of frames in file. (%d => %ld)\n", __FILE__, __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
718 exit (1) ;
719 } ;
720
721 if (sfinfo.channels != 1)
722 { printf ("\n\nError (%s:%d) Mono : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
723 exit (1) ;
724 } ;
725
726 check_log_buffer_or_die (file, __LINE__) ;
727
728 test_read_double_or_die (file, 0, data, items, __LINE__) ;
729
730 for (sign = -1, k = 0 ; k < items ; k++)
731 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
732 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
733 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
734 exit (1) ;
735 } ;
736 } ;
737
738 /* Seek to start of file. */
739 test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
740
741 test_read_double_or_die (file, 0, data, 4, __LINE__) ;
742 for (k = 0 ; k < 4 ; k++)
743 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
744 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
745 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
746 exit (1) ;
747 } ;
748 } ;
749
750 /* Seek to offset from start of file. */
751 test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
752
753 test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
754
755 test_seek_or_die (file, 0, SEEK_CUR, 14, sfinfo.channels, __LINE__) ;
756
757 for (k = 10 ; k < 14 ; k++)
758 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
759 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
760 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
761 exit (1) ;
762 } ;
763 } ;
764
765 /* Seek to offset from current position. */
766 test_seek_or_die (file, 6, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
767
768 test_read_double_or_die (file, 0, data + 20, 4, __LINE__) ;
769 for (k = 20 ; k < 24 ; k++)
770 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
771 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
772 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
773 exit (1) ;
774 } ;
775 } ;
776
777 /* Seek to offset from end of file. */
778 test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
779
780 test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
781 for (k = 10 ; k < 14 ; k++)
782 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
783 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
784 { printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
785 exit (1) ;
786 } ;
787 } ;
788
789 sf_close (file) ;
790
791 /* Now test Stereo. */
792
793 if ((filetype & SF_FORMAT_TYPEMASK) == SF_FORMAT_SVX) /* SVX is mono only */
794 { printf ("ok\n") ;
795 return ;
796 } ;
797
798 items = BUFFER_SIZE ;
799
800 data = data_out.d ;
801 for (sign = -1, k = 0 ; k < items ; k++)
802 data [k] = ((double) k) / 100.0 * (sign *= -1) ;
803
804 sfinfo.samplerate = 44100 ;
805 sfinfo.frames = items ;
806 sfinfo.channels = 2 ;
807 sfinfo.format = filetype ;
808
809 frames = items / sfinfo.channels ;
810
811 file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
812 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
813 if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
814 { printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
815 dump_log_buffer (file) ;
816 exit (1) ;
817 } ;
818
819 test_writef_double_or_die (file, 0, data, frames, __LINE__) ;
820
821 sf_close (file) ;
822
823 #if (defined (WIN32) || defined (_WIN32))
824 /* File hashing on Win32 fails due to slighty different
825 ** calculated values.
826 */
827 hash = hash ; /* Avoid compiler warning. */
828 #else
829 check_file_hash_or_die (filename, hash, __LINE__) ;
830 #endif
831
832 memset (data, 0, items * sizeof (double)) ;
833
834 if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
835 memset (&sfinfo, 0, sizeof (sfinfo)) ;
836
837 file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
838 sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
839 if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
840 { printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
841 dump_log_buffer (file) ;
842 exit (1) ;
843 } ;
844
845 if (sfinfo.format != filetype)
846 { printf ("\n\nError (%s:%d) Stereo : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, filetype, sfinfo.format) ;
847 exit (1) ;
848 } ;
849
850 if (sfinfo.frames != frames)
851 { printf ("\n\nError (%s:%d) Stereo : Incorrect number of frames in file. (%d => %ld)\n", __FILE__, __LINE__, frames, SF_COUNT_TO_LONG (sfinfo.frames)) ;
852 exit (1) ;
853 } ;
854
855 if (sfinfo.channels != 2)
856 { printf ("\n\nError (%s:%d) Stereo : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
857 exit (1) ;
858 } ;
859
860 check_log_buffer_or_die (file, __LINE__) ;
861
862 test_readf_double_or_die (file, 0, data, frames, __LINE__) ;
863
864 for (sign = -1, k = 0 ; k < items ; k++)
865 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
866 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
867 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
868 exit (1) ;
869 } ;
870 } ;
871
872 /* Seek to start of file. */
873 test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
874
875 test_read_double_or_die (file, 0, data, 4, __LINE__) ;
876 for (k = 0 ; k < 4 ; k++)
877 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
878 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
879 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
880 exit (1) ;
881 } ;
882 } ;
883
884 /* Seek to offset from start of file. */
885 test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
886
887 test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
888 for (k = 20 ; k < 24 ; k++)
889 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
890 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
891 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
892 exit (1) ;
893 } ;
894 } ;
895
896 /* Seek to offset from current position. */
897 test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
898
899 test_readf_double_or_die (file, 0, data + 40, 4, __LINE__) ;
900 for (k = 40 ; k < 44 ; k++)
901 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
902 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
903 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
904 exit (1) ;
905 } ;
906 } ;
907
908 /* Seek to offset from end of file. */
909 test_seek_or_die (file, -1 * (sfinfo.frames -10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
910
911 test_readf_double_or_die (file, 0, data + 20, 4, __LINE__) ;
912 for (k = 20 ; k < 24 ; k++)
913 { error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
914 if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
915 { printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
916 exit (1) ;
917 } ;
918 } ;
919
920 sf_close (file) ;
921
922 printf ("ok\n") ;
923 unlink (filename) ;
924 } /* pcm_test_double */
925
926 /*==============================================================================
927 */