Chris@0: /*
Chris@0: ** Copyright (C) 1999-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
Chris@0: **
Chris@0: ** This program is free software; you can redistribute it and/or modify
Chris@0: ** it under the terms of the GNU General Public License as published by
Chris@0: ** the Free Software Foundation; either version 2 of the License, or
Chris@0: ** (at your option) any later version.
Chris@0: **
Chris@0: ** This program is distributed in the hope that it will be useful,
Chris@0: ** but WITHOUT ANY WARRANTY; without even the implied warranty of
Chris@0: ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Chris@0: ** GNU General Public License for more details.
Chris@0: **
Chris@0: ** You should have received a copy of the GNU General Public License
Chris@0: ** along with this program; if not, write to the Free Software
Chris@0: ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
Chris@0: */
Chris@0: 
Chris@0: #include "sfconfig.h"
Chris@0: 
Chris@0: #include <stdio.h>
Chris@0: #include <stdlib.h>
Chris@0: #include <string.h>
Chris@0: 
Chris@0: #if HAVE_UNISTD_H
Chris@0: #include <unistd.h>
Chris@0: #endif
Chris@0: 
Chris@0: #include	<math.h>
Chris@0: 
Chris@0: #if (defined (WIN32) || defined (_WIN32))
Chris@0: #include	<fcntl.h>
Chris@0: static int truncate (const char *filename, int ignored) ;
Chris@0: #endif
Chris@0: 
Chris@0: #include	<sndfile.h>
Chris@0: 
Chris@0: #include	"utils.h"
Chris@0: #include	"generate.h"
Chris@0: 
Chris@0: #define	SAMPLE_RATE			11025
Chris@0: #define	DATA_LENGTH			(1<<12)
Chris@0: 
Chris@0: #define	SILLY_WRITE_COUNT	(234)
Chris@0: 
Chris@0: static void	pcm_test_char (const char *str, int format, int long_file_okz) ;
Chris@0: static void	pcm_test_short (const char *str, int format, int long_file_okz) ;
Chris@0: static void	pcm_test_24bit (const char *str, int format, int long_file_okz) ;
Chris@0: static void	pcm_test_int (const char *str, int format, int long_file_okz) ;
Chris@0: static void	pcm_test_float (const char *str, int format, int long_file_okz) ;
Chris@0: static void	pcm_test_double (const char *str, int format, int long_file_okz) ;
Chris@0: 
Chris@0: static void empty_file_test (const char *filename, int format) ;
Chris@0: 
Chris@0: typedef union
Chris@0: {	double d [DATA_LENGTH] ;
Chris@0: 	float f [DATA_LENGTH] ;
Chris@0: 	int i [DATA_LENGTH] ;
Chris@0: 	short s [DATA_LENGTH] ;
Chris@0: 	char c [DATA_LENGTH] ;
Chris@0: } BUFFER ;
Chris@0: 
Chris@0: static	BUFFER	orig_data ;
Chris@0: static	BUFFER	test_data ;
Chris@0: 
Chris@0: int
Chris@0: main (int argc, char **argv)
Chris@0: {	int		do_all = 0 ;
Chris@0: 	int		test_count = 0 ;
Chris@0: 
Chris@0: 	count_open_files () ;
Chris@0: 
Chris@0: 	if (argc != 2)
Chris@0: 	{	printf ("Usage : %s <test>\n", argv [0]) ;
Chris@0: 		printf ("    Where <test> is one of the following:\n") ;
Chris@0: 		printf ("           wav   - test WAV file functions (little endian)\n") ;
Chris@0: 		printf ("           aiff  - test AIFF file functions (big endian)\n") ;
Chris@0: 		printf ("           au    - test AU file functions\n") ;
Chris@0: 		printf ("           avr   - test AVR file functions\n") ;
Chris@0: 		printf ("           caf   - test CAF file functions\n") ;
Chris@0: 		printf ("           raw   - test RAW header-less PCM file functions\n") ;
Chris@0: 		printf ("           paf   - test PAF file functions\n") ;
Chris@0: 		printf ("           svx   - test 8SVX/16SV file functions\n") ;
Chris@0: 		printf ("           nist  - test NIST Sphere file functions\n") ;
Chris@0: 		printf ("           ircam - test IRCAM file functions\n") ;
Chris@0: 		printf ("           voc   - Create Voice file functions\n") ;
Chris@0: 		printf ("           w64   - Sonic Foundry's W64 file functions\n") ;
Chris@0: 		printf ("           flac  - test FLAC file functions\n") ;
Chris@0: 		printf ("           mpc2k - test MPC 2000 file functions\n") ;
Chris@0: 		printf ("           rf64  - test RF64 file functions\n") ;
Chris@0: 		printf ("           all   - perform all tests\n") ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	do_all = !strcmp (argv [1], "all") ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "wav"))
Chris@0: 	{	pcm_test_char	("char.wav"		, SF_FORMAT_WAV | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.wav"	, SF_FORMAT_WAV | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit.wav"	, SF_FORMAT_WAV | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int.wav"		, SF_FORMAT_WAV | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 
Chris@0: 		pcm_test_char	("char.rifx"	, SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.rifx"	, SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit.rifx"	, SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int.rifx"		, SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 
Chris@0: 		pcm_test_24bit	("24bit.wavex"	, SF_FORMAT_WAVEX | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int.wavex"	, SF_FORMAT_WAVEX | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 
Chris@0: 		/* Lite remove start */
Chris@0: 		pcm_test_float	("float.wav"	, SF_FORMAT_WAV | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double.wav"	, SF_FORMAT_WAV | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 
Chris@0: 		pcm_test_float	("float.rifx"	, SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double.rifx"	, SF_ENDIAN_BIG | SF_FORMAT_WAV | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 
Chris@0: 		pcm_test_float	("float.wavex"	, SF_FORMAT_WAVEX | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double.wavex"	, SF_FORMAT_WAVEX | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		/* Lite remove end */
Chris@0: 
Chris@0: 		empty_file_test ("empty_char.wav", SF_FORMAT_WAV | SF_FORMAT_PCM_U8) ;
Chris@0: 		empty_file_test ("empty_short.wav", SF_FORMAT_WAV | SF_FORMAT_PCM_16) ;
Chris@0: 		empty_file_test ("empty_float.wav", SF_FORMAT_WAV | SF_FORMAT_FLOAT) ;
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "aiff"))
Chris@0: 	{	pcm_test_char	("char_u8.aiff"	, SF_FORMAT_AIFF | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 		pcm_test_char	("char_s8.aiff"	, SF_FORMAT_AIFF | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.aiff"	, SF_FORMAT_AIFF | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit.aiff"	, SF_FORMAT_AIFF | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int.aiff"		, SF_FORMAT_AIFF | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 
Chris@0: 		pcm_test_short	("short_sowt.aifc"	, SF_ENDIAN_LITTLE | SF_FORMAT_AIFF | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit_sowt.aifc"	, SF_ENDIAN_LITTLE | SF_FORMAT_AIFF | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_sowt.aifc"	, SF_ENDIAN_LITTLE | SF_FORMAT_AIFF | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 
Chris@0: 		pcm_test_short	("short_twos.aifc"	, SF_ENDIAN_BIG | SF_FORMAT_AIFF | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit_twos.aifc"	, SF_ENDIAN_BIG | SF_FORMAT_AIFF | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_twos.aifc"	, SF_ENDIAN_BIG | SF_FORMAT_AIFF | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 
Chris@0: 		/* Lite remove start */
Chris@0: 		pcm_test_short	("dwvw16.aifc", SF_FORMAT_AIFF | SF_FORMAT_DWVW_16, SF_TRUE) ;
Chris@0: 		pcm_test_24bit	("dwvw24.aifc", SF_FORMAT_AIFF | SF_FORMAT_DWVW_24, SF_TRUE) ;
Chris@0: 
Chris@0: 		pcm_test_float	("float.aifc"	, SF_FORMAT_AIFF | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double.aifc"	, SF_FORMAT_AIFF | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		/* Lite remove end */
Chris@0: 
Chris@0: 		empty_file_test ("empty_char.aiff", SF_FORMAT_AIFF | SF_FORMAT_PCM_U8) ;
Chris@0: 		empty_file_test ("empty_short.aiff", SF_FORMAT_AIFF | SF_FORMAT_PCM_16) ;
Chris@0: 		empty_file_test ("empty_float.aiff", SF_FORMAT_AIFF | SF_FORMAT_FLOAT) ;
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "au"))
Chris@0: 	{	pcm_test_char	("char.au"	, SF_FORMAT_AU | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.au"	, SF_FORMAT_AU | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit.au"	, SF_FORMAT_AU | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int.au"	, SF_FORMAT_AU | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		/* Lite remove start */
Chris@0: 		pcm_test_float	("float.au"	, SF_FORMAT_AU | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double.au", SF_FORMAT_AU | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		/* Lite remove end */
Chris@0: 
Chris@0: 		pcm_test_char	("char_le.au"	, SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short_le.au"	, SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit_le.au"	, SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_le.au"	, SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		/* Lite remove start */
Chris@0: 		pcm_test_float	("float_le.au"	, SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double_le.au"	, SF_ENDIAN_LITTLE | SF_FORMAT_AU | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		/* Lite remove end */
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "caf"))
Chris@0: 	{	pcm_test_char	("char.caf"		, SF_FORMAT_CAF | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.caf"	, SF_FORMAT_CAF | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit.caf"	, SF_FORMAT_CAF | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int.caf"		, SF_FORMAT_CAF | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		/* Lite remove start */
Chris@0: 		pcm_test_float	("float.caf"	, SF_FORMAT_CAF | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double.caf"	, SF_FORMAT_CAF | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		/* Lite remove end */
Chris@0: 
Chris@0: 		pcm_test_short	("short_le.caf"	, SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit_le.caf"	, SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_le.caf"	, SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		/* Lite remove start */
Chris@0: 		pcm_test_float	("float_le.caf"	, SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double_le.caf", SF_ENDIAN_LITTLE | SF_FORMAT_CAF | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		/* Lite remove end */
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "raw"))
Chris@0: 	{	pcm_test_char	("char_s8.raw"	, SF_FORMAT_RAW | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_char	("char_u8.raw"	, SF_FORMAT_RAW | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 
Chris@0: 		pcm_test_short	("short_le.raw"	, SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short_be.raw"	, SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit_le.raw"	, SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit_be.raw"	, SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_le.raw"	, SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_be.raw"	, SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 
Chris@0: 		/* Lite remove start */
Chris@0: 		pcm_test_float	("float_le.raw"	, SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_float	("float_be.raw"	, SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 
Chris@0: 		pcm_test_double	("double_le.raw", SF_ENDIAN_LITTLE	| SF_FORMAT_RAW | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		pcm_test_double	("double_be.raw", SF_ENDIAN_BIG		| SF_FORMAT_RAW | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		/* Lite remove end */
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Lite remove start */
Chris@0: 	if (do_all || ! strcmp (argv [1], "paf"))
Chris@0: 	{	pcm_test_char	("char_le.paf", SF_ENDIAN_LITTLE	| SF_FORMAT_PAF | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_char	("char_be.paf", SF_ENDIAN_BIG		| SF_FORMAT_PAF | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short_le.paf", SF_ENDIAN_LITTLE	| SF_FORMAT_PAF | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short_be.paf", SF_ENDIAN_BIG		| SF_FORMAT_PAF | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit_le.paf", SF_ENDIAN_LITTLE	| SF_FORMAT_PAF | SF_FORMAT_PCM_24, SF_TRUE) ;
Chris@0: 		pcm_test_24bit	("24bit_be.paf", SF_ENDIAN_BIG		| SF_FORMAT_PAF | SF_FORMAT_PCM_24, SF_TRUE) ;
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "svx"))
Chris@0: 	{	pcm_test_char	("char.svx" , SF_FORMAT_SVX | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.svx", SF_FORMAT_SVX | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 
Chris@0: 		empty_file_test ("empty_char.svx", SF_FORMAT_SVX | SF_FORMAT_PCM_S8) ;
Chris@0: 		empty_file_test ("empty_short.svx", SF_FORMAT_SVX | SF_FORMAT_PCM_16) ;
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "nist"))
Chris@0: 	{	pcm_test_short	("short_le.nist", SF_ENDIAN_LITTLE	| SF_FORMAT_NIST | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short_be.nist", SF_ENDIAN_BIG		| SF_FORMAT_NIST | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit_le.nist", SF_ENDIAN_LITTLE	| SF_FORMAT_NIST | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit_be.nist", SF_ENDIAN_BIG		| SF_FORMAT_NIST | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_le.nist"	, SF_ENDIAN_LITTLE	| SF_FORMAT_NIST | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		pcm_test_int 	("int_be.nist"	, SF_ENDIAN_BIG		| SF_FORMAT_NIST | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "ircam"))
Chris@0: 	{	pcm_test_short	("short_be.ircam"	, SF_ENDIAN_BIG	| SF_FORMAT_IRCAM | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short_le.ircam"	, SF_ENDIAN_LITTLE	| SF_FORMAT_IRCAM | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_be.ircam"		, SF_ENDIAN_BIG	| SF_FORMAT_IRCAM | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		pcm_test_int 	("int_le.ircam"		, SF_ENDIAN_LITTLE	| SF_FORMAT_IRCAM | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		pcm_test_float	("float_be.ircam"	, SF_ENDIAN_BIG	| SF_FORMAT_IRCAM | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_float	("float_le.ircam"	, SF_ENDIAN_LITTLE	| SF_FORMAT_IRCAM | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "voc"))
Chris@0: 	{	pcm_test_char 	("char.voc" , SF_FORMAT_VOC | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.voc", SF_FORMAT_VOC | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "mat4"))
Chris@0: 	{	pcm_test_short	("short_be.mat4"	, SF_ENDIAN_BIG	| SF_FORMAT_MAT4 | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short_le.mat4"	, SF_ENDIAN_LITTLE	| SF_FORMAT_MAT4 | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_be.mat4"		, SF_ENDIAN_BIG	| SF_FORMAT_MAT4 | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		pcm_test_int 	("int_le.mat4"		, SF_ENDIAN_LITTLE	| SF_FORMAT_MAT4 | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		pcm_test_float	("float_be.mat4"	, SF_ENDIAN_BIG	| SF_FORMAT_MAT4 | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_float	("float_le.mat4"	, SF_ENDIAN_LITTLE	| SF_FORMAT_MAT4 | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double_be.mat4"	, SF_ENDIAN_BIG	| SF_FORMAT_MAT4 | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		pcm_test_double	("double_le.mat4"	, SF_ENDIAN_LITTLE	| SF_FORMAT_MAT4 | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 
Chris@0: 		empty_file_test ("empty_short.mat4", SF_FORMAT_MAT4 | SF_FORMAT_PCM_16) ;
Chris@0: 		empty_file_test ("empty_float.mat4", SF_FORMAT_MAT4 | SF_FORMAT_FLOAT) ;
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "mat5"))
Chris@0: 	{	pcm_test_char 	("char_be.mat5"		, SF_ENDIAN_BIG	| SF_FORMAT_MAT5 | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 		pcm_test_char 	("char_le.mat5"		, SF_ENDIAN_LITTLE	| SF_FORMAT_MAT5 | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short_be.mat5"	, SF_ENDIAN_BIG	| SF_FORMAT_MAT5 | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short_le.mat5"	, SF_ENDIAN_LITTLE	| SF_FORMAT_MAT5 | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int_be.mat5"		, SF_ENDIAN_BIG	| SF_FORMAT_MAT5 | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		pcm_test_int 	("int_le.mat5"		, SF_ENDIAN_LITTLE	| SF_FORMAT_MAT5 | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		pcm_test_float	("float_be.mat5"	, SF_ENDIAN_BIG	| SF_FORMAT_MAT5 | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_float	("float_le.mat5"	, SF_ENDIAN_LITTLE	| SF_FORMAT_MAT5 | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double_be.mat5"	, SF_ENDIAN_BIG	| SF_FORMAT_MAT5 | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		pcm_test_double	("double_le.mat5"	, SF_ENDIAN_LITTLE	| SF_FORMAT_MAT5 | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 
Chris@0: 		increment_open_file_count () ;
Chris@0: 
Chris@0: 		empty_file_test ("empty_char.mat5", SF_FORMAT_MAT5 | SF_FORMAT_PCM_U8) ;
Chris@0: 		empty_file_test ("empty_short.mat5", SF_FORMAT_MAT5 | SF_FORMAT_PCM_16) ;
Chris@0: 		empty_file_test ("empty_float.mat5", SF_FORMAT_MAT5 | SF_FORMAT_FLOAT) ;
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "pvf"))
Chris@0: 	{	pcm_test_char 	("char.pvf"	, SF_FORMAT_PVF | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.pvf", SF_FORMAT_PVF | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int.pvf"	, SF_FORMAT_PVF | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "htk"))
Chris@0: 	{	pcm_test_short	("short.htk", SF_FORMAT_HTK | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "mpc2k"))
Chris@0: 	{	pcm_test_short	("short.mpc", SF_FORMAT_MPC2K | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "avr"))
Chris@0: 	{	pcm_test_char 	("char_u8.avr"	, SF_FORMAT_AVR | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 		pcm_test_char 	("char_s8.avr"	, SF_FORMAT_AVR | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.avr"	, SF_FORMAT_AVR | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 	/* Lite remove end */
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "w64"))
Chris@0: 	{	pcm_test_char	("char.w64"		, SF_FORMAT_W64 | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.w64"	, SF_FORMAT_W64 | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit.w64"	, SF_FORMAT_W64 | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int.w64"		, SF_FORMAT_W64 | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 		/* Lite remove start */
Chris@0: 		pcm_test_float	("float.w64"	, SF_FORMAT_W64 | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double.w64"	, SF_FORMAT_W64 | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		/* Lite remove end */
Chris@0: 
Chris@0: 		empty_file_test ("empty_char.w64", SF_FORMAT_W64 | SF_FORMAT_PCM_U8) ;
Chris@0: 		empty_file_test ("empty_short.w64", SF_FORMAT_W64 | SF_FORMAT_PCM_16) ;
Chris@0: 		empty_file_test ("empty_float.w64", SF_FORMAT_W64 | SF_FORMAT_FLOAT) ;
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "sds"))
Chris@0: 	{	pcm_test_char	("char.sds"		, SF_FORMAT_SDS | SF_FORMAT_PCM_S8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.sds"	, SF_FORMAT_SDS | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit.sds"	, SF_FORMAT_SDS | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 
Chris@0: 		empty_file_test ("empty_char.sds", SF_FORMAT_SDS | SF_FORMAT_PCM_S8) ;
Chris@0: 		empty_file_test ("empty_short.sds", SF_FORMAT_SDS | SF_FORMAT_PCM_16) ;
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "sd2"))
Chris@0: 	{	pcm_test_char	("char.sd2"		, SF_FORMAT_SD2 | SF_FORMAT_PCM_S8, SF_TRUE) ;
Chris@0: 		pcm_test_short	("short.sd2"	, SF_FORMAT_SD2 | SF_FORMAT_PCM_16, SF_TRUE) ;
Chris@0: 		pcm_test_24bit	("24bit.sd2"	, SF_FORMAT_SD2 | SF_FORMAT_PCM_24, SF_TRUE) ;
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "flac"))
Chris@0: 	{	if (HAVE_EXTERNAL_LIBS)
Chris@0: 		{	pcm_test_char	("char.flac"	, SF_FORMAT_FLAC | SF_FORMAT_PCM_S8, SF_TRUE) ;
Chris@0: 			pcm_test_short	("short.flac"	, SF_FORMAT_FLAC | SF_FORMAT_PCM_16, SF_TRUE) ;
Chris@0: 			pcm_test_24bit	("24bit.flac"	, SF_FORMAT_FLAC | SF_FORMAT_PCM_24, SF_TRUE) ;
Chris@0: 			}
Chris@0: 		else
Chris@0: 			puts ("    No FLAC tests because FLAC support was not compiled in.") ;
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (do_all || ! strcmp (argv [1], "rf64"))
Chris@0: 	{	pcm_test_char	("char.rf64"	, SF_FORMAT_RF64 | SF_FORMAT_PCM_U8, SF_FALSE) ;
Chris@0: 		pcm_test_short	("short.rf64"	, SF_FORMAT_RF64 | SF_FORMAT_PCM_16, SF_FALSE) ;
Chris@0: 		pcm_test_24bit	("24bit.rf64"	, SF_FORMAT_RF64 | SF_FORMAT_PCM_24, SF_FALSE) ;
Chris@0: 		pcm_test_int	("int.rf64"		, SF_FORMAT_RF64 | SF_FORMAT_PCM_32, SF_FALSE) ;
Chris@0: 
Chris@0: 		/* Lite remove start */
Chris@0: 		pcm_test_float	("float.rf64"	, SF_FORMAT_RF64 | SF_FORMAT_FLOAT , SF_FALSE) ;
Chris@0: 		pcm_test_double	("double.rf64"	, SF_FORMAT_RF64 | SF_FORMAT_DOUBLE, SF_FALSE) ;
Chris@0: 		empty_file_test ("empty_char.rf64", SF_FORMAT_RF64 | SF_FORMAT_PCM_U8) ;
Chris@0: 		empty_file_test ("empty_short.rf64", SF_FORMAT_RF64 | SF_FORMAT_PCM_16) ;
Chris@0: 		empty_file_test ("empty_float.rf64", SF_FORMAT_RF64 | SF_FORMAT_FLOAT) ;
Chris@0: 		/* Lite remove end */
Chris@0: 
Chris@0: 		test_count++ ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (test_count == 0)
Chris@0: 	{	printf ("Mono : ************************************\n") ;
Chris@0: 		printf ("Mono : *  No '%s' test defined.\n", argv [1]) ;
Chris@0: 		printf ("Mono : ************************************\n") ;
Chris@0: 		return 1 ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Only open file descriptors should be stdin, stdout and stderr. */
Chris@0: 	check_open_file_count_or_die (__LINE__) ;
Chris@0: 
Chris@0: 	return 0 ;
Chris@0: } /* main */
Chris@0: 
Chris@0: /*============================================================================================
Chris@0: **	Helper functions and macros.
Chris@0: */
Chris@0: 
Chris@0: static void	create_short_file (const char *filename) ;
Chris@0: 
Chris@0: #define	CHAR_ERROR(x,y)		(abs ((x) - (y)) > 255)
Chris@0: #define	INT_ERROR(x,y)		(((x) - (y)) != 0)
Chris@0: #define	TRIBYTE_ERROR(x,y)	(abs ((x) - (y)) > 255)
Chris@0: #define	FLOAT_ERROR(x,y)	(fabs ((x) - (y)) > 1e-5)
Chris@0: 
Chris@0: #define CONVERT_DATA(k,len,new,orig)					\
Chris@0: 			{	for ((k) = 0 ; (k) < (len) ; (k) ++)	\
Chris@0: 					(new) [k] = (orig) [k] ;			\
Chris@0: 				}
Chris@0: 
Chris@0: 
Chris@0: /*======================================================================================
Chris@0: */
Chris@0: 
Chris@0: static void mono_char_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void stereo_char_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void mono_rdwr_char_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void new_rdwr_char_test (const char *filename, int format, int allow_fd) ;
Chris@0: static void multi_seek_test (const char * filename, int format) ;
Chris@0: static void write_seek_extend_test (const char * filename, int format) ;
Chris@0: 
Chris@0: static void
Chris@0: pcm_test_char (const char *filename, int format, int long_file_ok)
Chris@0: {	SF_INFO		sfinfo ;
Chris@0: 	short		*orig ;
Chris@0: 	int			k, allow_fd ;
Chris@0: 
Chris@0: 	/* Sd2 files cannot be opened from an existing file descriptor. */
Chris@0: 	allow_fd = ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2) ? SF_FALSE : SF_TRUE ;
Chris@0: 
Chris@0: 	print_test_name ("pcm_test_char", filename) ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, 32000.0) ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	/* Some test broken out here. */
Chris@0: 
Chris@0: 	mono_char_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* Sub format DWVW does not allow seeking. */
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		printf ("no seek : ok\n") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		mono_rdwr_char_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* If the format doesn't support stereo we're done. */
Chris@0: 	sfinfo.channels = 2 ;
Chris@0: 	if (sf_format_check (&sfinfo) == 0)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		puts ("no stereo : ok") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	stereo_char_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* New read/write test. Not sure if this is needed yet. */
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_PAF &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_VOC &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		new_rdwr_char_test (filename, format, allow_fd) ;
Chris@0: 
Chris@0: 	delete_file (format, filename) ;
Chris@0: 
Chris@0: 	puts ("ok") ;
Chris@0: 	return ;
Chris@0: } /* pcm_test_char */
Chris@0: 
Chris@0: static void
Chris@0: mono_char_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	short		*orig, *test ;
Chris@0: 	sf_count_t	count ;
Chris@0: 	int			k, items ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 	test = test_data.s ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_write_short_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 	test_write_short_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 
Chris@0: 	/* Add non-audio data after the audio. */
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (short)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too long). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test, items, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (CHAR_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d: Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			oct_save_short (orig, test, items) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test, 4, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (CHAR_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	sf_close (file) ;
Chris@0: 		unlink (filename) ;
Chris@0: 		printf ("no seek : ") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, items + 10, SEEK_SET, items + 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (CHAR_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 6, SEEK_CUR, items + 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test + 20, 4, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (CHAR_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (CHAR_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample D (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Check read past end of file followed by sf_seek (sndfile, 0, SEEK_CUR). */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	count = 0 ;
Chris@0: 	while (count < sfinfo.frames)
Chris@0: 		count += sf_read_short (file, test, 311) ;
Chris@0: 
Chris@0: 	/* Check that no error has occurred. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("\n\nLine %d : Mono : error where there shouldn't have been one.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Check that we haven't read beyond EOF. */
Chris@0: 	if (count > sfinfo.frames)
Chris@0: 	{	printf ("\n\nLines %d : read past end of file (%ld should be %ld)\n", __LINE__, (long) count, (long) sfinfo.frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_seek_or_die (file, 0, SEEK_CUR, sfinfo.frames, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	multi_seek_test (filename, format) ;
Chris@0: 	write_seek_extend_test (filename, format) ;
Chris@0: 
Chris@0: } /* mono_char_test */
Chris@0: 
Chris@0: static void
Chris@0: stereo_char_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	short		*orig, *test ;
Chris@0: 	int			k, items, frames ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, 32000.0) ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 	test = test_data.s ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_writef_short_or_die (file, 0, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (short)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Returned format incorrect (0x%08X => 0x%08X).\n",
Chris@0: 				__LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too short). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too long). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 2)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test, frames, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (CHAR_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test, 2, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (CHAR_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	/* Check for errors here. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("Line %d: Should NOT return an error.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sf_read_short (file, test, 1) > 0)
Chris@0: 	{	printf ("Line %d: Should return 0.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! sf_error (file))
Chris@0: 	{	printf ("Line %d: Should return an error.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 	/*-----------------------*/
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test + 10, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (CHAR_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 40 ; k < 44 ; k++)
Chris@0: 		if (CHAR_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (CHAR_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* stereo_char_test */
Chris@0: 
Chris@0: static void
Chris@0: mono_rdwr_char_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	short		*orig, *test ;
Chris@0: 	int			k, pass ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 	test = test_data.s ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_RAW
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_AU
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2)
Chris@0: 		unlink (filename) ;
Chris@0: 	else
Chris@0: 	{	/* Create a short file. */
Chris@0: 		create_short_file (filename) ;
Chris@0: 
Chris@0: 		/* Opening a already existing short file (ie invalid header) RDWR is disallowed.
Chris@0: 		** If this returns a valif pointer sf_open() screwed up.
Chris@0: 		*/
Chris@0: 		if ((file = sf_open (filename, SFM_RDWR, &sfinfo)))
Chris@0: 		{	printf ("\n\nLine %d: sf_open should (SFM_RDWR) have failed but didn't.\n", __LINE__) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 		/* Truncate the file to zero bytes. */
Chris@0: 		if (truncate (filename, 0) < 0)
Chris@0: 		{	printf ("\n\nLine %d: truncate (%s) failed", __LINE__, filename) ;
Chris@0: 			perror (NULL) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Opening a zero length file RDWR is allowed, but the SF_INFO struct must contain
Chris@0: 	** all the usual data required when opening the file in WRITE mode.
Chris@0: 	*/
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	/* Do 3 writes followed by reads. After each, check the data and the current
Chris@0: 	** read and write offsets.
Chris@0: 	*/
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		/* Write some data. */
Chris@0: 		test_write_short_or_die (file, pass, orig, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_short_or_die (file, 0, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (CHAR_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) A : Error at sample %d (0x%X => 0x%X).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_short (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, pass * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Open the file again to check the data. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Not enough frames in file. (%ld < %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		}
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames != 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of frames in file. (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok)
Chris@0: 		test_read_write_position_or_die (file, __LINE__, 0, 0, 3 * DATA_LENGTH) ;
Chris@0: 	else
Chris@0: 		test_seek_or_die (file, 3 * DATA_LENGTH, SFM_WRITE | SEEK_SET, 3 * DATA_LENGTH, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, 3 * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_short_or_die (file, pass, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (CHAR_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) B : Error at sample %d (0x%X => 0x%X).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_short (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* mono_rdwr_short_test */
Chris@0: 
Chris@0: static void
Chris@0: new_rdwr_char_test (const char *filename, int format, int allow_fd)
Chris@0: {	SNDFILE *wfile, *rwfile ;
Chris@0: 	SF_INFO	sfinfo ;
Chris@0: 	short		*orig, *test ;
Chris@0: 	int		items, frames ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 	test = test_data.s ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	wfile = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	sf_command (wfile, SFC_SET_UPDATE_HEADER_AUTO, NULL, SF_TRUE) ;
Chris@0: 	test_writef_short_or_die (wfile, 1, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 	test_writef_short_or_die (wfile, 2, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 
Chris@0: 	rwfile = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	if (sfinfo.frames != 2 * frames)
Chris@0: 	{	printf ("\n\nLine %d : incorrect number of frames in file (%ld should be %d)\n\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 2 * frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_writef_short_or_die (wfile, 3, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (rwfile, 1, test, frames, __LINE__) ;
Chris@0: 	test_readf_short_or_die (rwfile, 2, test, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (wfile) ;
Chris@0: 	sf_close (rwfile) ;
Chris@0: } /* new_rdwr_char_test */
Chris@0: 
Chris@0: 
Chris@0: /*======================================================================================
Chris@0: */
Chris@0: 
Chris@0: static void mono_short_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void stereo_short_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void mono_rdwr_short_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void new_rdwr_short_test (const char *filename, int format, int allow_fd) ;
Chris@0: static void multi_seek_test (const char * filename, int format) ;
Chris@0: static void write_seek_extend_test (const char * filename, int format) ;
Chris@0: 
Chris@0: static void
Chris@0: pcm_test_short (const char *filename, int format, int long_file_ok)
Chris@0: {	SF_INFO		sfinfo ;
Chris@0: 	short		*orig ;
Chris@0: 	int			k, allow_fd ;
Chris@0: 
Chris@0: 	/* Sd2 files cannot be opened from an existing file descriptor. */
Chris@0: 	allow_fd = ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2) ? SF_FALSE : SF_TRUE ;
Chris@0: 
Chris@0: 	print_test_name ("pcm_test_short", filename) ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, 32000.0) ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	/* Some test broken out here. */
Chris@0: 
Chris@0: 	mono_short_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* Sub format DWVW does not allow seeking. */
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		printf ("no seek : ok\n") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		mono_rdwr_short_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* If the format doesn't support stereo we're done. */
Chris@0: 	sfinfo.channels = 2 ;
Chris@0: 	if (sf_format_check (&sfinfo) == 0)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		puts ("no stereo : ok") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	stereo_short_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* New read/write test. Not sure if this is needed yet. */
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_PAF &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_VOC &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		new_rdwr_short_test (filename, format, allow_fd) ;
Chris@0: 
Chris@0: 	delete_file (format, filename) ;
Chris@0: 
Chris@0: 	puts ("ok") ;
Chris@0: 	return ;
Chris@0: } /* pcm_test_short */
Chris@0: 
Chris@0: static void
Chris@0: mono_short_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	short		*orig, *test ;
Chris@0: 	sf_count_t	count ;
Chris@0: 	int			k, items ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 	test = test_data.s ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_write_short_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 	test_write_short_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 
Chris@0: 	/* Add non-audio data after the audio. */
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (short)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too long). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test, items, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d: Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			oct_save_short (orig, test, items) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test, 4, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	sf_close (file) ;
Chris@0: 		unlink (filename) ;
Chris@0: 		printf ("no seek : ") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, items + 10, SEEK_SET, items + 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 6, SEEK_CUR, items + 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test + 20, 4, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_short_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample D (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Check read past end of file followed by sf_seek (sndfile, 0, SEEK_CUR). */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	count = 0 ;
Chris@0: 	while (count < sfinfo.frames)
Chris@0: 		count += sf_read_short (file, test, 311) ;
Chris@0: 
Chris@0: 	/* Check that no error has occurred. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("\n\nLine %d : Mono : error where there shouldn't have been one.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Check that we haven't read beyond EOF. */
Chris@0: 	if (count > sfinfo.frames)
Chris@0: 	{	printf ("\n\nLines %d : read past end of file (%ld should be %ld)\n", __LINE__, (long) count, (long) sfinfo.frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_seek_or_die (file, 0, SEEK_CUR, sfinfo.frames, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	multi_seek_test (filename, format) ;
Chris@0: 	write_seek_extend_test (filename, format) ;
Chris@0: 
Chris@0: } /* mono_short_test */
Chris@0: 
Chris@0: static void
Chris@0: stereo_short_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	short		*orig, *test ;
Chris@0: 	int			k, items, frames ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, 32000.0) ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 	test = test_data.s ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_writef_short_or_die (file, 0, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (short)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Returned format incorrect (0x%08X => 0x%08X).\n",
Chris@0: 				__LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too short). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too long). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 2)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test, frames, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test, 2, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	/* Check for errors here. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("Line %d: Should NOT return an error.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sf_read_short (file, test, 1) > 0)
Chris@0: 	{	printf ("Line %d: Should return 0.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! sf_error (file))
Chris@0: 	{	printf ("Line %d: Should return an error.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 	/*-----------------------*/
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test + 10, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 40 ; k < 44 ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* stereo_short_test */
Chris@0: 
Chris@0: static void
Chris@0: mono_rdwr_short_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	short		*orig, *test ;
Chris@0: 	int			k, pass ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 	test = test_data.s ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_RAW
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_AU
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2)
Chris@0: 		unlink (filename) ;
Chris@0: 	else
Chris@0: 	{	/* Create a short file. */
Chris@0: 		create_short_file (filename) ;
Chris@0: 
Chris@0: 		/* Opening a already existing short file (ie invalid header) RDWR is disallowed.
Chris@0: 		** If this returns a valif pointer sf_open() screwed up.
Chris@0: 		*/
Chris@0: 		if ((file = sf_open (filename, SFM_RDWR, &sfinfo)))
Chris@0: 		{	printf ("\n\nLine %d: sf_open should (SFM_RDWR) have failed but didn't.\n", __LINE__) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 		/* Truncate the file to zero bytes. */
Chris@0: 		if (truncate (filename, 0) < 0)
Chris@0: 		{	printf ("\n\nLine %d: truncate (%s) failed", __LINE__, filename) ;
Chris@0: 			perror (NULL) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Opening a zero length file RDWR is allowed, but the SF_INFO struct must contain
Chris@0: 	** all the usual data required when opening the file in WRITE mode.
Chris@0: 	*/
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	/* Do 3 writes followed by reads. After each, check the data and the current
Chris@0: 	** read and write offsets.
Chris@0: 	*/
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		/* Write some data. */
Chris@0: 		test_write_short_or_die (file, pass, orig, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_short_or_die (file, 0, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (INT_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) A : Error at sample %d (0x%X => 0x%X).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_short (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, pass * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Open the file again to check the data. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Not enough frames in file. (%ld < %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		}
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames != 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of frames in file. (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok)
Chris@0: 		test_read_write_position_or_die (file, __LINE__, 0, 0, 3 * DATA_LENGTH) ;
Chris@0: 	else
Chris@0: 		test_seek_or_die (file, 3 * DATA_LENGTH, SFM_WRITE | SEEK_SET, 3 * DATA_LENGTH, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, 3 * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_short_or_die (file, pass, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (INT_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) B : Error at sample %d (0x%X => 0x%X).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_short (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* mono_rdwr_short_test */
Chris@0: 
Chris@0: static void
Chris@0: new_rdwr_short_test (const char *filename, int format, int allow_fd)
Chris@0: {	SNDFILE *wfile, *rwfile ;
Chris@0: 	SF_INFO	sfinfo ;
Chris@0: 	short		*orig, *test ;
Chris@0: 	int		items, frames ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 	test = test_data.s ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	wfile = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	sf_command (wfile, SFC_SET_UPDATE_HEADER_AUTO, NULL, SF_TRUE) ;
Chris@0: 	test_writef_short_or_die (wfile, 1, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 	test_writef_short_or_die (wfile, 2, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 
Chris@0: 	rwfile = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	if (sfinfo.frames != 2 * frames)
Chris@0: 	{	printf ("\n\nLine %d : incorrect number of frames in file (%ld should be %d)\n\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 2 * frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_writef_short_or_die (wfile, 3, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_short_or_die (rwfile, 1, test, frames, __LINE__) ;
Chris@0: 	test_readf_short_or_die (rwfile, 2, test, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (wfile) ;
Chris@0: 	sf_close (rwfile) ;
Chris@0: } /* new_rdwr_short_test */
Chris@0: 
Chris@0: 
Chris@0: /*======================================================================================
Chris@0: */
Chris@0: 
Chris@0: static void mono_24bit_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void stereo_24bit_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void mono_rdwr_24bit_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void new_rdwr_24bit_test (const char *filename, int format, int allow_fd) ;
Chris@0: static void multi_seek_test (const char * filename, int format) ;
Chris@0: static void write_seek_extend_test (const char * filename, int format) ;
Chris@0: 
Chris@0: static void
Chris@0: pcm_test_24bit (const char *filename, int format, int long_file_ok)
Chris@0: {	SF_INFO		sfinfo ;
Chris@0: 	int		*orig ;
Chris@0: 	int			k, allow_fd ;
Chris@0: 
Chris@0: 	/* Sd2 files cannot be opened from an existing file descriptor. */
Chris@0: 	allow_fd = ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2) ? SF_FALSE : SF_TRUE ;
Chris@0: 
Chris@0: 	print_test_name ("pcm_test_24bit", filename) ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, (1.0 * 0x7F000000)) ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	/* Some test broken out here. */
Chris@0: 
Chris@0: 	mono_24bit_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* Sub format DWVW does not allow seeking. */
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		printf ("no seek : ok\n") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		mono_rdwr_24bit_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* If the format doesn't support stereo we're done. */
Chris@0: 	sfinfo.channels = 2 ;
Chris@0: 	if (sf_format_check (&sfinfo) == 0)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		puts ("no stereo : ok") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	stereo_24bit_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* New read/write test. Not sure if this is needed yet. */
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_PAF &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_VOC &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		new_rdwr_24bit_test (filename, format, allow_fd) ;
Chris@0: 
Chris@0: 	delete_file (format, filename) ;
Chris@0: 
Chris@0: 	puts ("ok") ;
Chris@0: 	return ;
Chris@0: } /* pcm_test_24bit */
Chris@0: 
Chris@0: static void
Chris@0: mono_24bit_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	int		*orig, *test ;
Chris@0: 	sf_count_t	count ;
Chris@0: 	int			k, items ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 	test = test_data.i ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_write_int_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 	test_write_int_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 
Chris@0: 	/* Add non-audio data after the audio. */
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (int)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too long). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test, items, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (TRIBYTE_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d: Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			oct_save_int (orig, test, items) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test, 4, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (TRIBYTE_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	sf_close (file) ;
Chris@0: 		unlink (filename) ;
Chris@0: 		printf ("no seek : ") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, items + 10, SEEK_SET, items + 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (TRIBYTE_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 6, SEEK_CUR, items + 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test + 20, 4, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (TRIBYTE_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (TRIBYTE_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample D (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Check read past end of file followed by sf_seek (sndfile, 0, SEEK_CUR). */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	count = 0 ;
Chris@0: 	while (count < sfinfo.frames)
Chris@0: 		count += sf_read_int (file, test, 311) ;
Chris@0: 
Chris@0: 	/* Check that no error has occurred. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("\n\nLine %d : Mono : error where there shouldn't have been one.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Check that we haven't read beyond EOF. */
Chris@0: 	if (count > sfinfo.frames)
Chris@0: 	{	printf ("\n\nLines %d : read past end of file (%ld should be %ld)\n", __LINE__, (long) count, (long) sfinfo.frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_seek_or_die (file, 0, SEEK_CUR, sfinfo.frames, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	multi_seek_test (filename, format) ;
Chris@0: 	write_seek_extend_test (filename, format) ;
Chris@0: 
Chris@0: } /* mono_24bit_test */
Chris@0: 
Chris@0: static void
Chris@0: stereo_24bit_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	int		*orig, *test ;
Chris@0: 	int			k, items, frames ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, (1.0 * 0x7F000000)) ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 	test = test_data.i ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_writef_int_or_die (file, 0, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (int)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Returned format incorrect (0x%08X => 0x%08X).\n",
Chris@0: 				__LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too short). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too long). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 2)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test, frames, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (TRIBYTE_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test, 2, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (TRIBYTE_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	/* Check for errors here. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("Line %d: Should NOT return an error.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sf_read_int (file, test, 1) > 0)
Chris@0: 	{	printf ("Line %d: Should return 0.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! sf_error (file))
Chris@0: 	{	printf ("Line %d: Should return an error.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 	/*-----------------------*/
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test + 10, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (TRIBYTE_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 40 ; k < 44 ; k++)
Chris@0: 		if (TRIBYTE_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (TRIBYTE_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* stereo_24bit_test */
Chris@0: 
Chris@0: static void
Chris@0: mono_rdwr_24bit_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	int		*orig, *test ;
Chris@0: 	int			k, pass ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 	test = test_data.i ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_RAW
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_AU
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2)
Chris@0: 		unlink (filename) ;
Chris@0: 	else
Chris@0: 	{	/* Create a short file. */
Chris@0: 		create_short_file (filename) ;
Chris@0: 
Chris@0: 		/* Opening a already existing short file (ie invalid header) RDWR is disallowed.
Chris@0: 		** If this returns a valif pointer sf_open() screwed up.
Chris@0: 		*/
Chris@0: 		if ((file = sf_open (filename, SFM_RDWR, &sfinfo)))
Chris@0: 		{	printf ("\n\nLine %d: sf_open should (SFM_RDWR) have failed but didn't.\n", __LINE__) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 		/* Truncate the file to zero bytes. */
Chris@0: 		if (truncate (filename, 0) < 0)
Chris@0: 		{	printf ("\n\nLine %d: truncate (%s) failed", __LINE__, filename) ;
Chris@0: 			perror (NULL) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Opening a zero length file RDWR is allowed, but the SF_INFO struct must contain
Chris@0: 	** all the usual data required when opening the file in WRITE mode.
Chris@0: 	*/
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	/* Do 3 writes followed by reads. After each, check the data and the current
Chris@0: 	** read and write offsets.
Chris@0: 	*/
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		/* Write some data. */
Chris@0: 		test_write_int_or_die (file, pass, orig, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_int_or_die (file, 0, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (TRIBYTE_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) A : Error at sample %d (0x%X => 0x%X).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_int (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, pass * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Open the file again to check the data. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Not enough frames in file. (%ld < %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		}
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames != 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of frames in file. (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok)
Chris@0: 		test_read_write_position_or_die (file, __LINE__, 0, 0, 3 * DATA_LENGTH) ;
Chris@0: 	else
Chris@0: 		test_seek_or_die (file, 3 * DATA_LENGTH, SFM_WRITE | SEEK_SET, 3 * DATA_LENGTH, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, 3 * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_int_or_die (file, pass, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (TRIBYTE_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) B : Error at sample %d (0x%X => 0x%X).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_int (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* mono_rdwr_int_test */
Chris@0: 
Chris@0: static void
Chris@0: new_rdwr_24bit_test (const char *filename, int format, int allow_fd)
Chris@0: {	SNDFILE *wfile, *rwfile ;
Chris@0: 	SF_INFO	sfinfo ;
Chris@0: 	int		*orig, *test ;
Chris@0: 	int		items, frames ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 	test = test_data.i ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	wfile = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	sf_command (wfile, SFC_SET_UPDATE_HEADER_AUTO, NULL, SF_TRUE) ;
Chris@0: 	test_writef_int_or_die (wfile, 1, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 	test_writef_int_or_die (wfile, 2, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 
Chris@0: 	rwfile = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	if (sfinfo.frames != 2 * frames)
Chris@0: 	{	printf ("\n\nLine %d : incorrect number of frames in file (%ld should be %d)\n\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 2 * frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_writef_int_or_die (wfile, 3, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (rwfile, 1, test, frames, __LINE__) ;
Chris@0: 	test_readf_int_or_die (rwfile, 2, test, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (wfile) ;
Chris@0: 	sf_close (rwfile) ;
Chris@0: } /* new_rdwr_24bit_test */
Chris@0: 
Chris@0: 
Chris@0: /*======================================================================================
Chris@0: */
Chris@0: 
Chris@0: static void mono_int_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void stereo_int_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void mono_rdwr_int_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void new_rdwr_int_test (const char *filename, int format, int allow_fd) ;
Chris@0: static void multi_seek_test (const char * filename, int format) ;
Chris@0: static void write_seek_extend_test (const char * filename, int format) ;
Chris@0: 
Chris@0: static void
Chris@0: pcm_test_int (const char *filename, int format, int long_file_ok)
Chris@0: {	SF_INFO		sfinfo ;
Chris@0: 	int		*orig ;
Chris@0: 	int			k, allow_fd ;
Chris@0: 
Chris@0: 	/* Sd2 files cannot be opened from an existing file descriptor. */
Chris@0: 	allow_fd = ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2) ? SF_FALSE : SF_TRUE ;
Chris@0: 
Chris@0: 	print_test_name ("pcm_test_int", filename) ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, (1.0 * 0x7F000000)) ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	/* Some test broken out here. */
Chris@0: 
Chris@0: 	mono_int_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* Sub format DWVW does not allow seeking. */
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		printf ("no seek : ok\n") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		mono_rdwr_int_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* If the format doesn't support stereo we're done. */
Chris@0: 	sfinfo.channels = 2 ;
Chris@0: 	if (sf_format_check (&sfinfo) == 0)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		puts ("no stereo : ok") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	stereo_int_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* New read/write test. Not sure if this is needed yet. */
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_PAF &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_VOC &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		new_rdwr_int_test (filename, format, allow_fd) ;
Chris@0: 
Chris@0: 	delete_file (format, filename) ;
Chris@0: 
Chris@0: 	puts ("ok") ;
Chris@0: 	return ;
Chris@0: } /* pcm_test_int */
Chris@0: 
Chris@0: static void
Chris@0: mono_int_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	int		*orig, *test ;
Chris@0: 	sf_count_t	count ;
Chris@0: 	int			k, items ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 	test = test_data.i ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_write_int_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 	test_write_int_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 
Chris@0: 	/* Add non-audio data after the audio. */
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (int)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too long). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test, items, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d: Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			oct_save_int (orig, test, items) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test, 4, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	sf_close (file) ;
Chris@0: 		unlink (filename) ;
Chris@0: 		printf ("no seek : ") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, items + 10, SEEK_SET, items + 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 6, SEEK_CUR, items + 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test + 20, 4, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_int_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (INT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample D (#%d : 0x%X => 0x%X).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Check read past end of file followed by sf_seek (sndfile, 0, SEEK_CUR). */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	count = 0 ;
Chris@0: 	while (count < sfinfo.frames)
Chris@0: 		count += sf_read_int (file, test, 311) ;
Chris@0: 
Chris@0: 	/* Check that no error has occurred. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("\n\nLine %d : Mono : error where there shouldn't have been one.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Check that we haven't read beyond EOF. */
Chris@0: 	if (count > sfinfo.frames)
Chris@0: 	{	printf ("\n\nLines %d : read past end of file (%ld should be %ld)\n", __LINE__, (long) count, (long) sfinfo.frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_seek_or_die (file, 0, SEEK_CUR, sfinfo.frames, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	multi_seek_test (filename, format) ;
Chris@0: 	write_seek_extend_test (filename, format) ;
Chris@0: 
Chris@0: } /* mono_int_test */
Chris@0: 
Chris@0: static void
Chris@0: stereo_int_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	int		*orig, *test ;
Chris@0: 	int			k, items, frames ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, (1.0 * 0x7F000000)) ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 	test = test_data.i ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_writef_int_or_die (file, 0, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (int)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Returned format incorrect (0x%08X => 0x%08X).\n",
Chris@0: 				__LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too short). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too long). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 2)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test, frames, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test, 2, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	/* Check for errors here. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("Line %d: Should NOT return an error.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sf_read_int (file, test, 1) > 0)
Chris@0: 	{	printf ("Line %d: Should return 0.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! sf_error (file))
Chris@0: 	{	printf ("Line %d: Should return an error.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 	/*-----------------------*/
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test + 10, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 40 ; k < 44 ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (INT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : 0x%X => 0x%X).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* stereo_int_test */
Chris@0: 
Chris@0: static void
Chris@0: mono_rdwr_int_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	int		*orig, *test ;
Chris@0: 	int			k, pass ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 	test = test_data.i ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_RAW
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_AU
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2)
Chris@0: 		unlink (filename) ;
Chris@0: 	else
Chris@0: 	{	/* Create a short file. */
Chris@0: 		create_short_file (filename) ;
Chris@0: 
Chris@0: 		/* Opening a already existing short file (ie invalid header) RDWR is disallowed.
Chris@0: 		** If this returns a valif pointer sf_open() screwed up.
Chris@0: 		*/
Chris@0: 		if ((file = sf_open (filename, SFM_RDWR, &sfinfo)))
Chris@0: 		{	printf ("\n\nLine %d: sf_open should (SFM_RDWR) have failed but didn't.\n", __LINE__) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 		/* Truncate the file to zero bytes. */
Chris@0: 		if (truncate (filename, 0) < 0)
Chris@0: 		{	printf ("\n\nLine %d: truncate (%s) failed", __LINE__, filename) ;
Chris@0: 			perror (NULL) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Opening a zero length file RDWR is allowed, but the SF_INFO struct must contain
Chris@0: 	** all the usual data required when opening the file in WRITE mode.
Chris@0: 	*/
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	/* Do 3 writes followed by reads. After each, check the data and the current
Chris@0: 	** read and write offsets.
Chris@0: 	*/
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		/* Write some data. */
Chris@0: 		test_write_int_or_die (file, pass, orig, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_int_or_die (file, 0, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (INT_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) A : Error at sample %d (0x%X => 0x%X).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_int (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, pass * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Open the file again to check the data. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Not enough frames in file. (%ld < %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		}
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames != 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of frames in file. (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok)
Chris@0: 		test_read_write_position_or_die (file, __LINE__, 0, 0, 3 * DATA_LENGTH) ;
Chris@0: 	else
Chris@0: 		test_seek_or_die (file, 3 * DATA_LENGTH, SFM_WRITE | SEEK_SET, 3 * DATA_LENGTH, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, 3 * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_int_or_die (file, pass, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (INT_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) B : Error at sample %d (0x%X => 0x%X).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_int (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* mono_rdwr_int_test */
Chris@0: 
Chris@0: static void
Chris@0: new_rdwr_int_test (const char *filename, int format, int allow_fd)
Chris@0: {	SNDFILE *wfile, *rwfile ;
Chris@0: 	SF_INFO	sfinfo ;
Chris@0: 	int		*orig, *test ;
Chris@0: 	int		items, frames ;
Chris@0: 
Chris@0: 	orig = orig_data.i ;
Chris@0: 	test = test_data.i ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	wfile = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	sf_command (wfile, SFC_SET_UPDATE_HEADER_AUTO, NULL, SF_TRUE) ;
Chris@0: 	test_writef_int_or_die (wfile, 1, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 	test_writef_int_or_die (wfile, 2, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 
Chris@0: 	rwfile = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	if (sfinfo.frames != 2 * frames)
Chris@0: 	{	printf ("\n\nLine %d : incorrect number of frames in file (%ld should be %d)\n\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 2 * frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_writef_int_or_die (wfile, 3, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_int_or_die (rwfile, 1, test, frames, __LINE__) ;
Chris@0: 	test_readf_int_or_die (rwfile, 2, test, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (wfile) ;
Chris@0: 	sf_close (rwfile) ;
Chris@0: } /* new_rdwr_int_test */
Chris@0: 
Chris@0: 
Chris@0: /*======================================================================================
Chris@0: */
Chris@0: 
Chris@0: static void mono_float_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void stereo_float_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void mono_rdwr_float_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void new_rdwr_float_test (const char *filename, int format, int allow_fd) ;
Chris@0: static void multi_seek_test (const char * filename, int format) ;
Chris@0: static void write_seek_extend_test (const char * filename, int format) ;
Chris@0: 
Chris@0: static void
Chris@0: pcm_test_float (const char *filename, int format, int long_file_ok)
Chris@0: {	SF_INFO		sfinfo ;
Chris@0: 	float		*orig ;
Chris@0: 	int			k, allow_fd ;
Chris@0: 
Chris@0: 	/* Sd2 files cannot be opened from an existing file descriptor. */
Chris@0: 	allow_fd = ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2) ? SF_FALSE : SF_TRUE ;
Chris@0: 
Chris@0: 	print_test_name ("pcm_test_float", filename) ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, 1.0) ;
Chris@0: 
Chris@0: 	orig = orig_data.f ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	/* Some test broken out here. */
Chris@0: 
Chris@0: 	mono_float_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* Sub format DWVW does not allow seeking. */
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		printf ("no seek : ok\n") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		mono_rdwr_float_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* If the format doesn't support stereo we're done. */
Chris@0: 	sfinfo.channels = 2 ;
Chris@0: 	if (sf_format_check (&sfinfo) == 0)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		puts ("no stereo : ok") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	stereo_float_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* New read/write test. Not sure if this is needed yet. */
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_PAF &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_VOC &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		new_rdwr_float_test (filename, format, allow_fd) ;
Chris@0: 
Chris@0: 	delete_file (format, filename) ;
Chris@0: 
Chris@0: 	puts ("ok") ;
Chris@0: 	return ;
Chris@0: } /* pcm_test_float */
Chris@0: 
Chris@0: static void
Chris@0: mono_float_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	float		*orig, *test ;
Chris@0: 	sf_count_t	count ;
Chris@0: 	int			k, items ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	orig = orig_data.f ;
Chris@0: 	test = test_data.f ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_write_float_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 	test_write_float_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 
Chris@0: 	/* Add non-audio data after the audio. */
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (float)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too long). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_float_or_die (file, 0, test, items, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d: Mono : Incorrect sample A (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			oct_save_float (orig, test, items) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_float_or_die (file, 0, test, 4, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	sf_close (file) ;
Chris@0: 		unlink (filename) ;
Chris@0: 		printf ("no seek : ") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, items + 10, SEEK_SET, items + 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_float_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : %g => %g).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 6, SEEK_CUR, items + 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_float_or_die (file, 0, test + 20, 4, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : %g => %g).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_float_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample D (#%d : %g => %g).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Check read past end of file followed by sf_seek (sndfile, 0, SEEK_CUR). */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	count = 0 ;
Chris@0: 	while (count < sfinfo.frames)
Chris@0: 		count += sf_read_float (file, test, 311) ;
Chris@0: 
Chris@0: 	/* Check that no error has occurred. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("\n\nLine %d : Mono : error where there shouldn't have been one.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Check that we haven't read beyond EOF. */
Chris@0: 	if (count > sfinfo.frames)
Chris@0: 	{	printf ("\n\nLines %d : read past end of file (%ld should be %ld)\n", __LINE__, (long) count, (long) sfinfo.frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_seek_or_die (file, 0, SEEK_CUR, sfinfo.frames, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	multi_seek_test (filename, format) ;
Chris@0: 	write_seek_extend_test (filename, format) ;
Chris@0: 
Chris@0: } /* mono_float_test */
Chris@0: 
Chris@0: static void
Chris@0: stereo_float_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	float		*orig, *test ;
Chris@0: 	int			k, items, frames ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, 1.0) ;
Chris@0: 
Chris@0: 	orig = orig_data.f ;
Chris@0: 	test = test_data.f ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_writef_float_or_die (file, 0, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (float)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Returned format incorrect (0x%08X => 0x%08X).\n",
Chris@0: 				__LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too short). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too long). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 2)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_float_or_die (file, 0, test, frames, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_float_or_die (file, 0, test, 2, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	/* Check for errors here. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("Line %d: Should NOT return an error.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sf_read_float (file, test, 1) > 0)
Chris@0: 	{	printf ("Line %d: Should return 0.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! sf_error (file))
Chris@0: 	{	printf ("Line %d: Should return an error.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 	/*-----------------------*/
Chris@0: 
Chris@0: 	test_readf_float_or_die (file, 0, test + 10, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_float_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 40 ; k < 44 ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_float_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* stereo_float_test */
Chris@0: 
Chris@0: static void
Chris@0: mono_rdwr_float_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	float		*orig, *test ;
Chris@0: 	int			k, pass ;
Chris@0: 
Chris@0: 	orig = orig_data.f ;
Chris@0: 	test = test_data.f ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_RAW
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_AU
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2)
Chris@0: 		unlink (filename) ;
Chris@0: 	else
Chris@0: 	{	/* Create a short file. */
Chris@0: 		create_short_file (filename) ;
Chris@0: 
Chris@0: 		/* Opening a already existing short file (ie invalid header) RDWR is disallowed.
Chris@0: 		** If this returns a valif pointer sf_open() screwed up.
Chris@0: 		*/
Chris@0: 		if ((file = sf_open (filename, SFM_RDWR, &sfinfo)))
Chris@0: 		{	printf ("\n\nLine %d: sf_open should (SFM_RDWR) have failed but didn't.\n", __LINE__) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 		/* Truncate the file to zero bytes. */
Chris@0: 		if (truncate (filename, 0) < 0)
Chris@0: 		{	printf ("\n\nLine %d: truncate (%s) failed", __LINE__, filename) ;
Chris@0: 			perror (NULL) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Opening a zero length file RDWR is allowed, but the SF_INFO struct must contain
Chris@0: 	** all the usual data required when opening the file in WRITE mode.
Chris@0: 	*/
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	/* Do 3 writes followed by reads. After each, check the data and the current
Chris@0: 	** read and write offsets.
Chris@0: 	*/
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		/* Write some data. */
Chris@0: 		test_write_float_or_die (file, pass, orig, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_float_or_die (file, 0, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) A : Error at sample %d (%g => %g).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_float (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, pass * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Open the file again to check the data. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Not enough frames in file. (%ld < %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		}
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames != 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of frames in file. (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok)
Chris@0: 		test_read_write_position_or_die (file, __LINE__, 0, 0, 3 * DATA_LENGTH) ;
Chris@0: 	else
Chris@0: 		test_seek_or_die (file, 3 * DATA_LENGTH, SFM_WRITE | SEEK_SET, 3 * DATA_LENGTH, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, 3 * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_float_or_die (file, pass, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) B : Error at sample %d (%g => %g).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_float (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* mono_rdwr_float_test */
Chris@0: 
Chris@0: static void
Chris@0: new_rdwr_float_test (const char *filename, int format, int allow_fd)
Chris@0: {	SNDFILE *wfile, *rwfile ;
Chris@0: 	SF_INFO	sfinfo ;
Chris@0: 	float		*orig, *test ;
Chris@0: 	int		items, frames ;
Chris@0: 
Chris@0: 	orig = orig_data.f ;
Chris@0: 	test = test_data.f ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	wfile = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	sf_command (wfile, SFC_SET_UPDATE_HEADER_AUTO, NULL, SF_TRUE) ;
Chris@0: 	test_writef_float_or_die (wfile, 1, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 	test_writef_float_or_die (wfile, 2, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 
Chris@0: 	rwfile = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	if (sfinfo.frames != 2 * frames)
Chris@0: 	{	printf ("\n\nLine %d : incorrect number of frames in file (%ld should be %d)\n\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 2 * frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_writef_float_or_die (wfile, 3, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_float_or_die (rwfile, 1, test, frames, __LINE__) ;
Chris@0: 	test_readf_float_or_die (rwfile, 2, test, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (wfile) ;
Chris@0: 	sf_close (rwfile) ;
Chris@0: } /* new_rdwr_float_test */
Chris@0: 
Chris@0: 
Chris@0: /*======================================================================================
Chris@0: */
Chris@0: 
Chris@0: static void mono_double_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void stereo_double_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void mono_rdwr_double_test (const char *filename, int format, int long_file_ok, int allow_fd) ;
Chris@0: static void new_rdwr_double_test (const char *filename, int format, int allow_fd) ;
Chris@0: static void multi_seek_test (const char * filename, int format) ;
Chris@0: static void write_seek_extend_test (const char * filename, int format) ;
Chris@0: 
Chris@0: static void
Chris@0: pcm_test_double (const char *filename, int format, int long_file_ok)
Chris@0: {	SF_INFO		sfinfo ;
Chris@0: 	double		*orig ;
Chris@0: 	int			k, allow_fd ;
Chris@0: 
Chris@0: 	/* Sd2 files cannot be opened from an existing file descriptor. */
Chris@0: 	allow_fd = ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2) ? SF_FALSE : SF_TRUE ;
Chris@0: 
Chris@0: 	print_test_name ("pcm_test_double", filename) ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, 1.0) ;
Chris@0: 
Chris@0: 	orig = orig_data.d ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	/* Some test broken out here. */
Chris@0: 
Chris@0: 	mono_double_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* Sub format DWVW does not allow seeking. */
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		printf ("no seek : ok\n") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		mono_rdwr_double_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* If the format doesn't support stereo we're done. */
Chris@0: 	sfinfo.channels = 2 ;
Chris@0: 	if (sf_format_check (&sfinfo) == 0)
Chris@0: 	{	unlink (filename) ;
Chris@0: 		puts ("no stereo : ok") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	stereo_double_test (filename, format, long_file_ok, allow_fd) ;
Chris@0: 
Chris@0: 	/* New read/write test. Not sure if this is needed yet. */
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_PAF &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_VOC &&
Chris@0: 			(format & SF_FORMAT_TYPEMASK) != SF_FORMAT_FLAC)
Chris@0: 		new_rdwr_double_test (filename, format, allow_fd) ;
Chris@0: 
Chris@0: 	delete_file (format, filename) ;
Chris@0: 
Chris@0: 	puts ("ok") ;
Chris@0: 	return ;
Chris@0: } /* pcm_test_double */
Chris@0: 
Chris@0: static void
Chris@0: mono_double_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	double		*orig, *test ;
Chris@0: 	sf_count_t	count ;
Chris@0: 	int			k, items ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	orig = orig_data.d ;
Chris@0: 	test = test_data.d ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_write_double_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 	test_write_double_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_write_sync (file) ;
Chris@0: 
Chris@0: 	/* Add non-audio data after the audio. */
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (double)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too short). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > 2 * items)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of frames in file (too long). (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), items) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Mono : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_double_or_die (file, 0, test, items, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d: Mono : Incorrect sample A (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			oct_save_double (orig, test, items) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_double_or_die (file, 0, test, 4, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_16 ||
Chris@0: 			(format & SF_FORMAT_SUBMASK) == SF_FORMAT_DWVW_24)
Chris@0: 	{	sf_close (file) ;
Chris@0: 		unlink (filename) ;
Chris@0: 		printf ("no seek : ") ;
Chris@0: 		return ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, items + 10, SEEK_SET, items + 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_double_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : %g => %g).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 6, SEEK_CUR, items + 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_double_or_die (file, 0, test + 20, 4, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample A (#%d : %g => %g).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_read_double_or_die (file, 0, test + 10, 4, __LINE__) ;
Chris@0: 	for (k = 10 ; k < 14 ; k++)
Chris@0: 		if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 		{	printf ("\n\nLine %d : Mono : Incorrect sample D (#%d : %g => %g).\n", __LINE__, k, test [k], orig [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Check read past end of file followed by sf_seek (sndfile, 0, SEEK_CUR). */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	count = 0 ;
Chris@0: 	while (count < sfinfo.frames)
Chris@0: 		count += sf_read_double (file, test, 311) ;
Chris@0: 
Chris@0: 	/* Check that no error has occurred. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("\n\nLine %d : Mono : error where there shouldn't have been one.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Check that we haven't read beyond EOF. */
Chris@0: 	if (count > sfinfo.frames)
Chris@0: 	{	printf ("\n\nLines %d : read past end of file (%ld should be %ld)\n", __LINE__, (long) count, (long) sfinfo.frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_seek_or_die (file, 0, SEEK_CUR, sfinfo.frames, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	multi_seek_test (filename, format) ;
Chris@0: 	write_seek_extend_test (filename, format) ;
Chris@0: 
Chris@0: } /* mono_double_test */
Chris@0: 
Chris@0: static void
Chris@0: stereo_double_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	double		*orig, *test ;
Chris@0: 	int			k, items, frames ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	gen_windowed_sine_double (orig_data.d, DATA_LENGTH, 1.0) ;
Chris@0: 
Chris@0: 	orig = orig_data.d ;
Chris@0: 	test = test_data.d ;
Chris@0: 
Chris@0: 	/* Make this a macro so gdb steps over it in one go. */
Chris@0: 	CONVERT_DATA (k, DATA_LENGTH, orig, orig_data.d) ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_ARTIST, "Your name here") ;
Chris@0: 
Chris@0: 	test_writef_double_or_die (file, 0, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_set_string (file, SF_STR_COPYRIGHT, "Copyright (c) 2003") ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	memset (test, 0, items * sizeof (double)) ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) != SF_FORMAT_RAW)
Chris@0: 		memset (&sfinfo, 0, sizeof (sfinfo)) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Returned format incorrect (0x%08X => 0x%08X).\n",
Chris@0: 				__LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too short). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames > frames)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of frames in file (too long). (%ld should be %d)\n",
Chris@0: 				__LINE__, SF_COUNT_TO_LONG (sfinfo.frames), frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 2)
Chris@0: 	{	printf ("\n\nLine %d : Stereo : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	check_log_buffer_or_die (file, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_double_or_die (file, 0, test, frames, __LINE__) ;
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to start of file. */
Chris@0: 	test_seek_or_die (file, 0, SEEK_SET, 0, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_double_or_die (file, 0, test, 2, __LINE__) ;
Chris@0: 	for (k = 0 ; k < 4 ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from start of file. */
Chris@0: 	test_seek_or_die (file, 10, SEEK_SET, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	/* Check for errors here. */
Chris@0: 	if (sf_error (file))
Chris@0: 	{	printf ("Line %d: Should NOT return an error.\n", __LINE__) ;
Chris@0: 		puts (sf_strerror (file)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sf_read_double (file, test, 1) > 0)
Chris@0: 	{	printf ("Line %d: Should return 0.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! sf_error (file))
Chris@0: 	{	printf ("Line %d: Should return an error.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 	/*-----------------------*/
Chris@0: 
Chris@0: 	test_readf_double_or_die (file, 0, test + 10, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from current position. */
Chris@0: 	test_seek_or_die (file, 8, SEEK_CUR, 20, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_double_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 40 ; k < 44 ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	/* Seek to offset from end of file. */
Chris@0: 	test_seek_or_die (file, -1 * (sfinfo.frames - 10), SEEK_END, 10, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_double_or_die (file, 0, test + 20, 2, __LINE__) ;
Chris@0: 	for (k = 20 ; k < 24 ; k++)
Chris@0: 		if (FLOAT_ERROR (test [k], orig [k]))
Chris@0: 		{	printf ("\n\nLine %d : Stereo : Incorrect sample (#%d : %g => %g).\n", __LINE__, k, orig [k], test [k]) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* stereo_double_test */
Chris@0: 
Chris@0: static void
Chris@0: mono_rdwr_double_test (const char *filename, int format, int long_file_ok, int allow_fd)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO		sfinfo ;
Chris@0: 	double		*orig, *test ;
Chris@0: 	int			k, pass ;
Chris@0: 
Chris@0: 	orig = orig_data.d ;
Chris@0: 	test = test_data.d ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	if ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_RAW
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_AU
Chris@0: 		|| (format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2)
Chris@0: 		unlink (filename) ;
Chris@0: 	else
Chris@0: 	{	/* Create a short file. */
Chris@0: 		create_short_file (filename) ;
Chris@0: 
Chris@0: 		/* Opening a already existing short file (ie invalid header) RDWR is disallowed.
Chris@0: 		** If this returns a valif pointer sf_open() screwed up.
Chris@0: 		*/
Chris@0: 		if ((file = sf_open (filename, SFM_RDWR, &sfinfo)))
Chris@0: 		{	printf ("\n\nLine %d: sf_open should (SFM_RDWR) have failed but didn't.\n", __LINE__) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 		/* Truncate the file to zero bytes. */
Chris@0: 		if (truncate (filename, 0) < 0)
Chris@0: 		{	printf ("\n\nLine %d: truncate (%s) failed", __LINE__, filename) ;
Chris@0: 			perror (NULL) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Opening a zero length file RDWR is allowed, but the SF_INFO struct must contain
Chris@0: 	** all the usual data required when opening the file in WRITE mode.
Chris@0: 	*/
Chris@0: 	sfinfo.samplerate	= SAMPLE_RATE ;
Chris@0: 	sfinfo.frames		= DATA_LENGTH ;
Chris@0: 	sfinfo.channels		= 1 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	/* Do 3 writes followed by reads. After each, check the data and the current
Chris@0: 	** read and write offsets.
Chris@0: 	*/
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		/* Write some data. */
Chris@0: 		test_write_double_or_die (file, pass, orig, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_double_or_die (file, 0, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) A : Error at sample %d (%g => %g).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_double (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, pass * DATA_LENGTH, pass * DATA_LENGTH) ;
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Open the file again to check the data. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (sfinfo.format != format)
Chris@0: 	{	printf ("\n\nLine %d : Returned format incorrect (0x%08X => 0x%08X).\n", __LINE__, format, sfinfo.format) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.frames < 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Not enough frames in file. (%ld < %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		}
Chris@0: 
Chris@0: 	if (! long_file_ok && sfinfo.frames != 3 * DATA_LENGTH)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of frames in file. (%ld should be %d)\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 3 * DATA_LENGTH ) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (sfinfo.channels != 1)
Chris@0: 	{	printf ("\n\nLine %d : Incorrect number of channels in file.\n", __LINE__) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	if (! long_file_ok)
Chris@0: 		test_read_write_position_or_die (file, __LINE__, 0, 0, 3 * DATA_LENGTH) ;
Chris@0: 	else
Chris@0: 		test_seek_or_die (file, 3 * DATA_LENGTH, SFM_WRITE | SEEK_SET, 3 * DATA_LENGTH, sfinfo.channels, __LINE__) ;
Chris@0: 
Chris@0: 	for (pass = 1 ; pass <= 3 ; pass ++)
Chris@0: 	{	orig [20] = pass * 2 ;
Chris@0: 
Chris@0: 		test_read_write_position_or_die (file, __LINE__, pass, (pass - 1) * DATA_LENGTH, 3 * DATA_LENGTH) ;
Chris@0: 
Chris@0: 		/* Read what we just wrote. */
Chris@0: 		test_read_double_or_die (file, pass, test, DATA_LENGTH, __LINE__) ;
Chris@0: 
Chris@0: 		/* Check the data. */
Chris@0: 		for (k = 0 ; k < DATA_LENGTH ; k++)
Chris@0: 			if (FLOAT_ERROR (orig [k], test [k]))
Chris@0: 			{	printf ("\n\nLine %d (pass %d) B : Error at sample %d (%g => %g).\n", __LINE__, pass, k, orig [k], test [k]) ;
Chris@0: 				oct_save_double (orig, test, DATA_LENGTH) ;
Chris@0: 				exit (1) ;
Chris@0: 				} ;
Chris@0: 
Chris@0: 		} ; /* for (pass ...) */
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* mono_rdwr_double_test */
Chris@0: 
Chris@0: static void
Chris@0: new_rdwr_double_test (const char *filename, int format, int allow_fd)
Chris@0: {	SNDFILE *wfile, *rwfile ;
Chris@0: 	SF_INFO	sfinfo ;
Chris@0: 	double		*orig, *test ;
Chris@0: 	int		items, frames ;
Chris@0: 
Chris@0: 	orig = orig_data.d ;
Chris@0: 	test = test_data.d ;
Chris@0: 
Chris@0: 	sfinfo.samplerate	= 44100 ;
Chris@0: 	sfinfo.frames		= SILLY_WRITE_COUNT ; /* Wrong length. Library should correct this on sf_close. */
Chris@0: 	sfinfo.channels		= 2 ;
Chris@0: 	sfinfo.format		= format ;
Chris@0: 
Chris@0: 	items = DATA_LENGTH ;
Chris@0: 	frames = items / sfinfo.channels ;
Chris@0: 
Chris@0: 	wfile = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	sf_command (wfile, SFC_SET_UPDATE_HEADER_AUTO, NULL, SF_TRUE) ;
Chris@0: 	test_writef_double_or_die (wfile, 1, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 	test_writef_double_or_die (wfile, 2, orig, frames, __LINE__) ;
Chris@0: 	sf_write_sync (wfile) ;
Chris@0: 
Chris@0: 	rwfile = test_open_file_or_die (filename, SFM_RDWR, &sfinfo, allow_fd, __LINE__) ;
Chris@0: 	if (sfinfo.frames != 2 * frames)
Chris@0: 	{	printf ("\n\nLine %d : incorrect number of frames in file (%ld should be %d)\n\n", __LINE__, SF_COUNT_TO_LONG (sfinfo.frames), 2 * frames) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	test_writef_double_or_die (wfile, 3, orig, frames, __LINE__) ;
Chris@0: 
Chris@0: 	test_readf_double_or_die (rwfile, 1, test, frames, __LINE__) ;
Chris@0: 	test_readf_double_or_die (rwfile, 2, test, frames, __LINE__) ;
Chris@0: 
Chris@0: 	sf_close (wfile) ;
Chris@0: 	sf_close (rwfile) ;
Chris@0: } /* new_rdwr_double_test */
Chris@0: 
Chris@0: 
Chris@0: 
Chris@0: /*----------------------------------------------------------------------------------------
Chris@0: */
Chris@0: 
Chris@0: static void
Chris@0: empty_file_test (const char *filename, int format)
Chris@0: {	SNDFILE		*file ;
Chris@0: 	SF_INFO	info ;
Chris@0: 	int allow_fd ;
Chris@0: 
Chris@0: 	/* Sd2 files cannot be opened from an existing file descriptor. */
Chris@0: 	allow_fd = ((format & SF_FORMAT_TYPEMASK) == SF_FORMAT_SD2) ? SF_FALSE : SF_TRUE ;
Chris@0: 
Chris@0: 	print_test_name ("empty_file_test", filename) ;
Chris@0: 
Chris@0: 	unlink (filename) ;
Chris@0: 
Chris@0: 	info.samplerate = 48000 ;
Chris@0: 	info.channels = 2 ;
Chris@0: 	info.format = format ;
Chris@0: 
Chris@0: 	if (sf_format_check (&info) == SF_FALSE)
Chris@0: 	{	info.channels = 1 ;
Chris@0: 		if (sf_format_check (&info) == SF_FALSE)
Chris@0: 		{	puts ("invalid file format") ;
Chris@0: 			return ;
Chris@0: 			} ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	/* Create an empty file. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &info, allow_fd, __LINE__) ;
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Open for read and check the length. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &info, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (SF_COUNT_TO_LONG (info.frames) != 0)
Chris@0: 	{	printf ("\n\nError : frame count (%ld) should be zero.\n", SF_COUNT_TO_LONG (info.frames)) ;
Chris@0: 			exit (1) ;
Chris@0: 			} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Open for read/write and check the length. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_RDWR, &info, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (SF_COUNT_TO_LONG (info.frames) != 0)
Chris@0: 	{	printf ("\n\nError : frame count (%ld) should be zero.\n", SF_COUNT_TO_LONG (info.frames)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Open for read and check the length. */
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &info, allow_fd, __LINE__) ;
Chris@0: 
Chris@0: 	if (SF_COUNT_TO_LONG (info.frames) != 0)
Chris@0: 	{	printf ("\n\nError : frame count (%ld) should be zero.\n", SF_COUNT_TO_LONG (info.frames)) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	check_open_file_count_or_die (__LINE__) ;
Chris@0: 
Chris@0: 	unlink (filename) ;
Chris@0: 	puts ("ok") ;
Chris@0: 
Chris@0: 	return ;
Chris@0: } /* empty_file_test */
Chris@0: 
Chris@0: 
Chris@0: /*----------------------------------------------------------------------------------------
Chris@0: */
Chris@0: 
Chris@0: static void
Chris@0: create_short_file (const char *filename)
Chris@0: {	FILE *file ;
Chris@0: 
Chris@0: 	if (! (file = fopen (filename, "w")))
Chris@0: 	{	printf ("create_short_file : fopen (%s, \"w\") failed.", filename) ;
Chris@0: 		fflush (stdout) ;
Chris@0: 		perror (NULL) ;
Chris@0: 		exit (1) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	fprintf (file, "This is the file data.\n") ;
Chris@0: 
Chris@0: 	fclose (file) ;
Chris@0: } /* create_short_file */
Chris@0: 
Chris@0: #if (defined (WIN32) || defined (__WIN32))
Chris@0: 
Chris@0: /* Win32 does not have truncate (nor does it have the POSIX function ftruncate).
Chris@0: ** Hack somethng up here to over come this. This function can only truncate to a
Chris@0: ** length of zero.
Chris@0: */
Chris@0: 
Chris@0: static int
Chris@0: truncate (const char *filename, int ignored)
Chris@0: {	int fd ;
Chris@0: 
Chris@0: 	ignored = 0 ;
Chris@0: 
Chris@0: 	if ((fd = open (filename, O_RDWR | O_TRUNC | O_BINARY)) < 0)
Chris@0: 		return 0 ;
Chris@0: 
Chris@0: 	close (fd) ;
Chris@0: 
Chris@0: 	return 0 ;
Chris@0: } /* truncate */
Chris@0: 
Chris@0: #endif
Chris@0: 
Chris@0: static void
Chris@0: multi_seek_test (const char * filename, int format)
Chris@0: {	SNDFILE * file ;
Chris@0: 	SF_INFO info ;
Chris@0: 	sf_count_t pos ;
Chris@0: 	int k ;
Chris@0: 
Chris@0: 	/* This test doesn't work on the following. */
Chris@0: 	switch (format & SF_FORMAT_TYPEMASK)
Chris@0: 	{	case SF_FORMAT_RAW :
Chris@0: 			return ;
Chris@0: 
Chris@0: 		default :
Chris@0: 			break ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	memset (&info, 0, sizeof (info)) ;
Chris@0: 
Chris@0: 	generate_file (filename, format, 88200) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &info, SF_FALSE, __LINE__) ;
Chris@0: 
Chris@0: 	for (k = 0 ; k < 10 ; k++)
Chris@0: 	{	pos = info.frames / (k + 2) ;
Chris@0: 		test_seek_or_die (file, pos, SEEK_SET, pos, info.channels, __LINE__) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	sf_close (file) ;
Chris@0: } /* multi_seek_test */
Chris@0: 
Chris@0: static void
Chris@0: write_seek_extend_test (const char * filename, int format)
Chris@0: {	SNDFILE * file ;
Chris@0: 	SF_INFO info ;
Chris@0: 	short	*orig, *test ;
Chris@0: 	unsigned items, k ;
Chris@0: 
Chris@0: 	/* This test doesn't work on the following. */
Chris@0: 	switch (format & SF_FORMAT_TYPEMASK)
Chris@0: 	{	case SF_FORMAT_FLAC :
Chris@0: 		case SF_FORMAT_HTK :
Chris@0: 		case SF_FORMAT_PAF :
Chris@0: 		case SF_FORMAT_SDS :
Chris@0: 		case SF_FORMAT_SVX :
Chris@0: 			return ;
Chris@0: 
Chris@0: 		default :
Chris@0: 			break ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	memset (&info, 0, sizeof (info)) ;
Chris@0: 
Chris@0: 	info.samplerate = 48000 ;
Chris@0: 	info.channels = 1 ;
Chris@0: 	info.format = format ;
Chris@0: 
Chris@0: 	items = 512 ;
Chris@0: 	exit_if_true (items > ARRAY_LEN (orig_data.s), "Line %d : Bad assumption.\n", __LINE__) ;
Chris@0: 
Chris@0: 	orig = orig_data.s ;
Chris@0: 	test = test_data.s ;
Chris@0: 
Chris@0: 	for (k = 0 ; k < ARRAY_LEN (orig_data.s) ; k++)
Chris@0: 		orig [k] = 0x3fff ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_WRITE, &info, SF_FALSE, __LINE__) ;
Chris@0: 	test_write_short_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 
Chris@0: 	/* Extend the file using a seek. */
Chris@0: 	test_seek_or_die (file, 2 * items, SEEK_SET, 2 * items, info.channels, __LINE__) ;
Chris@0: 
Chris@0: 	test_writef_short_or_die (file, 0, orig, items, __LINE__) ;
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	file = test_open_file_or_die (filename, SFM_READ, &info, SF_FALSE, __LINE__) ;
Chris@0: 	test_read_short_or_die (file, 0, test, 3 * items, __LINE__) ;
Chris@0: 	sf_close (file) ;
Chris@0: 
Chris@0: 	/* Can't do these formats due to scaling. */
Chris@0: 	switch (format & SF_FORMAT_SUBMASK)
Chris@0: 	{	case SF_FORMAT_PCM_S8 :
Chris@0: 		case SF_FORMAT_PCM_U8 :
Chris@0: 			return ;
Chris@0: 		default :
Chris@0: 			break ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	for (k = 0 ; k < items ; k++)
Chris@0: 	{	exit_if_true (test [k] != 0x3fff, "Line %d : test [%d] == %d, should be 0x3fff.\n", __LINE__, k, test [k]) ;
Chris@0: 		exit_if_true (test [items + k] != 0, "Line %d : test [%d] == %d, should be 0.\n", __LINE__, items + k, test [items + k]) ;
Chris@0: 		exit_if_true (test [2 * items + k] != 0x3fff, "Line %d : test [%d] == %d, should be 0x3fff.\n", __LINE__, 2 * items + k, test [2 * items + k]) ;
Chris@0: 		} ;
Chris@0: 
Chris@0: 	return ;
Chris@0: } /* write_seek_extend_test */
Chris@0: 
Chris@0: