tracks/perl6/exercises/grade-school/example.yaml in trackler-2.2.1.53 vs tracks/perl6/exercises/grade-school/example.yaml in trackler-2.2.1.54
- old
+ new
@@ -1,10 +1,10 @@
exercise: GradeSchool
version: 1
plan: 10
imports: Roster
-tests: |
+tests: |-
subtest "Roster class methods", {
plan 3;
ok ::('Roster').can($_), $_ for <add-student list-grade list-all>;
}
my $roster = ::('Roster').new;
@@ -21,25 +21,25 @@
ok $roster.?add-student(:name($_), :3grade), "Add $_ to grade 3" for <Tom Dick Harry>;
}
is $roster.?list-all, ('Grade 1', <Anna Barb Charlie>, 'Grade 2', <Alex Jim Zoe>, 'Grade 3', <Dick Harry Tom>), 'List all';
unit: module
-example: |
+example: |-
class Roster is export {
has %!roster;
-
+
method add-student (Str:D :$name!, Int:D :$grade!) {
%!roster.append($grade, $name);
}
-
+
method list-grade (Int:D $grade --> Seq:D) {
%!roster{$grade}.sort;
}
-
+
method list-all {
my @list.append("Grade $_", %!roster{$_}.sort) for %!roster.keys.sort;
return @list;
}
}
-stub: |
+stub: |-
class Roster is export {
}