# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Guitar-scale.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use strict;
use Test::More tests => 2;
BEGIN { use_ok('Guitar::Scale') };
#########################
my $gu = Guitar::Scale::pv('A', 'Blues', 1);
print $gu;
ok( substr($gu, 0, 25) eq '1001020010111001020010111', 'A_Blues');