/*
** Copyright (C) 1999-2001 Erik de Castro Lopo <erikd@zip.com.au>
**  
** This program is free software; you can redistribute it and/or modify
** it under the terms of the GNU General Public License as published by
** the Free Software Foundation; either version 2 of the License, or
** (at your option) any later version.
** 
** This program is distributed in the hope that it will be useful,
** but WITHOUT ANY WARRANTY; without even the implied warranty of
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
** GNU General Public License for more details.
** 
** You should have received a copy of the GNU General Public License
** along with this program; if not, write to the Free Software 
** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/



#include	<stdio.h>
#include	<string.h>
#include	<unistd.h>
#include	<math.h>

#include	<sndfile.h>
#include	"check_log_buffer.h"

#define	BUFFER_SIZE		(1<<15)

static	void	pcm_test_char	(char *str, char *filename, int typemajor, int typeminor) ;
static	void	pcm_test_short	(char *str, char *filename, int typemajor, int typeminor) ;
static	void	pcm_test_24bit	(char *str, char *filename, int typemajor, int typeminor, int long_file_ok) ;
static	void	pcm_test_int	(char *str, char *filename, int typemajor, int typeminor) ;

static	void	pcm_float_test	(char *str, char *filename, int typemajor, int typeminor) ;

/* Force the start of this buffer to be double aligned. Sparc-solaris will
** choke if its not.
*/
static	double	test_buffer [(BUFFER_SIZE/sizeof(double))+1] ;

