--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/spandsp-0.0.3/spandsp-0.0.3/tests/t31_tests.c	Fri Jun 25 16:00:21 2010 +0200
@@ -0,0 +1,582 @@
+/*
+ * SpanDSP - a series of DSP components for telephony
+ *
+ * t31_tests.c - Tests for the T.31 modem.
+ *
+ * Written by Steve Underwood <steveu@coppice.org>
+ *
+ * Copyright (C) 2004 Steve Underwood
+ *
+ * All rights reserved.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License version 2, as
+ * published by the Free Software Foundation.
+ *
+ * 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., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *
+ * $Id: t31_tests.c,v 1.42 2006/11/19 14:07:27 steveu Exp $
+ */
+
+/*! \file */
+
+/*! \page t31_tests_page T.31 tests
+\section t31_tests_page_sec_1 What does it do?
+*/
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#define _GNU_SOURCE
+
+#include <inttypes.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <fcntl.h>
+#include <string.h>
+#if defined(HAVE_TGMATH_H)
+#include <tgmath.h>
+#endif
+#if defined(HAVE_MATH_H)
+#include <math.h>
+#endif
+#include <assert.h>
+#include <audiofile.h>
+#include <tiffio.h>
+
+#include "spandsp.h"
+#include "spandsp/t30_fcf.h"
+
+#define INPUT_FILE_NAME         "../itutests/fax/itu1.tif"
+#define OUTPUT_FILE_NAME        "t31.tif"
+#define OUTPUT_WAVE_FILE_NAME   "t31_tests.wav"
+
+#define DLE 0x10
+#define ETX 0x03
+#define SUB 0x1A
+
+#define MANUFACTURER            "www.soft-switch.org"
+
+#define SAMPLES_PER_CHUNK 160
+
+struct command_response_s
+{
+    const char *command;
+    int len_command;
+    const char *response;
+    int len_response;
+};
+
+#define EXCHANGE(a,b) {a, sizeof(a) - 1, b, sizeof(b) - 1}
+#define RESPONSE(b) {"", 0, b, sizeof(b) - 1}
+#define FAST_RESPONSE(b) {NULL, -1, b, sizeof(b) - 1}
+#define FAST_SEND(b) {(const char *) 1, -2, b, sizeof(b) - 1}
+
+static const struct command_response_s fax_send_test_seq[] =
+{
+    EXCHANGE("ATE0\r", "ATE0\r\r\nOK\r\n"),
+    EXCHANGE("AT+FCLASS=1\r", "\r\nOK\r\n"),
+    EXCHANGE("ATD123456789\r", "\r\nCONNECT\r\n"),
+    //<NSF frame>         AT+FRH=3 is implied when dialing in the AT+FCLASS=1 state
+    //RESPONSE("\xFF\x03\x10\x03"),
+    //RESPONSE("\r\nOK\r\n"),
+    //EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"),
+    //<CSI frame data>
+    RESPONSE("\xFF\x03\x40\x31\x31\x31\x31\x31\x31\x31\x31\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x1e\x46\x10\x03"),
+    RESPONSE("\r\nOK\r\n"),
+    EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"),
+    //<DIS frame data>
+    RESPONSE("\xFF\x13\x80\x00\xCE\xF8\x80\x80\x89\x80\x80\x80\x98\x80\x80\x80\x80\x80\x00\xFA\x72\x10\x03"),
+    RESPONSE("\r\nOK\r\n"),
+    //EXCHANGE("AT+FRH=3\r", "\r\nNO CARRIER\r\n"),
+    EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"),
+    //<TSI frame data>
+    EXCHANGE("\xFF\x03\x43\x32\x32\x32\x32\x32\x32\x32\x32\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x10\x03", "\r\nCONNECT\r\n"),
+    //<DCS frame data>
+    EXCHANGE("\xFF\x13\x83\x01\xC6\x80\x80\x80\x80\x01\xFD\x13\x10\x03", "\r\nOK\r\n"),
+    //Do a wait for timed silence at this point, or there won't be one in the tests
+    EXCHANGE("AT+FRS=7\r", "\r\nOK\r\n"),
+    //EXCHANGE("AT+FTS=8;+FTM=96\r", "\r\nCONNECT\r\n"),
+    EXCHANGE("AT+FTS=8\r", "\r\nOK\r\n"),
+    EXCHANGE("AT+FTM=96\r", "\r\nCONNECT\r\n"),
+    //<TCF data pattern>
+    FAST_SEND("\r\nOK\r\n"),
+    EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"),
+    //<CFR frame data>
+    RESPONSE("\xFF\x13\x84\xEA\x7D\x10\x03"),
+    RESPONSE("\r\nOK\r\n"),
+    EXCHANGE("AT+FTM=96\r", "\r\nCONNECT\r\n"),
+    //<page image data>
+    FAST_SEND("\r\nOK\r\n"),
+    //EXCHANGE("AT+FTS=8;+FTH=3\r", "\r\nCONNECT\r\n"),
+    EXCHANGE("AT+FTS=8\r", "\r\nOK\r\n"),
+    EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"),
+    //<EOP frame data>
+    EXCHANGE("\xFF\x13\x2E\x10\x03", "\r\nOK\r\n"),
+    EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"),
+    //<MCF frame data>
+    EXCHANGE("\xFF\x13\x8C\x10\x03", "\r\nOK\r\n"),
+    EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"),
+    // <DCN frame data>
+    EXCHANGE("\xFF\x13\xFB\x10\x03", "\r\nOK\r\n"),
+    EXCHANGE("ATH0\r", "\r\nOK\r\n")
+};
+
+static const struct command_response_s fax_receive_test_seq[] =
+{
+    EXCHANGE("ATE0\r", "ATE0\r\r\nOK\r\n"),
+    EXCHANGE("AT+FCLASS=1\r", "\r\nOK\r\n"),
+    RESPONSE("\r\nRING\r\n"),
+    EXCHANGE("ATA\r", "\r\nCONNECT\r\n"),
+    //<CSI frame data>
+    EXCHANGE("\xFF\x03\x40\x32\x32\x32\x32\x32\x32\x32\x32\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x10\x03", "\r\nCONNECT\r\n"),
+    //<DIS frame data>
+    EXCHANGE("\xFF\x13\x80\x01\xCE\xF4\x80\x80\x81\x80\x80\x80\x18\x10\x03", "\r\nOK\r\n"),
+    EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"),
+    //<TSI frame data>
+    RESPONSE("\xFF\x03\x43\x31\x31\x31\x31\x31\x31\x31\x31\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\x20\xAA\x1F\x10\x03"),
+    RESPONSE("\r\nOK\r\n"),
+    EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"),
+    //<DCS frame data>
+    RESPONSE("\xFF\x13\x83\x00\xC6\xF0\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x80\x00\xE4\x7E\x10\x03"),
+    RESPONSE("\r\nOK\r\n"),
+    EXCHANGE("AT+FRM=96\r", "\r\nCONNECT\r\n"),
+    //<TCF data>
+    FAST_RESPONSE(NULL),
+    RESPONSE("\r\nNO CARRIER\r\n"),
+    EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"),
+    //<CFR frame data>
+    EXCHANGE("\xFF\x13\x84\x10\x03", "\r\nOK\r\n"),
+    EXCHANGE("AT+FRM=96\r", "\r\nCONNECT\r\n"),
+    //<page image data>
+    FAST_RESPONSE(NULL),
+    RESPONSE("\r\nNO CARRIER\r\n"),
+    EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"),
+    //<EOP frame data>
+    RESPONSE("\xFF\x13\x2F\x33\x66\x10\x03"),
+    RESPONSE("\r\nOK\r\n"),
+    EXCHANGE("AT+FTH=3\r", "\r\nCONNECT\r\n"),
+    //<MCF frame data>
+    EXCHANGE("\xFF\x13\x8C\x10\x03", "\r\nOK\r\n"),
+    EXCHANGE("AT+FRH=3\r", "\r\nCONNECT\r\n"),
+    //<DCN frame data>
+    RESPONSE("\xFF\x13\xfb\x9a\xf6\x10\x03"),
+    RESPONSE("\r\nOK\r\n"),
+    EXCHANGE("ATH0\r", "\r\nOK\r\n")
+};
+
+char *decode_test_file = NULL;
+int countdown = 0;
+int command_response_test_step = -1;
+char response_buf[1000];
+int response_buf_ptr = 0;
+int answered = FALSE;
+int kick = FALSE;
+int dled = FALSE;
+int done = FALSE;
+
+static const struct command_response_s *fax_test_seq;
+
+int test_seq_ptr = 0;
+
+t31_state_t t31_state;
+
+static void phase_b_handler(t30_state_t *s, void *user_data, int result)
+{
+    int i;
+    
+    i = (intptr_t) user_data;
+    printf("Phase B handler on channel %d - (0x%X) %s\n", i, result, t30_frametype(result));
+}
+/*- End of function --------------------------------------------------------*/
+
+static void phase_d_handler(t30_state_t *s, void *user_data, int result)
+{
+    int i;
+    t30_stats_t t;
+    char ident[21];
+
+    i = (intptr_t) user_data;
+    printf("Phase D handler on channel %d - (0x%X) %s\n", i, result, t30_frametype(result));
+    t30_get_transfer_statistics(s, &t);
+    printf("Phase D: bit rate %d\n", t.bit_rate);
+    printf("Phase D: ECM %s\n", (t.error_correcting_mode)  ?  "on"  :  "off");
+    printf("Phase D: pages transferred %d\n", t.pages_transferred);
+    printf("Phase D: image size %d x %d\n", t.width, t.length);
+    printf("Phase D: image resolution %d x %d\n", t.x_resolution, t.y_resolution);
+    printf("Phase D: bad rows %d\n", t.bad_rows);
+    printf("Phase D: longest bad row run %d\n", t.longest_bad_row_run);
+    printf("Phase D: coding method %d\n", t.encoding);
+    printf("Phase D: image size %d\n", t.image_size);
+    t30_get_local_ident(s, ident);
+    printf("Phase D: local ident '%s'\n", ident);
+    t30_get_far_ident(s, ident);
+    printf("Phase D: remote ident '%s'\n", ident);
+}
+/*- End of function --------------------------------------------------------*/
+
+static void phase_e_handler(t30_state_t *s, void *user_data, int result)
+{
+    int i;
+    
+    i = (intptr_t) user_data;
+    printf("Phase E handler on channel %d\n", i);
+    //exit(0);
+}
+/*- End of function --------------------------------------------------------*/
+
+static int modem_call_control(t31_state_t *s, void *user_data, int op, const char *num)
+{
+    switch (op)
+    {
+    case AT_MODEM_CONTROL_ANSWER:
+        printf("\nModem control - Answering\n");
+        answered = TRUE;
+        break;
+    case AT_MODEM_CONTROL_CALL:
+        printf("\nModem control - Dialing '%s'\n", num);
+        t31_call_event(&t31_state, AT_CALL_EVENT_CONNECTED);
+        break;
+    case AT_MODEM_CONTROL_HANGUP:
+        printf("\nModem control - Hanging up\n");
+        done = TRUE;
+        break;
+    case AT_MODEM_CONTROL_OFFHOOK:
+        printf("\nModem control - Going off hook\n");
+        break;
+    case AT_MODEM_CONTROL_DTR:
+        printf("\nModem control - DTR %d\n", (int) (intptr_t) num);
+        break;
+    case AT_MODEM_CONTROL_RTS:
+        printf("\nModem control - RTS %d\n", (int) (intptr_t) num);
+        break;
+    case AT_MODEM_CONTROL_CTS:
+        printf("\nModem control - CTS %d\n", (int) (intptr_t) num);
+        break;
+    case AT_MODEM_CONTROL_CAR:
+        printf("\nModem control - CAR %d\n", (int) (intptr_t) num);
+        break;
+    case AT_MODEM_CONTROL_RNG:
+        printf("\nModem control - RNG %d\n", (int) (intptr_t) num);
+        break;
+    case AT_MODEM_CONTROL_DSR:
+        printf("\nModem control - DSR %d\n", (int) (intptr_t) num);
+        break;
+    default:
+        printf("\nModem control - operation %d\n", op);
+        break;
+    }
+    /*endswitch*/
+    return 0;
+}
+/*- End of function --------------------------------------------------------*/
+
+static int at_tx_handler(at_state_t *s, void *user_data, const uint8_t *buf, size_t len)
+{
+    size_t i;
+
+    i = 0;
+    if (fax_test_seq[test_seq_ptr].command == NULL)
+    {
+        /* TCF or non-ECM image data expected */
+        for (  ;  i < len;  i++)
+        {
+            if (dled)
+            {
+                if (buf[i] == ETX)
+                {
+                    printf("\nFast data ended\n");
+                    response_buf_ptr = 0;
+                    response_buf[response_buf_ptr] = '\0';
+                    test_seq_ptr++;
+                    if (fax_test_seq[test_seq_ptr].command)
+                        kick = TRUE;
+                    break;
+                }
+                dled = FALSE;
+            }
+            else
+            {
+                if (buf[i] == DLE)
+                    dled = TRUE;
+            }
+        }
+        i++;
+        if (i >= len)
+            return 0;
+    }
+    for (  ;  i < len;  i++)
+    {
+        response_buf[response_buf_ptr++] = buf[i];
+        putchar(buf[i]);
+    }
+    response_buf[response_buf_ptr] = '\0';
+    printf("Expected ");
+    for (i = 0;  i < response_buf_ptr;  i++)
+        printf("%02x ", fax_test_seq[test_seq_ptr].response[i] & 0xFF);
+    printf("\n");
+    printf("Response ");
+    for (i = 0;  i < response_buf_ptr;  i++)
+        printf("%02x ", response_buf[i] & 0xFF);
+    printf("\n");
+printf("Match %d against %d\n", response_buf_ptr, fax_test_seq[test_seq_ptr].len_response);
+    if (response_buf_ptr >= fax_test_seq[test_seq_ptr].len_response
+        &&
+        memcmp(fax_test_seq[test_seq_ptr].response, response_buf, fax_test_seq[test_seq_ptr].len_response) == 0)
+    {
+        printf("\nMatched\n");
+        test_seq_ptr++;
+        response_buf_ptr = 0;
+        response_buf[response_buf_ptr] = '\0';
+        if (fax_test_seq[test_seq_ptr].command)
+            kick = TRUE;
+        else
+            dled = FALSE;
+    }
+    return 0;
+}
+/*- End of function --------------------------------------------------------*/
+
+int main(int argc, char *argv[])
+{
+    int i;
+    int k;
+    int outframes;
+    fax_state_t fax_state;
+    int16_t t30_amp[SAMPLES_PER_CHUNK];
+    int16_t t31_amp[SAMPLES_PER_CHUNK];
+    int16_t silence[SAMPLES_PER_CHUNK];
+    int16_t out_amp[2*SAMPLES_PER_CHUNK];
+    int t30_len;
+    int t31_len;
+    AFfilesetup filesetup;
+    AFfilehandle wave_handle;
+    AFfilehandle in_handle;
+    int log_audio;
+    int test_sending;
+    int fast_send;
+    int fast_blocks;
+    uint8_t fast_buf[1000];
+    
+    decode_test_file = NULL;
+    log_audio = FALSE;
+    test_sending = FALSE;
+    for (i = 1;  i < argc;  i++)
+    {
+        if (strcmp(argv[i], "-d") == 0)
+        {
+            decode_test_file = argv[++i];
+            continue;
+        }
+        if (strcmp(argv[i], "-l") == 0)
+        {
+            log_audio = TRUE;
+            continue;
+        }
+        if (strcmp(argv[i], "-r") == 0)
+        {
+            test_sending = FALSE;
+            continue;
+        }
+        if (strcmp(argv[i], "-s") == 0)
+        {
+            test_sending = TRUE;
+            continue;
+        }
+    }
+
+    filesetup = AF_NULL_FILESETUP;
+    wave_handle = AF_NULL_FILEHANDLE;
+    if (log_audio)
+    {
+        if ((filesetup = afNewFileSetup()) == AF_NULL_FILESETUP)
+        {
+            fprintf(stderr, "    Failed to create file setup\n");
+            exit(2);
+        }
+        afInitSampleFormat(filesetup, AF_DEFAULT_TRACK, AF_SAMPFMT_TWOSCOMP, 16);
+        afInitRate(filesetup, AF_DEFAULT_TRACK, (float) SAMPLE_RATE);
+        afInitFileFormat(filesetup, AF_FILE_WAVE);
+        afInitChannels(filesetup, AF_DEFAULT_TRACK, 2);
+        if ((wave_handle = afOpenFile(OUTPUT_WAVE_FILE_NAME, "w", filesetup)) == AF_NULL_FILEHANDLE)
+        {
+            fprintf(stderr, "    Cannot create wave file '%s'\n", OUTPUT_WAVE_FILE_NAME);
+            exit(2);
+        }
+    }
+
+    memset(silence, 0, sizeof(silence));
+ 
+    in_handle = NULL;
+    if (decode_test_file)
+    {
+        if ((in_handle = afOpenFile(decode_test_file, "r", NULL)) == AF_NULL_FILEHANDLE)
+        {
+            fprintf(stderr, "    Cannot create wave file '%s'\n", decode_test_file);
+            exit(2);
+        }
+    }
+
+    if (test_sending)
+    {
+        fax_init(&fax_state, FALSE);
+        t30_set_rx_file(&fax_state.t30_state, OUTPUT_FILE_NAME, -1);
+        fax_test_seq = fax_send_test_seq;
+        countdown = 0;
+    }
+    else
+    {
+        fax_init(&fax_state, TRUE);
+        t30_set_tx_file(&fax_state.t30_state, INPUT_FILE_NAME, -1, -1);
+        fax_test_seq = fax_receive_test_seq;
+        countdown = 250;
+    }
+    
+    t30_set_local_ident(&fax_state.t30_state, "11111111");
+    t30_set_phase_b_handler(&fax_state.t30_state, phase_b_handler, (void *) 0);
+    t30_set_phase_d_handler(&fax_state.t30_state, phase_d_handler, (void *) 0);
+    t30_set_phase_e_handler(&fax_state.t30_state, phase_e_handler, (void *) 0);
+    memset(t30_amp, 0, sizeof(t30_amp));
+    
+    span_log_set_level(&fax_state.t30_state.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW);
+    span_log_set_tag(&fax_state.t30_state.logging, "YYY");
+    span_log_set_level(&fax_state.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW);
+    span_log_set_tag(&fax_state.logging, "YYY");
+
+    if (t31_init(&t31_state, at_tx_handler, NULL, modem_call_control, NULL, NULL, NULL) == NULL)
+    {
+        fprintf(stderr, "    Cannot start the FAX modem\n");
+        exit(2);
+    }
+
+    span_log_set_level(&t31_state.logging, SPAN_LOG_SHOW_SEVERITY | SPAN_LOG_SHOW_PROTOCOL | SPAN_LOG_SHOW_TAG | SPAN_LOG_FLOW);
+    span_log_set_tag(&t31_state.logging, "XXX");
+
+    fast_send = FALSE;
+    fast_blocks = 0;
+    kick = TRUE;
+    while (!done)
+    {
+        if (kick)
+        {
+            kick = FALSE;
+            if (fax_test_seq[test_seq_ptr].command > (const char *) 1)
+            {
+                if (fax_test_seq[test_seq_ptr].command[0])
+                {
+                    printf("%s\n", fax_test_seq[test_seq_ptr].command);
+                    t31_at_rx(&t31_state, fax_test_seq[test_seq_ptr].command, fax_test_seq[test_seq_ptr].len_command);
+                }
+            }
+            else
+            {
+                printf("Fast send\n");
+                fast_send = TRUE;
+                fast_blocks = 100;
+            }
+        }
+        if (fast_send)
+        {
+            /* Send fast modem data */
+            memset(fast_buf, 0, 36);
+            if (fast_blocks == 1)
+            {
+                /* Insert EOLs */
+                fast_buf[35] = ETX;
+                fast_buf[34] = DLE;
+                fast_buf[31] =
+                fast_buf[28] =
+                fast_buf[25] =
+                fast_buf[22] =
+                fast_buf[19] =
+                fast_buf[16] = 1;
+            }
+            t31_at_rx(&t31_state, (char *) fast_buf, 36);
+            if (--fast_blocks == 0)
+                fast_send = FALSE;
+        }
+        t30_len = fax_tx(&fax_state, t30_amp, SAMPLES_PER_CHUNK);
+        /* The receive side always expects a full block of samples, but the
+           transmit side may not be sending any when it doesn't need to. We
+           may need to pad with some silence. */
+        if (t30_len < SAMPLES_PER_CHUNK)
+        {
+            memset(t30_amp + t30_len, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t30_len));
+            t30_len = SAMPLES_PER_CHUNK;
+        }
+        if (log_audio)
+        {
+            for (k = 0;  k < t30_len;  k++)
+                out_amp[2*k] = t30_amp[k];
+        }
+        if (t31_rx(&t31_state, t30_amp, t30_len))
+            break;
+        if (countdown)
+        {
+            if (answered)
+            {
+                countdown = 0;
+                t31_call_event(&t31_state, AT_CALL_EVENT_ANSWERED);
+            }
+            else if (--countdown == 0)
+            {
+                t31_call_event(&t31_state, AT_CALL_EVENT_ALERTING);
+                countdown = 250;
+            }
+        }
+
+        t31_len = t31_tx(&t31_state, t31_amp, SAMPLES_PER_CHUNK);
+        if (t31_len < SAMPLES_PER_CHUNK)
+        {
+            memset(t31_amp + t31_len, 0, sizeof(int16_t)*(SAMPLES_PER_CHUNK - t31_len));
+            t31_len = SAMPLES_PER_CHUNK;
+        }
+        if (log_audio)
+        {
+            for (k = 0;  k < t31_len;  k++)
+                out_amp[2*k + 1] = t31_amp[k];
+        }
+        if (fax_rx(&fax_state, t31_amp, SAMPLES_PER_CHUNK))
+            break;
+
+        if (log_audio)
+        {
+            outframes = afWriteFrames(wave_handle, AF_DEFAULT_TRACK, out_amp, SAMPLES_PER_CHUNK);
+            if (outframes != SAMPLES_PER_CHUNK)
+                break;
+        }
+    }
+    if (decode_test_file)
+    {
+        if (afCloseFile(in_handle) != 0)
+        {
+            fprintf(stderr, "    Cannot close wave file '%s'\n", decode_test_file);
+            exit(2);
+        }
+    }
+    if (log_audio)
+    {
+        if (afCloseFile(wave_handle) != 0)
+        {
+            fprintf(stderr, "    Cannot close wave file '%s'\n", OUTPUT_WAVE_FILE_NAME);
+            exit(2);
+        }
+        afFreeFileSetup(filesetup);
+    }
+    if (done)
+    {
+        printf("Tests passed\n");
+    }
+    return  0;
+}
+/*- End of function --------------------------------------------------------*/
+/*- End of file ------------------------------------------------------------*/