t/61-coll-whole.t

   1 #!perl
   2 #
   3 # This file is part of POE::Component::Client::MPD.
   4 # Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 use strict;
  12 use warnings;
  13
  14 use Test::More;
  15
  16 my $nbtests = 12;
  17 my @tests   = (
  18     # [ 'event', [ $arg1, $arg2, ... ], $sleep, \&check_results ]
  19
  20     # all_albums
  21     [ 'coll.all_albums',  [], 0, \&check_all_albums  ],
  22
  23     # all_artists
  24     [ 'coll.all_artists', [], 0, \&check_all_artists ],
  25
  26     # all_titles
  27     [ 'coll.all_titles',  [], 0, \&check_all_titles  ],
  28
  29     # all_files
  30     [ 'coll.all_files',   [], 0, \&check_all_files   ],
  31
  32 );
  33
  34
  35 # are we able to test module?
  36 eval 'use POE::Component::Client::MPD::Test nbtests=>$nbtests, tests=>\@tests';
  37 diag($@), plan skip_all => $@ if $@ =~ s/\n+BEGIN failed--compilation aborted.*//s;
  38 exit;
  39
  40 #--
  41
  42 sub check_success {
  43     my ($msg) = @_;
  44     is($msg->status, 1, "command '" . $msg->request . "' returned an ok status");
  45 }
  46
  47 sub check_all_albums {
  48     my ($msg, $items) = @_;
  49     check_success($msg);
  50     # mpd 0.14 returns empty strings too
  51     is(scalar @$items, 2, 'all_albums() return the albums');
  52     is($items->[1], 'our album', 'all_albums() return strings');
  53 }
  54
  55 sub check_all_artists {
  56     my ($msg, $items) = @_;
  57     check_success($msg);
  58     # mpd 0.14 returns empty strings too
  59     is(scalar @$items, 2, 'all_artists() return the artists');
  60     is($items->[0], 'dir1-artist', 'all_artists() return strings');
  61 }
  62
  63 sub check_all_titles {
  64     my ($msg, $items) = @_;
  65     check_success($msg);
  66     # mpd 0.14 returns empty strings too
  67     is(scalar @$items, 4, 'all_titles() return the titles');
  68     like( $items->[0], qr/-title$/, 'all_titles() return strings');
  69 }
  70
  71
  72 sub check_all_files {
  73     my ($msg, $items) = @_;
  74     check_success($msg);
  75     is(scalar @$items, 4, 'all_files() return the pathes');
  76     like($items->[0], qr/\.ogg$/, 'all_files() return strings');
  77 }