[+ AutoGen5 template c +] /* ** Copyright (C) 2001-2017 Erik de Castro Lopo ** ** This program is free software; you can redistribute it and/or modify ** it under the terms of the GNU General Public License as published by ** the Free Software Foundation; either version 2 of the License, or ** (at your option) any later version. ** ** This program is distributed in the hope that it will be useful, ** but WITHOUT ANY WARRANTY; without even the implied warranty of ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ** GNU General Public License for more details. ** ** You should have received a copy of the GNU General Public License ** along with this program; if not, write to the Free Software ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /*========================================================================== ** This is a test program which tests reading from and writing to pipes. */ #include "sfconfig.h" #include #include #include #if (OS_IS_WIN32 || defined __OS2__ || HAVE_PIPE == 0 || HAVE_WAITPID == 0) int main (void) { puts (" pipe_test : this test doesn't work on this OS.") ; return 0 ; } /* main */ #else #if HAVE_UNISTD_H #include #endif #include #include #include #include #include #include "utils.h" typedef struct { int format ; const char *ext ; } FILETYPE ; static void useek_pipe_rw_test (int filetype, const char *ext) ; static void pipe_read_test (int filetype, const char *ext) ; static void pipe_write_test (const char *ext) ; static void pipe_test_others (FILETYPE*, FILETYPE*) ; static FILETYPE read_write_types [] = { { SF_FORMAT_RAW , "raw" }, { SF_FORMAT_AU , "au" }, /* Lite remove start */ { SF_FORMAT_PAF , "paf" }, { SF_FORMAT_IRCAM , "ircam" }, { SF_FORMAT_PVF , "pvf" }, /* Lite remove end */ { 0 , NULL } } ; static FILETYPE read_only_types [] = { { SF_FORMAT_RAW , "raw" }, { SF_FORMAT_AU , "au" }, { SF_FORMAT_AIFF , "aiff" }, { SF_FORMAT_WAV , "wav" }, { SF_FORMAT_W64 , "w64" }, /* Lite remove start */ { SF_FORMAT_PAF , "paf" }, { SF_FORMAT_NIST , "nist" }, { SF_FORMAT_IRCAM , "ircam" }, { SF_FORMAT_MAT4 , "mat4" }, { SF_FORMAT_MAT5 , "mat5" }, { SF_FORMAT_SVX , "svx" }, { SF_FORMAT_PVF , "pvf" }, /* Lite remove end */ { 0 , NULL } } ; int main (void) { int k ; for (k = 0 ; read_only_types [k].format ; k++) pipe_read_test (read_only_types [k].format, read_only_types [k].ext) ; for (k = 0 ; read_write_types [k].format ; k++) pipe_write_test (read_write_types [k].ext) ; for (k = 0 ; read_write_types [k].format ; k++) useek_pipe_rw_test (read_write_types [k].format, read_write_types [k].ext) ; if (0) pipe_test_others (read_write_types, read_only_types) ; return 0 ; } /* main */ /*============================================================================== */ static void pipe_read_test (int filetype, const char *ext) { static short data [PIPE_TEST_LEN] ; static char buffer [256] ; static char filename [256] ; SNDFILE *outfile ; SF_INFO sfinfo ; int k, retval ; snprintf (filename, sizeof (filename), "pipe_in.%s", ext) ; print_test_name ("pipe_read_test", filename) ; memset (&sfinfo, 0, sizeof (sfinfo)) ; sfinfo.format = filetype | SF_FORMAT_PCM_16 ; sfinfo.channels = 1 ; sfinfo.samplerate = 44100 ; for (k = 0 ; k < PIPE_TEST_LEN ; k++) data [k] = PIPE_INDEX (k) ; outfile = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ; test_writef_short_or_die (outfile, 0, data, PIPE_TEST_LEN, __LINE__) ; sf_close (outfile) ; snprintf (buffer, sizeof (buffer), "cat %s | ./tests/stdin_test %s ", filename, ext) ; if ((retval = system (buffer)) != 0) { retval = WEXITSTATUS (retval) ; printf ("\n\n Line %d : pipe test returned error for file type \"%s\".\n\n", __LINE__, ext) ; exit (retval) ; } ; unlink (filename) ; puts ("ok") ; return ; } /* pipe_read_test */ static void pipe_write_test (const char *ext) { static char buffer [256] ; int retval ; print_test_name ("pipe_write_test", ext) ; snprintf (buffer, sizeof (buffer), "./tests/stdout_test %s | ./tests/stdin_test %s ", ext, ext) ; if ((retval = system (buffer))) { retval = WEXITSTATUS (retval) ; printf ("\n\n Line %d : pipe test returned error file type \"%s\".\n\n", __LINE__, ext) ; exit (retval) ; } ; puts ("ok") ; return ; } /* pipe_write_test */ /*============================================================================== */ [+ FOR data_type +] static void useek_pipe_rw_[+ (get "type_name") +] (const char * ext, SF_INFO * psfinfo_write, SF_INFO * psfinfo_read) { static [+ (get "type_name") +] buffer [PIPE_TEST_LEN] ; static [+ (get "type_name") +] data [PIPE_TEST_LEN] ; SNDFILE *outfile ; SNDFILE *infile_piped ; int k, status = 0 ; int pipefd [2] ; pid_t pida ; for (k = 0 ; k < PIPE_TEST_LEN ; k++) data [k] = PIPE_INDEX (k) ; /* ** Create the pipe. */ exit_if_true (pipe (pipefd) != 0, "\n\n%s %d : pipe failed : %s\n", __func__, __LINE__, strerror (errno)) ; /* ** Attach the write end of the pipe to be written to. */ if ((outfile = sf_open_fd (pipefd [1], SFM_WRITE, psfinfo_write, SF_TRUE)) == NULL) { printf ("\n\n%s %d : unable to create unseekable pipe for write type \"%s\".\n", __func__, __LINE__, ext) ; printf ("\t%s\n\n", sf_strerror (outfile)) ; exit (1) ; } ; if (sf_error (outfile) != SF_ERR_NO_ERROR) { printf ("\n\n%s %d : unable to open unseekable pipe for write type \"%s\".\n\n", __func__, __LINE__, ext) ; exit (1) ; } ; /* ** Attach the read end of the pipe to be read from. */ if ((infile_piped = sf_open_fd (pipefd [0], SFM_READ, psfinfo_read, SF_TRUE)) == NULL) { printf ("\n\n%s %d : unable to create unseekable pipe for read type. \"%s\".\n\n", __func__, __LINE__, ext) ; exit (1) ; } ; if (sf_error (infile_piped) != SF_ERR_NO_ERROR) { printf ("\n\n%s %d : unable to open unseekable pipe for read type \"%s\".\n\n", __func__, __LINE__, ext) ; exit (1) ; } ; /* Fork a child process that will write directly into the pipe. */ if ((pida = fork ()) == 0) /* child process */ { test_writef_[+ (get "type_name") +]_or_die (outfile, 0, data, PIPE_TEST_LEN, __LINE__) ; exit (0) ; } ; /* In the parent process, read from the pipe and compare what is read ** to what is written, if they match everything went as planned. */ test_readf_[+ (get "type_name") +]_or_die (infile_piped, 0, buffer, PIPE_TEST_LEN, __LINE__) ; if (memcmp (buffer, data, sizeof (buffer)) != 0) { printf ("\n\n%s %d : unseekable pipe test failed for file type \"%s\".\n\n", __func__, __LINE__, ext) ; exit (1) ; } ; /* Wait for the child process to return. */ waitpid (pida, &status, 0) ; status = WEXITSTATUS (status) ; sf_close (outfile) ; sf_close (infile_piped) ; if (status != 0) { printf ("\n\n%s %d : status of child process is %d for file type %s.\n\n", __func__, __LINE__, status, ext) ; exit (1) ; } ; return ; } /* useek_pipe_rw_[+ (get "type_name") +] */ [+ ENDFOR data_type +] static void useek_pipe_rw_test (int filetype, const char *ext) { SF_INFO sfinfo_write ; SF_INFO sfinfo_read ; print_test_name ("useek_pipe_rw_test", ext) ; /* ** Setup the INFO structures for the filetype we will be ** working with. */ sfinfo_write.format = filetype | SF_FORMAT_PCM_16 ; sfinfo_write.channels = 1 ; sfinfo_write.samplerate = 44100 ; sfinfo_read.format = 0 ; if (filetype == SF_FORMAT_RAW) { sfinfo_read.format = filetype | SF_FORMAT_PCM_16 ; sfinfo_read.channels = 1 ; sfinfo_read.samplerate = 44100 ; } ; useek_pipe_rw_short (ext, &sfinfo_write, &sfinfo_read) ; sfinfo_read.format = sfinfo_write.format = filetype | SF_FORMAT_FLOAT ; if (sf_format_check (&sfinfo_read) != 0) useek_pipe_rw_float (ext, &sfinfo_write, &sfinfo_read) ; sfinfo_read.format = sfinfo_write.format = filetype | SF_FORMAT_DOUBLE ; if (sf_format_check (&sfinfo_read) != 0) useek_pipe_rw_double (ext, &sfinfo_write, &sfinfo_read) ; puts ("ok") ; return ; } /* useek_pipe_rw_test */ static void pipe_test_others (FILETYPE* list1, FILETYPE* list2) { SF_FORMAT_INFO info ; int k, m, major_count, in_list ; print_test_name ("pipe_test_others", "") ; sf_command (NULL, SFC_GET_FORMAT_MAJOR_COUNT, &major_count, sizeof (int)) ; for (k = 0 ; k < major_count ; k++) { info.format = k ; sf_command (NULL, SFC_GET_FORMAT_MAJOR, &info, sizeof (info)) ; in_list = SF_FALSE ; for (m = 0 ; list1 [m].format ; m++) if (info.format == list1 [m].format) in_list = SF_TRUE ; for (m = 0 ; list2 [m].format ; m++) if (info.format == list2 [m].format) in_list = SF_TRUE ; if (in_list) continue ; printf ("%s %x\n", info.name, info.format) ; if (1) { static short data [PIPE_TEST_LEN] ; static char buffer [256] ; static const char *filename = "pipe_in.dat" ; SNDFILE *outfile ; SF_INFO sfinfo ; int retval ; memset (&sfinfo, 0, sizeof (sfinfo)) ; sfinfo.format = info.format | SF_FORMAT_PCM_16 ; sfinfo.channels = 1 ; sfinfo.samplerate = 44100 ; outfile = test_open_file_or_die (filename, SFM_WRITE, &sfinfo, SF_TRUE, __LINE__) ; test_writef_short_or_die (outfile, 0, data, PIPE_TEST_LEN, __LINE__) ; sf_close (outfile) ; snprintf (buffer, sizeof (buffer), "cat %s | ./tests/stdin_test %s %d ", filename, info.extension, PIPE_TEST_LEN) ; if ((retval = system (buffer)) == 0) { retval = WEXITSTATUS (retval) ; printf ("\n\n Line %d : pipe test should have returned error file type \"%s\" but didn't.\n\n", __LINE__, info.name) ; exit (1) ; } ; unlink (filename) ; } ; } ; puts ("ok") ; return ; } /* pipe_test_others */ /*============================================================================== */ #endif