int		
main (int argc, char *argv[])
{	char	*filename ;
	int		bDoAll = 0 ;
	int		nTests = 0 ;

	if (argc != 2)
	{	printf ("Usage : %s <test>\n", argv [0]) ;
		printf ("    Where <test> is one of the following:\n") ;
		printf ("           wav   - test WAV file functions (little endian)\n") ;
		printf ("           aiff  - test AIFF file functions (big endian)\n") ;
		printf ("           au    - test AU file functions (big endian)\n") ;
		printf ("           aule  - test little endian AU file functions\n") ;
		printf ("           raw   - test RAW header-less PCM file functions\n") ;
		printf ("           paf   - test PAF file functions\n") ;
		printf ("           svx   - test 8SVX/16SV file functions\n") ;
		printf ("           nist  - test IRCAM Sphere file functions\n") ;
		printf ("           ircam - test IRCAM file functions\n") ;
		printf ("           all   - perform all tests\n") ;
		exit (1) ;
		} ;

	bDoAll=!strcmp (argv [1], "all");
		
	if (bDoAll || ! strcmp (argv [1], "wav"))
	{	filename = "test.wav" ;
		pcm_test_char 	("wav", filename, SF_FORMAT_WAV, SF_FORMAT_PCM) ;
		pcm_test_short	("wav", filename, SF_FORMAT_WAV, SF_FORMAT_PCM) ;
		pcm_test_24bit	("wav", filename, SF_FORMAT_WAV, SF_FORMAT_PCM, 0) ;
		pcm_test_int	("wav", filename, SF_FORMAT_WAV, SF_FORMAT_PCM) ;
		pcm_float_test	("wav_float", filename, SF_FORMAT_WAV, SF_FORMAT_FLOAT) ;
		unlink (filename) ;
		nTests++ ;
		} ;

	if (bDoAll || ! strcmp (argv [1], "aiff"))
	{	filename = "test.aiff" ;
		pcm_test_char	("aiff", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM) ;
		pcm_test_short	("aiff", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM) ;
		pcm_test_24bit	("aiff", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM, 0) ;
		pcm_test_int	("aiff", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM) ;
		pcm_test_short	("aifc_sowt", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM_LE) ;
		pcm_test_24bit	("aifc_sowt", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM_LE, 0) ;
		pcm_test_int	("aifc_sowt", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM_LE) ;
		pcm_test_short	("aifc_twos", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM_BE) ;
		pcm_test_24bit	("aifc_twos", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM_BE, 0) ;
		pcm_test_int	("aifc_twos", filename, SF_FORMAT_AIFF, SF_FORMAT_PCM_BE) ;
		pcm_float_test	("aifc_float", filename, SF_FORMAT_AIFF, SF_FORMAT_FLOAT) ;
		unlink (filename) ;
		nTests++ ;
		} ;

	if (bDoAll || ! strcmp (argv [1], "au"))
	{	filename = "test.au" ;
		pcm_test_char	("au", filename, SF_FORMAT_AU, SF_FORMAT_PCM) ;
		pcm_test_short	("au", filename, SF_FORMAT_AU, SF_FORMAT_PCM) ;
		pcm_test_24bit	("au", filename, SF_FORMAT_AU, SF_FORMAT_PCM, 0) ;
		pcm_test_int	("au", filename, SF_FORMAT_AU, SF_FORMAT_PCM) ;
		unlink (filename) ;
		nTests++ ;
		} ;

	if (bDoAll || ! strcmp (argv [1], "aule"))
	{	filename = "test.au" ;
		pcm_test_char	("aule", filename, SF_FORMAT_AULE, SF_FORMAT_PCM) ;
		pcm_test_short	("aule", filename, SF_FORMAT_AULE, SF_FORMAT_PCM) ;
		pcm_test_24bit	("aule", filename, SF_FORMAT_AULE, SF_FORMAT_PCM, 0) ;
		pcm_test_int	("aule", filename, SF_FORMAT_AULE, SF_FORMAT_PCM) ;
		unlink (filename) ;
		nTests++ ;
		} ;

	if (bDoAll || ! strcmp (argv [1], "raw"))
	{	filename = "test.raw" ;
		pcm_test_char	("raw-s8", filename, SF_FORMAT_RAW, SF_FORMAT_PCM_S8) ;
		pcm_test_char	("raw-u8", filename, SF_FORMAT_RAW, SF_FORMAT_PCM_U8) ;
		pcm_test_short	("raw-le", filename, SF_FORMAT_RAW, SF_FORMAT_PCM_LE) ;
		pcm_test_short	("raw-be", filename, SF_FORMAT_RAW, SF_FORMAT_PCM_BE) ;
		pcm_test_24bit	("raw-le", filename, SF_FORMAT_RAW, SF_FORMAT_PCM_LE, 0) ;
		pcm_test_24bit	("raw-be", filename, SF_FORMAT_RAW, SF_FORMAT_PCM_BE, 0) ;
		pcm_test_int	("raw-le", filename, SF_FORMAT_RAW, SF_FORMAT_PCM_LE) ;
		pcm_test_int	("raw-be", filename, SF_FORMAT_RAW, SF_FORMAT_PCM_BE) ;
		unlink (filename) ;
		nTests++ ;
		} ;

	if (bDoAll || ! strcmp (argv [1], "paf"))
	{	filename = "test.paf" ;
		pcm_test_short	("paf-le", filename, SF_FORMAT_PAF, SF_FORMAT_PCM_LE) ;
		pcm_test_short	("paf-be", filename, SF_FORMAT_PAF, SF_FORMAT_PCM_BE) ;
		pcm_test_24bit	("paf-le", filename, SF_FORMAT_PAF, SF_FORMAT_PCM_LE, 1) ;
		pcm_test_24bit	("paf-be", filename, SF_FORMAT_PAF, SF_FORMAT_PCM_BE, 1) ;
		unlink (filename) ;
		nTests++ ;
		} ;

	if (bDoAll || ! strcmp (argv [1], "svx"))
	{	filename = "test.svx" ;
		pcm_test_char	("svx", filename, SF_FORMAT_SVX, SF_FORMAT_PCM) ;
		pcm_test_short	("svx", filename, SF_FORMAT_SVX, SF_FORMAT_PCM) ;
		unlink (filename) ;
		nTests++ ;
		} ;

	if (bDoAll || ! strcmp (argv [1], "nist"))
	{	filename = "test.nist" ;
		pcm_test_short	("nist-le", filename, SF_FORMAT_NIST, SF_FORMAT_PCM_LE) ;
		pcm_test_short	("nist-be", filename, SF_FORMAT_NIST, SF_FORMAT_PCM_BE) ;
		pcm_test_24bit	("nist-le", filename, SF_FORMAT_NIST, SF_FORMAT_PCM_LE, 0) ;
		pcm_test_24bit	("nist-be", filename, SF_FORMAT_NIST, SF_FORMAT_PCM_BE, 0) ;
		pcm_test_int	("nist-le", filename, SF_FORMAT_NIST, SF_FORMAT_PCM_LE) ;
		pcm_test_int 	("nist-be", filename, SF_FORMAT_NIST, SF_FORMAT_PCM_BE) ;
		unlink (filename) ;
		nTests++ ;
		} ;

	if (bDoAll || ! strcmp (argv [1], "ircam"))
	{	filename = "test.ircam" ;
		pcm_test_short	("ircam-le", filename, SF_FORMAT_IRCAM, SF_FORMAT_PCM_LE) ;
		pcm_test_short	("ircam-be", filename, SF_FORMAT_IRCAM, SF_FORMAT_PCM_BE) ;
		pcm_test_int	("ircam-le", filename, SF_FORMAT_IRCAM, SF_FORMAT_PCM_LE) ;
		pcm_test_int 	("ircam-be", filename, SF_FORMAT_IRCAM, SF_FORMAT_PCM_BE) ;
		pcm_float_test	("ircam_le_float", filename, SF_FORMAT_IRCAM, SF_FORMAT_FLOAT_LE) ;
		pcm_float_test	("ircam_be_float", filename, SF_FORMAT_IRCAM, SF_FORMAT_FLOAT_BE) ;
		unlink (filename) ;
		nTests++ ;
		} ;

	if (nTests == 0)
	{	printf ("Mono : ************************************\n") ;
		printf ("Mono : *  No '%s' test defined.\n", argv [1]) ;
		printf ("Mono : ************************************\n") ;
		return 1 ;
		} ;

	return 0;
} /* main */

/*============================================================================================
**	Here are the test functions.
*/ 

