Another note test.

LastOfTheCarelessMen · Dec 16, 2009 · 6493ea1 · 6493ea1
1 parent bb96052
commit 6493ea1
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/t/01-regexes.t b/t/01-regexes.t
@@ -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;