Merge branch 'libsndfile'

[Faustine.git] / interpretor / lib / src / libsndfile-1.0.25 / src / test_conversions.c

diff --git a/interpretor/lib/src/libsndfile-1.0.25/src/test_conversions.c b/interpretor/lib/src/libsndfile-1.0.25/src/test_conversions.c
new file mode 100644 (file)
index 0000000..34600b0
--- /dev/null
+++ b/interpretor/lib/src/libsndfile-1.0.25/src/test_conversions.c
@@ -0,0 +1,110 @@
+/*
+** Copyright (C) 2006-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
+**
+** This program is free software; you can redistribute it and/or modify
+** it under the terms of the GNU Lesser General Public License as published by
+** the Free Software Foundation; either version 2.1 of the License, or
+** (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Lesser General Public License for more details.
+**
+** You should have received a copy of the GNU Lesser General Public License
+** along with this program; if not, write to the Free Software
+** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+*/
+
+#include "sfconfig.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stdarg.h>
+#include <errno.h>
+#include <inttypes.h>
+
+#include "common.h"
+#include "test_main.h"
+
+
+/*
+** This is a bit rough, but it is the nicest way to do it.
+*/
+
+#define cmp_test(line,ival,tval,str) \
+       if (ival != tval) \
+       {       printf (str, line, ival, tval) ; \
+               exit (1) ; \
+               } ;
+
+static void
+conversion_test (char endian)
+{
+       SF_PRIVATE      sf_private, *psf ;
+       const char * filename = "conversion.bin" ;
+       int64_t i64 = SF_PLATFORM_S64 (0x0123456789abcdef), t64 = 0 ;
+       char format_str [16] ;
+       char test_name [64] ;
+       char i8 = 12, t8 = 0 ;
+       short i16 = 0x123, t16 = 0 ;
+       int i24 = 0x23456, t24 = 0 ;
+       int i32 = 0x0a0b0c0d, t32 = 0 ;
+       int bytes ;
+
+       snprintf (format_str, sizeof (format_str), "%c12348", endian) ;
+
+       snprintf (test_name, sizeof (test_name), "Testing %s conversions", endian == 'e' ? "little endian" : "big endian") ;
+       print_test_name (test_name) ;
+
+       psf = &sf_private ;
+       memset (psf, 0, sizeof (sf_private)) ;
+
+       psf->file.mode = SFM_WRITE ;
+       snprintf (psf->file.path.c, sizeof (psf->file.path.c), "%s", filename) ;
+
+       if (psf_fopen (psf) != 0)
+       {       printf ("\n\nError : failed to open file '%s' for write.\n\n", filename) ;
+               exit (1) ;
+               } ;
+
+       psf_binheader_writef (psf, format_str, i8, i16, i24, i32, i64) ;
+       psf_fwrite (psf->header, 1, psf->headindex, psf) ;
+       psf_fclose (psf) ;
+
+       memset (psf, 0, sizeof (sf_private)) ;
+
+       psf->file.mode = SFM_READ ;
+       snprintf (psf->file.path.c, sizeof (psf->file.path.c), "%s", filename) ;
+
+       if (psf_fopen (psf) != 0)
+       {       printf ("\n\nError : failed to open file '%s' for read.\n\n", filename) ;
+               exit (1) ;
+               } ;
+
+       bytes = psf_binheader_readf (psf, format_str, &t8, &t16, &t24, &t32, &t64) ;
+       psf_fclose (psf) ;
+
+       if (bytes != 18)
+       {       printf ("\n\nLine %d : read %d bytes.\n\n", __LINE__, bytes) ;
+               exit (1) ;
+               } ;
+
+       cmp_test (__LINE__, i8, t8, "\n\nLine %d : 8 bit int failed %d -> %d.\n\n") ;
+       cmp_test (__LINE__, i16, t16, "\n\nLine %d : 16 bit int failed 0x%x -> 0x%x.\n\n") ;
+       cmp_test (__LINE__, i24, t24, "\n\nLine %d : 24 bit int failed 0x%x -> 0x%x.\n\n") ;
+       cmp_test (__LINE__, i32, t32, "\n\nLine %d : 32 bit int failed 0x%x -> 0x%x.\n\n") ;
+       cmp_test (__LINE__, i64, t64, "\n\nLine %d : 64 bit int failed 0x%" PRIx64 "x -> 0x%" PRIx64 "x.\n\n") ;
+
+       remove (filename) ;
+       puts ("ok") ;
+} /* conversion_test */
+
+void
+test_conversions (void)
+{
+       conversion_test ('E') ;
+       conversion_test ('e') ;
+} /* test_conversion */
+