1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
#!perl
#
# This file is part of Audio-MPD-Common
#
# This software is copyright (c) 2007 by Jerome Quelin.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use strict;
use warnings;
use Audio::MPD::Common::Item;
use Test::More tests => 24;
my ($i, $output, @output, %params);
#
# testing amc::item::song
$output = 'file: some/random/path/to/a/song.ogg
Time: 234
Name: friskyRadio | feelin frisky?
Artist: Foo Bar
Album: Frobnizer
Track: 26
Title: Blah!
Disc: 1/2
Pos: 10
Id: 14
';
@output = split /\n/, $output;
%params = map { /^([^:]+):\s+(.*)$/ ? ($1=>$2) : () } @output;
$i = Audio::MPD::Common::Item->new( %params );
isa_ok( $i, 'Audio::MPD::Common::Item::Song', 'song creation' );
is( $i->file, 'some/random/path/to/a/song.ogg', 'accessor: file' );
is( $i->time, 234, 'accessor: time' );
is( $i->artist, 'Foo Bar', 'accessor: artist' );
is( $i->album, 'Frobnizer', 'accessor: album' );
is( $i->disc, '1/2', 'accessor: disc' );
is( $i->track, 26, 'accessor: track' );
is( $i->title, 'Blah!', 'accessor: title' );
is( $i->pos, 10, 'accessor: pos' );
is( $i->name, 'friskyRadio | feelin frisky?', 'accessor: name' );
is( $i->id, 14, 'accessor: id' );
isa_ok( $i, 'Audio::MPD::Common::Item', 'song inherits from item' );
#
# testing as_string from amc::item::song.
is( $i->as_string, 'Frobnizer = 26 = Foo Bar = Blah!', 'as_string() with all tags' );
delete $params{Track};
$i = Audio::MPD::Common::Item->new( %params );
is( $i->as_string, 'Foo Bar = Blah!', 'as_string() without track' );
delete $params{Album};
$params{Track} = 26;
$i = Audio::MPD::Common::Item->new( %params );
is( $i->as_string, 'Foo Bar = Blah!', 'as_string() without album' );
delete $params{Artist};
$i = Audio::MPD::Common::Item->new( %params );
is( $i->as_string, 'Blah!', 'as_string() without artist' );
delete $params{Title};
$i = Audio::MPD::Common::Item->new( %params );
is( $i->as_string, 'some/random/path/to/a/song.ogg', 'as_string() without title' );
#
# testing amc::item::directory
$output = "directory: some/random/path\n";
@output = split /\n/, $output;
%params = map { /^([^:]+):\s+(.*)$/ ? ($1=>$2) : () } @output;
$i = Audio::MPD::Common::Item->new( %params );
isa_ok( $i, 'Audio::MPD::Common::Item::Directory', 'directory creation' );
is( $i->directory, 'some/random/path', 'accessor: directory' );
isa_ok( $i, 'Audio::MPD::Common::Item', 'directory inherits from item' );
#
# testing amc::item::playlist
$output = 'playlist: some_name
Last-Modified: 2006-12-13T19:53:50Z
';
@output = split /\n/, $output;
%params = map { /^([^:]+):\s+(.*)$/ ? ($1=>$2) : () } @output;
$i = Audio::MPD::Common::Item->new( %params );
isa_ok( $i, 'Audio::MPD::Common::Item::Playlist', 'playlist creation' );
is( $i->playlist, 'some_name', 'accessor: playlist' );
is( $i->last_modified, '2006-12-13T19:53:50Z', 'accessor: last_modified' );
isa_ok( $i, 'Audio::MPD::Common::Item', 'playlistinherits from item' );
|
