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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 10;
use Test::Exception;
use ARename;
# feed some parse_defaultvalues() {{{
is( ARename::parse_defaultvalues("testrc", 1, 0, "default_artist", "Mastodon" ), 0, 'default parser must return 0 (artist)');
is( ARename::parse_defaultvalues("testrc", 2, 1, "default_album", "Leviathan"), 0, 'default parser must " (album)');
is( ARename::parse_defaultvalues("testrc", 3, 2, "default_tracktitle", "I am Ahab"), 0, 'default parser must " (tracktitle)');
is( ARename::parse_defaultvalues("testrc", 4, 3, "default_tracknumber", "02" ), 0, 'default parser must " (tracknumber)');
is( ARename::parse_defaultvalues("testrc", 5, 4, "default_genre", "Metal" ), 0, 'default parser must " (genre)');
#}}}
# read some back {{{
is( ARename::get_defaults("artist" ), "Mastodon", "default_artist" );
is( ARename::get_defaults("album" ), "Leviathan", "default_album" );
is( ARename::get_defaults("tracktitle" ), "I am Ahab", "default_tracktitle" );
is( ARename::get_defaults("tracknumber"), "02", "default_tracknumber" );
is( ARename::get_defaults("genre" ), "Metal", "default_genre" );
#}}}
|
