t/43-cmds-settings.t

   1 #!perl
   2 #
   3 # This file is part of POE::Component::Client::MPD.
   4 # Copyright (c) 2007 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 POE qw[ Component::Client::MPD::Message ];
  15 use Readonly;
  16 use Test::More;
  17
  18 our $nbtests = 10;
  19 our @tests   = (
  20     # [ 'event', [ $arg1, $arg2, ... ], $answer_back, \&check_results ]
  21
  22     # repeat
  23     [ 'repeat', [1],  $DISCARD, undef                 ],
  24     [ 'status', [],   $SEND,    \&check_repeat_is_on  ],
  25     [ 'repeat', [0],  $DISCARD, undef                 ],
  26     [ 'status', [],   $SEND,    \&check_repeat_is_off ],
  27     [ 'repeat', [],   $SLEEP1,  undef                 ],
  28     [ 'status', [],   $SEND,    \&check_repeat_is_on  ],
  29     [ 'repeat', [],   $SLEEP1,  undef                 ],
  30     [ 'status', [],   $SEND,    \&check_repeat_is_off ],
  31
  32     # random
  33     [ 'random', [1],  $DISCARD, undef                 ],
  34     [ 'status', [],   $SEND,    \&check_random_is_on  ],
  35     [ 'random', [0],  $DISCARD, undef                 ],
  36     [ 'status', [],   $SEND,    \&check_random_is_off ],
  37     [ 'random', [],   $SLEEP1,  undef                 ],
  38     [ 'status', [],   $SEND,    \&check_random_is_on  ],
  39     [ 'random', [],   $SLEEP1,  undef                 ],
  40     [ 'status', [],   $SEND,    \&check_random_is_off ],
  41
  42     # fade
  43     [ 'fade',   [15], $DISCARD, undef                 ],
  44     [ 'status', [],   $SEND,    \&check_fade_is_on    ],
  45     [ 'fade',   [],   $DISCARD, undef                 ],
  46     [ 'status', [],   $SEND,    \&check_fade_is_off   ],
  47 );
  48
  49 # are we able to test module?
  50 eval 'use POE::Component::Client::MPD::Test';
  51 plan skip_all => $@ if $@ =~ s/\n+BEGIN failed--compilation aborted.*//s;
  52 exit;
  53
  54 sub check_repeat_is_on  { is( $_[0]->data->repeat, 1, 'repeat is on' ); }
  55 sub check_repeat_is_off { is( $_[0]->data->repeat, 0, 'repeat is off' ); }
  56
  57 sub check_random_is_on  { is( $_[0]->data->random, 1, 'random is on' ); }
  58 sub check_random_is_off { is( $_[0]->data->random, 0, 'random is off' ); }
  59
  60 sub check_fade_is_on    { is( $_[0]->data->xfade, 15, 'enabling fading' ); }
  61 sub check_fade_is_off   { is( $_[0]->data->xfade, 0, 'disabling fading by default' ); }
  62