Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

First working test.

  • Loading branch information...
commit 2bed1ffe42a588817f312a6cd9d9d93667325258 1 parent 9972dc3
@LastOfTheCarelessMen authored
Showing with 12 additions and 1 deletion.
  1. +12 −1 t/01-regexes.t
View
13 t/01-regexes.t
@@ -1,4 +1,15 @@
use v6;
+use Test;
use ABC;
-ok "^A," ~~ m/ <ABC::pitch> /, '"^A" is a pitch';
+plan *;
+
+{
+ my $match = "^A," ~~ m/ <ABC::pitch> /;
+ isa_ok $match, Match, '"^A," is a pitch';
+ is $<ABC::pitch><basenote>, "A", '"^A," has base note A';
+ is $<ABC::pitch><octave>, ",", '"^A," has octave ","';
+ is $<ABC::pitch><accidental>, "^", '"^A," has accidental "#"';
+}
+
+done_testing;
Please sign in to comment.
Something went wrong with that request. Please try again.