Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

GENE / Music-ScaleNote-0.0702 / t / 01-methods.t 

            

              
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

              
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use_ok 'Music::ScaleNote';
my $msn = Music::ScaleNote->new(
    scale_name => 'pminor',
#    verbose    => 1,
);
isa_ok $msn, 'Music::ScaleNote';
throws_ok {
    $msn->get_offset( note_name => 'C#' );
} qr/Scale position not defined/, 'note_name not in scale';
my $format = 'midinum';
my $note = $msn->get_offset(
    note_name   => 63,
    note_format => $format,
);
isa_ok $note, 'Music::Note';
is $note->format($format), 65, 'get_offset';
$format = 'ISO';
is $note->format($format), 'F4', 'get_offset';
$format = 'midinum';
$note = $msn->get_offset(
    note_name   => 60,
    note_format => $format,
    offset      => -1,
);
is $note->format($format), 58, 'get_offset';
$format = 'ISO';
$note = $msn->get_offset(
    note_name => 'D#4',
    offset    => -1,
);
is $note->format($format), 'C4', 'get_offset';
$note = $msn->get_offset(
    note_name => 'D#',
    offset    => -1,
);
is $note->format($format), 'C4', 'get_offset';
$format = 'midinum';
is $note->format($format), 60, 'get_offset';
$format = 'isobase';
$note = $msn->get_offset(
    note_name   => 'D#',
    note_format => $format,
    offset      => -1,
);
is $note->format($format), 'C', 'get_offset';
$format = 'midi';
$note = $msn->get_offset(
    note_name   => 'C',
    note_format => $format,
    offset      => -1,
    flat        => 1,
);
is $note->format($format), 'Bf3', 'get_offset';
$note = $msn->step( note_name => 'C' );
isa_ok $note, 'Music::Note';
is $note->format($format), 'Cs4', 'step';
$note = $msn->step(
    note_name => 'C',
    steps     => -1,
);
is $note->format($format), 'B3', 'step';
$note = $msn->step(
    note_name => 'D4',
    steps     => -1,
);
is $note->format($format), 'Cs4', 'step';
$note = $msn->step(
    note_name => 'D4',
    steps     => -1,
    flat      => 1,
);
is $note->format($format), 'Df4', 'step';
$note = $msn->step(
    note_name => 'D4',
    steps     => -2,
    flat      => 1,
);
is $note->format($format), 'C4', 'step';
$format = 'midinum';
$msn = Music::ScaleNote->new(
    scale_note  => 'D',
    note_format => $format,
#    verbose     => 1,
);
$note = $msn->step(
    note_name => 62,
    steps     => 2,
);
is $note->format($format), 64, 'step';
$msn = Music::ScaleNote->new( scale_note => 'X' );
throws_ok {
    $msn->get_offset;
} qr/Scale position not defined/, 'scale_note not defined';
done_testing();