# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

######################### We start with some black magic to print on failure.

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)

BEGIN { $| = 1; print "1..4\n"; }
END {print "not ok 1\n" unless $loaded;}
use Audio::OSS qw(:funcs :formats @DevNames);
$loaded = 1;
print "ok 1\n";

######################### End of black magic.

# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):

unless (open DSP, "</dev/dsp") {
    print "could not open /dev/dsp, skipping tests\n";
    exit 0;
}

dsp_reset(\*DSP) or die $!;
print "ok 2\n";
my $sps = set_sps(\*DSP, 48000);
if (defined($sps)) {
    print "ok 3 - sps was $sps\n";
} else {
    print "not ok 3\n";
}
set_fmt(\*DSP, AFMT_S16_LE);
print "ok 4\n";
close DSP;
