Permalink
Browse files

Another note test.

  • Loading branch information...
1 parent bb96052 commit 6493ea184b62158d878755b11db16b13c2c3ede5 @LastOfTheCarelessMen committed Dec 16, 2009
Showing with 8 additions and 1 deletion.
  1. +8 −1 t/01-regexes.t
View
@@ -54,7 +54,14 @@ plan *;
is $match<ABC::note><note_length>, "/", '"__f/" has note length /';
}
-
+{
+ my $match = "G,2/3" ~~ m/ <ABC::note> /;
+ isa_ok $match, Match, '"G,2/3" is a note';
+ is $match<ABC::note><pitch><basenote>, "G", '"G,2/3" has base note G';
+ is $match<ABC::note><pitch><octave>, ",", '"G,2/3" has octave ","';
+ is $match<ABC::note><pitch><accidental>, "", '"G,2/3" has no accidental';
+ is $match<ABC::note><note_length>, "2/3", '"G,2/3" has note length 2/3';
+}
done_testing;

0 comments on commit 6493ea1

Please sign in to comment.