t/52-pl-change.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 $plvers;
  17 my @songs   = qw{
  18     title.ogg
  19     dir1/title-artist-album.ogg
  20     dir1/title-artist.ogg
  21     dir2/album.ogg
  22 };
  23 my $nbtests = 20;
  24 my @tests   = (
  25     # [ 'event', [ $arg1, $arg2, ... ], $sleep, \&check_results ]
  26
  27     # pl.swapid
  28     # test should come first to know the song id
  29     [ 'pl.clear',         [], 0, \&check_success ],
  30     [ 'pl.add',      \@songs, 0, \&check_success ],
  31     [ 'pl.swapid',     [0,2], 0, \&check_success ],
  32     [ 'pl.as_items',      [], 0, \&check_2ndpos  ],
  33     [ 'pl.swapid',     [0,2], 0, \&check_success ],
  34
  35     # pl.moveid
  36     # test should come second to know the song id
  37     [ 'pl.moveid',     [0,2], 0, \&check_success ],
  38     [ 'pl.as_items',      [], 0, \&check_2ndpos  ],
  39     [ 'pl.moveid',     [0,0], 0, \&check_success ],
  40
  41     # pl.swap
  42     [ 'pl.swap',       [0,2], 0, \&check_success ],
  43     [ 'pl.as_items',      [], 0, \&check_2ndpos  ],
  44     [ 'pl.swap',       [0,2], 0, \&check_success ],
  45
  46     # pl.move
  47     [ 'pl.move',       [0,2], 0, \&check_success ],
  48     [ 'pl.as_items',      [], 0, \&check_2ndpos  ],
  49
  50     # pl.shuffle
  51     [ 'status',           [], 0, sub { $plvers=$_[1]->playlist; } ],
  52     [ 'pl.shuffle',       [], 0, \&check_success                  ],
  53     [ 'status',           [], 0, \&check_shuffle                  ],
  54 );
  55
  56
  57 # are we able to test module?
  58 eval 'use POE::Component::Client::MPD::Test nbtests=>$nbtests, tests=>\@tests';
  59 diag($@), plan skip_all => $@ if $@ =~ s/\n+BEGIN failed--compilation aborted.*//s;
  60 exit;
  61
  62 #--
  63
  64 sub check_success {
  65     my ($msg) = @_;
  66     is($msg->status, 1, "command '" . $msg->request . "' returned an ok status");
  67 }
  68
  69 sub check_shuffle {
  70     my ($msg, $status) = @_;
  71     check_success($msg);
  72     is($status->playlist, $plvers+1, 'shuffle() changes playlist version');
  73 }
  74
  75 sub check_2ndpos {
  76     my ($msg, $items) = @_;
  77     check_success($msg);
  78     is($items->[2]->title, 'ok-title', 'swap[id()] / swap[id()] changes songs');
  79 }