t/Audio-Opusfile.t

   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';