#!/usr/bin/perl

use strict;
use warnings;
use SDL;
use SDL::Audio;
use SDL::AudioSpec;

SDL::init(SDL_INIT_AUDIO);

# Converting some WAV data to hardware format

my $desired  = SDL::AudioSpec->new();
 my $obtained = SDL::AudioSpec->new();

# Set desired format
$desired->freq(22050);
$desired->channels(1);
$desired->format(AUDIO_S16);
$desired->samples(8192);

# Open the audio device
if( SDL::Audio::open($desired, $obtained) < 0 )
{
    printf( STDERR "Couldn't open audio: %s\n", SDL::get_error() );
    exit(-1);
}

# Load the test.wav
my $wav_ref = SDL::Audio::load_wav('../../test/data/sample.wav', $obtained);

unless( $wav_ref )
{
    warn( "Could not open sample.wav: %s\n", SDL::get_error() );
    SDL::Audio::close_audio();
     SDL::quit;
     exit(-1);
}

my ( $wav_spec, $wav_buf, $wav_len ) = @{$wav_ref};