]>
Commit | Line | Data |
---|---|---|
1 | #!/usr/bin/perl | |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use Test::More tests => 5; | |
6 | BEGIN { use_ok('Audio::Opusfile') }; | |
7 | ||
8 | my $fail = 0; | |
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/) { | |
21 | print "# pass: $@"; | |
22 | } else { | |
23 | print "# fail: $@"; | |
24 | $fail = 1; | |
25 | } | |
26 | ||
27 | } | |
28 | ||
29 | ok( $fail == 0 , 'Constants' ); | |
30 | ||
31 | my $of = Audio::Opusfile->new_from_file('empty.opus'); | |
32 | my $tags = $of->tags; | |
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'; |