cannam@125: /* cannam@125: ** Copyright (C) 2007-2016 Erik de Castro Lopo cannam@125: ** cannam@125: ** This program is free software; you can redistribute it and/or modify cannam@125: ** it under the terms of the GNU General Public License as published by cannam@125: ** the Free Software Foundation; either version 2 of the License, or cannam@125: ** (at your option) any later version. cannam@125: ** cannam@125: ** This program is distributed in the hope that it will be useful, cannam@125: ** but WITHOUT ANY WARRANTY; without even the implied warranty of cannam@125: ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the cannam@125: ** GNU General Public License for more details. cannam@125: ** cannam@125: ** You should have received a copy of the GNU General Public License cannam@125: ** along with this program; if not, write to the Free Software cannam@125: ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. cannam@125: */ cannam@125: cannam@125: #include "sfconfig.h" cannam@125: cannam@125: #include cannam@125: #include cannam@125: #include cannam@125: #include cannam@125: cannam@125: #include cannam@125: cannam@125: #include cannam@125: cannam@125: #include "utils.h" cannam@125: #include "dft_cmp.h" cannam@125: cannam@125: #define SAMPLE_RATE 16000 cannam@125: #define DATA_LENGTH (SAMPLE_RATE) cannam@125: cannam@125: static float data_out [DATA_LENGTH] ; cannam@125: cannam@125: static inline float cannam@125: max_float (float a, float b) cannam@125: { return a > b ? a : b ; cannam@125: } /* max_float */ cannam@125: cannam@125: static void cannam@125: vorbis_test (void) cannam@125: { static float float_data [DFT_DATA_LENGTH] ; cannam@125: const char * filename = "vorbis_test.oga" ; cannam@125: SNDFILE * file ; cannam@125: SF_INFO sfinfo ; cannam@125: float max_abs = 0.0 ; cannam@125: unsigned k ; cannam@125: cannam@125: print_test_name ("vorbis_test", filename) ; cannam@125: cannam@125: /* Generate float data. */ cannam@125: gen_windowed_sine_float (float_data, ARRAY_LEN (float_data), 1.0) ; cannam@125: cannam@125: /* Set up output file type. */ cannam@125: memset (&sfinfo, 0, sizeof (sfinfo)) ; cannam@125: sfinfo.format = SF_FORMAT_OGG | SF_FORMAT_VORBIS ; cannam@125: sfinfo.channels = 1 ; cannam@125: sfinfo.samplerate = SAMPLE_RATE ; cannam@125: cannam@125: /* Write the output file. */ cannam@125: cannam@125: /* The Vorbis encoder has a bug on PowerPC and X86-64 with sample rates cannam@125: ** <= 22050. Increasing the sample rate to 32000 avoids triggering it. cannam@125: ** See https://trac.xiph.org/ticket/1229 cannam@125: */ cannam@125: if ((file = sf_open (filename, SFM_WRITE, &sfinfo)) == NULL) cannam@125: { const char * errstr ; cannam@125: cannam@125: errstr = sf_strerror (NULL) ; cannam@125: if (strstr (errstr, "Sample rate chosen is known to trigger a Vorbis") == NULL) cannam@125: { printf ("Line %d: sf_open (SFM_WRITE) failed : %s\n", __LINE__, errstr) ; cannam@125: dump_log_buffer (NULL) ; cannam@125: exit (1) ; cannam@125: } ; cannam@125: cannam@125: printf ("\n Sample rate -> 32kHz ") ; cannam@125: sfinfo.samplerate = 32000 ; cannam@125: cannam@125: file = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ; cannam@125: } ; cannam@125: cannam@125: test_write_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ; cannam@125: sf_close (file) ; cannam@125: cannam@125: memset (float_data, 0, sizeof (float_data)) ; cannam@125: cannam@125: /* Read the file back in again. */ cannam@125: memset (&sfinfo, 0, sizeof (sfinfo)) ; cannam@125: file = test_open_file_or_die (filename, SFM_READ, &sfinfo, SF_FALSE, __LINE__) ; cannam@125: test_read_float_or_die (file, 0, float_data, ARRAY_LEN (float_data), __LINE__) ; cannam@125: sf_close (file) ; cannam@125: cannam@125: for (k = 0 ; k < ARRAY_LEN (float_data) ; k ++) cannam@125: max_abs = max_float (max_abs, fabs (float_data [k])) ; cannam@125: cannam@125: exit_if_true (max_abs > 1.023, cannam@125: "\n\nLine %d : max_abs %f should be < 1.023.\n\n", __LINE__, max_abs) ; cannam@125: cannam@125: puts ("ok") ; cannam@125: unlink (filename) ; cannam@125: } /* vorbis_test */ cannam@125: cannam@125: static void cannam@125: compression_size_test (int format, const char * filename) cannam@125: { /* cannam@125: ** Encode two files, one at quality 0.3 and one at quality 0.5 and then cannam@125: ** make sure that the quality 0.3 files is the smaller of the two. cannam@125: */ cannam@125: char q3_fname [64] ; cannam@125: char q6_fname [64] ; cannam@125: char test_name [64] ; cannam@125: cannam@125: SNDFILE *q3_file, *q6_file ; cannam@125: SF_INFO sfinfo ; cannam@125: int q3_size, q6_size ; cannam@125: double quality ; cannam@125: int k ; cannam@125: cannam@125: snprintf (q3_fname, sizeof (q3_fname), "q3_%s", filename) ; cannam@125: snprintf (q6_fname, sizeof (q6_fname), "q6_%s", filename) ; cannam@125: cannam@125: snprintf (test_name, sizeof (test_name), "q[36]_%s", filename) ; cannam@125: print_test_name (__func__, test_name) ; cannam@125: cannam@125: memset (&sfinfo, 0, sizeof (sfinfo)) ; cannam@125: cannam@125: /* Set up output file type. */ cannam@125: sfinfo.format = format ; cannam@125: sfinfo.channels = 1 ; cannam@125: sfinfo.samplerate = SAMPLE_RATE ; cannam@125: cannam@125: /* Write the output file. */ cannam@125: q3_file = test_open_file_or_die (q3_fname, SFM_WRITE, &sfinfo, SF_FALSE, __LINE__) ; cannam@125: q6_file = test_open_file_or_die (q6_fname, SFM_WRITE, &sfinfo, SF_FALSE, __LINE__) ; cannam@125: cannam@125: quality = 0.3 ; cannam@125: sf_command (q3_file, SFC_SET_VBR_ENCODING_QUALITY, &quality, sizeof (quality)) ; cannam@125: quality = 0.6 ; cannam@125: sf_command (q6_file, SFC_SET_VBR_ENCODING_QUALITY, &quality, sizeof (quality)) ; cannam@125: cannam@125: for (k = 0 ; k < 5 ; k++) cannam@125: { gen_lowpass_signal_float (data_out, ARRAY_LEN (data_out)) ; cannam@125: test_write_float_or_die (q3_file, 0, data_out, ARRAY_LEN (data_out), __LINE__) ; cannam@125: test_write_float_or_die (q6_file, 0, data_out, ARRAY_LEN (data_out), __LINE__) ; cannam@125: } ; cannam@125: cannam@125: sf_close (q3_file) ; cannam@125: sf_close (q6_file) ; cannam@125: cannam@125: q3_size = file_length (q3_fname) ; cannam@125: q6_size = file_length (q6_fname) ; cannam@125: cannam@125: exit_if_true (q3_size >= q6_size, cannam@125: "\n\nLine %d : q3 size (%d) >= q6 size (%d)\n\n", __LINE__, q3_size, q6_size) ; cannam@125: cannam@125: puts ("ok") ; cannam@125: unlink (q3_fname) ; cannam@125: unlink (q6_fname) ; cannam@125: } /* compression_size_test */ cannam@125: cannam@125: cannam@125: cannam@125: int cannam@125: main (int argc, char *argv []) cannam@125: { int all_tests = 0, tests = 0 ; cannam@125: cannam@125: if (argc != 2) cannam@125: { printf ( cannam@125: "Usage : %s \n" cannam@125: " Where is one of:\n" cannam@125: " vorbis - test Ogg/Vorbis\n" cannam@125: " flac - test FLAC\n" cannam@125: " all - perform all tests\n", cannam@125: argv [0]) ; cannam@125: exit (0) ; cannam@125: } ; cannam@125: cannam@125: if (! HAVE_EXTERNAL_XIPH_LIBS) cannam@125: { puts (" No Ogg/Vorbis tests because Ogg/Vorbis support was not compiled in.") ; cannam@125: return 0 ; cannam@125: } ; cannam@125: cannam@125: if (strcmp (argv [1], "all") == 0) cannam@125: all_tests = 1 ; cannam@125: cannam@125: if (all_tests || strcmp (argv [1], "vorbis") == 0) cannam@125: { vorbis_test () ; cannam@125: compression_size_test (SF_FORMAT_OGG | SF_FORMAT_VORBIS, "vorbis.oga") ; cannam@125: tests ++ ; cannam@125: } ; cannam@125: cannam@125: if (all_tests || strcmp (argv [1], "flac") == 0) cannam@125: { compression_size_test (SF_FORMAT_FLAC | SF_FORMAT_PCM_16, "pcm16.flac") ; cannam@125: tests ++ ; cannam@125: } ; cannam@125: cannam@125: return 0 ; cannam@125: } /* main */