Added 1 more positive test and 3 negative tests.
parent
4b1868cad7
commit
5c507b0fbf
24
t/BPMToMs.t
24
t/BPMToMs.t
|
@ -9,8 +9,8 @@ zci answer_type => "bpmto_ms";
|
|||
zci is_cached => 1;
|
||||
|
||||
ddg_goodie_test(
|
||||
[qw( DDG::Goodie::BPMToMs )],
|
||||
map { ("$_" => test_zci(
|
||||
[qw( DDG::Goodie::BPMToMs )],
|
||||
(map { ("$_" => test_zci(
|
||||
'120 BPM as quarter notes per minute corresponds to the following note lengths in milliseconds:
|
||||
Whole Note: 2000 ms, Triplet: 1333 ms, Dotted: 3000 ms
|
||||
Half Note: 1000 ms, Triplet: 667 ms, Dotted: 1500 ms
|
||||
|
@ -18,9 +18,23 @@ Quarter Note: 500 ms, Triplet: 333 ms, Dotted: 750 ms
|
|||
1/8 Note: 250 ms, Triplet: 167 ms, Dotted: 375 ms
|
||||
1/16 Note: 125 ms, Triplet: 83 ms, Dotted: 188 ms
|
||||
1/32 Note: 63 ms, Triplet: 42 ms, Dotted: 94 ms
|
||||
1/64 Note: 31 ms, Triplet: 21 ms, Dotted: 47 ms',
|
||||
1/64 Note: 31 ms, Triplet: 21 ms, Dotted: 47 ms',
|
||||
html => qr#.*#
|
||||
)) } ( '120 bpm to ms', '120 beats per minute to note lengths', '120 bpm timings' ),
|
||||
);
|
||||
)) } ( '120 bpm to ms', '120 beats per minute to note lengths', '120 bpm timings' )),
|
||||
(map { ("$_" => test_zci(
|
||||
'61 BPM as quarter notes per minute corresponds to the following note lengths in milliseconds:
|
||||
Whole Note: 3934 ms, Triplet: 2623 ms, Dotted: 5902 ms
|
||||
Half Note: 1967 ms, Triplet: 1311 ms, Dotted: 2951 ms
|
||||
Quarter Note: 984 ms, Triplet: 656 ms, Dotted: 1475 ms
|
||||
1/8 Note: 492 ms, Triplet: 328 ms, Dotted: 738 ms
|
||||
1/16 Note: 246 ms, Triplet: 164 ms, Dotted: 369 ms
|
||||
1/32 Note: 123 ms, Triplet: 82 ms, Dotted: 184 ms
|
||||
1/64 Note: 61 ms, Triplet: 41 ms, Dotted: 92 ms',
|
||||
html => qr#.*#
|
||||
)) } ( '61 beats per minute to ms', '61 bpm', '61 bpm to note values' )),
|
||||
'-1 bpm to ms' => undef,
|
||||
'some bpm to ms' => undef,
|
||||
'bpm' => undef,
|
||||
);
|
||||
|
||||
done_testing;
|
||||
|
|
Loading…
Reference in New Issue