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