view release on metacpan or  search on metacpan

t/Music-Chord-Positions.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 12;

eval 'use Test::Differences';    # display convenience
my $deeply = $@ ? \&is_deeply : \&eq_or_diff;

BEGIN { use_ok('Music::Chord::Positions') }

my $mcp = Music::Chord::Positions->new;
isa_ok( $mcp, 'Music::Chord::Positions' );

is( $mcp->scale_degrees, 12, 'expect 12 degrees in scale by default' );

can_ok( 'Music::Chord::Positions',

t/Schoenberg.t  view on Meta::CPAN

# (Standard deviation of the pitch sets, after the fundamental is
# removed, is almost a good approximation for allowed voicings,
# though there are a few oddities that do not fit with what
# Schoenberg allows for.)

use strict;
use warnings;

use Test::More tests => 1;

eval 'use Test::Differences';    # display convenience
my $deeply = $@ ? \&is_deeply : \&eq_or_diff;

use Music::Chord::Positions;

# From "Theory of Harmony", p.37. All are close position, excepting the
# final three.
my %scho_allowed = (
  '0 4 7 12'    => undef,
  '0 7 12 16'   => undef,
  '0 12 16 19'  => undef,