cannam@85: /*
cannam@85: ** Copyright (C) 1999-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
cannam@85: **
cannam@85: ** This program is free software; you can redistribute it and/or modify
cannam@85: ** it under the terms of the GNU General Public License as published by
cannam@85: ** the Free Software Foundation; either version 2 of the License, or
cannam@85: ** (at your option) any later version.
cannam@85: **
cannam@85: ** This program is distributed in the hope that it will be useful,
cannam@85: ** but WITHOUT ANY WARRANTY; without even the implied warranty of
cannam@85: ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
cannam@85: ** GNU General Public License for more details.
cannam@85: **
cannam@85: ** You should have received a copy of the GNU General Public License
cannam@85: ** along with this program; if not, write to the Free Software
cannam@85: ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
cannam@85: */
cannam@85: 
cannam@85: #include "sfconfig.h"
cannam@85: 
cannam@85: #include <stdio.h>
cannam@85: #include <stdlib.h>
cannam@85: #include <string.h>
cannam@85: #include <math.h>
cannam@85: 
cannam@85: #if HAVE_UNISTD_H
cannam@85: #include <unistd.h>
cannam@85: #endif
cannam@85: 
cannam@85: #include <sndfile.h>
cannam@85: 
cannam@85: #include "utils.h"
cannam@85: 
cannam@85: #define	BUFFER_SIZE		(1<<12)
cannam@85: 
cannam@85: static void	lrintf_test (void) ;
cannam@85: 
cannam@85: static void	pcm_test_bits_8	(const char *filename, int filetype, uint64_t hash) ;
cannam@85: static void	pcm_test_bits_16	(const char *filename, int filetype, uint64_t hash) ;
cannam@85: static void	pcm_test_bits_24	(const char *filename, int filetype, uint64_t hash) ;
cannam@85: static void	pcm_test_bits_32	(const char *filename, int filetype, uint64_t hash) ;
cannam@85: 
cannam@85: static void pcm_test_float	(const char *filename, int filetype, uint64_t hash, int replace_float) ;
cannam@85: static void pcm_test_double	(const char *filename, int filetype, uint64_t hash, int replace_float) ;
cannam@85: 
cannam@85: typedef union
cannam@85: {	double	d [BUFFER_SIZE + 1] ;
cannam@85: 	float	f [BUFFER_SIZE + 1] ;
cannam@85: 	int		i [BUFFER_SIZE + 1] ;
cannam@85: 	short	s [BUFFER_SIZE + 1] ;
cannam@85: } BUFFER ;
cannam@85: 
cannam@85: /* Data written to the file. */
cannam@85: static	BUFFER	data_out ;
cannam@85: 
cannam@85: /* Data read back from the file. */
cannam@85: static	BUFFER	data_in ;
cannam@85: 
cannam@85: int
cannam@85: main (void)
cannam@85: {
cannam@85: 	lrintf_test () ;
cannam@85: 
cannam@85: 	pcm_test_bits_8	("pcm-s8.raw", SF_FORMAT_RAW | SF_FORMAT_PCM_S8, 0x1cda335091249dbfLL) ;
cannam@85: 	pcm_test_bits_8	("pcm-u8.raw", SF_FORMAT_RAW | SF_FORMAT_PCM_U8, 0x7f748c433d695f3fLL) ;
cannam@85: 
cannam@85: 	pcm_test_bits_16 ("le-pcm16.raw", SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_PCM_16, 0x3a2b956c881ebf08LL) ;
cannam@85: 	pcm_test_bits_16 ("be-pcm16.raw", SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_PCM_16, 0xd9e2f840c55750f8LL) ;
cannam@85: 
cannam@85: 	pcm_test_bits_24 ("le-pcm24.raw", SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_PCM_24, 0x933b6a759ab496f8LL) ;
cannam@85: 	pcm_test_bits_24 ("be-pcm24.raw", SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_PCM_24, 0xbb1f3eaf9c30b6f8LL) ;
cannam@85: 
cannam@85: 	pcm_test_bits_32 ("le-pcm32.raw", SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_PCM_32, 0xa77aece1c1c17f08LL) ;
cannam@85: 	pcm_test_bits_32 ("be-pcm32.raw", SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_PCM_32, 0x3099ddf142d0b0f8LL) ;
cannam@85: 
cannam@85: 	/* Lite remove start */
cannam@85: 	pcm_test_float	("le-float.raw", SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x3c2ad04f7554267aLL, SF_FALSE) ;
cannam@85: 	pcm_test_float	("be-float.raw", SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x074de3e248fa9186LL, SF_FALSE) ;
cannam@85: 
cannam@85: 	pcm_test_double	("le-double.raw", SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xc682726f958f669cLL, SF_FALSE) ;
cannam@85: 	pcm_test_double	("be-double.raw", SF_ENDIAN_BIG	| SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xd9a3583f8ee51164LL, SF_FALSE) ;
cannam@85: 
cannam@85: 	pcm_test_float	("le-float.raw", SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x3c2ad04f7554267aLL, SF_TRUE) ;
cannam@85: 	pcm_test_float	("be-float.raw", SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_FLOAT, 0x074de3e248fa9186LL, SF_TRUE) ;
cannam@85: 
cannam@85: 	pcm_test_double	("le-double.raw", SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xc682726f958f669cLL, SF_TRUE) ;
cannam@85: 	pcm_test_double	("be-double.raw", SF_ENDIAN_BIG	| SF_FORMAT_RAW | SF_FORMAT_DOUBLE, 0xd9a3583f8ee51164LL, SF_TRUE) ;
cannam@85: 	/* Lite remove end */
cannam@85: 
cannam@85: 	return 0 ;
cannam@85: } /* main */
cannam@85: 
cannam@85: /*============================================================================================
cannam@85: **	Here are the test functions.
cannam@85: */
cannam@85: 
cannam@85: static void
cannam@85: lrintf_test (void)
cannam@85: {	int k, items ;
cannam@85: 	float	*float_data ;
cannam@85: 	int		*int_data ;
cannam@85: 
cannam@85: 	print_test_name ("lrintf_test", "") ;
cannam@85: 
cannam@85: 	items = 1024 ;
cannam@85: 
cannam@85: 	float_data = data_out.f ;
cannam@85: 	int_data = data_in.i ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		float_data [k] = (k * ((k % 2) ? 333333.0 : -333333.0)) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		int_data [k] = lrintf (float_data [k]) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (fabs (int_data [k] - float_data [k]) > 1.0)
cannam@85: 		{	printf ("\n\nLine %d: float : Incorrect sample (#%d : %f => %d).\n", __LINE__, k, float_data [k], int_data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	printf ("ok\n") ;
cannam@85: } /* lrintf_test */
cannam@85: 
cannam@85: static void
cannam@85: pcm_test_bits_8 (const char *filename, int filetype, uint64_t hash)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	int			k, items, zero_count ;
cannam@85: 	short		*short_out, *short_in ;
cannam@85: 	int			*int_out, *int_in ;
cannam@85: 	/* Lite remove start */
cannam@85: 	float		*float_out, *float_in ;
cannam@85: 	double		*double_out, *double_in ;
cannam@85: 	/* Lite remove end */
cannam@85: 
cannam@85: 	print_test_name ("pcm_test_bits_8", filename) ;
cannam@85: 
cannam@85: 	items = 127 ;
cannam@85: 
cannam@85: 	short_out = data_out.s ;
cannam@85: 	short_in = data_in.s ;
cannam@85: 
cannam@85: 	zero_count = 0 ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	short_out [k] = ((k * ((k % 2) ? 1 : -1)) << 8) ;
cannam@85: 		zero_count = short_out [k] ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	test_write_short_or_die (file, 0, short_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (short_in, 0, items * sizeof (short)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_short_or_die (file, 0, short_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (short_out [k] != short_in [k])
cannam@85: 		{	printf ("\n\nLine %d: Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, short_out [k], short_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Finally, check the file hash. */
cannam@85: 	check_file_hash_or_die (filename, hash, __LINE__) ;
cannam@85: 
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_int ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	int_out = data_out.i ;
cannam@85: 	int_in = data_in.i ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	int_out [k] = ((k * ((k % 2) ? 1 : -1)) << 24) ;
cannam@85: 		zero_count = int_out [k] ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	test_write_int_or_die (file, 0, int_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (int_in, 0, items * sizeof (int)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_int_or_die (file, 0, int_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (int_out [k] != int_in [k])
cannam@85: 		{	printf ("\n\nLine %d: int : Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, int_out [k], int_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Lite remove start */
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_float ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	float_out = data_out.f ;
cannam@85: 	float_in = data_in.f ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	float_out [k] = (k * ((k % 2) ? 1 : -1)) ;
cannam@85: 		zero_count = (fabs (float_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_write_float_or_die (file, 0, float_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (float_in, 0, items * sizeof (float)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_read_float_or_die (file, 0, float_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (fabs (float_out [k] - float_in [k]) > 1e-10)
cannam@85: 		{	printf ("\n\nLine %d: float : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, (double) float_out [k], (double) float_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_double ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	double_out = data_out.d ;
cannam@85: 	double_in = data_in.d ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	double_out [k] = (k * ((k % 2) ? 1 : -1)) ;
cannam@85: 		zero_count = (fabs (double_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_write_double_or_die (file, 0, double_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (double_in, 0, items * sizeof (double)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, double_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (fabs (double_out [k] - double_in [k]) > 1e-10)
cannam@85: 		{	printf ("\n\nLine %d: double : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, double_out [k], double_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 	/* Lite remove end */
cannam@85: 	unlink (filename) ;
cannam@85: 
cannam@85: 	puts ("ok") ;
cannam@85: } /* pcm_test_bits_8 */
cannam@85: 
cannam@85: static void
cannam@85: pcm_test_bits_16 (const char *filename, int filetype, uint64_t hash)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	int			k, items, zero_count ;
cannam@85: 	short		*short_out, *short_in ;
cannam@85: 	int			*int_out, *int_in ;
cannam@85: 	/* Lite remove start */
cannam@85: 	float		*float_out, *float_in ;
cannam@85: 	double		*double_out, *double_in ;
cannam@85: 	/* Lite remove end */
cannam@85: 
cannam@85: 	print_test_name ("pcm_test_bits_16", filename) ;
cannam@85: 
cannam@85: 	items = 1024 ;
cannam@85: 
cannam@85: 	short_out = data_out.s ;
cannam@85: 	short_in = data_in.s ;
cannam@85: 
cannam@85: 	zero_count = 0 ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	short_out [k] = (k * ((k % 2) ? 3 : -3)) ;
cannam@85: 		zero_count = short_out [k] ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	test_write_short_or_die (file, 0, short_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (short_in, 0, items * sizeof (short)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_short_or_die (file, 0, short_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (short_out [k] != short_in [k])
cannam@85: 		{	printf ("\n\nLine %d: Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, short_out [k], short_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Finally, check the file hash. */
cannam@85: 	check_file_hash_or_die (filename, hash, __LINE__) ;
cannam@85: 
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_int ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	int_out = data_out.i ;
cannam@85: 	int_in = data_in.i ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	int_out [k] = ((k * ((k % 2) ? 3 : -3)) << 16) ;
cannam@85: 		zero_count = int_out [k] ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	test_write_int_or_die (file, 0, int_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (int_in, 0, items * sizeof (int)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_int_or_die (file, 0, int_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (int_out [k] != int_in [k])
cannam@85: 		{	printf ("\n\nLine %d: int : Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, int_out [k], int_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Lite remove start */
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_float ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	float_out = data_out.f ;
cannam@85: 	float_in = data_in.f ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	float_out [k] = (k * ((k % 2) ? 3 : -3)) ;
cannam@85: 		zero_count = (fabs (float_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_write_float_or_die (file, 0, float_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (float_in, 0, items * sizeof (float)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_read_float_or_die (file, 0, float_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (fabs (float_out [k] - float_in [k]) > 1e-10)
cannam@85: 		{	printf ("\n\nLine %d: float : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, (double) float_out [k], (double) float_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_double ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	double_out = data_out.d ;
cannam@85: 	double_in = data_in.d ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	double_out [k] = (k * ((k % 2) ? 3 : -3)) ;
cannam@85: 		zero_count = (fabs (double_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_write_double_or_die (file, 0, double_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (double_in, 0, items * sizeof (double)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, double_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (fabs (double_out [k] - double_in [k]) > 1e-10)
cannam@85: 		{	printf ("\n\nLine %d: double : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, double_out [k], double_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 	/* Lite remove end */
cannam@85: 	unlink (filename) ;
cannam@85: 
cannam@85: 	puts ("ok") ;
cannam@85: } /* pcm_test_bits_16 */
cannam@85: 
cannam@85: static void
cannam@85: pcm_test_bits_24 (const char *filename, int filetype, uint64_t hash)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	int			k, items, zero_count ;
cannam@85: 	short		*short_out, *short_in ;
cannam@85: 	int			*int_out, *int_in ;
cannam@85: 	/* Lite remove start */
cannam@85: 	float		*float_out, *float_in ;
cannam@85: 	double		*double_out, *double_in ;
cannam@85: 	/* Lite remove end */
cannam@85: 
cannam@85: 	print_test_name ("pcm_test_bits_24", filename) ;
cannam@85: 
cannam@85: 	items = 1024 ;
cannam@85: 
cannam@85: 	short_out = data_out.s ;
cannam@85: 	short_in = data_in.s ;
cannam@85: 
cannam@85: 	zero_count = 0 ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	short_out [k] = (k * ((k % 2) ? 3 : -3)) ;
cannam@85: 		zero_count = short_out [k] ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	test_write_short_or_die (file, 0, short_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (short_in, 0, items * sizeof (short)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_short_or_die (file, 0, short_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (short_out [k] != short_in [k])
cannam@85: 		{	printf ("\n\nLine %d: Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, short_out [k], short_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Finally, check the file hash. */
cannam@85: 	check_file_hash_or_die (filename, hash, __LINE__) ;
cannam@85: 
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_int ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	int_out = data_out.i ;
cannam@85: 	int_in = data_in.i ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	int_out [k] = ((k * ((k % 2) ? 3333 : -3333)) << 8) ;
cannam@85: 		zero_count = int_out [k] ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	test_write_int_or_die (file, 0, int_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (int_in, 0, items * sizeof (int)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_int_or_die (file, 0, int_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (int_out [k] != int_in [k])
cannam@85: 		{	printf ("\n\nLine %d: int : Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, int_out [k], int_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Lite remove start */
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_float ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	float_out = data_out.f ;
cannam@85: 	float_in = data_in.f ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	float_out [k] = (k * ((k % 2) ? 3333 : -3333)) ;
cannam@85: 		zero_count = (fabs (float_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_write_float_or_die (file, 0, float_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (float_in, 0, items * sizeof (float)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_read_float_or_die (file, 0, float_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (fabs (float_out [k] - float_in [k]) > 1e-10)
cannam@85: 		{	printf ("\n\nLine %d: float : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, (double) float_out [k], (double) float_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_double ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	double_out = data_out.d ;
cannam@85: 	double_in = data_in.d ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	double_out [k] = (k * ((k % 2) ? 3333 : -3333)) ;
cannam@85: 		zero_count = (fabs (double_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_write_double_or_die (file, 0, double_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (double_in, 0, items * sizeof (double)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, double_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (fabs (double_out [k] - double_in [k]) > 1e-10)
cannam@85: 		{	printf ("\n\nLine %d: double : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, double_out [k], double_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 	/* Lite remove end */
cannam@85: 	unlink (filename) ;
cannam@85: 
cannam@85: 	puts ("ok") ;
cannam@85: } /* pcm_test_bits_24 */
cannam@85: 
cannam@85: static void
cannam@85: pcm_test_bits_32 (const char *filename, int filetype, uint64_t hash)
cannam@85: {	SNDFILE		*file ;
cannam@85: 	SF_INFO		sfinfo ;
cannam@85: 	int			k, items, zero_count ;
cannam@85: 	short		*short_out, *short_in ;
cannam@85: 	int			*int_out, *int_in ;
cannam@85: 	/* Lite remove start */
cannam@85: 	float		*float_out, *float_in ;
cannam@85: 	double		*double_out, *double_in ;
cannam@85: 	/* Lite remove end */
cannam@85: 
cannam@85: 	print_test_name ("pcm_test_bits_32", filename) ;
cannam@85: 
cannam@85: 	items = 1024 ;
cannam@85: 
cannam@85: 	short_out = data_out.s ;
cannam@85: 	short_in = data_in.s ;
cannam@85: 
cannam@85: 	zero_count = 0 ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	short_out [k] = (k * ((k % 2) ? 3 : -3)) ;
cannam@85: 		zero_count = short_out [k] ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	test_write_short_or_die (file, 0, short_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (short_in, 0, items * sizeof (short)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_short_or_die (file, 0, short_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (short_out [k] != short_in [k])
cannam@85: 		{	printf ("\n\nLine %d: Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, short_out [k], short_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Finally, check the file hash. */
cannam@85: 	check_file_hash_or_die (filename, hash, __LINE__) ;
cannam@85: 
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_int ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	int_out = data_out.i ;
cannam@85: 	int_in = data_in.i ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	int_out [k] = (k * ((k % 2) ? 333333 : -333333)) ;
cannam@85: 		zero_count = int_out [k] ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	test_write_int_or_die (file, 0, int_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (int_in, 0, items * sizeof (int)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_int_or_die (file, 0, int_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (int_out [k] != int_in [k])
cannam@85: 		{	printf ("\n\nLine %d: int : Incorrect sample (#%d : 0x%x => 0x%x).\n", __LINE__, k, int_out [k], int_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Lite remove start */
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_float ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	float_out = data_out.f ;
cannam@85: 	float_in = data_in.f ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	float_out [k] = (k * ((k % 2) ? 333333 : -333333)) ;
cannam@85: 		zero_count = (fabs (float_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_write_float_or_die (file, 0, float_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (float_in, 0, items * sizeof (float)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_FLOAT, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_read_float_or_die (file, 0, float_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (fabs (float_out [k] - float_in [k]) > 1e-10)
cannam@85: 		{	printf ("\n\nLine %d: float : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, (double) float_out [k], (double) float_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/*--------------------------------------------------------------------------
cannam@85: 	** Test sf_read/write_double ()
cannam@85: 	*/
cannam@85: 	zero_count = 0 ;
cannam@85: 
cannam@85: 	double_out = data_out.d ;
cannam@85: 	double_in = data_in.d ;
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 	{	double_out [k] = (k * ((k % 2) ? 333333 : -333333)) ;
cannam@85: 		zero_count = (fabs (double_out [k]) > 1e-10) ? zero_count : zero_count + 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (zero_count > items / 4)
cannam@85: 	{	printf ("\n\nLine %d: too many zeros (%d/%d).\n", __LINE__, zero_count, items) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= 123456789 ; /* Wrong length. Library should correct this on sf_close. */
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_write_double_or_die (file, 0, double_out, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	memset (double_in, 0, items * sizeof (double)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nLine %d: Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of frames in file. (%d => %ld)\n", __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nLine %d: Incorrect number of channels in file.\n", __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	sf_command (file, SFC_SET_NORM_DOUBLE, NULL, SF_FALSE) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, double_in, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 0 ; k < items ; k++)
cannam@85: 		if (fabs (double_out [k] - double_in [k]) > 1e-10)
cannam@85: 		{	printf ("\n\nLine %d: double : Incorrect sample (#%d : %f => %f).\n", __LINE__, k, double_out [k], double_in [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 	/* Lite remove end */
cannam@85: 	unlink (filename) ;
cannam@85: 
cannam@85: 	puts ("ok") ;
cannam@85: } /* pcm_test_bits_32 */
cannam@85: 
cannam@85: 
cannam@85: 
cannam@85: /*==============================================================================
cannam@85: */
cannam@85: 
cannam@85: static void
cannam@85: pcm_test_float (const char *filename, int filetype, uint64_t hash, int replace_float)
cannam@85: {	SNDFILE			*file ;
cannam@85: 	SF_INFO			sfinfo ;
cannam@85: 	int				k, items, frames ;
cannam@85: 	int				sign ;
cannam@85: 	double			*data, error ;
cannam@85: 
cannam@85: 	print_test_name (replace_float ?  "pcm_test_float (replace)" : "pcm_test_float", filename) ;
cannam@85: 
cannam@85: 	items = BUFFER_SIZE ;
cannam@85: 
cannam@85: 	data = data_out.d ;
cannam@85: 	for (sign = 1, k = 0 ; k < items ; k++)
cannam@85: 	{	data [k] = ((double) (k * sign)) / 100.0 ;
cannam@85: 		sign = (sign > 0) ? -1 : 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= items ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 	if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
cannam@85: 	{	printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
cannam@85: 		dump_log_buffer (file) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	test_write_double_or_die (file, 0, data, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	check_file_hash_or_die (filename, hash, __LINE__) ;
cannam@85: 
cannam@85: 	memset (data, 0, items * sizeof (double)) ;
cannam@85: 
cannam@85: 	if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
cannam@85: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 	if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
cannam@85: 	{	printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
cannam@85: 		dump_log_buffer (file) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nError (%s:%d) Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nError (%s:%d) Mono : Incorrect number of frames in file. (%d => %ld)\n", __FILE__, __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nError (%s:%d) Mono : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (sign = -1, k = 0 ; k < items ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to start of file. */
cannam@85: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data, 4, __LINE__) ;
cannam@85: 	for (k = 0 ; k < 4 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from start of file. */
cannam@85: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
cannam@85: 	for (k = 10 ; k < 14 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from current position. */
cannam@85: 	test_seek_or_die (file, 6, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data + 20, 4, __LINE__) ;
cannam@85: 	for (k = 20 ; k < 24 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from end of file. */
cannam@85: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
cannam@85: 	for (k = 10 ; k < 14 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Now test Stereo. */
cannam@85: 
cannam@85: 	if ((filetype & SF_FORMAT_TYPEMASK) == SF_FORMAT_SVX) /* SVX is mono only */
cannam@85: 	{	printf ("ok\n") ;
cannam@85: 		return ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	items = BUFFER_SIZE ;
cannam@85: 
cannam@85: 	data = data_out.d ;
cannam@85: 	for (sign = -1, k = 0 ; k < items ; k++)
cannam@85: 		data [k] = ((double) k) / 100.0 * (sign *= -1) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= items ;
cannam@85: 	sfinfo.channels		= 2 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	frames = items / sfinfo.channels ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 	if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
cannam@85: 	{	printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
cannam@85: 		dump_log_buffer (file) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	test_writef_double_or_die (file, 0, data, frames, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	check_file_hash_or_die (filename, hash, __LINE__) ;
cannam@85: 
cannam@85: 	memset (data, 0, items * sizeof (double)) ;
cannam@85: 
cannam@85: 	if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
cannam@85: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 	if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
cannam@85: 	{	printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
cannam@85: 		dump_log_buffer (file) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nError (%s:%d) Stereo : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != frames)
cannam@85: 	{	printf ("\n\nError (%s:%d) Stereo : Incorrect number of frames in file. (%d => %ld)\n", __FILE__, __LINE__, frames, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 2)
cannam@85: 	{	printf ("\n\nError (%s:%d) Stereo : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_readf_double_or_die (file, 0, data, frames, __LINE__) ;
cannam@85: 	for (sign = -1, k = 0 ; k < items ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to start of file. */
cannam@85: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_readf_double_or_die (file, 0, data, 4, __LINE__) ;
cannam@85: 	for (k = 0 ; k < 4 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from start of file. */
cannam@85: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_readf_double_or_die (file, 0, data + 20, 2, __LINE__) ;
cannam@85: 	for (k = 20 ; k < 24 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from current position. */
cannam@85: 	test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_readf_double_or_die (file, 0, data + 40, 2, __LINE__) ;
cannam@85: 	for (k = 40 ; k < 44 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from end of file. */
cannam@85: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_readf_double_or_die (file, 0, data + 20, 2, __LINE__) ;
cannam@85: 	for (k = 20 ; k < 24 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	printf ("ok\n") ;
cannam@85: 	unlink (filename) ;
cannam@85: } /* pcm_test_float */
cannam@85: 
cannam@85: static void
cannam@85: pcm_test_double (const char *filename, int	filetype, uint64_t hash, int replace_float)
cannam@85: {	SNDFILE			*file ;
cannam@85: 	SF_INFO			sfinfo ;
cannam@85: 	int				k, items, frames ;
cannam@85: 	int				sign ;
cannam@85: 	double			*data, error ;
cannam@85: 
cannam@85: 	/* This is the best test routine. Other should be brought up to this standard. */
cannam@85: 
cannam@85: 	print_test_name (replace_float ?  "pcm_test_double (replace)" : "pcm_test_double", filename) ;
cannam@85: 
cannam@85: 	items = BUFFER_SIZE ;
cannam@85: 
cannam@85: 	data = data_out.d ;
cannam@85: 	for (sign = 1, k = 0 ; k < items ; k++)
cannam@85: 	{	data [k] = ((double) (k * sign)) / 100.0 ;
cannam@85: 		sign = (sign > 0) ? -1 : 1 ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= items ;
cannam@85: 	sfinfo.channels		= 1 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 	if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
cannam@85: 	{	printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
cannam@85: 		dump_log_buffer (file) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	test_write_double_or_die (file, 0, data, items, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: #if (defined (WIN32) || defined (_WIN32))
cannam@85: 	/* File hashing on Win32 fails due to slighty different
cannam@85: 	** calculated values of the sin() function.
cannam@85: 	*/
cannam@85: 	hash = hash ; /* Avoid compiler warning. */
cannam@85: #else
cannam@85: 	check_file_hash_or_die (filename, hash, __LINE__) ;
cannam@85: #endif
cannam@85: 
cannam@85: 	memset (data, 0, items * sizeof (double)) ;
cannam@85: 
cannam@85: 	if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
cannam@85: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 	if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
cannam@85: 	{	printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
cannam@85: 		dump_log_buffer (file) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nError (%s:%d) Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != items)
cannam@85: 	{	printf ("\n\nError (%s:%d) Mono : Incorrect number of frames in file. (%d => %ld)\n", __FILE__, __LINE__, items, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 1)
cannam@85: 	{	printf ("\n\nError (%s:%d) Mono : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data, items, __LINE__) ;
cannam@85: 
cannam@85: 	for (sign = -1, k = 0 ; k < items ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to start of file. */
cannam@85: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data, 4, __LINE__) ;
cannam@85: 	for (k = 0 ; k < 4 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from start of file. */
cannam@85: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
cannam@85: 
cannam@85: 	test_seek_or_die (file, 0, SEEK_CUR, 14, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	for (k = 10 ; k < 14 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from current position. */
cannam@85: 	test_seek_or_die (file, 6, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data + 20, 4, __LINE__) ;
cannam@85: 	for (k = 20 ; k < 24 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from end of file. */
cannam@85: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
cannam@85: 	for (k = 10 ; k < 14 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	/* Now test Stereo. */
cannam@85: 
cannam@85: 	if ((filetype & SF_FORMAT_TYPEMASK) == SF_FORMAT_SVX) /* SVX is mono only */
cannam@85: 	{	printf ("ok\n") ;
cannam@85: 		return ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	items = BUFFER_SIZE ;
cannam@85: 
cannam@85: 	data = data_out.d ;
cannam@85: 	for (sign = -1, k = 0 ; k < items ; k++)
cannam@85: 		data [k] = ((double) k) / 100.0 * (sign *= -1) ;
cannam@85: 
cannam@85: 	sfinfo.samplerate	= 44100 ;
cannam@85: 	sfinfo.frames		= items ;
cannam@85: 	sfinfo.channels		= 2 ;
cannam@85: 	sfinfo.format		= filetype ;
cannam@85: 
cannam@85: 	frames = items / sfinfo.channels ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 	if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
cannam@85: 	{	printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
cannam@85: 		dump_log_buffer (file) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	test_writef_double_or_die (file, 0, data, frames, __LINE__) ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: #if (defined (WIN32) || defined (_WIN32))
cannam@85: 	/* File hashing on Win32 fails due to slighty different
cannam@85: 	** calculated values.
cannam@85: 	*/
cannam@85: 	hash = hash ; /* Avoid compiler warning. */
cannam@85: #else
cannam@85: 	check_file_hash_or_die (filename, hash, __LINE__) ;
cannam@85: #endif
cannam@85: 
cannam@85: 	memset (data, 0, items * sizeof (double)) ;
cannam@85: 
cannam@85: 	if ((filetype & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
cannam@85: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
cannam@85: 
cannam@85: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_TRUE, __LINE__) ;
cannam@85: 	sf_command (file, SFC_TEST_IEEE_FLOAT_REPLACE, NULL, replace_float) ;
cannam@85: 	if (replace_float && string_in_log_buffer (file, "Using IEEE replacement") == 0)
cannam@85: 	{	printf ("\n\nLine %d : Float replacement code not working.\n\n", __LINE__) ;
cannam@85: 		dump_log_buffer (file) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.format != filetype)
cannam@85: 	{	printf ("\n\nError (%s:%d) Stereo : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, filetype, sfinfo.format) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.frames != frames)
cannam@85: 	{	printf ("\n\nError (%s:%d) Stereo : Incorrect number of frames in file. (%d => %ld)\n", __FILE__, __LINE__, frames, SF_COUNT_TO_LONG (sfinfo.frames)) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	if (sfinfo.channels != 2)
cannam@85: 	{	printf ("\n\nError (%s:%d) Stereo : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
cannam@85: 		exit (1) ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	check_log_buffer_or_die (file, __LINE__) ;
cannam@85: 
cannam@85: 	test_readf_double_or_die (file, 0, data, frames, __LINE__) ;
cannam@85: 
cannam@85: 	for (sign = -1, k = 0 ; k < items ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to start of file. */
cannam@85: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data, 4, __LINE__) ;
cannam@85: 	for (k = 0 ; k < 4 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from start of file. */
cannam@85: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_read_double_or_die (file, 0, data + 10, 4, __LINE__) ;
cannam@85: 	for (k = 20 ; k < 24 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from current position. */
cannam@85: 	test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_readf_double_or_die (file, 0, data + 40, 4, __LINE__) ;
cannam@85: 	for (k = 40 ; k < 44 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	/* Seek to offset from end of file. */
cannam@85: 	test_seek_or_die (file, -1 * (sfinfo.frames -10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
cannam@85: 
cannam@85: 	test_readf_double_or_die (file, 0, data + 20, 4, __LINE__) ;
cannam@85: 	for (k = 20 ; k < 24 ; k++)
cannam@85: 	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
cannam@85: 		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
cannam@85: 		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
cannam@85: 			exit (1) ;
cannam@85: 			} ;
cannam@85: 		} ;
cannam@85: 
cannam@85: 	sf_close (file) ;
cannam@85: 
cannam@85: 	printf ("ok\n") ;
cannam@85: 	unlink (filename) ;
cannam@85: } /* pcm_test_double */
cannam@85: 
cannam@85: /*==============================================================================
cannam@85: */