view release on metacpan or  search on metacpan

t/vov.t  view on Meta::CPAN

#   stdout b d fis
#   args VII
#   stdout b dis fis
# XXX oh also bvii is bad, that diminishes itself, which I would only
# expect to happen to bvii*

# and now transpositions
command {
    args   => [qw(--transpose=g I)],
    stdout => "g b d\n",
};
command {
    args   => [qw(--transpose=7 I)],
    stdout => "g b d\n",
};
command {
    args   => [qw(--flats --transpose=g i)],
    stdout => "g bes d\n",
};
command {
    args   => [qw(--transpose=b --mode=locrian i)],
    stdout => "b d f\n",
};
command {
    args   => [qw(--transpose=b --mode=locrian II)],
    stdout => "c e g\n",
};
command {
    args   => [qw(--transpose=b --mode=locrian Vb)],
    stdout => "a c f\n",
};
command {
    args   => [qw(I V7/IV IV V)],
    stdout => "c e g\nc e g b\nf a c\ng b d\n",
};
command {
    args   => [qw(--factor=7 IV)],
    stdout => "f a c e\n",
};
command {
    args   => [qw(--outputtmpl=%{vov} I)],
    stdout => "I\n",
};
command {
    args   => [qw(--outputtmpl=x%{chord}x I13g)],
    stdout => "xa c e g b d fx\n",
};
command {
    args   => [qw(--flats i7**)],
    stdout => "c ees g bes\n",
};
command {
    args   => [qw(I+)],
    stdout => "c e gis\n",
};
command {
    args   => [qw(i*)],
    stdout => "c dis fis\n",
};

# XXX think about what I* would mean...major 3rd but dim 5th? or throw
# exception for unknown chord?

done_testing 84