Added 1 more positive test and 3 negative tests.

master
stefolof 2014-12-05 20:20:20 +00:00
parent 4b1868cad7
commit 5c507b0fbf
1 changed files with 19 additions and 5 deletions

View File

@ -10,7 +10,7 @@ zci is_cached => 1;
ddg_goodie_test( ddg_goodie_test(
[qw( DDG::Goodie::BPMToMs )], [qw( DDG::Goodie::BPMToMs )],
map { ("$_" => test_zci( (map { ("$_" => test_zci(
'120 BPM as quarter notes per minute corresponds to the following note lengths in milliseconds: '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 Whole Note: 2000 ms, Triplet: 1333 ms, Dotted: 3000 ms
Half Note: 1000 ms, Triplet: 667 ms, Dotted: 1500 ms Half Note: 1000 ms, Triplet: 667 ms, Dotted: 1500 ms
@ -20,7 +20,21 @@ Quarter Note: 500 ms, Triplet: 333 ms, Dotted: 750 ms
1/32 Note: 63 ms, Triplet: 42 ms, Dotted: 94 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#.*# 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; done_testing;