3 # This file is part of Audio::MPD
4 # Copyright (c) 2007 Jerome Quelin, all rights reserved.
6 # This program is free software; you can redistribute it and/or modify
7 # it under the same terms as Perl itself.
17 # are we able to test module?
18 eval 'use Audio::MPD::Test';
19 plan skip_all => $@ if $@ =~ s/\n+Compilation failed.*//s;
22 my $mpd = Audio::MPD->new;
28 is( $mpd->status->repeat, 1, 'enabling repeat mode' );
30 is( $mpd->status->repeat, 0, 'disabling repeat mode' );
32 is( $mpd->status->repeat, 1, 'toggling repeat mode to on' );
34 is( $mpd->status->repeat, 0, 'toggling repeat mode to off' );
40 is( $mpd->status->random, 1, 'enabling random mode' );
42 is( $mpd->status->random, 0, 'disabling random mode' );
44 is( $mpd->status->random, 1, 'toggling random mode to on' );
46 is( $mpd->status->random, 0, 'toggling random mode to off' );
52 is( $mpd->status->xfade, 15, 'enabling fading' );
54 is( $mpd->status->xfade, 0, 'disabling fading by default' );