4 use Audio::MPD::Common::Status;
5 use Test::More tests => 15;
20 audio => '44100:16:2',
21 error => 'problems opening audio device',
25 my $s = Audio::MPD::Common::Status->new( \%kv );
26 isa_ok( $s, 'Audio::MPD::Common::Status', 'object creation' );
27 isa_ok( $s->time, 'Audio::MPD::Common::Time', 'accessor: time' );
28 is( $s->volume, 66, 'accessor: volume' );
29 is( $s->repeat, 1, 'accessor: repeat' );
30 is( $s->random, 0, 'accessor: random' );
31 is( $s->playlist, 24, 'accessor: playlist' );
32 is( $s->playlistlength, 21, 'accessor: playlistlength' );
33 is( $s->xfade, 14, 'accessor: xfade' );
34 is( $s->state, 'play', 'accessor: state' );
35 is( $s->song, 10, 'accessor: song' );
36 is( $s->songid, 11, 'accessor: songid' );
37 is( $s->bitrate, 127, 'accessor: bitrate' );
38 is( $s->audio, '44100:16:2', 'accessor: audio' );
39 is( $s->error, 'problems opening audio device', 'accessor: error' );
40 is( $s->updating_db, 1, 'accessor: updating_db' );