tracks/perl5/exercises/phone-number/.meta/exercise-data.yaml in trackler-2.2.1.110 vs tracks/perl5/exercises/phone-number/.meta/exercise-data.yaml in trackler-2.2.1.111

- old
+ new

@@ -1,11 +1,11 @@ exercise: PhoneNumber -version: 2 -plan: 15 +version: 3 +plan: 16 subs: clean_number tests: |- foreach my $subcases (@{$C_DATA->{cases}}) { - is $subs{clean_number}->($_->{phrase}), $_->{expected}, $_->{description} foreach @{$subcases->{cases}}; + is $subs{clean_number}->($_->{input}{phrase}), $_->{expected}, $_->{description} foreach @{$subcases->{cases}}; } example: | sub clean_number { my ($number) = @_;