1# Before `make install' is performed this script should be runnable with 2# `make test'. After `make install' it should work as `perl test.pl' 3 4######################### We start with some black magic to print on failure. 5 6# Change 1..1 below to 1..last_test_to_print . 7# (It may become useful if the test is moved to ./t subdirectory.) 8 9BEGIN { $| = 1; print "1..1\n"; } 10END {print "not ok 1\n" unless $loaded;} 11use Audio::Mixer; 12$loaded = 1; 13print "ok 1\n"; 14 15######################### End of black magic. 16 17# Insert your test code below (better if it prints "ok 13" 18# (correspondingly "not ok 13") depending on the success of chunk 13 19# of the test code): 20 21print STDERR "Opening mixer... "; 22$ret = Audio::Mixer::init_mixer(); 23print STDERR $ret ? "FAILED.\n" : "Ok.\n"; 24 25print STDERR "Getting the volume... "; 26my @old = Audio::Mixer::get_cval('vol'); 27print STDERR join(', ', @old)." Ok.\nSetting to 50... "; 28Audio::Mixer::set_cval('vol', 50); 29my @ret = Audio::Mixer::get_cval('vol'); 30print STDERR ($ret[0] == 50 && $ret[1] == 50) ? "Ok.\nResetting back... " : 31 "FAILED.\nTrying to reset back... "; 32Audio::Mixer::set_cval('vol', $old[0], $old[1]); 33@ret = Audio::Mixer::get_cval('vol'); 34print STDERR ($ret[0] == $old[0] && $ret[1] == $old[1]) ? 35 "Ok.\n" : "FAILED.\n"; 36 37#my $ret = Mixer::get_cval('vol'); 38#printf "get_cval() vol=0x%x\n", $ret; 39 40#$ret = Mixer::set_cval('vol', 50); 41#print "set_cval returns $ret\n"; 42 43#@ret = Mixer::get_cval('vol'); 44#print "get_cval() vol=".join(', ', @ret)."\n"; 45#$ret = Mixer::get_cval('vol'); 46#printf "get_cval() vol=0x%x\n", $ret; 47 48 49#$ret = Mixer::get_param_val('vol'); 50#printf "get_param_val() vol=0x%x\n", $ret; 51 52#$ret = Mixer::set_param_val('vol', 20, 50); 53#print "set_param_val returns $ret\n"; 54 55#$ret = Mixer::get_param_val('vol'); 56#printf "get_param_val() vol=0x%x\n", $ret; 57 58#@ret = Mixer::get_mixer_params(); 59#print "== ".join(',', @ret)." ==\n"; 60 61