# 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
warnings;
BEGIN { use_ok(
'Guitar::Scale'
) };
#########################
my
$gu
= Guitar::Scale::pv(
'A'
,
'Blues'
, 1);
$gu
;
ok(
substr
(
$gu
, 0, 25) eq
'1001020010111001020010111'
,
'A_Blues'
);