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';