static void	
pcm_test_char (char *str, char *filename, int typemajor, int typeminor)
{	SNDFILE			*file ;
	SF_INFO			sfinfo ;
	unsigned int	k, items, frames ;
	short			*data ;

	printf ("    pcm_test_char  : %s ... ", str) ;
	fflush (stdout) ;

	items = 127 ;

	data = (short*) test_buffer ;
	for (k = 0 ; k < items ; k++)
		data [k] = k * ((k % 2) ? 1 : -1) ;
		
	sfinfo.samplerate  = 44100 ;
	sfinfo.samples     = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
	sfinfo.channels    = 1 ;
	sfinfo.pcmbitwidth = 8 ;
	sfinfo.format 	   = (typemajor | typeminor) ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("Mono : sf_open_write failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if ((k = sf_write_short (file, data, items)) != items)
	{	printf ("Mono : sf_write_short failed with short write (%d => %d).\n", items, k) ;
		sf_perror (file) ;
		exit (1) ;
		} ;
	sf_close (file) ;
	
	memset (data, 0, items * sizeof (short)) ;
	
	if (typemajor != SF_FORMAT_RAW)
		memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("Mono : sf_open_read failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("Mono : Returned format incorrect (0x%08X => 0x%08X).\n", (typemajor | typeminor), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples != items)
	{	printf ("Mono : Incorrect number of samples in file. (%u => %u)\n", items, sfinfo.samples) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 1)
	{	printf ("Mono : Incorrect number of channels in file.\n") ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 8)
	{	printf ("Mono : Incorrect bit width (%d).\n", sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;
		
	check_log_buffer (file) ;

	if ((k = sf_read_short (file, data, items)) != items)
	{	printf ("Mono : short read (%d).\n", k) ;
		exit (1) ;
		} ;

	for (k = 0 ; k < items ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample A (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			} ;

	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("Mono : sf_seek (file, 0, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data, 4) ;
	for (k = 0 ; k < 4 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample A (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};
	
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("Mono : sf_seek (file, 10, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 10, 4) ;
	for (k = 10 ; k < 14 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample B (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 6, SEEK_CUR) != 20))
	{	printf ("Mono : sf_seek (file, 7, SEEK_CUR) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 20, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample C (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("Mono : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", k) ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 10, 4) ;
	for (k = 10 ; k < 14 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample D (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	sf_close (file) ;

	/* Now test Stereo. */

	if (typemajor == SF_FORMAT_SVX)
	{	printf ("ok\n") ;
		return ;
		} ;

	items = 126 ;

	data = (short*) test_buffer ;
	for (k = 0 ; k < items ; k++)
		data [k] = k * ((k % 2) ? 1 : -1) ;
		
	sfinfo.samplerate  = 44100 ;
	sfinfo.samples     = 123456789 ; /* Wrong length. Library should correct this on sf_close. */
	sfinfo.channels    = 2 ;
	sfinfo.pcmbitwidth = 8 ;
	sfinfo.format 	   = (typemajor | typeminor) ;
	
	frames = items / sfinfo.channels ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("Stereo : sf_open_write failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if ((k = sf_writef_short (file, data, frames)) != frames)
	{	printf ("Stereo : sf_writef_short failed with short write (%d => %d).\n", frames, k) ;
		sf_perror (file) ;
		exit (1) ;
		} ;
	sf_close (file) ;
	
	memset (data, 0, items * sizeof (short)) ;
	
	if (typemajor != SF_FORMAT_RAW)
		memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("Stereo : sf_open_read failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("Stereo : Returned format incorrect (0x%08X => 0x%08X).\n", (typemajor | typeminor), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples != frames)
	{	printf ("Stereo : Incorrect number of samples in file. (%u => %u)\n", frames, sfinfo.samples) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 2)
	{	printf ("Stereo : Incorrect number of channels in file.\n") ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 8)
	{	printf ("Stereo : Incorrect bit width (%d).\n", sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;

	check_log_buffer (file) ;

	if ((k = sf_readf_short (file, data, frames)) != frames)
	{	printf ("Stereo : short read (%d).\n", k) ;
		exit (1) ;
		} ;

	for (k = 0 ; k < items ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			} ;

	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("Stereo : sf_seek (file, 0, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data, 4) ;
	for (k = 0 ; k < 4 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample A (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};
	
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("Stereo : sf_seek (file, 10, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 10, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample B (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 8, SEEK_CUR)) != 20)
	{	printf ("Stereo : sf_seek (file, 8, SEEK_CUR) failed. (20 -> %d)\n", k) ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 40, 4) ;
	for (k = 40 ; k < 44 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample C (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("Stereo : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", k) ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 20, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample D (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	sf_close (file) ;

	printf ("ok\n") ;
} /* pcm_test_char */

static void	
pcm_test_short (char *str, char *filename, int typemajor, int typeminor)
{	SNDFILE			*file ;
	SF_INFO			sfinfo ;
	unsigned int	k, items, frames ;
	short			*data ;

	printf ("    pcm_test_short : %s ... ", str) ;
	fflush (stdout) ;

	items = BUFFER_SIZE / sizeof (short) ;

	data = (short*) test_buffer ;
	for (k = 0 ; k < items ; k++)
		data [k] = k * ((k % 2) ? 1 : -1) ;
		
	sfinfo.samplerate  = 44100 ;
	sfinfo.samples     = items ;
	sfinfo.channels    = 1 ;
	sfinfo.pcmbitwidth = 16 ;
	sfinfo.format 	   = (typemajor | typeminor) ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("Mono : sf_open_write failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if ((k = sf_write_short (file, data, items)) != items)
	{	printf ("Mono : sf_write_short failed with short write (%d => %d).\n", items, k) ;
		sf_perror (file) ;
		exit (1) ;
		} ;

	sf_close (file) ;
	
	memset (data, 0, items * sizeof (short)) ;

	if (typemajor != SF_FORMAT_RAW)
		memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("Mono : sf_open_read failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("Mono : Returned format incorrect (0x%08X => 0x%08X).\n", (typemajor | typeminor), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples != items)
	{	printf ("Mono : Incorrect number of samples in file. (%d => %d)\n", items, sfinfo.samples) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 1)
	{	printf ("Mono : Incorrect number of channels in file.\n") ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 16)
	{	printf ("Mono : Incorrect bit width (%d).\n", sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;

	check_log_buffer (file) ;

	if ((k = sf_read_short (file, data, items)) != items)
	{	printf ("Mono : short read (%d).\n", k) ;
		exit (1) ;
		} ;

	for (k = 0 ; k < items ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			} ;
			
	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("Mono : sf_seek (file, 0, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data, 4) ;
	for (k = 0 ; k < 4 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample A (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};
	
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("Mono : sf_seek (file, 10, SEEK_SET) failed. XXXXX\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 10, 4) ;
	for (k = 10 ; k < 14 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample B (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 6, SEEK_CUR) != 20))
	{	printf ("Mono : sf_seek (file, 7, SEEK_CUR) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 20, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample C (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("Mono : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", k) ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 10, 4) ;
	for (k = 10 ; k < 14 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample D (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	sf_close (file) ;

	/* Now test Stereo. */

	if (typemajor == SF_FORMAT_SVX)
	{	printf ("ok\n") ;
		return ;
		} ;

	items = BUFFER_SIZE / sizeof (short) ;

	data = (short*) test_buffer ;
	for (k = 0 ; k < items ; k++)
		data [k] = k * ((k % 2) ? 1 : -1) ;
		
	sfinfo.samplerate  = 44100 ;
	sfinfo.samples     = items ;
	sfinfo.channels    = 2 ;
	sfinfo.pcmbitwidth = 16 ;
	sfinfo.format 	   = (typemajor | typeminor) ;
	
	frames = items / sfinfo.channels ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("Stereo : sf_open_write failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if ((k = sf_writef_short (file, data, frames)) != frames)
	{	printf ("Stereo : sf_writef_short failed with short write (%d => %d).\n", frames, k) ;
		sf_perror (file) ;
		exit (1) ;
		} ;
	sf_close (file) ;
	
	memset (data, 0, items * sizeof (short)) ;

	if (typemajor != SF_FORMAT_RAW)
		memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("Stereo : sf_open_read failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("Stereo : Returned format incorrect (0x%08X => 0x%08X).\n", (typemajor | typeminor), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples != frames)
	{	printf ("Stereo : Incorrect number of samples in file. (%d => %d)\n", frames, sfinfo.samples) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 2)
	{	printf ("Stereo : Incorrect number of channels in file.\n") ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 16)
	{	printf ("Stereo : Incorrect bit width (%d).\n", sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;

	check_log_buffer (file) ;

	if ((k = sf_readf_short (file, data, frames)) != frames)
	{	printf ("Stereo : short read (%d).\n", k) ;
		exit (1) ;
		} ;

	for (k = 0 ; k < items ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			} ;

	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("Stereo : sf_seek (file, 0, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data, 4) ;
	for (k = 0 ; k < 4 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample A (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};
	
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("Stereo : sf_seek (file, 10, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 10, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample B (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 8, SEEK_CUR)) != 20)
	{	printf ("Stereo : sf_seek (file, 8, SEEK_CUR) failed. (20 -> %d)\n", k) ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 40, 4) ;
	for (k = 40 ; k < 44 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample C (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("Stereo : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", k) ;
		exit (1) ;
		} ;

	sf_read_short (file, data + 20, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample D (#%d : %d => %d).\n", k, k * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	sf_close (file) ;

	printf ("ok\n") ;
} /* pcm_test_short */

static void	
pcm_test_24bit (char *str, char *filename, int typemajor, int typeminor, int long_file_ok)
{	SNDFILE			*file ;
	SF_INFO			sfinfo ;
	unsigned int	k, items, frames ;
	int				*data ;

	printf ("    pcm_test_24bit : %s ... ", str) ;
	fflush (stdout) ;

	items = BUFFER_SIZE / sizeof (int) ;

	data = (int*) test_buffer ;
	for (k = 0 ; k < items ; k++)
		data [k] = k * 256 * ((k % 2) ? 1 : -1) ;
		
	sfinfo.samplerate  = 44100 ;
	sfinfo.samples     = items ;
	sfinfo.channels    = 1 ;
	sfinfo.pcmbitwidth = 24 ;
	sfinfo.format 	   = (typemajor | typeminor) ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("Mono : sf_open_write failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sf_write_int (file, data, items) != items)
	{	printf ("Mono : sf_write_int failed with error : ") ;
		sf_perror (file) ;
		exit (1) ;
		} ;
	sf_close (file) ;
	
	memset (data, 0, items * 3) ;

	if (typemajor != SF_FORMAT_RAW)
		memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("Mono : sf_open_read failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("Mono : Returned format incorrect (0x%08X => 0x%08X).\n", (typemajor | typeminor), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples < items)
	{	printf ("Mono : Incorrect number of samples in file (too short). (%d should be %d)\n", sfinfo.samples, items) ;
		exit (1) ;
		} ;
	
	if (! long_file_ok && sfinfo.samples > items)
	{	printf ("Mono : Incorrect number of samples in file (too long). (%d should be %d)\n", sfinfo.samples, items) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 1)
	{	printf ("Mono : Incorrect number of channels in file.\n") ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 24)
	{	printf ("Mono : Incorrect bit width (%d).\n", sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;

	check_log_buffer (file) ;

	if ((k = sf_read_int (file, data, items)) != items)
	{	printf ("Mono : short read (%d).\n", k) ;
		exit (1) ;
		} ;

	for (k = 0 ; k < items ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			} ;
			
	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("Mono : sf_seek (file, 0, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data, 4) ;
	for (k = 0 ; k < 4 ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample A (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};
	
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("Mono : sf_seek (file, 10, SEEK_SET) failed. XXXXX\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 10, 4) ;
	for (k = 10 ; k < 14 ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample B (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 6, SEEK_CUR) != 20))
	{	printf ("Mono : sf_seek (file, 7, SEEK_CUR) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 20, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample C (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("Mono : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", k) ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 10, 4) ;
	for (k = 10 ; k < 14 ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample D (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	sf_close (file) ;
		
	/* Now test Stereo. */

	if (typemajor == SF_FORMAT_SVX)
	{	printf ("ok\n") ;
		return ;
		} ;

	items = BUFFER_SIZE / sizeof (int) ;

	data = (int*) test_buffer ;
	for (k = 0 ; k < items ; k++)
		data [k] = k * 256 * ((k % 2) ? 1 : -1) ;
		
	sfinfo.samplerate  = 44100 ;
	sfinfo.samples     = items ;
	sfinfo.channels    = 2 ;
	sfinfo.pcmbitwidth = 24 ;
	sfinfo.format 	   = (typemajor | typeminor) ;
	
	frames = items / sfinfo.channels ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("Stereo : sf_open_write failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sf_writef_int (file, data, frames) != frames)
	{	printf ("Stereo : sf_writef_int failed with error : ") ;
		sf_perror (file) ;
		exit (1) ;
		} ;
		
	sf_close (file) ;
	
	memset (data, 0, items * 3) ;

	if (typemajor != SF_FORMAT_RAW)
		memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("Stereo : sf_open_read failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("Stereo : Returned format incorrect (0x%08X => 0x%08X).\n", (typemajor | typeminor), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples < frames)
	{	printf ("Stereo : Incorrect number of samples in file (too short). (%d should be %d)\n", sfinfo.samples, frames) ;
		exit (1) ;
		} ;
	
	if (! long_file_ok && sfinfo.samples > frames)
	{	printf ("Stereo : Incorrect number of samples in file (too long). (%d should be %d)\n", sfinfo.samples, frames) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 2)
	{	printf ("Stereo : Incorrect number of channels in file.\n") ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 24)
	{	printf ("Stereo : Incorrect bit width (%d).\n", sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;

	check_log_buffer (file) ;

	if ((k = sf_readf_int (file, data, frames)) != frames)
	{	printf ("Stereo : short read (%d).\n", k) ;
		exit (1) ;
		} ;

	for (k = 0 ; k < items ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			} ;

	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("Stereo : sf_seek (file, 0, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data, 4) ;
	for (k = 0 ; k < 4 ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample A (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};
	
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("Stereo : sf_seek (file, 10, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 10, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample B (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 8, SEEK_CUR)) != 20)
	{	printf ("Stereo : sf_seek (file, 8, SEEK_CUR) failed. (20 -> %d)\n", k) ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 40, 4) ;
	for (k = 40 ; k < 44 ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample C (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("Stereo : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", k) ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 20, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * 256 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample D (#%d : %d => %d).\n", k, k * 256 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	sf_close (file) ;
		
	printf ("ok\n") ;
} /* pcm_test_24bit */

static void	
pcm_test_int (char *str, char *filename, int typemajor, int typeminor)
{	SNDFILE			*file ;
	SF_INFO			sfinfo ;
	unsigned int	k, items, frames ;
	int				sign, *data ;

	printf ("    pcm_test_int   : %s ... ", str) ;
	fflush (stdout) ;

	items = BUFFER_SIZE / sizeof (int) ;

	data = (int*) test_buffer ;
	for (sign = 1, k = 0 ; k < items ; k++)
		data [k] = k * 200000 * ((k % 2) ? 1 : -1) ;
		
	sfinfo.samplerate  = 44100 ;
	sfinfo.samples     = items ;
	sfinfo.channels    = 1 ;
	sfinfo.pcmbitwidth = 32 ;
	sfinfo.format 	   = (typemajor | typeminor) ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("Mono : sf_open_write failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sf_write_int (file, data, items) != items)
	{	printf ("Mono : sf_write_int failed with error : ") ;
		sf_perror (file) ;
		exit (1) ;
		} ;
	sf_close (file) ;
	
	memset (data, 0, items * sizeof (short)) ;

	if (typemajor != SF_FORMAT_RAW)
		memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("Mono : sf_open_read failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("Mono : Returned format incorrect (0x%08X => 0x%08X).\n", (typemajor | typeminor), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples != items)
	{	printf ("Mono : Incorrect number of samples in file. (%d => %d)\n", items, sfinfo.samples) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 1)
	{	printf ("Mono : Incorrect number of channels in file.\n") ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 32)
	{	printf ("Mono : Incorrect bit width (%d).\n", sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;

	check_log_buffer (file) ;

	if ((k = sf_read_int (file, data, items)) != items)
	{	printf ("Mono : short read (%d).\n", k) ;
		exit (1) ;
		} ;

	for (sign = 1, k = 0 ; k < items ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample (#%d : %d => %d).\n", k, (k % 2) ? 1 : -1, data [k]) ;
			exit (1) ;
			} ;

	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("Mono : sf_seek (file, 0, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data, 4) ;
	for (k = 0 ; k < 4 ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample A (#%d : %d => %d).\n", k, k * 200000 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};
	
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("Mono : sf_seek (file, 10, SEEK_SET) failed. XXXXX\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 10, 4) ;
	for (k = 10 ; k < 14 ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample B (#%d : %d => %d).\n", k, k * 200000 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 6, SEEK_CUR) != 20))
	{	printf ("Mono : sf_seek (file, 7, SEEK_CUR) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 20, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample C (#%d : %d => %d).\n", k, k * 200000 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("Mono : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", k) ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 10, 4) ;
	for (k = 10 ; k < 14 ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Mono : Incorrect sample D (#%d : %d => %d).\n", k, k * 200000 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	sf_close (file) ;

	/* Now test Stereo. */

	if (typemajor == SF_FORMAT_SVX)
	{	printf ("ok\n") ;
		return ;
		} ;

	items = BUFFER_SIZE / sizeof (int) ;

	data = (int*) test_buffer ;
	for (sign = 1, k = 0 ; k < items ; k++)
		data [k] = k * 200000 * ((k % 2) ? 1 : -1) ;
		
	sfinfo.samplerate  = 44100 ;
	sfinfo.samples     = items ;
	sfinfo.channels    = 2 ;
	sfinfo.pcmbitwidth = 32 ;
	sfinfo.format 	   = (typemajor | typeminor) ;
	
	frames = items / sfinfo.channels ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("Stereo : sf_open_write failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sf_writef_int (file, data, frames) != frames)
	{	printf ("Stereo : sf_writef_int failed with error : ") ;
		sf_perror (file) ;
		exit (1) ;
		} ;
	sf_close (file) ;
	
	memset (data, 0, items * sizeof (short)) ;

	if (typemajor != SF_FORMAT_RAW)
		memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("Stereo : sf_open_read failed with error : ") ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("Stereo : Returned format incorrect (0x%08X => 0x%08X).\n", (typemajor | typeminor), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples != frames)
	{	printf ("Stereo : Incorrect number of samples in file. (%d => %d)\n", frames, sfinfo.samples) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 2)
	{	printf ("Stereo : Incorrect number of channels in file.\n") ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 32)
	{	printf ("Stereo : Incorrect bit width (%d).\n", sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;

	check_log_buffer (file) ;

	if ((k = sf_readf_int (file, data, frames)) != frames)
	{	printf ("Stereo : short read (%d).\n", k) ;
		exit (1) ;
		} ;

	for (sign = 1, k = 0 ; k < items ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample (#%d : %d => %d).\n", k, (k % 2) ? 1 : -1, data [k]) ;
			exit (1) ;
			} ;

	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("Stereo : sf_seek (file, 0, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data, 4) ;
	for (k = 0 ; k < 4 ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample A (#%d : %d => %d).\n", k, k * 200000 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};
	
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("Stereo : sf_seek (file, 10, SEEK_SET) failed.\n") ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 10, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample B (#%d : %d => %d).\n", k, k * 200000 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 8, SEEK_CUR)) != 20)
	{	printf ("Stereo : sf_seek (file, 8, SEEK_CUR) failed. (20 -> %d)\n", k) ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 40, 4) ;
	for (k = 40 ; k < 44 ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample C (#%d : %d => %d).\n", k, k * 200000 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("Stereo : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", k) ;
		exit (1) ;
		} ;

	sf_read_int (file, data + 20, 4) ;
	for (k = 20 ; k < 24 ; k++)
		if (data [k] != k * 200000 * ((k % 2) ? 1 : -1))
		{	printf ("Stereo : Incorrect sample D (#%d : %d => %d).\n", k, k * 200000 * ((k % 2) ? 1 : -1), data [k]) ;
			exit (1) ;
			};

	sf_close (file) ;

	printf ("ok\n") ;
} /* pcm_test_int */

static void	
pcm_float_test (char *str, char *filename, int	typemajor, int typeminor)
{	SNDFILE			*file ;
	SF_INFO			sfinfo ;
	unsigned int	k, items, frames ;
	int				sign ;
	double			*data, error ;

	printf ("    pcm_float_test : %s ... ", str) ;
	fflush (stdout) ;

	items = BUFFER_SIZE / sizeof (double) ;

	data = (double*) test_buffer ;
	for (sign = 1, k = 0 ; k < items ; k++)
		data [k] = ((double) k) / 100.0 * (sign *= -1) ;
		
	sfinfo.samplerate  = 44100 ;
	sfinfo.samples     = items ;
	sfinfo.channels    = 1 ;
	sfinfo.pcmbitwidth = 32 ;
	sfinfo.format 	   = (typemajor | typeminor) ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("\n\nError (%s:%d) Mono : sf_open_write failed with error : ", __FILE__, __LINE__) ;
		fflush (stdout) ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sf_write_double (file, data, items, 0) != items)
	{	printf ("\n\nError (%s:%d) Mono : sf_write_int failed with error : ", __FILE__, __LINE__) ;
		fflush (stdout) ;
		sf_perror (file) ;
		exit (1) ;
		} ;
	sf_close (file) ;
	
	memset (data, 0, items * sizeof (double)) ;
	memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("\n\nError (%s:%d) Mono : sf_open_read failed with error : ", __FILE__, __LINE__) ;
		fflush (stdout) ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("\n\nError (%s:%d) Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, (typemajor | typeminor), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples != items)
	{	printf ("\n\nError (%s:%d) Mono : Incorrect number of samples in file. (%d => %d)\n", __FILE__, __LINE__, items, sfinfo.samples) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 1)
	{	printf ("\n\nError (%s:%d) Mono : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 32)
	{	printf ("\n\nError (%s:%d) Mono : Incorrect bit width (%d).\n", __FILE__, __LINE__, sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;

	check_log_buffer (file) ;

	if ((k = sf_read_double (file, data, items, 0)) != items)
	{	printf ("\n\nError (%s:%d) Mono : short read (%d).\n", __FILE__, __LINE__, k) ;
		exit (1) ;
		} ;

	for (sign = 1, k = 0 ; k < items ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			} ;
		} ;

	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("\n\nError (%s:%d) Mono : sf_seek (file, 0, SEEK_SET) failed.\n", __FILE__, __LINE__) ;
		exit (1) ;
		} ;

	sf_read_double (file, data, 4, 0) ;
	for (k = 0 ; k < 4 ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample A (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			};
		};
		
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("\n\nError (%s:%d) Mono : sf_seek (file, 10, SEEK_SET) failed. XXXXX\n", __FILE__, __LINE__) ;
		exit (1) ;
		} ;

	sf_read_double (file, data + 10, 4, 0) ;
	for (k = 10 ; k < 14 ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample B (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			};
		} ;
		
	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 6, SEEK_CUR) != 20))
	{	printf ("\n\nError (%s:%d) Mono : sf_seek (file, 7, SEEK_CUR) failed.\n", __FILE__, __LINE__) ;
		exit (1) ;
		} ;

	sf_read_double (file, data + 20, 4, 0) ;
	for (k = 20 ; k < 24 ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample C (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			};
		};
		
	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("\n\nError (%s:%d) Mono : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", __FILE__, __LINE__, k) ;
		exit (1) ;
		} ;

	sf_read_double (file, data + 10, 4, 0) ;
	for (k = 10 ; k < 14 ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Mono : Incorrect sample D (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			};
		} ;
		
	sf_close (file) ;

	/* Now test Stereo. */

	if (typemajor == SF_FORMAT_SVX) /* SVX is mono only */
	{	printf ("ok\n") ;
		return ;
		} ;

	items = BUFFER_SIZE / sizeof (double) ;

	data = (double*) test_buffer ;
	for (sign = 1, k = 0 ; k < items ; k++)
		data [k] = ((double) k) / 100.0 * (sign *= -1) ;
		
	sfinfo.samplerate = 44100 ;
	sfinfo.samples    = items ;
	sfinfo.channels   = 2 ;
	sfinfo.pcmbitwidth   = 32 ;
	sfinfo.format 	  = (typemajor | typeminor) ;
	
	frames = items / sfinfo.channels ;

	if (! (file = sf_open_write (filename, &sfinfo)))
	{	printf ("\n\nError (%s:%d) Stereo : sf_open_write failed with error : ", __FILE__, __LINE__) ;
		fflush (stdout) ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sf_writef_double (file, data, frames, 0) != frames)
	{	printf ("\n\nError (%s:%d) Stereo : sf_writef_int failed with error : ", __FILE__, __LINE__) ;
		fflush (stdout) ;
		sf_perror (file) ;
		exit (1) ;
		} ;
	sf_close (file) ;
	
	memset (data, 0, items * sizeof (double)) ;
	memset (&sfinfo, 0, sizeof (sfinfo)) ;
	
	if (! (file = sf_open_read (filename, &sfinfo)))
	{	printf ("\n\nError (%s:%d) Stereo : sf_open_read failed with error : ", __FILE__, __LINE__) ;
		fflush (stdout) ;
		sf_perror (NULL) ;
		exit (1) ;
		} ;
	
	if (sfinfo.format != (typemajor | typeminor))
	{	printf ("\n\nError (%s:%d) Stereo : Returned format incorrect (0x%08X => 0x%08X).\n", __FILE__, __LINE__, (typemajor | SF_FORMAT_FLOAT), sfinfo.format) ;
		exit (1) ;
		} ;
	
	if (sfinfo.samples != frames)
	{	printf ("\n\nError (%s:%d) Stereo : Incorrect number of samples in file. (%d => %d)\n", __FILE__, __LINE__, frames, sfinfo.samples) ;
		exit (1) ;
		} ;
	
	if (sfinfo.channels != 2)
	{	printf ("\n\nError (%s:%d) Stereo : Incorrect number of channels in file.\n", __FILE__, __LINE__) ;
		exit (1) ;
		} ;

	if (sfinfo.pcmbitwidth != 32)
	{	printf ("\n\nError (%s:%d) Stereo : Incorrect bit width (%d).\n", __FILE__, __LINE__, sfinfo.pcmbitwidth) ;
		exit (1) ;
		} ;

	check_log_buffer (file) ;

	if ((k = sf_readf_double (file, data, frames, 0)) != frames)
	{	printf ("\n\nError (%s:%d) Stereo : short read (%d).\n", __FILE__, __LINE__, k) ;
		exit (1) ;
		} ;

	for (sign = 1, k = 0 ; k < items ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			} ;
		} ;

	/* Seek to start of file. */
	if ((k = sf_seek (file, 0, SEEK_SET) != 0))
	{	printf ("\n\nError (%s:%d) Stereo : sf_seek (file, 0, SEEK_SET) failed.\n", __FILE__, __LINE__) ;
		exit (1) ;
		} ;

	sf_read_double (file, data, 4, 0) ;
	for (k = 0 ; k < 4 ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample A (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			};
		} ;
		
	/* Seek to offset from start of file. */
	if ((k = sf_seek (file, 10, SEEK_SET) != 10))
	{	printf ("\n\nError (%s:%d) Stereo : sf_seek (file, 10, SEEK_SET) failed.\n", __FILE__, __LINE__) ;
		exit (1) ;
		} ;

	sf_read_double (file, data + 10, 4, 0) ;
	for (k = 20 ; k < 24 ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample B (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			};
		} ;
		
	/* Seek to offset from current position. */
	if ((k = sf_seek (file, 8, SEEK_CUR)) != 20)
	{	printf ("\n\nError (%s:%d) Stereo : sf_seek (file, 8, SEEK_CUR) failed. (20 -> %d)\n", __FILE__, __LINE__, k) ;
		exit (1) ;
		} ;

	sf_read_double (file, data + 40, 4, 0) ;
	for (k = 40 ; k < 44 ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample C (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			};
		} ;
		
	/* Seek to offset from end of file. */
	if ((k = sf_seek (file, -(sfinfo.samples - 10), SEEK_END) != 10))
	{	printf ("\n\nError (%s:%d) Stereo : sf_seek (file, -(sfinfo.samples - 10), SEEK_END) failed (%d).\n", __FILE__, __LINE__, k) ;
		exit (1) ;
		} ;

	sf_read_double (file, data + 20, 4, 0) ;
	for (k = 20 ; k < 24 ; k++)
	{	error = fabs (data [k] - ((double) k) / 100.0 * (sign *= -1)) ;
		if (fabs (data [k]) > 1e-100 && fabs (error / data [k]) > 1e-5)
		{	printf ("\n\nError (%s:%d) Stereo : Incorrect sample D (#%d : %f => %f).\n", __FILE__, __LINE__, k, ((double) k) / 100.0, data [k]) ;
			exit (1) ;
			};
		} ;
		
	sf_close (file) ;

	printf ("ok\n") ;
} /* pcm_float_test */