Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Another note test.

  • Loading branch information...
commit 6493ea184b62158d878755b11db16b13c2c3ede5 1 parent bb96052
@LastOfTheCarelessMen authored
Showing with 8 additions and 1 deletion.
  1. +8 −1 t/01-regexes.t
View
9 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;
Please sign in to comment.
Something went wrong with that request. Please try again.