]>
iEval git - audio-opusfile.git/blob - t/Audio-Opusfile.t
5 use Test
::More tests
=> 5;
6 BEGIN { use_ok
('Audio::Opusfile') };
9 foreach my $constname (qw(
10 OPUS_CHANNEL_COUNT_MAX OP_ABSOLUTE_GAIN OP_DEC_FORMAT_FLOAT
11 OP_DEC_FORMAT_SHORT OP_DEC_USE_DEFAULT OP_EBADHEADER OP_EBADLINK
12 OP_EBADPACKET OP_EBADTIMESTAMP OP_EFAULT OP_EIMPL OP_EINVAL OP_ENOSEEK
13 OP_ENOTAUDIO OP_ENOTFORMAT OP_EOF OP_EREAD OP_EVERSION OP_FALSE
14 OP_GET_SERVER_INFO_REQUEST OP_HEADER_GAIN OP_HOLE
15 OP_HTTP_PROXY_HOST_REQUEST OP_HTTP_PROXY_PASS_REQUEST
16 OP_HTTP_PROXY_PORT_REQUEST OP_HTTP_PROXY_USER_REQUEST OP_PIC_FORMAT_GIF
17 OP_PIC_FORMAT_JPEG OP_PIC_FORMAT_PNG OP_PIC_FORMAT_UNKNOWN
18 OP_PIC_FORMAT_URL OP_SSL_SKIP_CERTIFICATE_CHECK_REQUEST OP_TRACK_GAIN)) {
19 next if (eval "my \$a = $constname; 1");
20 if ($@
=~ /^Your vendor has not defined Audio::Opusfile macro $constname/) {
29 ok
( $fail == 0 , 'Constants' );
31 my $of = Audio
::Opusfile
->new_from_file('empty.opus');
33 is
$tags->query_count('TITLE'), 1, 'query_count';
34 is
$tags->query('TITLE'), 'Cellule', 'query';
35 is_deeply
[$tags->query_all('TITLE')], ['Cellule'], 'query_all';
This page took 0.0512629999999999 seconds and 5 git commands to generate.