![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png){kind=logo}
root/lang/perl/Music-Phrase-MMLGenerator/trunk/t/10_block.t
@
2804
| Revision 2804, 275 bytes (checked in by bonar, 5 years ago) |
|---|
| Line | |
|---|---|
| 1 | |
| 2 | use Test::More qw/no_plan/; |
| 3 | |
| 4 | use Music::Phrase::MMLGenerator::Block; |
| 5 | |
| 6 | my $block = Music::Phrase::MMLGenerator::Block->new('C', 'all1'); |
| 7 | ok($block, 'block test 1'); |
| 8 | ok(3 == (scalar @{$block->notes}), 'block test 2'); |
| 9 | ok(16 == (scalar @{$block->beats}), 'block test 3'); |
| 10 | |
| 11 | |
| 12 |
Note: See TracBrowser
for help on using the browser.
