root/lang/perl/Music-Phrase-MMLGenerator/trunk/t/10_block.t @ 2804

Revision 2804, 275 bytes (checked in by bonar, 6 years ago)

lang/perl/Music-Phrase-MMLGenerator: import Music-Phrase-MMLGenerator

Line 
1
2use Test::More qw/no_plan/;
3
4use Music::Phrase::MMLGenerator::Block;
5
6my $block = Music::Phrase::MMLGenerator::Block->new('C', 'all1');
7ok($block, 'block test 1');
8ok(3  == (scalar @{$block->notes}),  'block test 2');
9ok(16 == (scalar @{$block->beats}), 'block test 3');
10
11
12
Note: See TracBrowser for help on using the browser.