tracks/perl6/exercises/robot-name/example.yaml in trackler-2.2.1.95 vs tracks/perl6/exercises/robot-name/example.yaml in trackler-2.2.1.96
- old
+ new
@@ -1,27 +1,27 @@
exercise: Robot
-version: 1
+version: 2
methods: name reset-name
-plan: 8
+plan: 7
tests: |-
srand 1;
- my $robot = ::($exercise).?new;
+ my $robot = Robot.?new;
my Str $name = $robot.?name;
like $name, /^^<[A..Z]>**2 <[0..9]>**3$$/, 'Name matches schema';
srand 2;
is $robot.?name, $name, 'Name is persistent';
srand 1;
- isnt ::($exercise).new.?name, $name, 'New Robot cannot claim previous Robot name';
+ isnt Robot.new.?name, $name, 'New Robot cannot claim previous Robot name';
srand 1;
$robot.?reset-name;
$robot.?reset_name; # Allows next test to still pass for older solutions
isnt $robot.?name, $name, "'reset-name' cannot use previous Robot name";
diag "\nCreating 100 robots...";
- push my @names, ::($exercise).new.name for 1..100;
+ push my @names, Robot.new.name for 1..100;
is @names, @names.unique, 'All names are unique';
subtest 'Randomness', {
plan 2;
isnt @names, @names.sort, 'Names not ordered';
isnt @names, @names.sort.reverse, 'Names not reverse ordered';